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

2017/08/30 18:10:50

MixJuice GET URL : kidspod.club/mj/243

ヨケロ!

十字キーの左右でボールをよけてください。
ゲームオーバーになっても、リトライ機能があります!
便利な裏技もあります。

  • No registered tag exist.
  • 1
  • 2
  • 1
  • 2

SOURCE CODE

1 REM ヨケロ!
10 CLS:CLP:X=14:Y=23:S=0:PLAY "$CCRCRC4"
20 SCROLL 2
30 C=SCR(X,Y)
40 LOCATE X,Y:PRINT CHR$(#F9);
50 LOCATE RND(30),0:PRINT CHR$(233)
60 K=INKEY():X=X-(K=28 AND X>0) +(K=29 AND X<28)
65 IF K=32 THEN BEEP:GOSUB 210
70 S=S+1
80 CLK
90 WAIT 10
100 IF C<>233 THEN GOTO 20
110 LOCATE X,Y:PRINT CHR$(244);
120 LOCATE 11,13:PRINT "ケ゛ームオーハ゛ー"
130 PRINT S;:PRINT "ホ゜イント!"
140 PLAY "CDE4"
150 LOCATE 10,20:PRINT "リトライ?"
160 PRINT "1 ハイ  2 オワル"
170 K=INKEY()
180 IF K=49 THEN GOTO 10
190 IF K=50 THEN PRINT "ハ゛イハ゛イ!":END
200 GOTO 170
210 REM ホ゜ース゛
220  K=INKEY():IF K=32 THEN PLAY "$CCDE":RETURN
230 GOTO 210

COMMENT

Kidspod運営チーム
Kidspod運営チーム2017/09/01 12:38:02

シンプルながら面白いゲームですね。BGMが付いていたり、当たったときにキャラクタが変わったり、演出面も楽しいです。裏ワザはとても強力でした!