GAMEPAD 1 GLOBAL SCORE,HI,X,Y,SBY,SBX,DIRECTION,ANIMTIMER,SHIELD,LIVES,MULTIPLIER DIM GLOBAL SLIMEX(16),SLIMEY(16),SLX(16),SLY(16) RANDOMIZE TIMER START: HI=PEEKL($E000) SPRITE OFF FONT 0 PAL 3 SPRITE 0 PAL 2 DO BG 1 BG COPY 0,0,20,16 TO 0,0 BG 0 TEXT 1,10,"PRESS THE A BUTTON" TEXT 0,0,"HI-" NUMBER 3,0,HI,4 TEXT 8,0,"SCORE-" NUMBER 14,0,SCORE,4 TEXT 5,13,"CREDITS-" CELL 13,13,79 TEXT 0,15,"(C) OVISOFT 1989" IF BUTTON TAP(0,0) THEN GOTO GAME WAIT VBL LOOP GAME: MUSIC SCORE=0 SHIELD=0 ANIMTIMER=0 MULTIPLIER=0 X=80 Y=64 SBX=0 SBY=0 FOR I=0 TO 16 SLIMEX(I)=0 SLIMEY(I)=0 SLX(I)=0 SLY(I)=0 NEXT I DIRECTION=1 LIVES = 3 CALL DRAW TEXT 5,7,"GAME START" WAIT 140 DO CALL DRAW IF Y < 106 THEN ADD SBY,0.05 IF Y >=106 THEN SBY=0 Y=106 MULTIPLIER=0 END IF IF SBY>2 THEN SBY=2 IF X<0 THEN X=0 SBX=0 END IF IF X>160 THEN X=160 SBX=0 END IF SBX=SBX*0.92 IF BUTTON(0,0)AND Y=106 THEN SBY=-1.5 PLAY 3,34,3 END IF IF LEFT(0) THEN ADD SBX,-0.1 DIRECTION=0 MOVING=1 END IF IF RIGHT(0) THEN ADD SBX,0.1 DIRECTION=1 MOVING=1 END IF ADD Y,SBY ADD X,SBX IF DIRECTION=0 THEN SPRITE 0 FLIP 1,0 ELSE IF DIRECTION = 1 THEN SPRITE 0 FLIP 0,0 IF Y<106 THEN SPRITE 0,X-4,Y-8,67 ELSE IF Y>=106 THEN SPRITE 0,X-4,Y-8,64 END IF CALL HANDLESLIMES MOVING=0 INC ANIMTIMER DEC SHIELD IF SHIELD<0 THEN SHIELD=0 IF SHIELD>0 AND TIMER MOD 2 = 0 THEN SPRITE OFF 0 IF LIVES<=0 THEN GOTO GAMEOVER WAIT VBL LOOP SUB DRAW CLS BG 1 BG COPY 0,10,20,16 TO 0,10 BG 0 TEXT 0,0,"HI-" NUMBER 3,0,HI,4 TEXT 8,0,"SCORE-" NUMBER 14,0,SCORE,4 FOR I = 0 TO LIVES-1 CELL I,1,64 NEXT I END SUB SUB HANDLESLIMES FOR I = 0 TO 16 IF NOT SLIMEY(I) = 0 THEN SLX(I)=SLX(I)*0.92 IF SLIMEY(I) < 106 THEN ADD SLY(I),0.05 IF SLIMEY(I) >= 106 THEN SLY(I)=0 SLIMEY(I)=106 END IF IF RND(80)<1 AND SLIMEY(I)>=106 THEN PLAY 2,68,3 SOUND 0 SLY(I)=-1 END IF IF SLIMEY(I)>=106 THEN SPRITE 1+I,SLIMEX(I)-4,SLIMEY(I)-8,68 ELSE SPRITE 1+I,SLIMEX(I)-4,SLIMEY(I)-8,69 IF XSLIMEX(I) THEN ADD SLX(I),0.02 SPRITE 1+I FLIP 1,0 END IF ADD SLIMEX(I),SLX(I) ADD SLIMEY(I),SLY(I) IF SPRITE HIT(0,1+I) THEN IF Y0 THEN SLIMEY(I)=0 ADD SCORE,5*(MULTIPLIER+1) PLAY 3,50+MULTIPLIER,3 INC MULTIPLIER IF BUTTON(0,0) THEN SBY=-1.5 ELSE SBY=-0.5 END IF ELSE DEC LIVES SHIELD = 300 END IF END IF ELSE SPRITE OFF 1+I END IF NEXT I IF RND(400-(SCORE*0.06))<3 THEN FOR I=0 TO 16 IF SLIMEY(I)=0 THEN SLIMEY(I)=106 SLIMEX(I)=INT(RND(1))*160 EXIT END IF NEXT I END IF END SUB GAMEOVER: MUSIC 1 TEXT 4,7,"GAME OVER" TEXT 5,9,"PRESS A" IF SCORE > HI THEN POKEL $E000,SCORE TEXT 5,11,"NEW HIGH" END IF WAIT 30 DO IF BUTTON TAP(0,0) THEN WAIT 1 CLS GOTO START END IF WAIT VBL LOOP #1:MAIN PALETTES 0B0A090400382400003E2800003F2A00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00080808080008000000000000000000 006C2424000000000000000000000000 00287C28287C28000000000000000000 081E281C0A0A3C080000000000000000 00626408102646000000000000000000 001824182A241A000000000000000000 00101000000000000000000000000000 00040810100804000000000000000000 00100804040810000000000000000000 000024187E1824000000000000000000 000008083E0808000000000000000000 00000000080818000000000000000000 000000003E0000000000000000000000 00000000001818000000000000000000 00020408102040000000000000000000 001C262A2A321C000000000000000000 000C040404041E000000000000000000 001C220408103E000000000000000000 001C220C02221C000000000000000000 0022223E020202000000000000000000 003E203C02023C000000000000000000 001C203C22221C000000000000000000 003E0204081010000000000000000000 001C221C22221C000000000000000000 001C221E02221C000000000000000000 00000800000800000000000000000000 00000800080818000000000000000000 00000408100804000000000000000000 0000003E003E00000000000000000000 00001008040810000000000000000000 001C2204080008000000000000000000 001C222A2E201C000000000000000000 001C22223E2222000000000000000000 003C223C22223C000000000000000000 001C222020221C000000000000000000 00382422222438000000000000000000 003E203C20203E000000000000000000 003E203C202020000000000000000000 001C202622221C000000000000000000 0022223E222222000000000000000000 001C080808081C000000000000000000 001E020202221C000000000000000000 00222438382422000000000000000000 0020202020203E000000000000000000 002222363E2A22000000000000000000 002222322A2622000000000000000000 001C222222221C000000000000000000 003C22223C2020000000000000000000 001C222222261E000000000000000000 003C22223C2222000000000000000000 001E201C02023C000000000000000000 003E0808080808000000000000000000 0022222222221C000000000000000000 00222222221408000000000000000000 00222A3E362222000000000000000000 00221408142222000000000000000000 00222214080808000000000000000000 003E040810203E000000000000000000 001C101010101C000000000000000000 00402010080402000000000000000000 001C040404041C000000000000000000 00081422000000000000000000000000 0000000000003E000000000000000000 001C3C7EBD0000003C34007E3C3C2424 001C3C7EBD0000003C34007E3C3C2420 001C3C7EBD0000003C34007E3C3C2404 001C3C7EBD0000003C34007E3C3C2400 0000003C7AFD817E0000003C46ABFF7E 18347A7A423C0000182C466E7E3C0000 FFCC33FF33CC0033FF33CC00FFFFFFFF 00001F3F3F7F7C78001F20404080878C 0000F8FCFCFE3E1E00F804020203C323 00003F3F3F3F0303003F4040407C3C04 0000FCFCFCFCC0C000FC06060E3E7C60 0000071F3F3E3C380007182041434644 0000F0FCFE1E0E0000F00C02E3F31F0E 00001C1C3C3C3C3C001C262646464646 000006060E1E3E7C00060B0B13234386 00003649493600000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 182C24342625372518343C2C3E3F2D3F 18263527212E3424183E2F3D3F362C3C CC0033CC0033CC00FFFFFFFFFFFFFFFF 70787F7F7F7C78788887808080878C8C 0E1EFEFEFE3E1E1E13F3E30303C32323 03030303030303030404040404040404 C0C0C0C0C0C0C0C06060606060606060 383838383838383C4444444444444442 000000000000000E0000000000000E13 3C3F3F3F3F3F3F3C4740404040404347 F8F0E0C0C0E0F0780C1830606030188C 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 65C6643424242C247BBE7C2C3C3C343C 000000341C361A280000764A62492556 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 78787878000000008C8C9CFC78000000 1E1E1E1E000000002323273F1E000000 03030301000000000404040301000000 C0C0C08000000000606060C080000000 3E3F1F07000000004160381F07000000 1EFEFCF000000000E3030EFCF0000000 3C3C1C1C000000004646263E1C000000 7C3E1E0E000000008643231F0E000000 #3:MAIN BG 00001410000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000047004800 49004A0049004A00470048004B004C00 4D004E00000000000000000000000000 000000005700580059005A0059005A00 570058005B005C005D005E0000000000 00000000000000000000000067006800 69006A0069006A00670068006B006C00 6D006E00000000000000000000000000 00002F03260300003403280325030000 33032C0329032D032503330301030000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00005300540000000000000000000000 00000000000000000000000000005408 53080000650255000000630064000000 650A0000550000000000650A00006502 00005500000064086308650A46014601 46014601460146014601460146014601 46014601460146014601460146014601 46014601560156015601560156015601 56015601560156015601560156015601 56015601560156015601560166016601 66016601660166016601660166016601 66016601660166016601660166016601 66016601 #15:MAIN SOUND 1800303A000000000800846C003A0000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0001C0400203C0404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 250F000000002C0F000000002A0F0000 0000200F00240F00250F00000000200F 00000000250F00FF0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 1D1F00000000FF00000000001E1F0000 0000FF0000000000201F00000000FF00 00000000191F00FF0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 190F00190F00140F00190F0000000000 0000FF0F000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3D1F00381F00341F00311F0000000000 0000FF00000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000