Program post site for everyone
迷路の中でいちごを採ります。
制限時間は1つの迷路につき60秒。
10個採ると次の迷路に進みます。
たまにこんな事があります。
・入口の先が行き止まりで入れない。
→TIMEのEの下から入れます。
・TIMEのEの下も行き止まり。
→右下のいちごから入れます。迷路の外から回り込んで下さい。
・迷路の外にいちごがある。
→迷路の外に出て、取って下さい。
IchigoJam webでの動物コードは、
「ラマ」「カワウソ」「トラ」
です。IchigoJam webの象のマークから読み込んでください。
10 'ICHIGOGARI 20 CLS:CLV 30 FOR I=0 TO30 40 LCI,2:?CHR$(1); 50 LCI,20:?CHR$(1); 60 NEXT:FOR I=2 TO20 70 LC0,I:?CHR$(1); 80 LC30,I:?CHR$(1); 90 NEXT 100 FOR X=2 TO28 STEP2 110 FOR Y=3 TO19 STEP2 120 LCX,Y:?CHR$(1); 130 R=RND(4) 140 A=X-(R=0)+(R=1) 150 B=Y-(R=2)+(R=3) 160 LCA,B:?CHR$(1):NEXT:NEXT 170 FOR I=0 TO10 180 E=RND(30)+1:F=RND(22)+1 190 LCE,F:IF SCR()=1 GOTO180 200 ?CHR$(255); 210 NEXT 220 LC1,20:?CHR$(255); 230 LC13,2:?CHR$(6) 240 CLT:X=1:Y=2:A=1:B=2 250 POKE#900+X+Y*32,249 260 LC0,0:?"SCORE:";J*10+S 270 LC10,0:?"TIME:";60-TICK()/60;" " 280 K=INKEY() 290 IF K=28&&X>0 X=X-1 300 IF K=29&&X<31 X=X+1 310 IF K=30&&Y>1 Y=Y-1 320 IF K=31&&Y<23 Y=Y+1 330 IF SCR(X,Y)=1 X=A:Y=B 340 IF SCR(X,Y)=255 S=S+1 350 IF SCR(X,Y)<>1 POKE#900+A+B*32,0:A=X:B=Y 360 IF TICK()>=3600 END 370 IF S=10 J=J+1:S=0:CLS:CLT:GOTO30 380 IF J=10 END 390 GOTO250
時間制限があると、10個が思ったより多く感じますね。焦りながらも道を探してイチゴに向かう……面白いです。不可能な迷路にならないように幾つも対策があるところもいいですね。
