BG COPY 0,0,32,16 TO 0,0 TOUCHSCREEN GLOBAL Y,NBLOCK FOR I=0 TO 10 SPRITE I PAL 1 NEXT I DO CALL CONTROL CALL UPBLOCK SPRITE 0,40,Y,6 WAIT VBL LOOP SUB CONTROL C=CELL.C((40+SCROLL.X(0))/8,(Y/8)+1) C2=CELL.C((48+SCROLL.X(0))/8,(Y/8)) IF C=0 AND NOT SPRITE HIT(0,1 TO 10) THEN INC Y END IF IF C2=2 OR C2=3 THEN ELSE CALL SCROLLBG(1,0) END IF IF TAP THEN CALL ADDBLOCK END IF END SUB SUB SCROLLBG(PLUSX,PLUSY) SCROLL 0,SCROLL.X(0)+PLUSX,SCROLL.Y(0)+PLUSY END SUB SUB GAMEOVER SCROLL 0,0,0 CLW PAL 1 SPRITE VIEW OFF TEXT 5,8,"GAME OVER" END END SUB SUB ADDBLOCK IF NOT NBLOCK>9 THEN INC NBLOCK FOR I=1 TO 2 ADD Y,-4 SPRITE NBLOCK,40,Y+8,3+I TRACE 4+I NEXT I END IF END SUB SUB UPBLOCK FOR I=1 TO NBLOCK C=CELL.C((40+SCROLL.X(0))/8,(SPRITE.Y(I)/8)+1) C2=CELL.C((48+SCROLL.X(0))/8,(SPRITE.Y(I)/8)) IF C=0 AND NOT SPRITE HIT(I,1 TO 10) THEN SPRITE I,,SPRITE.Y(I)+1, END IF IF C2=2 OR C2=3 THEN SPRITE I,SPRITE.X(I)-1,, END IF IF SPRITE.X(I)<-8 THEN DEC NBLOCK SPRITE I,0,0,0 END IF NEXT I END SUB #1:MAIN PALETTES 1A243908003F2A15003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 FFFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFDFFFFFFFFEE440002000000 BFFFFFFFFDFFFFFF4000000002000000 0000007EC3C3C37E000000003F3F3F7E 7EFDC3C3C3C3BF7E00033F3F3F3F7F7E 187E7EFFFFFF7E3C187E7EF5F5F57E3C #3:MAIN BG 00002010000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000002000200020002000200 02000200000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000200 02000200020003000300030003000218 02180218000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000300 03000300030003000300021802180000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000300 03000300030003000218000000000000 00000000000000000000000000000000 00000000000000000000000000000000 02000200000000000000000000000218 02180218021802180000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 02180218000000000000000000000000 00000000000000000000000000000000 00000000020002000200020002000200 02000200020002000200020000000000 00000000000000000000000000000200 02000200020002000200020002000200 02000200030003000300030003000300 03000300030003000300030000000000 00000000000000000000000000000300 03000300030003000300030003000300 03000300030003000300030003000300 03000300030003000300030002000200 02000200020002000200020002000300 03000300030003000300030003000300 03000300030003000300030003000300 03000300030003000300030003000300 03000300030003000300030003000300 03000300030003000300030003000300 03000300