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

2021/09/05 18:07:53

MixJuice GET URL : kidspod.club/mj/2087

イチゴ狩り

迷路の中でいちごを採ります。
制限時間は1つの迷路につき60秒。
10個採ると次の迷路に進みます。

たまにこんな事があります。
・入口の先が行き止まりで入れない。
 →TIMEのEの下から入れます。
・TIMEのEの下も行き止まり。
 →右下のいちごから入れます。迷路の外から回り込んで下さい。
・右下も行き止まり。
 →いったん迷路から出て、SCOREのSの位置から下に下がって下さい。右の壁が崩れます。
・迷路の外にいちごがある。
 →迷路の外に出て、取って下さい。その際自分の位置が移動することがあります。

  • 1
  • 1

SOURCE CODE

10 'イチゴガリ
20 CLS:CLV
30 FOR I=0 TO30
40 LCI,1:?CHR$(1);
50 LCI,19:?CHR$(1);
60 NEXT:FOR I=1 TO19
70 LC0,I:?CHR$(1);
80 LC30,I:?CHR$(1);
90 NEXT
100 FOR X=2 TO28 STEP2
110 FOR Y=2 TO19 STEP2
120 LCX,Y:?CHR$(1);
130 Z=RND(4)
140 IF Z=1 LCX-1,Y:GOTO180
150 IF Z=2 LCX,Y+1:GOTO180
160 IF Z=3 LCX+1,Y:GOTO180
170 LCX,Y-1
180 ?CHR$(1);:NEXT:NEXT
200 FOR I=0 TO10
210 E=RND(31):F=RND(23)
220 LCE,F:IF SCR()=1 GOTO210
230 ?CHR$(255);
240 NEXT
250 LC1,19:?CHR$(255);
260 LC13,1:?CHR$(6)
270 CLT:X=1:Y=1:A=1:B=1
280 LCX,Y:?CHR$(249);:LCX,Y
290 LC0,0:?"SCORE:";J*10+S
300 LC10,0:?"TIME:";60-TICK()/60;" "
310 K=INKEY()
320 IF K=28 X=X-1
330 IF K=29 X=X+1
340 IF K=30 Y=Y-1
350 IF X>=32 X=31
360 IF Y>=22 X=21
370 IF X>=31&&Y>=21 X=31:Y=20
380 IF K=31 Y=Y+1
390 IF SCR(X,Y)=1 X=A:Y=B
400 IF SCR(X,Y)=255 S=S+1
410 IF SCR(X,Y)<>1 LCA,B:?" ";:LCA,B:A=X:B=Y
420 IF TICK()>=3600 END
430 IF S=10 J=J+1:S=0:CLS:CLT:GOTO30
440 IF J=10 END
450 GOTO280

COMMENT

Kidspod運営チーム
Kidspod運営チーム2021/09/22 20:02:04

時間制限があると、10個が思ったより多く感じますね。焦りながらも道を探してイチゴに向かう……面白いです。不可能な迷路にならないように幾つも対策があるところもいいですね。