Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2017/09/17 10:43:54

MixJuice GET URL : kidspod.club/mj/297

ウルサイみくじ

一見初心者の作ったかわいいおみくじゲームですが、
なんとおみくじが大凶だと口うるさく話しかけてきます。
しかも何回やってもほぼ大凶が出るので、とてもイラつきます。
ちょっとジョークで作ってみました。

プロコンは佳作に終わりました。
残念ですが、また冬も頑張ります!

  • No registered tag exist.
  • 1
  • 1

SOURCE CODE

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

COMMENT

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

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

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

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

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

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