GAMEPAD 1 RANDOMIZE TIMER IROUND=0 CALL NEWALIENS NEXTROUND: INC IROUND IBITS=IROUND*10 CBIT=IROUND*2 ISTOMP=0 WMOD=30 YMAX=0 DO WSTOMP=(WSTOMP+1) MOD WMOD FOR Y=0 TO 14 FOR X=0 TO 19 C=CELL.C(X,Y) IF C>0 THEN IF C>=2 AND C<=15 AND WSTOMP=0 THEN CC=(C\2)*2 C=CC+ISTOMP CELL X,Y,0 IF Y\2<>Y/2 THEN 'GO LEFT IF X>0 AND CELL.C(X-1,Y)=0 THEN CELL X-1,Y,C IF X=0 THEN IF CELL.C(X,Y+1)=0 THEN CELL X,Y+1,C+16 GOSUB CHECKMOD END IF END IF ELSE 'GO RIGHT IF X<19 AND CELL.C(X+1,Y)=0 THEN CELL X+1,Y,C+16 IF X=19 THEN IF CELL.C(X,Y+1)=0 THEN CELL X,Y+1,C+16 GOSUB CHECKMOD END IF END IF END IF ELSE IF C>=16 AND C<=31 AND WSTOMP=0 THEN CELL X,Y,C-16 END IF END IF NEXT X NEXT Y IF WSTOMP=0 THEN ADD ISTOMP,1,0 TO 1 PLAY 0,40,1 SOUND 0 IF CELL.C(0,0)=0 AND IBITS>0 AND ISTOMP=0 THEN PAL IROUND CELL 0,0,CBIT+1 PLAY 1,40,1 SOUND 1 DEC IBITS END IF END IF WAIT VBL LOOP CHECKMOD: IF Y+1>YMAX THEN IF WMOD>2 THEN WMOD=WMOD-2 YMAX=Y+1 PLAY 1,90,1 SOUND 1 END IF RETURN SUB NEWALIENS FOR NUMC=2 TO 15 CALL CLEARCHAR(NUMC) FOR PX=0 TO 3 FOR PY=0 TO 7 IF RND(1)=0 THEN C= RND(2)+1 CALL DRAWPX(NUMC, PX, PY, C) CALL DRAWPX(NUMC, 7-PX, PY, C) END IF NEXT PY NEXT PX NEXT NUMC END SUB SUB DRAWPX(NUMC, PX, PY, COL) 'DRAWS AN INDIVIDUAL PIXEL ONTO CHAR NUMC ADDR = $8000+16*NUMC+(7-PY) B0 = COL MOD 2 B1 = COL \ 2 IF B0=1 THEN BYT = PEEK(ADDR) OR 2^INT(7-PX) POKE ADDR, BYT ELSE BYT = PEEK(ADDR) AND (%11111111 - 2^INT(7-PX)) POKE ADDR, BYT END IF IF B1=1 THEN BYT = PEEK(ADDR+8) OR 2^INT(7-PX) POKE ADDR+8, BYT ELSE BYT = PEEK(ADDR+8) AND (%11111111 - 2^INT(7-PX)) POKE ADDR+8, BYT END IF END SUB SUB CLEARCHAR(NUMC) 'RESET ALL PIXELS OF ONE CHAR FOR I=0 TO 7 ADDR = $8000+16*NUMC+I POKE ADDR, %00000000 POKE ADDR+8, %00000000 NEXT I END SUB #1:MAIN PALETTES 003F2A1500382410003C2814000C0804 000F0A05000B06020023121100302010 #2:MAIN CHARACTERS 00000000000000000000000000000000 00002418241800000000243C18000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000008080000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000182418240000000000183C240000 #15:MAIN SOUND 3800303A00000000380081AA00FF0000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000