Program post site for everyone
IchigoJamSWITCH用のミニゲーム
チェス盤とナイトを使って遊ぶ"ナイト・ツアー"をIchigoJamのミニゲームにしました。
カーソルを動かしてボタンを押すとナイトが移動します。
一度通ったマスを通らずに全てのマスを巡回すると成功。
最初のマスに戻って終了にすると難易度が上がります。
・ルール通りの移動以外を制限しよう。
・成功の判定をしてみよう。
10 'KNIGHT 20 SWITCH1:FORI=1TO4:OUTI,-1:NEXT 30 POKE#700,#1E,#3C,#7E,#7C,#1E,#1C,#3E,#7F 40 POKE#708,#81,#0,#0,#0,#0,#0,#0,#81 50 POKE#710,#AA,#55,#AA,#55,#AA,#55,#AA,#55 60 LC0,0,1:?"KNIGHT";:GSB@W 70 FORX=0TO8:FORY=0TO8:LCX,Y:?"~E1";:NEXT:NEXT 80 X=RND(8):Y=RND(8):LCX,Y:?"~E0";:LCX,Y,1:V=X:W=Y 90 @LP 100 IF!IN(5)X=X-1:LCX,Y,1:BEEP:WAIT30 110 IF!IN(6)Y=Y+1:LCX,Y,1:BEEP:WAIT30 120 IF!IN(7)Y=Y-1:LCX,Y,1:BEEP:WAIT30 130 IF!IN(8)X=X+1:LCX,Y,1:BEEP:WAIT30 140 IF!IN(9)BEEP50:LCV,W:?"~E2";:V=X:W=Y:LCX,Y:?"~E0";:LCX,Y,1:WAIT30 150 IF!IN(5)*!IN(8)GOTO@ED 160 GOTO@LP 170 @ED:BEEP100:WAIT10:BEEP200:CLS:?"STOP"; 180 GSB@W:F=FILE():LRUN0 190 @W:IF!BTN()CONT:ELSEBEEP2 200 IFBTN()CONT:ELSEBEEP5:RTN
