Program post site for everyone
いわゆる倉庫番です。
■ルール
・全ての○を・に運んでください
・○は押すと動きます
・○は引けません
・○を2個以上同時に押せません
■操作
移動：↑↓→←
やりなおし：G
■面数
全部で4面です
けっこうムズカシイですよ
■裏技
「M」を押すと。。。！？
※「倉庫番」「sokoban」はシンキングラビット／ファルコン株式会社様の登録商標です。
掲載にあたり許可をいただいています。
http://www.sokoban.jp/
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
