#■開始スクリプト
setVariable("銀行", 0); addMoney(0)

r=rand(2000) #臨時確認用。実装時に消しといてOK
speak("臨時収入 +",r," G"); addMoney(r)


s=createArray() #選択肢
s[0]="帰ります"
#持ってるGがいくらか調べて、千G毎の選択肢を作る
x=floor( getMoney() /1000 )
n=0; i=0
while n<x
 i=i+1000
 pushArray(s, i+" G")
n=n+1
end

a=speakWithSelectArray(s, "こちらは銀行の預金窓口です。\nいくらお預かりしましょうか？\n【預金額 "+getVariable("銀行")+" G】\n\n現在 "+getMoney()+" G 所持しています")

case a
when 0 #帰る
 speak("またのお越しをお待ちしております")

else
 subMoney( a*1000 )
 setVariable("銀行", getVariable("銀行")+a*1000 )
 speak(s[a]+" お預かり致しました。\n【預金額 "+getVariable("銀行")+" G】\n\nありがとうございました")

end

#■開始スクリプト
setVariable("銀行", 0); addMoney(0)

r=rand(2000) #臨時確認用。実装時に消しといてOK
speak("臨時収入 +",r," G"); addMoney(r)


s=createArray() #選択肢
s[0]="帰ります"
#持ってるGがいくらか調べて、千G毎の選択肢を作る
x=floor( getMoney() /1000 )
n=0; i=0
while n<x
 i=i+1000
 pushArray(s, i+" G")
n=n+1
end

a=speakWithSelectArray(s, "こちらは銀行の預金窓口です。\nいくらお預かりしましょうか？\n【預金額 "+getVariable("銀行")+" G】\n\n現在 "+getMoney()+" G 所持しています")

case a
when 0 #帰る
 speak("またのお越しをお待ちしております")

else
 subMoney( a*1000 )
 setVariable("銀行", getVariable("銀行")+a*1000 )
 speak(s[a]+" お預かり致しました。\n【預金額 "+getVariable("銀行")+" G】\n\nありがとうございました")

end