2015-12-30
意外と楽しかったMSX時代のパズルゲーム、年末大掃除でモノをどかしながらの床を拭いていて思いついた新ルール、題して「掃除番」

「掃除番 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年、新作発表!

Tweet
クリエイティブ・コモンズ・ライセンス
本ブログの記事や写真は「Creative Commons — CC BY 4.0」の下に提供します。記事内で紹介するプログラムや作品は、それぞれに記載されたライセンスを参照ください。
CC BY / @taisukef / アイコン画像 / プロフィール画像 / 「一日一創」画像 / RSS