RANDOMIZE TIMER REM WAS8BIT TOUCHSCREEN NEWGAME: REM ////////// PLANET VARIABLES PP=0 PX = 64 PY = 48 PR = 20 CLS SPRITE 1,,,64 SPRITE 2,,,64 WAIT 60 REM PLANET MOON ROCKET SPRITE 1,64,48,4 SPRITE 1 PAL 0 SIZE 3 SPRITE 2,40,40,32 SPRITE 2 PAL 1 SIZE 1 SPRITE 0,0,0,18 SPRITE 0 PAL 1 REM STARS BG 1 PAL 1 FOR Y=0 TO 15 FOR X=0 TO 19 FLIP RND(1),RND(1) CELL X,Y,8+RND(7) NEXT X NEXT Y FLIP 0,0 MA=0 DMA=RND/20 RA=RND*PI*2 DRA=(RND-RND)/5 IBLAST=0 RR=18 DO IF TAP THEN IBLAST=0.01 IF IBLAST=0 THEN W=(W+1) MOD 30 IF W=0 THEN PLAY 1,80,1 SOUND 1 END IF REM MOON SPRITE 2,82+55*COS(MA)-10,66+55*SIN(MA)-10, MA = MA + DMA REM ROCKET RX=76+RR*COS(RA) RY=60+RR*SIN(RA) SPRITE 0,RX,RY, RA = RA + DRA IF SPRITE HIT(0) THEN IF HIT=2 THEN PLAY 2,90,10 SOUND 1 PRINT PRINT PRINT "OH YEAHHHH!" GOTO REPLAY END IF END IF IF RR>95 THEN PLAY 2,20,30 SOUND 1 PRINT PRINT PRINT "OH POOP!" GOTO REPLAY END IF IF IBLAST>0 THEN RR=RR+IBLAST IBLAST=IBLAST+0.01 PLAY 0,20,3 SOUND 0 REM PRINT "."; END IF WAIT VBL LOOP REPLAY: WAIT 60 WHILE NOT TAP WAIT VBL WEND GOTO NEWGAME #1:MAIN PALETTES 003F0708303F2A15003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000030700000003000000000F1F3F3F 0FFFFFE0000000000000001FFFFFFFFF F0FFFF0700000107000000F8FFFFFFFF 0000C0E000C0FCF800000000F0F8FCFC 00000400000000000000000000000000 00000000000000000000000800000000 00000000100000000000000010000000 00000800040000000000080004000000 00000000000000000010040000000000 00000000002000000000000008000000 00001000040000000000100000000000 00000000001000000000080000100000 00000000000000000000000000000000 00000000000000000000000000000000 0018245A5A24180000183C66663C1800 00000000000000000000000000000000 0F3F7F7FFFFFFFFF7F7F7F7FFFFFFFFF F0F0E0E0C0808090FFFFFFFFFFFFFFFF 0F0C000006060C00FFFFFFFFFFFFFFFF 00183E7EFF7F7FFFFEFEFEFEFFFFFFFF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00001A0C00000018071F3F7F7FFFFFFF 00000002162E6440E0F8FCFEFEFFFFFF 00000000000000000000000000000000 00000000000000000000000000000000 FDFCF8F273670707FFFFFFFF7F7F7F7F 30303878F0F0E000FFFFFFFFFFFFFFFF 0900040000000000FFFFFFFFFFFFFFFF FFFF7F7F3E1E0600FFFFFFFFFEFEFEFE 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 988C4730300F0300FFFFFF7F7F3F1F07 0000041830E00000FFFFFFFEFEFCF8E0 00000000000000000000000000000000 00000000000000000000000000000000 060C0000070300003F3F1F0F00000000 00000000E0FFFF0FFFFFFFFF1F000000 0000000007FFFFF0FFFFFFFFF8000000 00000000E0C00000FCFCF8F000000000 #15:MAIN SOUND 3800303A000000000800806C003A0000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000