• No registered tag exist.

10 CLS
20 LOCATE 0,0:?"オミクシ゛ スヘ゜ーステ゛ハシ゛マルヨ!"
30 IF BTN(SPACE) THEN GOTO 50
40 GOTO 30
50 R=RND(100)+1:IF R<100 THEN GOTO 100 ELSE ?"タ゛イキチ":GOSUB 1000:?"オモシロクナイ":END
100 ?"タ゛イキョウ":WAIT 120:?"アノサァ":GOSUB 1000:?"キニナッタンタ゛ケト゛":GOSUB 1000:?"モシカシテキミ":GOSUB 1000:?"「タ゛イキョウカ、、、」":GOSUB 1000:?"「マ、ウラナイナンテ、アテニナンナイサ」":GOSUB 1000:?"トカオモッテナイ?":GOSUB 1000:?"オモッタヨネ":GOSUB 1000
110 ?"ソウイウイイノカ゛レ":GOSUB 1000:?"タ゛メタ゛トオモウヨ?":GOSUB 1000:?"タ゛イキョウニナッタシ゛シ゛ツ":GOSUB 1000:?"ウケトメナイトネ":GOSUB 1000:?"ウケトメテ":GOSUB 1000:?"ヒトハセイチョウスルンシ゛ャ":GOSUB 1000:?"ナイノカナァ?":GOSUB 1000
120 ?"シンシ゛カ゛タイコト":GOSUB 1000:?"ウケトメテ":GOSUB 1000:?"ソレテ゛マタアルキタ゛シ":GOSUB 1000:?"イシ゛ンニナッタヒト":GOSUB 1000:?"タクサンイルヨ?":GOSUB 1000:?"キミモネ?":GOSUB 1000:?"タ゛イキョウニナッタシ゛シ゛ツ":GOSUB 1000:?"ウケトメテミヨウヨ?":GOSUB 1000
130 ?"キット":GOSUB 1000:?"スコシ":GOSUB 1000:?"セイチョウスルンシ゛ャナイ?":GOSUB 1000:?"ワカッタ?":GOSUB 1000
140 ?CHR$(#E0);" ワカッタ    ";CHR$(#E1);" モウイッカイイッテ?" 
150 IF BTN(LEFT) THEN ?"シ゛ャアナ":GOSUB 1000:?"カ゛ンハ゛レヨ":END
160 IF BTN(RIGHT) THEN ?"ヨシモウイッカイイオウ":GOSUB 1000:GOTO 100
170 GOTO 150
1000 WAIT 60:RETURN

Kidspod運営チーム2017/09/22 16:22:49

行番号10は「10 NEW:CLS」ではなく「10 CLS」が正しいでしょうか。NEWを入れると、実行と同時にプログラムが消えてしまいます。

Kidspod運営チーム2017/09/22 16:19:24

ノミネートに入れなかったのは残念ですが、佳作でも十分にすごいです。全102作品もある中から選ばれた40作品ですから。冬のコンテストでもお待ちしております！

Kidspod運営チーム2017/09/22 16:19:11

大凶を引いて説教されてしまいました。1024byte目一杯に使って口うるさいセリフを作るとは……！　大吉が出ないし、出たら出たで反応が悪いし、ヘンテコなプログラムですね。ナイスジョーク！

Pagetop