GAMEPAD 1 RANDOMIZE TIMER PLAYERX = 76 PLAYERY = 110 PLAYERAMMO = 10 PLAYERHEALTH = 50 BULLETX = 0 BULLETY = 0 BULLETBOOLEAN = 0 AMMOX = RND(152) AMMOY = 120 AMMOBOOLEAN = 0 AMMOTIMER = 0 ENEMIESKILLED = 0 EAX = RND(152) EAY = 18 EAHP = 30 EABOOLEAN = 0 EATIMER = 0 EABX = 0 EABY = 0 EABBOOLEAN = 0 EBX = RND(152) EBY = 38 EBHP = 20 EBBOOLEAN = 0 EBTIMER = 0 EBBX = 0 EBBY = 0 EBBBOOLEAN = 0 ECX = RND(152) ECY = 58 ECHP = 20 ECBOOLEAN = 0 ECTIMER = 0 ECBX = 0 ECBY = 0 ECBBOOLEAN = 0 DO REM PRINTING STATS REM WAS8BIT CAN HELP MAKE MENU AND WIN PLZ TO WIN NEED 1000 POINTS PRINT "HP:", PLAYERHEALTH, "AMMO:", PLAYERAMMO PRINT "POINTS:", ENEMIESKILLED REM BELOW PRINT IS FOR STATISTIC CHECKS PRINT REM MOVEMENT AND CONTROLS IF LEFT(0) THEN PLAYERX = PLAYERX - 3 IF RIGHT(0) THEN PLAYERX = PLAYERX + 3 IF UP(0) THEN PLAYERY = PLAYERY - 1 IF DOWN(0) THEN PLAYERY = PLAYERY + 1 IF BUTTON TAP(0,0) THEN BULLETBOOLEAN = 1 END IF REM PLAYER BOUNDARIES IF PLAYERX < 0 THEN PLAYERX = PLAYERX + 3 IF PLAYERX > 152 THEN PLAYERX = PLAYERX - 3 IF PLAYERY < 100 THEN PLAYERY = PLAYERY + 1 IF PLAYERY > 120 THEN PLAYERY = PLAYERY - 1 REM BULLET MOVEMENT IF BULLETBOOLEAN = 0 THEN BULLETX = PLAYERX BULLETY = PLAYERY SPRITE OFF 1 END IF IF PLAYERAMMO > 0 THEN IF BULLETBOOLEAN = 1 THEN BULLETY = BULLETY - 5 PLAY 2,25 IF BULLETY < 0 THEN BULLETBOOLEAN = 0 STOP 2 PLAYERAMMO = PLAYERAMMO - 1 END IF END IF END IF REM AMMO STUFF I DUNNO IF AMMOBOOLEAN = 0 THEN AMMOTIMER = 0 IF SPRITE HIT(0, 2) THEN PLAYERAMMO = PLAYERAMMO + 5 AMMOBOOLEAN = 1 END IF END IF IF AMMOBOOLEAN = 1 THEN AMMOTIMER = AMMOTIMER + 1 SPRITE OFF 2 AMMOX = RND(152) IF AMMOTIMER = 900 THEN AMMOBOOLEAN = 0 END IF REM ENEMIES MOVEMENT AND STUFF PLEASE DO NOT EXPECT MUCH FROM COMMENTS AND REMARKS IT IS LITERALLY JUST FOR ME TO NOT GET LOST IN MY CODE IT IS SO HARD IN THE NOTEPAD TO WRITE STUFF OH NO THE REMARK IS TOO LONG OH NO IT IS A SNAKE AND IT IS GOING TO DEVOUR US ALL OH NOOOOOOOOOOOOOOOOOOOOOOOOOO REM A IF EAX > PLAYERX THEN EAX = EAX - 1 IF EAX < PLAYERX THEN EAX = EAX + 1 IF EAX = PLAYERX THEN EABBOOLEAN = 1 IF EAX <> PLAYERX THEN EABOOLEAN = 0 IF SPRITE HIT(1, 3) THEN EAHP = EAHP - 3 IF EAHP < 1 THEN EABOOLEAN = 1 ENEMIESKILLED = ENEMIESKILLED + 1 END IF IF EABOOLEAN = 0 THEN EATIMER = 0 END IF IF EABOOLEAN = 1 THEN SPRITE OFF 3 EATIMER = EATIMER + 1 EABBOOLEAN = 0 IF EATIMER > 120 THEN EAHP = 30 EABOOLEAN = 0 END IF END IF IF EABBOOLEAN = 0 THEN EABX = EAX EABY = EAY SPRITE OFF 6 END IF IF EABBOOLEAN = 1 THEN EABY = EABY + 10 PLAY 1, 30 IF EABY > 120 THEN EABBOOLEAN = 0 STOP 1 END IF END IF REM B EBX = EBX - 2 IF EABBOOLEAN = 1 THEN EBBBOOLEAN = 0 IF EABBOOLEAN = 0 THEN EBBBOOLEAN = 1 IF SPRITE HIT(1, 4) THEN EBHP = EBHP - 3 IF EBHP < 1 THEN EBBOOLEAN = 1 ENEMIESKILLED = ENEMIESKILLED + 1 END IF IF EBBOOLEAN = 0 THEN EBTIMER = 0 END IF IF EBBOOLEAN = 1 THEN SPRITE OFF 4 EBTIMER = EBTIMER + 1 EBBBOOLEAN = 0 IF EBTIMER > 120 THEN EBHP = 20 EBBOOLEAN = 0 END IF END IF EBBX = EBX IF EBBBOOLEAN = 0 THEN SPRITE OFF 6 IF EBBBOOLEAN = 1 THEN EBBY = EBBY + 10 PLAY 1, 30 IF EABY > 120 THEN REM WAS8BIT PLEASE IGNORE THIS I REALLY DON'T KNOW WHAT HAPPEND OH NO HO NO OH ON WAAAAA EABBOOLEAN = 0 STOP 1 END IF END IF REM C ECX = ECX + 2 IF EABBOOLEAN = 1 THEN ECBBOOLEAN = 0 IF EABBOOLEAN = 0 THEN ECBBOOLEAN = 1 IF SPRITE HIT(1, 5) THEN ECHP = ECHP - 3 IF ECHP < 1 THEN ECBOOLEAN = 1 ENEMIESKILLED = ENEMIESKILLED + 1 END IF IF ECBOOLEAN = 0 THEN ECTIMER = 0 END IF IF ECBOOLEAN = 1 THEN SPRITE OFF 5 ECTIMER = ECTIMER + 1 ECBBOOLEAN = 0 IF ECTIMER > 120 THEN ECHP = 20 ECBOOLEAN = 0 END IF END IF ECBX = ECX IF ECBBOOLEAN = 0 THEN SPRITE OFF 6 IF ECBBOOLEAN = 1 THEN ECBY = ECBY + 10 PLAY 1, 30 IF EABY > 120 THEN EABBOOLEAN = 0 STOP 1 END IF END IF SPRITE 0, PLAYERX, PLAYERY, 1 SPRITE 1, BULLETX, BULLETY, 2 IF AMMOBOOLEAN = 0 THEN SPRITE 2, AMMOX, AMMOY, 4 IF EABOOLEAN = 0 THEN SPRITE 3, EAX, EAY, 3 IF EABBOOLEAN = 1 THEN SPRITE 6, EABX, EABY, 2 IF EBBOOLEAN = 0 THEN SPRITE 4, EBX, EBY, 3 IF EBBBOOLEAN = 1 THEN SPRITE 7, EBBX, EBBY, 2 IF ECBOOLEAN = 0 THEN SPRITE 5, ECX, ECY, 3 IF ECBBOOLEAN = 1 THEN SPRITE 8, ECBX, ECBY, 2 WAIT 1 CLS LOOP #1:MAIN PALETTES 003F3F2A00383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 18183C3C3C3CFFFF0000000000000000 00000018180000000000000000000000 7EFFFFFFFFFFFF7E7EFFFFFFFFFFFF7E 00666618186666000000000000000000