「掃除番 for こどもパソコンIchigoJam」
掃除番(SOJIBAN)のルール
1. 全部の床を拭けばクリアです
2. モノの底も汚れています
3. モノは1コだけ押すことができます
掃除番 for IchigoJam 操作説明
上下左右キーで動きます
スペースキーでリトライします
10 LET[0],`0000000000000000 11 LET[1],`0110011101010101 12 LET[2],`0101010101011101 13 LET[3],`0000000000000001 14 LET[4],`0101010111010001 15 LET[5],`0101010101010101 16 LET[6],`0111111101110001 17 LET[7],`0111010101010001 20 LET[ 8],`0001010101010100 21 LET[ 9],`1001011111111101 22 LET[10],`0111010101010101 23 LET[11],`0111010000110101 24 LET[12],`0101110000011101 25 LET[13],`0101110101010101 26 LET[14],`0101111111110101 27 LET[15],`0001010101010100 90 LET[98],0,46,249,233 95 S=0 100 CLS:A=12:B=8:P=0:L=-1:FORI=0TO7:LCA,B+I:FORJ=0TO7:N=[S*8+I]>>((7-J)*2)&3:IFN>0L=L+1:IFN=2X=A+J:Y=B+I 110 ?CHR$([98+N]);:NEXT:NEXT:CLK 120 K=INKEY():IFK=SPACEGOTO100ELSEC=(K=RIGHT)-(K=LEFT):D=(K=DOWN)-(K=UP):IFC=0ANDD=0GOTO120 130 Q=SCR(X+C,Y+D) 140 IFQ=0GOTO120 145 IFQ=46L=L-1 150 IFQ=232ORQ=233LCX+C*2,Y+D*2:R=SCR():IFR=46ORR=95L=L-(Q=233):?CHR$(232+(R=46))ELSEGOTO120 160 P=P+1:LCX,Y:?CHR$(95):X=X+C:Y=Y+D:LCX,Y:?CHR$(249) 170 LC9,6:?"LEFT:";L;" STEP:";P;" ":IFL=0LC12,18:?"CLEAR!":S=S+1:IFS<2WAIT60:GOTO100ELSEEND 180 GOTO 120
10-17行がステージ1、20-27行がステージ2のデータです。
00が何もなし、01が床、11がモノ、10がスタート地点(1つのみ)です
2ステージありますが、パズルづくりは得意ではなく、あまりおもしろくはないのが欠点です。
ぜひ、オリジナル掃除番のステージデータを作って発表してください!
空き容量0!
でも大丈夫、2進数で書いてあるステージデータを10進数や16進数にすると圧縮できます。
参考リンク
- 倉庫番 - 1982年生まれの名作、押しモノゲームの元祖!?2015年、新作発表!