RANDOMIZE TIMER SCROLL 0,-12,+4 BG 1 REM BG FILL 0,0 TO 32,32 CHAR 16 BG FILL 3,1 TO 16,14 CHAR 1 BG FILL 0,0 TO 1,1 CHAR 1 DIM GLOBAL MAP(7,7) GLOBAL MPIECECHAR MPIECECHAR=63 DIM GLOBAL MPIECEPAL(9) FOR I=1 TO 9 READ MPIECEPAL(I) NEXT I DATA 4,5,6,7,2,2,2,2,2 DIM GLOBAL CHARTILE(10) FOR I=1 TO 10 READ CHARTILE(I) NEXT I DATA 12,14,32,34,36,38,40,42,44,46 I=1 FOR Y=1 TO 7 FOR X=1 TO 7 SPRITE I,X*16+8,Y*16-8,2 SPRITE I SIZE 1 INC I NEXT X NEXT Y SPRITE 50,0,0,2 SPRITE 50 SIZE 1 INC I FOR X=1 TO 3 SPRITE I,X*32+8,0*8,8 SPRITE I SIZE 1 INC I SPRITE I,X*32+8,15*8,6 SPRITE I SIZE 1 INC I NEXT X FOR Y=1 TO 3 SPRITE I,2*8,Y*32-8,10 SPRITE I SIZE 1 INC I SPRITE I,17*8,Y*32-8,4 SPRITE I SIZE 1 INC I NEXT Y SPRITE 1,,,40 SPRITE 3,,,32 SPRITE 5,,,32 SPRITE 17,,,32 SPRITE 7,,,42 SPRITE 43,,,44 SPRITE 49,,,46 SPRITE 21,,,38 SPRITE 35,,,38 SPRITE 19,,,38 SPRITE 47,,,36 SPRITE 45,,,36 SPRITE 33,,,36 SPRITE 15,,,34 SPRITE 29,,,34 SPRITE 31,,,34 FOR I=1 TO 50 CC=SPRITE.C(I) IF CC=2 THEN SPRITE I,,,CHARTILE(RND(9)+1) END IF NEXT I BG 0 BG FILL 0,0 TO 32,32 CHAR 16 MAP(1,1)=1 MAP(7,1)=2 MAP(1,7)=3 MAP(7,7)=4 FOR Y=1 TO 7 FOR X=1 TO 7 IF MAP(X,Y)=0 THEN MAP(X,Y)=5 IF RND(2)=0 THEN MAP(X,Y)=6 IF RND(5)=0 THEN MAP(X,Y)=7 END IF NEXT X NEXT Y CROWN=0 WHILE CROWN<2 FOR Y=1 TO 7 FOR X=1 TO 7 IF CROWN<2 AND RND(100)=0 AND MAP(X,Y)>4 THEN INC CROWN MAP(X,Y)=7+CROWN PLAY CROWN,30*CROWN,1 END IF NEXT X NEXT Y WEND PRIO 1 FOR Y=1 TO 7 FOR X=1 TO 7 M=MAP(X,Y) PAL MPIECEPAL(M) CELL X*2,Y*2,MPIECECHAR+MAP(X,Y) NEXT X NEXT Y #1:MAIN PALETTES 0015002500383400003C2814003F3F00 000F0024003F2300003F3000003F0800 #2:MAIN CHARACTERS 003C7E5A7E243C000000000000000000 0000000000000000FFFFFFFFFFFFFFFF 00704040000000000000000000000000 000E0202000000000000000000000000 7E7E7E7E7E7E7E7E00000000040C1C3C 00000000000000000000000000000000 00FFFFFFFFFFFF0000000103070F0000 00FFFFFFFFFFFF00000080C0E0F00000 00FFFFFFFFFFFF0000000F0703010000 00FFFFFFFFFFFF000000F0E0C0800000 7E7E7E7E7E7E7E7E000000002030383C 00000000000000000000000000000000 0F7F7F7F7F7F7F7F0F0F0F0F0F0F0F0F F0FEFEFEFEFEFEFEF0F0F0F0F0F0F0F0 007F7F7FFFFFFFFF00000000FFFFFFFF 00FEFEFEFFFFFFFF00000000FFFFFFFF 00000000000000000000000000000000 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 00000000404070000000000000000000 0000000002020E000000000000000000 7E7E7E7E7E7E7E7E3C1C0C0400000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 7E7E7E7E7E7E7E7E3C38302000000000 00000000000000000000000000000000 7F7F7F7F7F7F7F0F0F0F0F0F0F0F0F0F FEFEFEFEFEFEFEF0F0F0F0F0F0F0F0F0 FFFFFFFF7F7F7F00FFFFFFFF00000000 FFFFFFFFFEFEFE00FFFFFFFF00000000 007F7F7FFFFFFFFF00000000FFFFFFFF 00FEFEFEFFFFFFFF00000000FFFFFFFF 0F7F7F7F7F7F7F7F0F0F0F0F0F0F0F0F F0FEFEFEFFFFFFFFF0F0F0F0FFFFFFFF 0F7F7F7FFFFFFFFF0F0F0F0FFFFFFFFF F0FEFEFEFFFFFFFFF0F0F0F0FFFFFFFF 0F7F7F7FFFFFFFFF0F0F0F0FFFFFFFFF F0FEFEFEFEFEFEFEF0F0F0F0F0F0F0F0 007F7F7F7F7F7F7F000000000F0F0F0F 00FEFEFEFFFFFFFF00000000FFFFFFFF 007F7F7FFFFFFFFF00000000FFFFFFFF 00FEFEFEFEFEFEFE00000000F0F0F0F0 0F7F7F7F7F7F7F7F0F0F0F0F0F0F0F0F F0FEFEFEFFFFFFFFF0F0F0F0FFFFFFFF 0F7F7F7FFFFFFFFF0F0F0F0FFFFFFFFF F0FEFEFEFEFEFEFEF0F0F0F0F0F0F0F0 FFFFFFFF7F7F7F0FFFFFFFFF0F0F0F0F FFFFFFFFFEFEFEF0FFFFFFFFF0F0F0F0 7F7F7F7F7F7F7F0F0F0F0F0F0F0F0F0F FFFFFFFFFEFEFEF0FFFFFFFFF0F0F0F0 FFFFFFFF7F7F7F00FFFFFFFF00000000 FFFFFFFFFEFEFE00FFFFFFFF00000000 FFFFFFFF7F7F7F0FFFFFFFFF0F0F0F0F FEFEFEFEFEFEFEF0F0F0F0F0F0F0F0F0 7F7F7F7F7F7F7F0F0F0F0F0F0F0F0F0F FFFFFFFFFEFEFEF0FFFFFFFFF0F0F0F0 FFFFFFFF7F7F7F0FFFFFFFFF0F0F0F0F FEFEFEFEFEFEFEF0F0F0F0F0F0F0F0F0 7F7F7F7F7F7F7F000F0F0F0F00000000 FFFFFFFFFEFEFE00FFFFFFFF00000000 FFFFFFFF7F7F7F00FFFFFFFF00000000 FEFEFEFEFEFEFE00F0F0F0F000000000 000018004400006C001800107C10286C 0010104000400000387C7E1F1F1F7F3E 00000000240024000042A53C7E668181 0094010028000000000094BDFF7E3C18 00000000000000000000000000000000 00001824241800000000001C1C180000 0C0E0000080478000000102018043800 0092186C827400000000207080780000 0092306C825C00000000081C023C0000