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

2018/08/06 23:15:35

MixJuice GET URL : kidspod.club/mj/538

通常版 地底探検

ワンライン 地底探検が意外と楽しかったので、
キャラクタ、音、ゲームオーバー処理などを省略せずに作りました。

ルールはワンライン 地底探検と同じです。
左右キーで自分を動かして、床に乗りながら地下へ降りてください。
床がなければ落ちますが、落ちている最中も移動できます。

床はせり上がってきます。自分が一番上に行ってしまうか、床に乗れずに一番下に落ちてしまうとゲームオーバーです。
スペースキーで再ゲームです。

新要素として、40メートル降りるごとに、スピードが速くなるようになっています。

  • 1
  • 2
  • 1
  • 2

SOURCE CODE

5 'ChiteiTanken
10 CLS:CLV
20 X=15:Y=1:I=8:Q=18:L=7
30 I=I+1:BEEP Q,3:WAIT L
40 R=R+1:IF R%4=0 THEN Q=Q-1
50 IF R=16 THEN R=0:Q=RND(24)+10
60 LOCATE RND(31),22:PRINT CHR$(6)
70 IF I<9 THEN GOTO 110
80 SCROLL 0:I=0:S=S+1:Y=Y-1
90 LOCATE 0,0:PRINT S;"m"
100 LOCATE 19,0:PRINT "ChiteiTanken"
110 M=BTN(RIGHT)*(X<30)-BTN(LEFT)*(X>0)
120 LOCATE X,Y:PRINT CHR$(0)
130 IF SCR(X,Y+1)=0 THEN Y=Y+1
140 IF SCR(X+M,Y)=0 THEN X=X+M
150 LOCATE X,Y:PRINT CHR$(#ED)
160 IF S%40=0 AND I=0 THEN BEEP 5,40:VIDEO 2:WAIT 40:VIDEO 1:L=L-1
170 IF Y>0 AND Y<22 THEN GOTO 30
180 WAIT 60:PLAY "O2B>AC"
190 LOCATE 12,10:PRINT "GAME OVER"
200 IF BTN(SPACE) THEN GOTO 10 ELSE CONT

COMMENT