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

2018/03/13 17:03:53

MixJuice GET URL : kidspod.club/mj/472

ジャンプアクション

左右キーで移動
上キーでジャンプ
おとしあなや敵をよけて、ゴールをめざそう

  • 1
  • 1

SOURCE CODE

10 'JUMP ACTION

20 @F:CLS:CLT

30 Z=0:X=2:Y=19:C=#FB:J=0:O=13:Q=10:E=#ED

40 FORI=0TO31:FORJ=20TO5STEP-5:LCI,J:?CHR$(#2):NEXT:NEXT:LC12,20:?"  ":LC22,10:?"  "

50 M=27:N=19:GSB@R:N=9:GSB@R:M=4:N=14:GSB@L

70 LC1,4:?"GOAL<"

90 @C:Z=Z+1:IF Z%2=1:LCO,4:?" ":LCQ+5,14:?" ":LCO+6,9:?" ":LCQ,19:?" ":LCQ+7,4:?" "

100 IF Z>24 Z=0:ELSE IF Z<13 O=O-Z%2:Q=Q+Z%2:ELSE O=O+Z%2:Q=Q-Z%2

110 LCX,Y:?CHR$(C)::LCO,4:?CHR$(E):LCQ+5,14:?CHR$(E):LCO+6,9:?CHR$(E):LCQ+7,4:?CHR$(E)

120 IFSCR(X,Y)=E GOTO@END

130 IFX=5&&Y=4 LC10,12:?"CLEAR":END

140 K=INKEY():CLK

150 IF J=0 C=#F9:ELSE C=#FA

160 IF K=28&&X>0 IF SCR(X-1,Y)!=#02 LCX,Y:?" ":X=X-1:C=#FD

170 IF K=29&&X<31 IF SCR(X+1,Y)!=#02 LCX,Y:?" ":X=X+1:C=#FB

180 IF J>2||J=0 IF SCR(X,Y+1)!=#02 LCX,Y:?" ":Y=Y+1:ELSE J=0

190 IF J!=0 J=J+1:LCX,Y:?" ":IF J<5&&SCR(X,Y-1)!=#2 Y=Y-1

200 IF J=0&&K=30 J=1

210 IF Y=22 GOTO@END

220 GOTO @C

230 @R:LCM+1,N-4:?"   ":FORI=0TO4:LCM+I,N-I:?CHR$(#2):NEXT:RTN

240 @L:LCM-3,N-4:?"   ":FORI=0TO4:LCM-I,N-I:?CHR$(#2):NEXT:RTN

250 @END:LC10,12:?"GAME OVER":WAIT180:GOTO@F

COMMENT

Kidspod運営チーム
Kidspod運営チーム2018/03/26 09:30:24

ジャンプの動きが独特で、非常に難しい! コースの先の方までちゃんと見ておかないとクリアできない戦略性も素敵です。3段目では、敵から逃げるのに必死で、あっさり穴に落ちてしまいました。