*define
caption "テスト"
deletemenu
game

*start
setwindow 16,350,25,4,24,24,0,6,20,1,1,#999999,8,345,631,471
bg "img\haikei.jpg",1
input $1,"プレーヤーの名前は？","たろう",20,1
input $2,"所持金は？（半角文字で）","100",10,0
atoi %1,$2

*kaimono

ld l,"img\sarutobi.bmp",1
ぼく、$1
今%1円もってるよ\
ld r,"img\tanuki.bmp",1
いらっしゃい
おにぎり１００円だよ\
じゃあ、ください。\
毎度あり！\
mov %1,%1-100
所持金が%1円になりました\
mov $2,"まだお金があります"
if %1<=0 mov $2,"お金がもうありません"
$2\
if %1>0 goto *kaimono
end