Program post site for everyone
8쎗8のマスをすべて○に変えるパズル IchigoJamSWITCH用に設定しています。
ボタンを押してシャッフル。はなすとスタートです。
カーソルを動かしてボタンを押すと、上下左右中の○●が反転します。
すべて○からシャッフルして作るので必ず解けるはずなのですが……^^;
盤面の大きさを変えてみよう。
キャラクタを変えてみよう。
完成の判定をつけてみよう。
10 'LIGHTS 20 SWITCH1:FORI=1TO4:OUTI,-1:NEXT 30 LC0,0,1:?"LIGHTS";:GSB@W 40 CLS:L=5:Z=5:V=1:B=232:W=233 50 FORX=0TOL:FORY=0TOL:LCX+Z,Y+V:?CHR$(B);:NEXT:NEXT 60 IF!BTN()CONT 70 X=RND(L+1):Y=RND(L+1):GSB@C:IFBTN()CONT 80 X=0:Y=0:LCX+Z,Y+V,1 90 @LP:A=0 100 IF!IN(5)X=X-1:A=A+1:IFX<0X=0 110 IF!IN(6)Y=Y+1:A=A+1:IFY>LY=L 120 IF!IN(7)Y=Y-1:A=A+1:IFY<0Y=0 130 IF!IN(8)X=X+1:A=A+1:IFX>LX=L 140 IFA>1GOTO@ED 150 IFALCX+Z,Y+V,1:BEEP:WAIT20 160 IFIN(9)GOTO@LP 170 BEEP2:WAIT15:BEEP5:GSB@C 180 IF!IN(9)CONTELSELCX+Z,Y+V,1:GOTO@LP 190 @C:LCX+Z,Y+V:IFSCR()=B?CHR$(W);ELSE?CHR$(B); 200 IFX<LLCX+1+Z,Y+V:IFSCR()=B?CHR$(W);ELSE?CHR$(B); 210 IFX>0LCX-1+Z,Y+V:IFSCR()=B?CHR$(W);ELSE?CHR$(B); 220 IFY<LLCX+Z,Y+1+V:IFSCR()=B?CHR$(W);ELSE?CHR$(B); 230 IFY>0LCX+Z,Y-1+V:IFSCR()=B?CHR$(W);ELSE?CHR$(B); 240 RTN 250 @W:IF!BTN()CONT:ELSEBEEP2 260 IFBTN()CONT:ELSEBEEP5:RTN 270 @ED:CLS:?"STOP":GSB@W:F=FILE():LRUN0
