-
-
Save davethesoftwaredev/2aaaf8d3732ab4eab2ab to your computer and use it in GitHub Desktop.
Wrote this little program when I was 12, some 18 years ago.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
DECLARE SUB INTRO () | |
DECLARE SUB STARTGAME () | |
DECLARE SUB TITLE () | |
TX = 10 | |
TY = 80 | |
YX = 130 | |
HX = 60 | |
YY = 130 | |
HY = 130 | |
TX2 = 180 | |
SCREEN 13 | |
LINE (15, 15)-(25, 35), 15, BF | |
LINE (15, 20)-(25, 20), 0 | |
LINE (15, 30)-(25, 30), 0 | |
DIM YCAR(900) | |
GET (14, 14)-(26, 36), YCAR | |
LINE (15, 15)-(25, 35), 1, BF | |
LINE (15, 20)-(25, 20), 0 | |
LINE (15, 30)-(25, 30), 0 | |
DIM ECAR(900) | |
GET (14, 14)-(26, 36), ECAR | |
CLS | |
CIRCLE (15, 15), 1, 4 | |
PAINT (15, 15), 4 | |
DIM EBUL(10) | |
GET (13, 13)-(17, 17), EBUL | |
CLS | |
CIRCLE (15, 15), 1, 10 | |
PAINT (15, 15), 10 | |
DIM YBUL(10) | |
GET (13, 13)-(17, 17), YBUL | |
CLS | |
CIRCLE (25, 25), 10, 2 | |
PAINT (25, 25), 2 | |
DIM TREE(300) | |
GET (15, 15)-(35, 35), TREE | |
CLS | |
INTRO | |
STARTGAME | |
TITLE | |
SCREEN 13 | |
DO | |
IF TY = 161 THEN CLS : TY = 10 | |
IF TY2 = 161 THEN CLS : TY2 = 10 | |
LINE (45, 30)-(160, 160), 8, BF | |
PUT (TX2, TY2), TREE, PSET | |
PUT (YX, YY), YCAR, PSET | |
PUT (HX, HY), ECAR, PSET | |
PUT (TX, TY), TREE, PSET | |
IF M = 10 THEN TY = TY + 1: M = 1: TY2 = TY2 + 1 | |
IF QH = 1 THEN PUT (HBX, HBY), EBUL, PSET | |
IF QU = 2 THEN PUT (YBX, YBY), YBUL, PSET | |
IF HX = YX THEN QH = 1: HBX = HX: HBY = HY | |
IF N = 80 THEN | |
N = 0 | |
IF YY > HY THEN HY = HY + 5 | |
IF YX > HX THEN HX = HX + 5 | |
IF YY < HY THEN HY = HY - 5 | |
IF YX < HX THEN HX = HX - 5 | |
END IF | |
R$ = INKEY$ | |
IF R$ = "8" THEN YY = YY - 5 | |
IF R$ = "4" THEN YX = YX - 5 | |
IF R$ = "6" THEN YX = YX + 5 | |
IF R$ = "2" THEN YY = YY + 5 | |
IF R$ = "5" THEN YBX = YX: YBY = YY: QU = 2 | |
N = N + 1 | |
M = M + 1 | |
HBY = HBY - 5 | |
YBY = YBY - 5 | |
IF YBY = HY AND YBX = HX THEN PRINT "YOU KILLED HIM!!!!": END | |
IF HBY = YY AND HBX = YX THEN PRINT "YOU WERE HIT!!!!": END | |
FOR Z = 1 TO 20 | |
IF Z = HBY THEN QH = 0 | |
IF Z = YBY THEN QU = 0 | |
NEXT Z | |
LOOP | |
SUB INTRO | |
SCREEN 12 | |
FOR T = 0 TO 63 | |
PALETTE 0, T | |
NEXT T | |
LOCATE 15, 15: COLOR 15: PRINT "AnDrEwS sOfTwArE" | |
LOCATE 16, 15: COLOR 14: PRINT "CoPyWrItE 1997 By DaViD aNdReWs" | |
LOCATE 17, 15: COLOR 13: PRINT "(fRoNk4yA)" | |
SLEEP 1 | |
SLEEP 1 | |
FOR T = 63 TO 0 STEP -1 | |
PALETTE 15, T | |
PALETTE 14, T | |
PALETTE 13, T | |
PALETTE 0, T | |
NEXT T | |
END SUB | |
SUB STARTGAME | |
SCREEN 11 | |
PRINT " YOU ARE ABOUT TO ENTER A MISSION. ON THIS MISSION YOU WILL BE IN A " | |
PRINT "WHITE CAR. YOUR ENEMY WILL BE IN A BLUE CAR. " | |
PRINT " YOU BOTH WILL BE ABLE TO SHOOT GUNS WHICH ARE MOUNTED UNDERNEATH" | |
PRINT "YOUR CARS, OUT OF YOUR RANGE OF SIGHT BECAUSE YOU ARE AT AN OVERHEAD" | |
PRINT "VIEW." | |
PRINT " YOU CAN MOVE YOUR CAR LEFT, RIGHT, UP, AND DOWN USING THE NUMERIC " | |
PRINT "KEYPAD ON THE RIGHT-HAND SIDE OF YOUR KEYBOARD. USE 5 TO SHOOT." | |
PRINT : PRINT "PRESS ANY KEY AND GET READY TO BE BLOWN AWAY!" | |
PRINT : PRINT : PRINT "OH, YEAH: HINT, THE ENEMY WILL TRY TO GET BEHIND YOU AND SHOOT!" | |
DO | |
LOOP WHILE INKEY$ = "" | |
END SUB | |
SUB TITLE | |
CLS | |
SCREEN 1 | |
FOR T = 1 TO 100 | |
RANDOMIZE TIMER | |
G1 = INT(RND * 15) + 1 | |
COLOR G1 | |
PRINT "CARS!!!!!!!!!" | |
NEXT T | |
DO | |
LOOP WHILE INKEY$ = "" | |
END SUB |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment