2017-03-20
Binary Room, I made a game puzzle added music!
IchigoJam can play PSG by MML (Music Macro Language).
I updated the simulator WebMML also. Try to input "T240BBBAGGABB.G8GR".

1 'BINARY ROOM 10 S=1:CLT 15 CLS:LC4,0:?"STAGE:";S 20 FOR I=0 TO 15 30 LC8+I,2:?"#":LC8+I,17:?"#" 50 LC8,2+I:?"#":LC23,2+I:?"#" 70 NEXT 80 SRNDS:FOR I=1 TO S*3 90 X=RND(12)+10:Y=RND(12)+4:IF SCR(X,Y) CONT 100 LCX,Y:IF I%3 ?"#" ELSE ?I/3 110 NEXT 120 X=15:Y=16:V=16:W=16:C=1 121 PLAY"T140EGD2.A2EG1$EG<D2.C2E>B2.A2.B2.A2EB1DEG1DEA1DEG2F2G2E2.DEG<D2.C2E>B2.A2.B2.A2GA2.DFGAB<CDEFGEC>A<CE>G2FED2C1" 125 K=INKEY() 130 A=-(K=28)+(K=29):B=-(K=30)+(K=31) 140 IF SCR(X+A,Y+B)=0 LCX,Y:?CHR$(0):X=X+A:Y=Y+B 150 IF SCR(V-A,W+B)=0 LCV,W:?CHR$(0):V=V-A:W=W+B 160 LCX,Y:?"A":LCV,W:?"B" 165 LC(X+V)/2,(Y+W)/2:IF SCR()-48=C IF Y=W AND ABS(X-V)=2 OR X=V AND ABS(Y-W)=2 ?CHR$(0);:C=C+1:IF C=S+1 LC4,20:?"CLEAR!":PLAY"T240BB<CDDC>BAGGABA.G8GR":WAIT300:IF S=9 END ELSE S=S+1:GOTO 15 170 LC16,0:?"TIME:";TICK()/60:WAIT3:GOTO 125

BINARY ROOM on IchigoJam - get all numbers by characters A and B - 10 stage

Let's PLAY and CREATE!

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