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

2019/08/23 19:02:22

MixJuice GET URL : kidspod.club/mj/893

四角迷路

・そうさ
 カーソルキー 移動
 スペースキー めいろを変える

実行すると四角にランダムに穴があいためいろができます。
左上に人がでてくるので、その人をカーソルキーで移動させてください。
Gとかかれたところについたゴールです。(左からたっちしてください。)
もしふさがっていてゴールできない場合は、スペースキーを押してください。

・変数(迷路設定)
 X:よこ Y:たて V:たて線をかくところ Z:よこ線をかくところ
 A:穴のよこ B:穴のたて
・変数(迷路設定)
 X:人のよこ Y:人のたて
 T:時間

  • No registered tag exist.
  • 1
  • 1

SOURCE CODE

1 '(#8F)
5 CLT:CLS
20 FOR Y=0 TO 20:LC 0,Y:?"(#8F)"
30 NEXT
40 FOR Y=0 TO 20:LC 28,Y:?"(#8F)"
50 NEXT
60 FOR X=0 TO 28:LC X,0:?"(#8F)"
70 NEXT
80 FOR X=0 TO 28:LC X,20:?"(#8F)"
90 NEXT
100 FOR V=4 TO 28 STEP 4
110 FOR Y=1 TO 20 :LC V,Y:?"(#8F)"
120 NEXT:NEXT
130 FOR Z=4 TO 20 STEP 4
140 FOR X=1 TO 27 :LC X,Z:?"(#8F)"
150 NEXT:NEXT
160 FOR B=4 TO 16 STEP 4
170 FOR A=2 TO 27 STEP 4
180 IF RND(2)=0 LC A,B:?CHR$(0)
190 NEXT
200 NEXT
210 FOR B=4 TO 24 STEP 4
220 FOR A=2 TO 18 STEP 4
230 IF RND(2)=0 LC B,A:?CHR$(0)
240 NEXT
250 NEXT
300 LC 2,4:?CHR$(0):LC 4,2:?CHR$(0)
310 LC 26,16:?CHR$(0):LC 24,18:?CHR$(0)
350 X=1:Y=1
400 LC X,Y:?"(#F9)"
500 'BTN
505 T=TICK():LC6,22:?"タイム:";T/60;".";T/6%10
510 LC X,Y:?CHR$(0)
515 IF SCR(X+1,Y)==ASC("G") LC0,22:?"コ゛ール":END
520 IFSCR(X-1,Y)==0ANDBTN(LEFT)X=X-1
530 IFSCR(X+1,Y)==0ANDBTN(RIGHT)X=X+1
540 IFSCR(X,Y-1)==0ANDBTN(UP)Y=Y-1
550 IFSCR(X,Y+1)==0ANDBTN(DOWN)Y=Y+1
552 LC 27,1:?"G"
553 LC 27,19:?"G"
560 IF INKEY()==10 H=H+5:GOTO20
590 IF SCR(X+1,Y)==ASC("G") LC0,22:?"コ゛ール!!":END
600 LC X,Y:?"(#F9)":WAIT5:GOTO500

COMMENT

Kidspod運営チーム
Kidspod運営チーム2019/09/02 18:00:13

シンプルながら、タイムアタックが加わると燃えますね。ゴールが2つあると、どちらが近いかを判断する速さも問われるのが面白い!