RANDOMIZE TIMER GAMEPAD 1 FONT 0 ' SPRITES FOR ORANGE PLAYER SPRITE 1,0,16+16,128 SPRITE 1 PAL 1 SIZE 3 SPRITE 2,0,16+48,132 SPRITE 2 PAL 1 SIZE 3 SPRITE 3,0,16+80,136 SPRITE 3 PAL 1 SIZE 3 ' SPRITES FOR GREEN PLAYER SPRITE 4,16*8,16+16,128 SPRITE 4 PAL 3 SIZE 3 FLIP 1,0 SPRITE 5,16*8,16+48,132 SPRITE 5 PAL 3 SIZE 3 FLIP 1,0 SPRITE 6,16*8,16+80,136 SPRITE 6 PAL 3 SIZE 3 FLIP 1,0 ' FIREBALL SPRITES FOR ORANGE/GREEN PLAYERS SPRITE 7 PAL 1 SIZE 3 SPRITE 7,,64, SPRITE 8 PAL 3 SIZE 3 SPRITE 8,,64, ' #7=ORANGE PLAYER VARIABLES ' #8=GREEN PLAYER VARIABLES IFIRE7=-32 IFIRE8=-32 IANI7=0 IANI8=0 ANI7=200 ANI8=200 FIRED7=0 FIRED8=0 SHIELD7=0 SHIELD8=0 ILEVEL=0 PAL 1 CELL 4,0,64 CELL 5,0,65 CELL 4,1,80 CELL 5,1,81 CELL 4,2,66 CELL 5,2,67 CELL 4,3,82 CELL 5,3,83 FOR I=0 TO 4 CALL POP(6+I*2,0,96) CALL POP(6+I*2,2,96) NEXT I FOR I=0 TO 2 CALL POP(4+I*2,8,10+I*2) CALL POP(10+I*2,8,10+I*2) NEXT I FOR I=0 TO 2 CALL POPDEL(4+I*2,8,0) CALL POPDEL(10+I*2,8,0) NEXT I CELL 0,2,1 CELL 1,2,2 LEVELUP: SPRITE 8,-32,, SPRITE 7,-32,, IFIRE7=-32 IFIRE8=-32 PAL 0 INC ILEVEL NUMBER 2,2,ILEVEL,1 IF ILEVEL=6 THEN FOR I=0 TO 6 CELL 7+I,5,I+3 NEXT I END END IF POW1=ILEVEL*10+9 POW2=ILEVEL*10+9 ' 3-2-1-FIGHT CALL POP(8,8,32) PLAY 2,45,10 SOUND 2 WAIT 60 CALL POP(8,8,34) PLAY 2,45,10 SOUND 2 WAIT 60 CALL POP(8,8,36) PLAY 2,45,10 SOUND 2 WAIT 60 FOR I=0 TO 4 CALL POP(5+I*2,8,38+I*2) NEXT I PLAY 2,57,10 SOUND 2 WAIT 60 FOR I=0 TO 4 CALL POPDEL(5+I*2,8,0) NEXT I ' MAIN GAME LOOP DO ' SCORES, AND CODE FOR SCORE RESULTS... PAL 5 NUMBER 0,0,POW1,2 NUMBER 18,0,POW2,2 IF POW1<=0 THEN FOR I=0 TO 2 CALL POP(10+I*2,8,10+I*2) NEXT I FOR I=0 TO 6 CELL 7+I,5,I+3 NEXT I END ELSE IF POW2<=0 THEN FOR I=0 TO 2 CALL POP(4+I*2,8,10+I*2) NEXT I WAIT 180 FOR I=0 TO 2 CALL POPDEL(4+I*2,8,0) NEXT I GOTO LEVELUP END IF ' PLAYER INPUT CONTROL REM TEST CODE... THIS WILL BE REPLACED... IF BUTTON(0,0) AND IFIRE7<0 THEN IFIRE7=20 CALL SHOOT(1,FIRED7) END IF IF BUTTON(0,1) THEN CALL DEFEND(1,0) END IF ' COMPUTER CONTROL FOR GREEN PLAYER RR=25-ILEVEL IF RND(RR)=1 AND IFIRE8<0 THEN IFIRE8=100 CALL SHOOT(4,FIRED8) END IF IF RND(RR)=1 THEN IF SHIELD8=0 THEN CALL DEFEND(4,SHIELD8) ELSE IF SHIELD8=1 AND RND(RR)=1 THEN IF SHIELD8=1 THEN CALL DEFEND(4,SHIELD8) END IF ' FIREBALLS SPRITE 7,IFIRE7,,ANI7 SPRITE 8,IFIRE8,,ANI8 ' ORANGE FIRBALL, MOVE AND CODE FOR HITS IF IFIRE7>0 THEN ADD IFIRE7,ILEVEL/3 ADD IANI7,1,0 TO 3 IF IANI7=0 THEN ADD ANI7,4,200 TO 204 IF SPRITE HIT(7,5) THEN IFIRE7=-32 SPRITE 7,-32,, IF SPRITE.C(5)<>196 THEN PLAY 1,30,1 SOUND 1 ADD POW2,-ILEVEL*3 CALL FLASHIT(4,3) ELSE DEC POW2 END IF END IF END IF ' GREEN FIREBALL, MOVE AND CODE FOR HITS IF IFIRE8>0 THEN ADD IFIRE8,-ILEVEL/3 ADD IANI8,1,0 TO 3 IF IANI8=0 THEN ADD ANI8,4,200 TO 204 IF SPRITE HIT(8,2) THEN IFIRE8=-32 SPRITE 8,-32,, IF SPRITE.C(2)<>196 THEN PLAY 1,30,1 SOUND 1 ADD POW1,-ILEVEL*3 CALL FLASHIT(1,1) ELSE DEC POW1 END IF END IF END IF ' THIS LETS FIRED HAND STAY UP BRIEFLY ' AND AFTER SOME TIME, PUTS FIRE HAND DOWN IF FIRED7>0 THEN IF FIRED7=1 THEN CALL SHOOT(1,FIRED7) DEC FIRED7 END IF IF FIRED8>0 THEN IF FIRED8=1 THEN CALL SHOOT(4,FIRED8) DEC FIRED8 END IF WAIT VBL LOOP ' PUTS UP A 2X2 BLOCK OF GRAPHICS SUB POP(X,Y,C) PAL 0 FOR IY=0 TO 1 FOR IX=0 TO 1 CELL X+IX,Y+IY,C+IX+16*IY NEXT IX NEXT IY END SUB ' REMOVES A 2X2 BLOCK OF GRAPHICS SUB POPDEL(X,Y,C) PAL 0 FOR IY=0 TO 1 FOR IX=0 TO 1 CELL X+IX,Y+IY,0 NEXT IX NEXT IY END SUB ' CHANGES GRAPHICS FOR FIREHAND, BOTH PLAYERS SUB SHOOT(IS,F) IF F=0 THEN SPRITE IS+1,,,192 PLAY 0,80,1 SOUND 0 F=30 ELSE SPRITE IS+1,,,132 END IF END SUB ' CHANGED GRAPHICS FOR SHIELDHAND, BOTH PLAYERS SUB DEFEND(IS,F) IF F=0 THEN SPRITE IS+1,,,196 F=1 ELSE SPRITE IS+1,,,132 F=0 END IF END SUB ' WHEH HIT, FLASHES EITHER PLAYER SUB FLASHIT(IS,IP) SPRITE IS,,,140 FOR F=1 TO 10 FOR I=IS TO IS+2 SPRITE I PAL IP+1 NEXT I WAIT 3 FOR I=IS TO IS+2 SPRITE I PAL IP NEXT I WAIT 3 NEXT F SPRITE IS,,,128 END SUB #1:MAIN PALETTES 103F2F0000383424003D3738000C0408 003F0C2E003F3F00003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 009A929A92D9FF00000000000000FF00 00B4A4B4A436FF00000000000000FF00 718A829B8A8A72000000000000000000 C52A2AE8282828000000000000000000 3EA0A0BCA0A0BE000000000000000000 0E11111111110E000000000000000000 45454545452911000000000000000000 F70404C70404F4000000000000000000 8C4C4C8C804C4C000000000000000000 0000307060C0C1C10000000000000000 00000C0E060383830000000000000000 071F3931010101010000000000000000 E0F89C8C808080800000000000000000 071F397161C1C1C10000000000000000 86868686868383830000000000000000 003C666E76663C000000000000000000 0018381818187E000000000000000000 003C660C18307E000000000000000000 003C660C06663C000000000000000000 0066667E060606000000000000000000 007E607C06067C000000000000000000 001C307C66663C000000000000000000 007E060C183030000000000000000000 003C663C66663C000000000000000000 003C663E06663C000000000000000000 C1C1C16171391F070000000000000000 838383868E9CF8E00000000000000000 0101010131391F070000000000000000 808080808C9CF8E00000000000000000 C1C1C161616161610000000000000000 838383868E9CF8E00000000000000000 071F1800000000010000000000000000 E0F81C0E060303FE0000000000000000 071F3830000000070000000000000000 E0F81C0E060E1CF80000000000000000 07070101010101010000000000000000 80808080808080800000000000000000 00000103030606070000000000000000 3FFFC080000000FC0000000000000000 071F3931010101010000000000000000 E0F89C8C808080800000000000000000 071F387060C0C0C00000000000000000 E0F81800000000FF0000000000000000 303030706060607F0000000000000000 0C0C0C0E060606FE0000000000000000 0F3F7363030303030000000000000000 C0F03818000000000000000000000000 0100000000181F070000000000000000 FE0303060E1CF8E00000000000000000 3F78606060607F7F0000000000000000 F00000000C1CF8E00000000000000000 01010101010107070000000000000000 808080808080E0E00000000000000000 07060606060703030000000000000000 FC000000000000000000000000000000 0101010131391F070000000000000000 808080808C9CF8E00000000000000000 C0C0C06070381F070000000000000000 FF0303060E1CF8E00000000000000000 7F606060703030300000000000000000 FE0606060E0C0C0C0000000000000000 03030303030303030000000000000000 00000000000000000000000000000000 7FFFE0C0C0C0C0C0003F7F7F7F7F7F7F FEFF07030303030300FCFEFEFEFEFEFE 0000030707070300000304090B090403 0000C0E0E0E0C00000C02090D09020C0 071F3F7F7FFFFFFF071F3F7C78F3F3F0 E0F8FCFEFEFFFFFFE0F8FC3E1ECFCF0F 071F3F7F7FFFFFFF071F3F7070F3F3F0 E0F8FCFEFEFFFFFFE0F8FC3E1ECFCF1F 071F3F7F7FFFFFFF071F3E7E78F9F1F3 E0F8FCFEFEFFFFFFE0F87C7E1E9F8FCF 071F3F7F7FFFFFFF071F3F7F7FE7E7E3 E0F8FCFEFEFFFFFFE0F8FCFEFEE7E7C7 071F3F7F7FFFFFFF071F3F7F7CF0F1C7 E0F8FCFEFEFFFFFFE0F8FC1E1E7FFFFF 071F3F7F7FFFFFFF071F3F7878FEFFFF E0F8FCFEFEFFFFFFE0F8FCFE3E0F8FE3 C0C0C06030180F077F7F7F3F1F0F0700 030303060C18F0E0FEFEFEFCF8F0E000 00030003000000000103010301010101 00C000C00000000080C080C080808080 FFFFFF7F7F3F1F07F0F3F373733F1F07 FFFFFFFEFEFCF8E00FCFCFCECEFCF8E0 FFFFFF7F7F3F1F07F0F3F370703F1F07 FFFFFFFEFEFCF8E01FCFCF1E3EFCF8E0 FFFFFF7F7F3F1F07E3E7E77F7F3F1F07 FFFFFFFEFEFCF8E0C7E7E7FEFEFCF8E0 FFFFFF7F7F3F1F07F3F1F9787E3E1F07 FFFFFFFEFEFCF8E0CF8F9F1E7E7CF8E0 FFFFFF7F7F3F1F07C7F1F07C7F3F1F07 FFFFFFFEFEFCF8E0FFFF7F1E1EFCF8E0 FFFFFF7F7F3F1F07FFFFFE78783F1F07 FFFFFFFEFEFCF8E0E38F0F3EFEFCF8E0 07182040408080800718204040808080 E018040202010101E018040202010101 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 80808040402018078080804040201807 01010102020418E001010102020418E0 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000001070F1F3F0000000000000000 0F3FFFFFFFFFFFFF0000000000000000 F0FFFFFFFFFFFFFF0000000000000F3F 0000E0FCFFFFFEFC000000000000E0F0 07070F1F1F1F1F1F0000000000000103 FFFFFFFFFFFFFFFF0000003CFFFFFFFF E0F0F8F8F8FCFCFC0000030301818181 00000000000000000000C0E0F0F0F0F0 01010303030307070000000000000000 FFFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFF0000000000000000 C0C0C0C0C0C0C0C00000000000000000 0C0E1F1F1F3F3F3F0000000001030303 1F7FFFFFFFE3C1C1001F7FFFFFFFBFBF 80808080808081810080808080808181 00000040E0F0F8FC0000000080C0E0E0 7F7FFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFF000000010101193D FFFFFEFCFCFEFFFF7FF8F1F3F3F1F8FF FCFE3E1F1F1F3FFFF83CFCFEFEFEFEFE 1F1F1F1F1F1F1F1F03030307070F0F0F FFFFFFFFFFFFFFFFFFFFFFFEFCF8E0C0 FCFCFCF8F3E7CFDF818100070C183327 000000000080C0E0F0F03090C0603090 07070707070707070000000000000000 FEFEFEFEFCFCFCF80000000000000000 FFFFFFFFFF7F7F7F0000000000000000 C0C0C0C0C0C0C0C00000000000000000 7F7F7F7FFFFFFFFF0303030301010000 C3E7FFFFFFFFFFFFBD9981C3FFFFFF7F 8383C7FFFFFFFFFF8383C7FFFFFFFFFF FCFEFEFEFFFFFFFFF0F8F8F8F8F8F8F8 FFFFFFFFFFFFFFFF0004060607070301 FFFFFFFFFFFFFFFF7D79330307FFFFFF FFFCF8F8F8FCFFFFFFFCF8F8F8FCFFFF FF000000000000C0FE000000000000C0 1F1F1F1F1F0F0F0F0F07030100000000 FFFFFFFFFFFFFEFFC0E0E0F1F87C7F3F DFCFE7E3A85F3F7F2733985CF7F0E890 E0C080000080C0C0903060C090101010 07070F0F0F0F1F1F0000000000000000 F0F0E0E0C08080800000000000000000 7F7F7F7F3F3E3E3E0000000000000000 C0C08080000000000000000000000000 FFFFFFFF7F7F3F3F0000000000000000 FFFFFFFFFFFFFFFF1F00010303010000 FFFFFFFFFFFFFFFFFF3F8FC7E7E7C707 FFFFFFFFFFFEFEFCF8F8F8F0E0E0C080 FFFFFF7F7F3F3F1F0000000000000000 FFFFFFFFFFFFFFFFFF7F3F0F07000000 FFFFFFFFFFFFFEF0FFFFFFFFFE000000 F0F8F0E0C0800000F0E0C00000000000 0F0F0F07070703030000000000000000 FFFFCF8F1F3FFFFF1D163B76E0C00000 FFFFFFFFFFFFFFFF8080000000000000 C0C0C0C0C0C0C0C01010101010101010 1F1F1F1F0F0F03000000000000000000 C0E0F0FEFFFFFF7E0000000000000000 3E3F3F3F3F3F3F1F0000000000000000 0080F0FEFFFFFFFE0000000000000000 1F0F0F07030100000000000000000000 FFFFFFFFFFFFFF3F0000000000000000 FFFFFFFFFFFFFEF00F3E7C0000000000 F8F8F0E0C08000000000000000000000 07070F1F1F1F1F1F0000000000000103 FFFFFFFFFFFFFFFF0000003CFFFFFFFF E0F0F8F8F8FCFCFC0000000101818180 000078FCFCFCFC78007884327A7A3284 07070F1F1F1F1F1F0000000000000103 FFFFFFFFFFFFFFFF0000003CFFFFFFFF E0F0F8F8F8FCFCFC0000000000808080 00000F1F303030300000000F1F1F1F1F 00000001010000100000000000000000 0000000080C020100008080404040484 00000000030608100000101020202030 00000080000000180000000000000000 0100180800243008010018080125300F 00828200000010100082B20808804420 00202020000008080020282808101001 000060448C200001000060448CA080B1 1F1F1F1F1F1F1F1F0303030301000000 FFFFFFFFFFFFFFFFFFFFFFFFFFFF7F3F FCFCFCFCFCFCFCFF80800000C0F0FCFF 0000FC00FC0000F87830FC30FC3030F8 1F1F1F1F1F1F1F1F03030307070F0F0F FFFFFFFFFFFFFCFBFFFFFFFEFCF8E3C4 FCFCFCFFFFFF3FDF808000000000C020 30303030F0F0F0F01F1F1F1FDFDFDFDF 080C04020100000000000000310F0000 08000886003A0A0382422896003A8818 0800202065086880490264A8E4882B18 30204080000000008000000006F80000 00000003007000000100003806700000 88CC04A26002020111000000100E06F9 0B121890B346C080A0A040C1B040DC80 060000C0000006002640840418400600 1F1F1F1F1F0F0F0F0000000000000000 FFFFFFFFFFFFFFFF0F00000000000000 FFFFFFFFFFFFFFFFFFFF030100000000 FCFCFCF880808080E4FCE4F830303030 1F1F1F1F1F0F0F0F0F07070707030301 F7F7F7F7FBFCFEFEC9CBCBE9E4F3F1F9 EFEFEFEFDF3F7F7F90D0D09020C08080 F0F0303030B0B0B0DFDF1F1F1F1F1F1F 000000000102040C00001F6000000001 001510A70404001004D4102614244092 E0105C00611000100881DC0069144241 00000080402030100000F08C00000000 00600000030000600060021820210264 0F1162C0081848D00F010E1282020202 DC40A00E85203311DC70A840C0400008 00000E00C000000000000E601C000080 0F0F0F07070703030000000000000000 FFFFFFFFFFFFFFFF0000000000000000 FFFFFFFFFFFFFFFF0000000000000000 80808080808080803030303030300000 0F0F0F07070703030100000000000000 FFFFFFFFFFFEFEFEFFFE7F1E0F010101 FFFFFFFFFF7F7F7FC060E060C0808080 B0B0B0B0B0B0B0B01F1F1F1F1E1C1810 18000000010000000000000000000000 081060C0000000000C04040408080000 08040301000000002120202020101000 08000080800000000000000000000000 80000431220600008D01053122060000 10100000040404008008081014140400 080800000041410004220110104D4100 100C240010180080F00CA48010180080 #15:MAIN SOUND 380030DD14E50000280030AA14FE0000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000