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

2017/04/01 11:03:05

MixJuice GET URL : kidspod.club/mj/176

マンホール

人がマンホールに落ちないように助けてあげてください

キー操作
1:左下
2:右下
4:左上
5:右上

LIFEが無くなるとゲームオーバーです

圧電サウンダーがあると音が出ます

20行のE=3で難易度を調整できます
数字を大きくすると現れる人が増えます

  • 1
  • 1

SOURCE CODE

10 'マンホール
20 CLV:CLS:E=3:F=0:X=5:Y=5:Z=4:[0]=1
30 LCX,Y+1:?"ロロロ ロロ ロロロ":LCX,Y+Z+1:?"ロロロTロロ ロロロ"
40 @S:GSB@A:GSB@B:GSB@C
50 F=(F=0)*10
60 J=(300-5*S)*(S<56)+20*(S>55)
70 FORI=0TOJ:K=INKEY()
80 IFK<>#31 ANDK<>#32 ANDK<>#34 ANDK<>#35GOTO@N
90 LCX+3,Y+Z+1:IFK=#31?"T"ELSE?" "
100 LCX+6,Y+Z+1:IFK=#32?"T"ELSE?" "
110 LCX+3,Y+1:IFK=#34?"T"ELSE?" "
120 LCX+6,Y+1:IFK=#35?"T"ELSE?" "
130 @N:NEXT
140 GOTO@S
150 @C:FORI=0TO9:LCX+I,Y
160 IF[I]?CHR$(#FB)ELSE?" "
170 NEXT
180 FORI=10TO19:LCX+19-I,Y+Z
190 IF[I]?CHR$(#FD)ELSE?" "
200 NEXT
210 RTN
220 @B:G=0:FORI=1TO19:G=G+[I]:NEXT
230 IFG>ERTN
240 K=RND(10):IFK>5RTN
250 IF[1+F]=0AND[3+F]=0[F]=1
260 RTN
270 @A:FORI=9+FTOF+1STEP-1:[I]=[I-1]:NEXT
280 IF[3+F]=0GOTO@V
290 IFSCR(X+3+(F<>0)*3,Y+1+Z*(F<>0))=#20GOTO@U
300 GOTO@T
310 @V:IF[6+F]=0GOTO@W
320 IFSCR(X+6-(F<>0)*3,Y+1+Z*(F<>0))=#20GOTO@U
330 @T:S=S+1:PLAY"O5C16":GOTO@W
340 @U:M=M+1:PLAY"C16"
350 @W:[F]=0:LC0,2:?"SCORE:";S:LC0,3:?"LIFE:";
360 IFM<>10FORI=1TO10-M:?CHR$(#F9);:NEXT:?" "ELSE?" "
370 IFM=10LC0,Y+Z+3:?"GAME OVER":END
380 RTN

COMMENT

Kidspod運営チーム
Kidspod運営チーム2017/05/02 18:32:49

どうして1245がキー操作なのかと思えば……なるほど、テンキーの配置がゲームと合っているのですね。2回助けなくてはならないので操作に忙しく、楽しいです。