• ichigojam
• ゲーム
• 1.2.3

10 CLS:T=9:R=9:N=T:M=R
20 FORA=0TO30:FORB=0TO20:LCA,B:?CHR$(6):NEXT:NEXT
30 FORA=1TO29:FORB=1TO19:LCA,B:?CHR$(0):NEXT:NEXT
40 FORB=1TO14:FORC=1TO9
50 D=RND(4):LCB*2+[D*2],C*2+[D+2+1]:?CHR$(6)
60 LCB*2,C*2:?CHR$(6):NEXT:NEXT
70 LET[0],0,-1,0,1,-1,0,1,0
80 D=RND(4):LCB*2+[D*2],C*2+[D+2+1]:?CHR$(6)
90 X=1:Y=1:LC29,19:?"G":CLT
100 U=X-BTN(28)+BTN(29)
110 V=Y-BTN(30)+BTN(31)
120 LC0,23:?TICK()/60;
130 C=SCR(U,V)
138 IFC=239CLS:?"GAMEOVER!! TIME:";TICK()/60:FORI=0TO5:VIDEO2:WAIT5:VIDEO1:?"^ー^":WAIT5:NEXT:?"メノマエカ゛マックラニナッタ":WAIT180:VIDEO0:BEEP255,10:BEEP1,10:END
139 IFC=6GOTO100
140 LCT,R:?CHR$(0)
142 T=N:R=M:LCT,R:?CHR$(239)
145 P=P+1:IFP%2=0GOTO180ELSEGOTO230
180 IFX>NN=N+1
200 IFX<NN=N-1
210 IFY>MM=M+1
220 IFY<MM=M-1
225 IFSCR(N,M)=6GOTO180
230 LCX,Y:?CHR$(0)
240 X=U:Y=V
250 LCX,Y:?CHR$(249)
260 WAIT12
270 IFC!=71 BEEPRND(255),10:GOTO100
280 CLS:?"GOAL!! TIME:";TICK()/60:CLK
290 END

Kidspod運営チーム2022/10/07 09:44:24

単に迷路を進むというだけでなく、敵がいるのがいいですね。追いつかれる前にゴールにたどりつけるか……ただの迷路なら何てことない行き止まりに緊迫感が出てます。そしてそれ以上に敵に捕まったあとの演出が見事！　こういうの大好きです。

Pagetop