プログラミングをもっと楽しく!
Kidspod;はこどものプログラマーを
応援するための投稿サイトです。
はじめての人はこちらから
新規メンバー登録
メンバーの人はこちらから

2017/01/21 07:02:52

MixJuice GET URL : kidspod.club/mj/145

ロジックパズル 9x5 MobileB2版

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

  • 1
  • 2
  • 1
  • 2

SOURCE CODE

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

COMMENT

Kidspod運営チーム
Kidspod運営チーム2017/03/13 17:06:07

いわゆるお絵かきロジックですね。これはすごい! 時間を忘れて遊び続けてしまいます!