if goto ゲーム016
'if goto ゲーム
gbackcolor=0
gscreen(800,600)
'文字の大きさ、背景色、文字の色を決める
gFontSize = 20
BackColor = "red"
ForeColor = "white"
'質問の部分
*a001
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
GLocate (10,10)
GPrint
"ここは001の質問 例えば 「犬と猫ならば犬が好き」"
input "001の質問、(y/n)で答えてね";a$
if a$="y" then
'ハイの場合
goto *a002
else 'その他の場合
goto *a005
end if
*a002
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
GLocate (10,10)
GPrint
"ここは002「ジオンと連邦軍ならばジオンが好き」"
input "002の質問、(y/n)で答えてね";a$
if a$="y" then
'ハイの場合
goto *a003
else 'その他の場合
goto *a006
end if
*a003
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
Glocate (10,10)
GPrint
"ここは003「青と赤ならば赤"
input "003の質問、(y/n)で答えてね";a$
if a$="y" then 'ハイの場合
goto *a004
else 'その他の場合
goto *a007
end if
*a004
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
Glocate (10,10)
GPrint "ここは004"
input "004の質問、(y/n)で答えてね";a$
if a$="y" then 'ハイの場合
goto *a1001
else
'その他の場合
goto *a008
end if
*a005
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
Glocate (10,10)
GPrint "ここは005"
input "005の質問、(y/n)で答えてね";a$
if a$="y" then 'ハイの場合
goto *a006
else
'その他の場合
goto *a009
end if
*a006
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
Glocate (10,10)
GPrint "ここは006"
input "006の質問、(y/n)で答えてね";a$
if a$="y" then 'ハイの場合
goto *a007
else
'その他の場合
goto *a010
end if
*a007
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
Glocate (10,10)
GPrint "ここは007"
input "007の質問、(y/n)で答えてね";a$
if a$="y" then 'ハイの場合
goto *a008
else
'その他の場合
goto *a011
end if
*a008
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
Glocate (10,10)
GPrint "ここは008"
input "008の質問、(y/n)で答えてね";a$
if a$="y" then 'ハイの場合
goto *a1002
else
'その他の場合
goto *a012
end if
*a009
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
Glocate (10,10)
GPrint "ここは009"
input "009の質問、(y/n)で答えてね";a$
if a$="y" then 'ハイの場合
goto *a010
else
'その他の場合
goto *a013
end if
*a010
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
Glocate (10,10)
GPrint "ここは010"
input "010の質問、(y/n)で答えてね";a$
if a$="y" then 'ハイの場合
goto *a011
else
'その他の場合
goto *a014
end if
*a011
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
Glocate (10,10)
GPrint "ここは011"
input "011の質問、(y/n)で答えてね";a$
if a$="y" then 'ハイの場合
goto *a012
else
'その他の場合
goto *a015
end if
*a012
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
Glocate (10,10)
GPrint "ここは012"
input "012の質問、(y/n)で答えてね";a$
if a$="y" then 'ハイの場合
goto *a1003
else
'その他の場合
goto *a016
end if
*a013
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
Glocate (10,10)
GPrint "ここは013"
input "013の質問、(y/n)で答えてね";a$
if a$="y" then 'ハイの場合
goto *a014
else
'その他の場合
goto *a1005
end if
*a014
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
Glocate (10,10)
GPrint "ここは014"
input "014の質問、(y/n)で答えてね";a$
if a$="y" then 'ハイの場合
goto *a015
else
'その他の場合
goto *a1006
end if
*a015
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
Glocate (10,10)
GPrint "ここは015"
input "015の質問、(y/n)で答えてね";a$
if a$="y" then 'ハイの場合
goto *a016
else
'その他の場合
goto *a1007
end if
*a016
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
Glocate (10,10)
GPrint "ここは016"
input "016の質問、(y/n)で答えてね";a$
if a$="y" then 'ハイの場合
goto *a1004
else
'その他の場合
goto *a1008
end if
'答えの部分
*a1001
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
Glocate (10,10)
GPrint "君は1001だ！"
sleep (5000)
goto *a001
*a1002
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
Glocate (10,10)
GPrint "君は1002だ！"
sleep (5000)
goto *a001
*a1003
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
Glocate (10,10)
GPrint "君は1003だ！"
sleep (5000)
goto *a001
*a1004
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
Glocate (10,10)
GPrint "君は1004だ！"
sleep (5000)
goto *a001
*a1005
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
Glocate (10,10)
GPrint "君は1005だ！"
sleep (5000)
goto *a001
*a1006
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
Glocate (10,10)
GPrint "君は1006だ！"
sleep (5000)
goto *a001
*a1007
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
Glocate (10,10)
GPrint "君は1007だ！"
sleep (5000)
goto *a001
*a1008
line(0,0)-(800,600),0,bf'画面を黒で塗りつぶす
Glocate (10,10)
GPrint "君は1008だ！"
sleep (5000)
goto *a001
end
最終更新日：2015,3,3