JumpDown

PB-100/PB-SIM/Pokecom GO

Programmed by NUAO

2022/10/20  

＜遊び方＞ 

プログラムを入力したら[shift] [0]でスタートです。「○」が自分です。

 ジャンプする障害物「_」とくぐる障害物「’」が迫ってきますので、タイミング良く避けて下さい。

 [8]でジャンプ、[2]でくぐります。

 距離に応じてスコアが伸びていきますが、障害物に当たるとスコアが 10 減ります。 

だんだん障害物の数が増えていき、一定距離を走るとゲーム終了し、得点を表示します 

[P0]

100 $="       ":S=0

110 FOR J=.05 TO .15 STEP .05

120 Z=1-J

130 FOR K=1 TO 100

140 C$="\CI":S=S+1

150 I$=KEY

160 IF I$="8" ; C$="\DG":GOTO 180

170 IF I$="2" ; C$="o"

180 PRINT CSR 0;$;CSR 5;C$;CSR 8;"    ";CSR 8;S;

190 E$=MID (6,1)

200 IF E$=" " THEN 240

210 IF E$="'" ; IF C$="o" THEN 240

220 IF E$="_" ; IF C$="\DG" THEN 240

230 PRINT CSR 0;"CRASH!";:S=S-10: IF S<0 ; S=0

240 $=MID (1,6)

250 F=RAN#:G$=" "

260 IF F>Z ; G$="'"

270 IF F<J ; G$="_"

280 $=G$+$

290 NEXT K

310 NEXT J

320 PRINT CSR 0;"GameOver    ";CSR 8;S

330 END