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

2017/07/30 10:48:58

MixJuice GET URL : kidspod.club/mj/226

JUMPジゴク

斎藤さんが作られたJUMPの改造その1、ジゴクステージ
穴に落ちると罠で網で捕まってゲームオーバー
天国への階段を登ると天国ステージに移動します。
天国ステージの1個前のスロットにセーブしてください。
RUNは3つのうちどれからでも実行できます。
ステージのはじめで滑り台を降りて来るのは吉本新喜劇の階段落ちのつもりです。

SOURCE CODE

10 'JUMPシ゛コ゛ク28648
20 CLS:CLV
30 X=7:Y=5:V=0:J=0:W=10
60 LCX,Y:?" ":LC0,6
70 FORI=0TO15:?"(#8F)";:NEXT
95 FORI=-2TO0:LCX+I-2,Y+I:?"(#9D)(#9E)(#FB)":LCX+I-1,Y+I-1:?" ":WAIT6:NEXT
100 LC0,0:?S
120 '-LOOP-
130 IFINKEY()=32ANDJ=0 GSB480
140 LCX,Y:?" ";
160 Y=Y+V:IFY>5Y=5
165 IFJ=1V=V+1
170 IFVPEEK(X,Y)=36 BEEP:S=S+100
180 IFVPEEK(X,Y)=64 BEEP:W=2:Z=1
190 LCX,Y:?"(#FB)";
210 IFY>4 J=0
220 GSB290
230 IFVPEEK(X,Y+1)<>143 AND Y=5 GOTO250
235 IFVPEEK(X+1,Y)=143 V=-1ELSEIFY<5V=1
238 IFY<2 LC2,2:?"** CLEAR **":LRUN FILE()+1,30
240 GOTO120
250 '-MISS-
260 LC7,6:?" ";
270 FORI=0TO2:LCX,Y-I-2:?"(#92)":LCX-1,Y-I-1:?"((#FA))";:LCX-1,Y-I:?"   ":WAIT10:NEXT
280 ?"*** MISS ***":END
290 '-SCROLL-
300 LCX,Y
310 ? " ";
320 SCROLL 3
330 IFZ>0 Z=Z+1
340 IFZ>=32 Z=0:W=10
350 IFVPEEK(X,Y)=36 BEEP:S=S+100
360 IFVPEEK(X,Y)=64 BEEP:W=4:Z=1
370 LC15,6
380 IFRND(10)<9  ?"(#8F)";:ELSE?"#";
390 LCX,Y
400 ?"(#FB)";
410 S=S+1
420 LC0,0
430 PRINT S
440 IFRND(20)<1  K=3
450 IFRND(20)<1  LC15,3:?"@";
460 IFK>0 LC15,1+K:?"(#8F)";:K=K-1
470 WAITW:RTN
480 '-JUMP-
490 J=1
500 V=-3
510 RTN

COMMENT