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

2018/10/22 20:22:22

MixJuice GET URL : kidspod.club/mj/656

箱入り娘

■箱入り娘

昔からあるパズルゲームです

■操作
はじめに画面サイズを1~4の間で選びます。
画面サイズは途中で変更することが出来ます。

動かしたい番号を入力すると、番号が点滅します。
点滅している状態で矢印を押すと動かせます。
「9」を投稿添付した位置に移動できればクリアです。

■バグ
よくわからないバグがあり、たまに画面がスクロールします。
スクロールすると正常に動きませんので、「Num=」に99と入力して画面を書き直して下さい。

  • 1
  • 1

SOURCE CODE

10 CLP:CLV:B=#900:E=32:M=#720:LET[1],4,0,0,3,4,0,0,1,3,0,0,2,3,0,0,0,2,0,1,3,2,0,1,1,2,1,0,0,0,0,1,3,0,0,1,1,0,1,1
20 @M:CLS:?" ";:COPYB+1,B,640:COPYM,384,80:INPUT"(1-4)",P:IFP>4CONT
30 FORI=0TO9:Z=I*4:X=[Z]:Y=[Z+1]:V=[Z+2]*P+P-1:W=[Z+3]*P+P-1:FORJ=0TOV:FORK=0TOW:LCX*P+J+2,Y*P+K+1:D=228+I:IFP>2IF!K||K=WD=145ELSEIF!J||J=VD=146
40 IFP>2&&(!J||J=V)&&(!K||K=W)D=152+(J=V)+(K=W)*2
50 ?CHR$(D):NEXT:NEXT:NEXT
60 @S:I=5*P+1:LC0,I:?" ";:COPYB+I*E+1,B+I*E,30:?"STEP=";N;:CLK:INPUT" Num=",A:C=A*4:G=C+1:H=C+2:IFA=99GOTO@MELSEIFA>9CONT
70 COPYM+A*8,0,8:T=BTN(29)-BTN(28):U=BTN(31)-BTN(30):COPYM+A*8,384+A*8,8:IFT+U=0CONT
80 R=[C]+T:S=[G]+U:IFR<0||R>3||S<0||S>4GOTO@S
90 F=0:FORI=0TO[H]:FORJ=0TO[C+3]:K=R*P+2+I*P:O=S*P+1+J*P:IF!F&&SCR(K,O)!=E&&SCR(K+(P>2),O+(P>2))!=A+228F=1
100 NEXT:NEXT:J=#780:IFFGOTO@S
110 Z=[C+3]*P+P-1:Q=[H]*P+P:FORI=0TOZ:L=B+[C]*P+34+([G]*P+I)*E:COPYJ+I*Q,L,Q:LC[C]*P+2,[G]*P+I+1:?" ":COPYL+1,L,Q-1:NEXT:[C]=R:[G]=S:FORI=0TOZ:COPYB+[C]*P+34+([G]*P+I)*E,J+I*Q,Q:NEXT
120 IF[36]=1&&[37]=3?"クリア"ELSEN=N+1:GOTO@S

COMMENT