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

2017/05/14 21:44:04

MixJuice GET URL : kidspod.club/mj/203

そうこっ番

いわゆる倉庫番です。

■ルール
・全ての○を・に運んでください
・○は押すと動きます
・○は引けません
・○を2個以上同時に押せません

■操作
移動:↑↓→←
やりなおし:G

■面数
全部で4面です
けっこうムズカシイですよ

■裏技
「M」を押すと。。。!?

※「倉庫番」「sokoban」はシンキングラビット/ファルコン株式会社様の登録商標です。
掲載にあたり許可をいただいています。
http://www.sokoban.jp/

  • 1
  • 1

SOURCE CODE

10 CLV:LET[96],6,165,232:G=233:H=249:P=[97]
20 LET[0],614,21845,24625,21841,6193,5457,1585,1365,406,21845,16473,19481,18201,19705,19497,21845,471,5456,4117,22753,19777,16753,19237,21508,1364,439,21845,25225,20465,27705,27705,20465,25225,21845
30 @A:CLS:V=0:W=0:D=A:U=[A]:C=U&15:X=U&112>>4:Y=U>>7:IFU=0?"ゼンメンクリアー!オメデトウ!":END
40 FORJ=0TOC:A=A+1:L=-16384:FORK=7TO0STEP-1:M=[A]&L>>(K*2):IFM=2V=V+1
50 ?CHR$([95+M]);:L=L>>2:NEXT:?:NEXT:?N+1;"メン G:ヤリナオシ":LCX,Y:?CHR$(H)
60 @B:K=INKEY():IFK=71ORK=103A=D:GOTO@A
70 IFK=77ORK=109GOTO@D
80 S=(K=29)-(K=28):T=(K=31)-(K=30):IFS+T=0GOTO@B
90 E=X+S:F=Y+T:Q=SCR(E,F):R=SCR(E+S,F+T):IFQ=[96]GOTO@B
100 IF(Q=[98]ORQ=G)&&(R<>0&&R<>P)GOTO@B
110 IFQ=0ORQ=PGOTO@C
120 W=W-(Q=G):LCE+S,F+T:IFR=0?CHR$([98])ELSE?CHR$(G):W=W+1
130 @C:LCX,Y:IFSCR(X,Y)=H?CHR$(0)ELSE?CHR$(P)
140 X=E:Y=F:LCX,Y:IFQ=PORQ=G?CHR$(250)ELSE?CHR$(H)
150 IFV=WN=N+1:A=A+1:LC0,10:?"クリアー!!":WAIT180:GOTO@A
160 GOTO@B
170 @D:LC0,10:INPUT"メン?",B:IFB<1ORB>4A=D:GOTO@A
180 A=0:N=0
190 @E:IFN=B-1GOTO@A
200 A=A+[A]&15+2:N=N+1:GOTO@E

COMMENT

Kidspod運営チーム
Kidspod運営チーム2017/06/02 17:33:35

伝統のゲームですね。目的の場所に置くと○の表示が変わるのが嬉しい。そして難しい! 4面までは行けたのですが……。くやしい!