k = 0
h = 0
b = 0
t = 0
case speakWithSelect(5,"剣 鉄2","帽子 布1","服 布2","盾 木2","やめる", 
    "何を作る？")
#剣  
  when 0
  speak("鉄2と50シルバーです")
  if getVariable("鉄") > 1
  speak("素材は足りてるね")
  k = k + 1
   end
  if getMoney() >49
  speak("お金は足りてるね")
  k = k + 1
   end
if k == 2
  speak("剣を手に入れた")
setVariable("鉄", getVariable("鉄")-1)
subMoney(50)
   end
#帽子  
  when 1
   speak("布1と30シルバーです")
  if getVariable("布") > 0 
  speak("素材は足りてるね")
  b = b + 1
   end
  if getMoney() >29
  speak("お金は足りてるね")
  b = b + 1
   end
if b == 2
  speak("帽子を手に入れた")
setVariable("布", getVariable("布")-1)
subMoney(30)
   end  
#服  
  when 2
    speak("布2と60シルバーです")
  if getVariable("布") > 1 
  speak("素材は足りてるね")
  h = h + 1
   end
  if getMoney() >59
  speak("お金は足りてるね")
  h = h + 1
   end
if h == 2
  speak("服を手に入れた")
setVariable("布", getVariable("布")-2)
subMoney(60)
   end  
#盾  
  when 3
    speak("木2と50シルバーです")
  if getVariable("木") > 1 
  speak("素材は足りてるね")
  t = t + 1
   end
  if getMoney() >49
  speak("お金は足りてるね")
  t = t + 1
   end
if t == 2
  speak("盾を手に入れた")
setVariable("木", getVariable("木")-2)
subMoney(50)
   end  
  when 4
    
end