プログラミングをもっと楽しく!
Kidspod;はこどものプログラマーを
応援するための投稿サイトです。
はじめての人はこちらから
新規メンバー登録
メンバーの人はこちらから

2016/10/10 07:47:25

MixJuice GET URL : kidspod.club/mj/110

魚釣り

!マークとbeep音が同時に鳴ったときにスぺースキーを押して、魚を釣ってください
!マークだけや、BEEP音だけなったりするひっかけもあります。そういうときにスペースキーを押すとごみが釣れます。
ごみが3個たまる前に、何匹釣れるかな?

SOURCE CODE

OK
10 'サカナツリ
15 CLS
20 S=0:Z=0:T=0:W=0:H=0
40 IF Z<31 LC Z,21:?"~":Z=Z+1 
50 IF Z=31 T=1:ELSE GOTO 40
60 IF T=1 LC W,20:? CHR$(143):W=W+1
70 IF W=31 LC 20,20:?" /":LC 21,18:?" ":LC 20,17:?" " ELSE GOTO 60
80 LC 22,19:?"/";CHR$(253)
90 R=RND(5)
92 G=0:P=0:U=0
95 LC 0,0:?"サカナ:";S
97 LC 27,0:?"ゴミ:";H
105 F=0
110 IF R=0 LC 23,18:?"!":WAIT 60
120 IF R=1 BEEP 30,8
130 IF R=2 WAIT 60
140 IF R=3 WAIT 60
150 IF R>=4 BEEP 30,8:LC 23,18:?"!":F=1:WAIT 60
155 LC 23,18:?" "
159 K=INKEY()
160 IF K=32 IF F=1 S=S+1:U=1 ELSE H=H+1:U=1
170 IF H=3 LC 15,10:?"ゲームオーバー":LC 27,0:?"ゴミ:";H:END
180 IF U=1 LC 22,19:?"-":LC 21,20:?" ":LC 21,18:?"\":LC 20,17:?"*":U=0:WAIT 40:GOTO 70
190 GOTO 90

COMMENT

Kidspod運営チーム
Kidspod運営チーム2016/11/18 09:10:41

文字だけじゃなくて、音も使うアイデアが面白いですね。簡単そうに見えて、意外とゴミにひっかかってしまいます!