ロジックパズル　９ｘ５　ＭｏｂｉｌｅＢ２版/Kidspod;

2017/01/21 07:02:52

GOOD!5
PLAY!2
VIEW1525

: palboon

ロジックパズル　９ｘ５　ＭｏｂｉｌｅＢ２版

ランダムで９ｘ５のロジックを作成します。
塗りつぶすところに矢印キーでネコを移動してスペースで開けます。
正解だと”○”が表示され左上のスコアに＋１点
まちがいのときは”／”が表示され−１点されます。
塗りつぶすところを全て開けると終了です。

10 'SDK
20 CLS:CLV:FORI=0TO44:[I]=RND(2):T=T+[I]:NEXT:Y=3
30 FORI=0TO44:IFI%9=0X=0:C=0
40 IF[I]C=C+1
50 IF![I]ORI%9=8IFCLCX,Y+I/9:?C;:C=0:X=X+1
60 IFI%9=8*!XLCX,Y+I/9:?C;
70 NEXT
80 FORJ=0TO8:Y=0:C=0
90 FORI=0TO4:IF[J+I*9]=1C=C+1
100 IF![J+I*9]ORI=4IFCLCJ+6,Y:?C;:C=0:Y=Y+1
110 IFI=4*!YLCJ+6,Y:?C;
120 NEXT:NEXT
130 X=6:Y=3:LCX,Y:?"(#EC)";
140 @IN:K=INKEY():IF!KGOTO@IN
150 U=-(X>6)*(K=28)+(X<14)*(K=29):V=-(Y>3)*(K=30)+(Y<7)*(K=31):R=[X-6+(Y-3)*9]
160 IFK=32*!R[X-6+(Y-3)*9]=2:S=S-1ELSEIFK=32*(R=1)[X-6+(Y-3)*9]=3:S=S+1:T=T-1
170 LCX,Y:IFR<2:?" ";ELSE?CHR$(92+(R-2)*140);
180 LC0,0:?"S:";S;" ":IF!T:LCX,Y:?"(#E8)";:LC0,1:END
190 X=X+U:Y=Y+V:LCX,Y:?"(#EC)";
200 GOTO@IN

: Kidspod運営チーム2017/03/13 17:06:07
いわゆるお絵かきロジックですね。これはすごい！　時間を忘れて遊び続けてしまいます！

ロジックパズル ９ｘ５ ＭｏｂｉｌｅＢ２版

ロジックパズル　９ｘ５　ＭｏｂｉｌｅＢ２版