case speakWithSelect(35,"鉄の剣","鉄の盾","鉄の兜","鉄の鎧","鉄の靴", "風の剣","風の盾","風の兜","風の鎧", "風の靴", "光の剣","光の兜","光の鎧","光の盾", "天空の剣", "天空の兜","天空の鎧","炎魔法","炎魔法（中）", "炎魔法（強）", "氷魔法","氷魔法（中）","氷魔法（強）","風魔法", "風魔法（中）", "風魔法（強）","雷魔法","雷魔法（中）","雷魔法（強）", "回復薬", "回復薬Ⅱ","回復薬Ⅲ","魔力薬","魔力薬Ⅱ", "魔力薬Ⅲ","やめる", 
    "何を買いますか？\n残りの（　＾　＾　；　）あと "+getVariable("G"))
when 0
e="鉄の剣"#なまえ
f=1500#値段
d=6425#ID
#略
else
speak("ひやかしかよ")
i=1
end
if i==0
    case speakWithSelect(2,"はい","いいえ", 
    f+"（　＾　＾　；　）になりますがよろしいですか")
  when 0
f=f+floor(f*h/100/a)
    if getVariable("G")>f
setVariable("G", getVariable("G") - f)
speak(e+"を買った")
giveItem(d)
else
speak("（　＾　＾　；　）が足りません")
  end
  when 1
speak("ひやかしかよ")
end
end
end
 speak("残りの（　＾　＾　；　）あと ", getVariable("G"))