TOUCHSCREEN REM WAS8BIT RANDOMIZE TIMER PSHOOT=1 PBASE=3 PSHIELD=2 PFIRE=7 ESHOOT=4 EBASE=6 ESHIELD=5 EFIRE=8 EFIREMOV=9 FOR X=0 TO 19 PAL 0 CELL X,15,PSHIELD CELL X,13,PSHOOT CELL X,0,ESHIELD CELL X,2,ESHOOT PAL 1 CELL X,1,EBASE CELL X,14,PBASE NEXT X DO IMOVE=(IMOVE+1) MOD 15 'PLAYER IF TAP THEN YY=TOUCH.Y\8 XX=TOUCH.X\8 CTOUCH=CELL.C(XX,YY) IF CTOUCH=PSHOOT THEN PLAY 0,60,1 SOUND 0 CELL XX,YY,0 PAL 1 CELL XX,12,PFIRE ELSE IF CTOUCH=PSHIELD AND YY=15 THEN PLAY 1,50,5 SOUND 1 CELL XX,YY,0 PAL 0 CELL XX,12,PSHIELD END IF END IF 'COMPUTER IF RND(10)=0 THEN EX=RND(19) 'SHOOT C0=CELL.C(EX,0) C2=CELL.C(EX,2) IF RND(1)=0 AND C2=ESHOOT THEN PLAY 0,90,1 SOUND 3 CELL EX,2,0 PAL 1 CELL EX,3,EFIREMOV 'SHIELD ELSE IF C0=ESHIELD THEN PLAY 1,50,5 SOUND 2 CELL EX,0,0 PAL 0 CELL EX,3,ESHIELD END IF END IF IF IMOVE=0 THEN FOR X=0 TO 19 FOR Y=0 TO 15 CC=CELL.C(X,Y) CU=CELL.C(X,Y-1) CD=CELL.C(X,Y+1) PAL 0 IF Y=1 THEN IF CC>0 THEN IF CD=0 AND RND(20)=0 THEN CELL X,Y+1,ESHOOT IF CU=0 AND CELL.C(X,3)=0 AND RND(20) THEN CELL X,Y-1,ESHIELD IF X<9 AND CELL.C(X+1,Y)=0 THEN CELL X,Y,0 CELL X,Y-1,0 CELL X,Y+1,0 CELL X,Y+2,0 PAL 1 CELL X+1,Y,EBASE PAL 0 CELL X+1,Y-1,ESHIELD CELL X+1,Y+1,ESHOOT END IF IF X>10 AND CELL.C(X-1,Y)=0 THEN CELL X,Y,0 CELL X,Y-1,0 CELL X,Y+1,0 CELL X,Y+2,0 PAL 1 CELL X-1,Y,EBASE PAL 0 CELL X-1,Y-1,ESHIELD CELL X-1,Y+1,ESHOOT END IF ELSE IF CU>0 THEN CELL X,Y-1,0 END IF ELSE IF Y=14 THEN IF CC>0 THEN IF CU=0 AND RND(20)=0 THEN CELL X,Y-1,PSHOOT IF CD=0 AND CELL.C(X,12)=0 AND RND(20)=0 THEN CELL X,Y+1,PSHIELD IF X<9 AND CELL.C(X+1,Y)=0 THEN CELL X,Y,0 CELL X,Y-1,0 CELL X,Y+1,0 CELL X,Y-2,0 PAL 1 CELL X+1,Y,PBASE PAL 0 CELL X+1,Y-1,PSHOOT CELL X+1,Y+1,PSHIELD END IF IF X>10 AND CELL.C(X-1,Y)=0 THEN CELL X,Y,0 CELL X,Y-1,0 CELL X,Y+1,0 CELL X,Y-2,0 PAL 1 CELL X-1,Y,PBASE PAL 0 CELL X-1,Y-1,PSHOOT CELL X-1,Y+1,PSHIELD END IF ELSE IF CD>0 THEN CELL X,Y+1,0 END IF END IF IF CC>0 THEN 'PLAYER FIRE IF CC=PFIRE THEN CELL X,Y,0 CELL X,Y-1,0 PAL 1 IF CU=0 THEN CELL X,Y-1,PFIRE END IF 'COMPUTER FIRE PAL 1 IF CC=EFIREMOV THEN CELL X,Y,EFIRE IF CC=EFIRE THEN CELL X,Y,0 CELL X,Y+1,0 PAL 1 IF CD=0 THEN CELL X,Y+1,EFIREMOV END IF END IF NEXT Y NEXT X END IF WAIT VBL LOOP #1:MAIN PALETTES 00300C3C003F2A15003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 18183C3C7E7EFFFF0000000000000000 00000000000000003C7EC3813C7EC381 007E425A5A427E0000003E3E363E3E00 81C34266243C18180000000000000000 000000000000000081BD423C81BD423C 007E7A66665E7E0000003E2222223E00 18245EBDBD5A2418183C66C3C3663C18 5AE75EA5A55AE75ADBBD66C3C366BDDB 00001824241800000000000000000000 #15:MAIN SOUND 2600309914D5C0000800846700FF0000 08006460009D00002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000