GAMEPAD 1 RANDOMIZE TIMER PX = 8 PY = 60 PHP = 100 PAMMO = 30 POINTS = 0 BX = 8 BY = 60 BBOOLEAN = 0 EAX = 144 EAY = RND(120) EATIMER = 0 EABOOLEAN = 0 EABX = 144 EABY = EAY EABBOOLEAN = 0 AMMOX = 8 AMMOY = RND(120) AMMOBOOLEAN = 0 AMMOTIMER = 0 DO REM I KNOW I CAN SPECIFY A LOCATION FOR THE TEXT TO BE PRINT "HP:", PHP, "AMMO:", PAMMO PRINT PRINT PRINT PRINT PRINT PRINT PRINT PRINT PRINT PRINT PRINT PRINT PRINT PRINT PRINT "POINTS:", POINTS IF PHP < 1 THEN DO PRINT "YOU DIED" SPRITE OFF 0 SPRITE OFF 1 SPRITE OFF 2 SPRITE OFF 3 SPRITE OFF 4 WAIT 1 CLS LOOP END IF IF UP(0) THEN PY = PY - 3 IF DOWN(0) THEN PY = PY + 3 IF LEFT(0) THEN PX = PX - 0.5 IF RIGHT(0) THEN PX = PX + 0.5 IF PAMMO > 0 THEN IF BUTTON TAP(0,0) THEN BBOOLEAN = 1 END IF END IF IF PY < 0 THEN PY = 0 IF PY > 120 THEN PY = 120 IF PX < 4 THEN PX = 4 IF PX > 12 THEN PX = 12 IF SPRITE HIT (0, 2) THEN EABOOLEAN = 1 PHP = PHP - 5 END IF IF SPRITE HIT(0, 3) THEN PHP = PHP - 1 END IF IF BBOOLEAN = 0 THEN BX = PX BY = PY SPRITE OFF 1 END IF IF BBOOLEAN = 1 THEN BX = BX + 5 IF BX > 152 THEN BBOOLEAN = 0 PAMMO = PAMMO - 1 END IF END IF IF SPRITE HIT(1, 2) THEN EABOOLEAN = 1 POINTS = POINTS + 1 END IF IF EABOOLEAN = 0 THEN EAX = EAX - 3 EATIMER = 0 IF EAX < 0 THEN EABOOLEAN = 1 END IF IF EABOOLEAN = 1 THEN SPRITE OFF 2 EATIMER = EATIMER + 1 EAX = 144 EAY = RND(120) IF EATIMER > 120 THEN EABOOLEAN = 0 END IF ENEMYFIRING = RND(1) IF ENEMYFIRING = 0 THEN EABBOOLEAN = 1 IF EABBOOLEAN = 0 THEN SPRITE OFF 3 EABX = EAX EABY = EAY END IF IF EABBOOLEAN = 1 THEN IF EABOOLEAN = 0 THEN EABX = EABX - 5 IF EABY < PY THEN EABY = EABY + 3 IF EABY > PY THEN EABY = EABY - 3 IF EABX < 0 THEN EABBOOLEAN = 0 END IF IF EABOOLEAN = 1 THEN SPRITE OFF 3 END IF IF AMMOBOOLEAN = 0 THEN SPRITE OFF 4 AMMOY = RND(120) AMMOTIMER = AMMOTIMER + 1 IF AMMOTIMER > 300 THEN AMMOBOOLEAN = 1 END IF IF AMMOBOOLEAN = 1 THEN AMMOTIMER = 0 END IF IF SPRITE HIT(0, 4) THEN AMMOBOOLEAN = 0 PHP = PHP + 15 PAMMO = PAMMO + 5 END IF SPRITE 0, PX, PY, 1 IF BBOOLEAN = 1 THEN SPRITE 1, BX, BY, 2 IF EABOOLEAN = 0 THEN SPRITE 2, EAX, EAY, 3 IF EABBOOLEAN = 1 THEN SPRITE 3, EABX, EABY, 4 IF AMMOBOOLEAN = 1 THEN SPRITE 4, AMMOX, AMMOY, 5 WAIT 1 CLS LOOP #2:MAIN CHARACTERS 00000000000000000000000000000000 3830B0FFFFB030380000000000000000 0000AAFFFFAA000000AA55000055AA00 181131FFFF3111180000000000000000 0000040C0C040000000000F0F0000000 FF818199819981FF0000182418240000