JUMPボーナスステージ/Kidspod;

2017/08/06 07:08:05

GOOD!1
PLAY!2
VIEW1160

: palboon

JUMPボーナスステージ

斎藤さんが作られたJUMPの改造その３。
JUMPテンゴクステージでスピードアップを集めると入れます。
穴が少ないのでポイントを稼げますが、スピードアップを取らないとだんだん地面が崩れて来ますので頑張ってください。
ＳＡＶＥはJUMP天国の１つ後ろにに保存して下さい。
ＲＵＮは３つのうちどれからでも実行できます。

10 'JUMPホ゛ーナス
20 CLS:CLV
30 X=7:Y=5:V=0:J=0:W=10:K=1
40 LC X,Y
50 ?"(#FB)";
60 LC0,6
70 FORI=0TO15
80 ?"(#8F)";
90 NEXT
100 LC0,0
110 ?S
120 '-LOOP-
130 IFINKEY()=32ANDJ=0 GSB480
140 LCX,Y
150 ? " ";
160 Y=Y+V:IFJ V=V+1
170 IFVPEEK(X,Y)=36 BEEP:S=S+100
180 IFVPEEK(X,Y)=64 BEEP:W=2:Z=1
190 LCX,Y
200 ?"(#FB)";
210 IFY>4 J=0:V=0
220 GSB290
230 IFVPEEK(X,Y+1)<>143 AND Y=5 GOTO250
240 GOTO120
250 '-MISS-
260 LC2,4:?"*** MISS ***"
270 ?"*** MISS ***":LRUN FILE()-1,30
280 END
290 '-SCROLL-
300 LCX,Y
310 ? " ";
320 SCROLL 3
330 IFZ>0 Z=Z+1
340 IFZ>=32 Z=0:W=10:K=1
344 IFK>0 K=K+1
348 LCK/5,6:?" ";
350 IFVPEEK(X,Y)=36 BEEP:S=S+100
360 IFVPEEK(X,Y)=64 BEEP:W=4:Z=1:K=0
370 LC15,6
380 IFRND(20)<19 ?"(#8F)";
390 LCX,Y
400 ?"(#FB)";
410 S=S+1
420 LC0,0
430 PRINT S
440 IFRND(10)<1  LC15,3:?"$";
450 IFRND(20)<1  LC15,3:?"@";
470 WAITW:RTN
480 '-JUMP-
490 J=1
500 V=-2
510 RTN

: Kidspod運営チーム2017/08/10 18:24:08
SAVEスロット3つも使うとは、すごいプラグラムですね！　ゲームの内容も面白いですが、ステージを移動したときの画面の動きもけっこう楽しいです。