※音が小さいので、音量大でお聞きください。

ブラックホールが、いろいろなスプライトを吸い込むPan Cakeプログラムです。
ゲーム性はありませんが、デモ画面などに使えます。

プログラム ver.IchigoJam 1.1.1
10 CLV:CLT:VIDEO 0:?"PC VIDEO 1":?"PC SPRITE START 06":GSB1000:GSB1100:?"PC SPRITE CREATE 02 54":?"PC SPRITE CREATE 03 55":?"PC SPRITE MOVE 02 28 15":?"PC SPRITE MOVE 03 99 99":Q=0
20 IF40>AA=A+1
30 IF40<AA=A-1
40 IF22>BB=B+1
50 IF22<BB=B-1
60 IF40>CC=C+1
70 IF40<CC=C-1
80 IF22>DD=D+1
90 IF22<DD=D-1
95 IFTICK()/30>0GSB5000
100 ?"PC SPRITE MOVE 00 ";HEX$(A,2);" ";HEX$(B,2):?"PC SPRITE MOVE 01 ";HEX$(C,2);" ";HEX$(D,2):WAIT 7
110 IF(A=40)*(B=22)L=RND(7)+65:?"PC MUSIC SCORE 00 01 30 ";CHR$(L):GSB1000
120 IF(C=40)*(D=22)?"PC MUSIC SCORE 01 01 30 ";CHR$(RND(7)+65):GSB1100
130 GOTO20
1000 ?"PC SPRITE CREATE 00 FF":A=RND(80):B=RND(45):?"PC SPRITE CREATE 00 ";HEX$(RND(128),2):?"PC SPRITE MOVE 00 ";HEX$(A,2);" ";HEX$(B,2):RTN
1100 ?"PC SPRITE CREATE 01 FF":C=RND(80):D=RND(45):?"PC SPRITE CREATE 01 ";HEX$(RND(128),2):?"PC SPRITE MOVE 01 ";HEX$(C,2);" ";HEX$(D,2):RTN
5000 IF Q=0 Q=1:?"PC SPRITE MOVE 02 99 99":?"PC SPRITE MOVE 03 28 15":CLT:RTN
5010 Q=0:?"PC SPRITE MOVE 03 99 99":?"PC SPRITE MOVE 02 28 15":CLT:RTN

ゲームアプリ、「地中脱出ゲーム」もよろしく!

関連する記事
コメント
コメントする