'=========================================================================== ' Subject: WARPLANE Date: 02-03-96 (00:00) ' Author: Kenneth Green Code: QB, QBasic, PDS ' Origin: www.geocities.com/TimesSquare/2 Packet: GAMES.ABC '=========================================================================== ' *********** Click On Run ^ Above!************* ' ************************ | ******************* ' ************************ ^ ******************* 'To speed up or slow down airplane, change the value of sr on lines 218-230. 'The higher sr is the faster you will go, but too high will result in back images of that graphic. 1 SCREEN 13 4 ' TO CHANGE AIRPLANE DATA FILE TO ANOTHER DATA FILE, SEE 111 5 m = 50: p = 0: fr = 0: n = 88: GM = GM + 1 6 ' THIS GAME WAS MADE ON FEB. 3, 1996 9 DIM MATRIX(63, 63) 10 CLS : SC = 0: 'SC IS SCREEN NUMBER 20 PRINT " WARPLANE" 21 LOCATE 7, 16: PRINT "By" 23 FOR X = 10 TO 20 24 LOCATE 10, X 25 PRINT "Kenneth" 26 LOCATE 10, X - 5: PRINT " " 27 FOR tm = 1 TO 3000: NEXT tm 28 NEXT X 29 FOR Y = 20 TO 10 STEP -1 30 LOCATE 10, Y 31 PRINT "Green" 32 LOCATE 10, Y + 5: PRINT " " 33 FOR tm = 1 TO 3000: NEXT tm 34 NEXT Y 36 CLS 40 PRINT : PRINT "Move the plane up and down": PRINT "by pressing up arrow and down arrow." 41 PRINT "To drop a bomb, press F." 42 PRINT "To end the game any time, press escape." 43 PRINT "Your mission is to bomb the buildings": PRINT "and the oil tanks.": PRINT "You can bomb something more than once." 44 PRINT "After 12 screens and you have at least": PRINT "2500 points, you will enter Level 2" 45 PLAY "a3b3a3b3a2": PLAY "a6b6a6b6a2" 47 PRINT : INPUT "Do you want engine noise(Y/N)"; EN$ 50 PRINT "To turn on engine noise press Y.": PRINT "To turn off engine noise press X." 55 PRINT "To pause the game, press P.": PRINT "To resume game, press any other key.": INPUT "Press to start."; B$ 100 CLS 101 FOR LNS = 1 TO 280 STEP 15 102 LINE (LNS, 175)-(LNS + 10, 175) 103 NEXT LNS 109 LINE (0, 170)-(280, 170) 110 LINE (0, 180)-(280, 180) 127 IF fr = 1 THEN BM = 2 128 IF fr = 0 THEN BM = 3 129 IF fr = 2 THEN BM = 1 130 IF fr = 3 THEN BM = 0 131 LOCATE 1, 1: PRINT "SCORE:"; p 132 PRINT "BOMBS:"; BM 133 IF m > 255 THEN m = 10: GOTO 400 134 IF SC = 30 THEN 2000 135 IF n < 20 THEN n = 20 136 IF n > 130 THEN 600 137 IF SC > 10 AND SC < 20 THEN GOSUB 3000 138 IF SC > 10 AND SC < 20 THEN GOTO 145 139 FOR h = 1 TO 250 STEP 80 140 CIRCLE (h, 100), 40, 2, 6.15, 3 141 NEXT h 145 LINE (0, 105)-(360, 105), 2 175 LINE (m, n)-(m + 15, n + 5), 3, BF 177 LINE (m + 2, n - 3)-(m + 7, n + 8), 3, BF 178 FOR tm = 1 TO 150: NEXT tm 179 LINE (m, n)-(m + 15, n + 5), 0, BF: LINE (m + 2, n - 3)-(m + 7, n + 8), 0, BF 184 IF SC = 0 THEN CLOSE 185 IF SC <> 0 THEN 190 186 n = n - .3 187 IF n < 20 THEN n = 20 190 A$ = INKEY$ 191 IF A$ = "Y" OR A$ = "y" THEN EN$ = "Y" 192 IF A$ = "X" OR A$ = "x" THEN EN$ = "n" 193 IF EN$ = "n" OR EN$ = "N" OR EN$ = "NO" OR EN$ = "no" OR EN$ = "No" THEN 200 195 SOUND 100, .1: snd = 1 200 IF A$ = CHR$(0) + CHR$(72) THEN n = n - 5 210 IF A$ = CHR$(0) + CHR$(80) THEN n = n + 5 212 IF A$ = CHR$(27) THEN END: 'THIS IS ESCAPE KEY 213 IF A$ = "F" OR A$ = "f" THEN 300 214 IF A$ = "P" OR A$ = "p" THEN SLEEP 215 ' ****** SPEED OF PLANE ***** 218 IF SC = 6 THEN sr = 1.8 219 IF SC = 3 THEN sr = 1.5 220 IF SC = 0 OR SC = 1 THEN sr = 1 221 IF SC = 2 THEN sr = 1.5 222 IF SC = 7 THEN sr = 1.8 223 IF SC = 4 THEN sr = 1.8 224 IF SC = 5 THEN sr = 1.8 226 IF SC = 8 THEN sr = 1.8 227 IF SC = 9 THEN sr = 2 228 IF SC = 10 OR SC = 11 OR SC = 12 OR SC = 13 OR SC = 14 THEN sr = 2 229 IF SC = 30 THEN sr = 2.2 230 IF SC = 15 OR SC = 16 OR SC = 17 OR SC = 18 OR SC = 19 OR SC = 20 OR SC = 21 OR SC = 22 OR SC = 23 OR SC = 24 OR SC = 25 OR SC = 26 OR SC = 27 OR SC = 28 OR SC = 29 OR SC = 30 THEN sr = 2.2 235 IF SC = 13 THEN LOCATE 3, 1: PRINT "Level 2": 'SCREEN 13 IS LEVEL 2 236 IF SC = 12 AND p < 2000 THEN 2000 240 m = m + sr 245 IF SC = 30 THEN 2000 250 GOTO 127 300 fr = fr + 1: 'EVERY TIME YOU BOMB. 301 IF fr > 3 THEN 240: 'ONLY THREE BOMBS PER SCREEN 307 SOUND 90, 3: 'BOMB NOISE 310 LINE (m + 10, n + 10)-(m + 170, 157), 4 311 FOR tm = 1 TO 700: NEXT tm 315 LINE (m + 10, n + 10)-(m + 170, 157), 0 325 CIRCLE (m + 170, 150), 15, , , , 5: 'BOMB BLAST 326 PAINT (m + 170, 157) 329 'POINTS I CHOSE YOU TO HAVE IN CERTAIN TIMES---------------- 330 IF BL > m + 195 THEN 340 332 IF BL < m + 130 THEN 340 334 IF n < 55 AND fr = 1 THEN p = p + 200 335 IF fr = 1 THEN p = p + 300: GOTO 340 336 IF fr = 2 THEN p = p + 400: GOTO 340 337 IF fr = 3 THEN p = p + 500: GOTO 340 339 p = p + 100 340 GOTO 240 400 CLS : fr = 0: 'NEXT SCREEN 405 RANDOMIZE TIMER 406 BL = RND * 250: 'THIS CHOOSES THE PLACE TO PUT THE STRUCTURES TO BOMB. 407 IF BL < 190 THEN 405 413 '**************STRUCTURES TO BOMB***************************************************************** 420 GOSUB 6000 440 SC = SC + 1: 'COUNTER FOR THE NEXT SCREEN 445 IF SC = 30 THEN 2000: 'END OF GAME AND PLANE GOES DOWN 450 GOTO 127 500 IF p > HS THEN HS = p 510 PRINT "HIGH SCORE:"; HS 520 IF GM = 25 THEN 650: 'IF YOU PLAY 25 GAMES AT ONE TIME, THE GAME WILL END! 525 PRINT "SCORE:"; p: PRINT : PRINT : PRINT : LOCATE 7, 15: PRINT "END": CLOSE 526 PRINT : PRINT : PRINT 527 PLAY "g2b1a4a4c4a4>c2a8d6a4