Tanks Remake

[Craz1000]

This is a QB64 Remake of a Tank game I made back in 1997 that was based on QB-Gorrilas. I decided to port over and update, finished it 3 years ago but never got around to uploading it.

The MMO that is talked about in the end credits is pretty much 85% done when it was abandoned two years ago, just never got around to building the world on the server and a handful of mechanics were never put in.

https://archive.org/download/Tanks6/Tanks6.zip

[qb4ever]

Hi Craz1000

My security system block download.

Can you post the code here ?

[Craz1000]

i can however it requires some WAV and MP3 files and artwork. i can post the artwork but the audio files are too large

Code: QB64: [Select]

1. '====================================================================
2. '========================= TANKS6 HEADER ============================
3. '====================================================================
4. '= TANKS6 (2016)
5. '=
6. '= ENGINE v7.0.1
7. '=
8. '= AUDIO INFO:
9. '= SOUND-ENGINE v2.0
10. '= JUKEBOX v2.0
11. '=
12. '= CREATED WITH QB64 AND COMPILED
13. '=
14. '====================================================================
15. '====================================================================
16. TYPE PLAYER
17.     SHIELD AS LONG
18.     NAME AS STRING * 10
19.     CASH AS DOUBLE
20.     COLORR AS INTEGER
21.     COLORB AS INTEGER
22.     COLORG AS INTEGER
23.     WINS AS INTEGER
24.     POSX AS INTEGER
25.     POSY AS INTEGER
26.     HEALTH AS INTEGER
27.     OLDY AS INTEGER
28. END TYPE
29.  
30. TYPE TERRAIN
31.     SOILR AS INTEGER
32.     SOILG AS INTEGER
33.     SOILB AS INTEGER
34.     TOPR AS INTEGER
35.     TOPG AS INTEGER
36.     TOPB AS INTEGER
37. END TYPE
38.  
39. TYPE SHELL
40.     POSX AS DOUBLE
41.     POSY AS DOUBLE
42.     ACTIVE AS INTEGER
43.     ANGLE AS INTEGER
44.     VELOCITY AS INTEGER
45.     WEAPON AS INTEGER
46.     YMOD AS DOUBLE
47.     XMOD AS DOUBLE
48.     OLDCOL AS LONG
49. END TYPE
50.  
51. DIM SHARED AIARRAY(7)
52. DIM SHARED DELAYTIME
53. DIM SHARED ROUNDS
54. DIM SHARED ROUND
55. DIM SHARED VERSION$
56. DIM SHARED PLAYER1 AS PLAYER
57. DIM SHARED PLAYER2 AS PLAYER
58. DIM SHARED GRAVITY
59. DIM SHARED INTEREST
60. DIM SHARED REZX
61. DIM SHARED REZY
62. DIM SHARED LAND AS TERRAIN
63. DIM SHARED BACKGROUND&
64. DIM SHARED FOREGROUND&
65. DIM SHARED BUFFERSCREEN&
66. DIM SHARED TERRAININFO&
67. DIM SHARED DISPLAY&
68. DIM SHARED VFX&
69. DIM SHARED WIND
70. DIM SHARED PROJECTILE(4) AS SHELL
71. DIM SHARED EXPLOSIONR
72. DIM SHARED PROJECTILES
73. DIM SHARED PLAYERTURN
74. DIM SHARED GAMEOVER
75. DIM SHARED HIGHPOINT
76. DIM SHARED PLAYER1WEAP(9) AS INTEGER
77. DIM SHARED PLAYER2WEAP(9) AS INTEGER
78. DIM SHARED BGM&
79. DIM SHARED SFX&
80. DIM SHARED MIRVACTIVE
81. DIM SHARED VERBOSE
82.  
83. _TITLE "Tanks6"
84. DO
85.     CLEAR
86.     CALL ENGINESTART
87.     VERBOSE = 0
88.     PLAYER1.COLORR = 255
89.     PLAYER2.COLORR = 150
90.     PLAYER2.COLORB = 200
91.  
92.     CALL STARTMENU
93.     _SNDSTOP BGM&
94.     _SNDCLOSE BGM&
95.  
96.     CALL INITENGINE
97.     CALL MAINENGINE
98.     LOCATE 1, 1
99.     PRINT PLAYER1.NAME; " SCORE:"; PLAYER1.WINS
100.     PRINT PLAYER2.NAME; " SCORE:"; PLAYER2.WINS
101.     PRINT
102.     IF PLAYER1.WINS > PLAYER2.WINS THEN
103.         PRINT PLAYER1.NAME; " WINS!!!"
104.     ELSEIF PLAYER2.WINS > PLAYER1.WINS THEN
105.         PRINT PLAYER2.NAME; " WINS!!!"
106.     ELSE
107.         PRINT "DRAW!!!"
108.     END IF
109.     IF PLAYER1.WINS = 0 OR PLAYER2.WINS = 0 THEN CALL SOUNDBOARD("HUMILIATION", 0)
110.     SLEEP 5
111. LOOP
112.  
113. SUB MAINENGINE
114.     CALL AI("INIT")
115.     GAMEOVER = 0
116.     PROJECTILES = 1
117.     PLAYERTURN = 1
118.     ROUND = 1
119.     PLAYER1.WINS = 0
120.     PLAYER2.WINS = 0
121.     DO
122.         DO
123.             CALL BUILDLEVEL
124.             _DEST DISPLAY&
125.             LOCATE 1, 1
126.             PRINT "USE THIS STAGE (Y/N)?"
127.             DO
128.                 I$ = UCASE$(INKEY$)
129.             LOOP UNTIL I$ = "Y" OR I$ = "N"
130.         LOOP UNTIL I$ = "Y"
131.         CALL ASSEMBLEDISPLAY
132.         CALL RANDOMIZETANKPOS
133.         CALL DRAWTANKS
134.         CALL JUKEBOX("FIGHT")
135.         PLAYER1.HEALTH = 10
136.         PLAYER2.HEALTH = 10
137.         DO
138.             IF _SNDPLAYING(BGM&) = 0 THEN CALL JUKEBOX("FIGHT")
139.             CALL SETWIND
140.             CALL GETFIRESPECS
141.             CALL FIRE
142.             IF PROJECTILE(1).WEAPON <> 6 THEN CALL DROPSOIL
143.             CALL UPDATETANKPOS
144.             IF VERBOSE = 1 THEN SLEEP
145.             CALL CHECKSHIELD
146.             CALL ASSEMBLEDISPLAY
147.             CALL DRAWTANKS
148.  
149.             IF PLAYERTURN = 1 THEN
150.                 PLAYERTURN = 2
151.             ELSEIF PLAYERTURN = 2 THEN
152.                 PLAYERTURN = 1
153.             END IF
154.             CALL ADDCASH("ROUND")
155.         LOOP UNTIL PLAYERTURN > 2
156.  
157.         IF PLAYERTURN = 3 THEN
158.             PROJECTILE(1).WEAPON = 99
159.             CALL EXPLOSION(PLAYER2.POSX, PLAYER2.POSY)
160.             PLAYER1.WINS = PLAYER1.WINS + 1
161.         ELSEIF PLAYERTURN = 4 THEN
162.             PROJECTILE(1).WEAPON = 99
163.             CALL EXPLOSION(PLAYER1.POSX, PLAYER1.POSY)
164.             PLAYER2.WINS = PLAYER2.WINS + 1
165.         END IF
166.  
167.         ROUND = ROUND + 1
168.         IF ROUND = ROUNDS + 1 THEN
169.             GAMEOVER = 1
170.             _SNDSTOP (BGM&)
171.             _SNDCLOSE (BGM&)
172.         END IF
173.         CALL ASSEMBLEDISPLAY
174.         SLEEP 3
175.         IF GAMEOVER = 0 THEN
176.             CALL ADDCASH("BONUS")
177.             PLAYERTURN = 1
178.             PLAYER1.OLDY = 0
179.             PLAYER2.OLDY = 0
180.             _SNDSTOP BGM&
181.             _SNDCLOSE BGM&
182.             CALL JUKEBOX("BUY")
183.             CALL BUYSCREEN(1)
184.             IF LEFT$(UCASE$(PLAYER2.NAME), 8) <> "COMPUTER" AND GAMEOVER = 0 THEN CALL BUYSCREEN(2)
185.             SCREEN DISPLAY&
186.             _SNDSTOP BGM&
187.             _SNDCLOSE BGM&
188.             PLAYER1.SHIELD = 0
189.             PLAYER2.SHIELD = 0
190.             CLS
191.         END IF
192.     LOOP UNTIL GAMEOVER = 1
193. END SUB
194.  
195.  
196. SUB ADDCASH (STAGE$)
197.     IF STAGE$ = "ROUND" THEN
198.         PLAYER1.CASH = PLAYER1.CASH + 100
199.         PLAYER2.CASH = PLAYER2.CASH + 100
200.     ELSEIF STAGE$ = "BONUS" THEN
201.         IF PLAYERTURN = 3 THEN PLAYER1.CASH = INT(PLAYER1.CASH * INTEREST)
202.         IF PLAYERTURN = 4 THEN PLAYER2.CASH = INT(PLAYER2.CASH * INTEREST)
203.     END IF
204. END SUB
205.  
206.  
207. SUB MELTDIRT (TURN)
208.     IF TURN = 1 THEN
209.         _DEST TERRAININFO&
210.         LINE (PLAYER1.POSX, PLAYER1.POSY)-(PLAYER1.POSX + 100, PLAYER1.POSY - 100), _RGB(0, 0, 0), BF
211.         _CLEARCOLOR _RGB(0, 0, 0)
212.         _DEST FOREGROUND&
213.         LINE (PLAYER1.POSX, PLAYER1.POSY)-(PLAYER1.POSX + 100, PLAYER1.POSY - 100), _RGB(0, 0, 0), BF
214.         _CLEARCOLOR _RGB(0, 0, 0)
215.     ELSEIF TURN = 2 THEN
216.         _DEST TERRAININFO&
217.         LINE (PLAYER2.POSX, PLAYER2.POSY)-(PLAYER2.POSX - 100, PLAYER2.POSY - 100), _RGB(0, 0, 0), BF
218.         _CLEARCOLOR _RGB(0, 0, 0)
219.         _DEST FOREGROUND&
220.         LINE (PLAYER2.POSX, PLAYER2.POSY)-(PLAYER2.POSX - 100, PLAYER2.POSY - 100), _RGB(0, 0, 0), BF
221.         _CLEARCOLOR _RGB(0, 0, 0)
222.     END IF
223.     _DEST DISPLAY&
224.     CALL SOUNDBOARD("SP", 0)
225. END SUB
226.  
227. SUB SETWIND
228.     WIND = INT(RND * 4) + 1
229.     WIND = WIND - 1
230.     WIND = WIND * 10
231.     WDIRECTION = INT(RND * 2) + 1
232.     IF WDIRECTION = 2 THEN WIND = WIND - (WIND * 2)
233.     LOCATE 55, 116: PRINT "WIND "; ABS(WIND);
234.     IF WIND > 0 THEN PRINT CHR$(26)
235.     IF WIND < 0 THEN PRINT CHR$(27)
236.     IF WIND = 0 THEN PRINT CHR$(29)
237. END SUB
238.  
239. SUB CHECKSHIELD
240.     IF PLAYER1.SHIELD > 0 OR PLAYER2.SHIELD > 0 THEN
241.         _DEST VFX&
242.         CLS
243.  
244.         IF PLAYER1.SHIELD > 0 THEN
245.             FOR R = 1 TO INT((PLAYER1.SHIELD / 10) + 2)
246.                 CIRCLE (PLAYER1.POSX + 5, PLAYER1.POSY + 2), R + 30, _RGB(255, 255, 255)
247.             NEXT R
248.         ELSEIF PLAYER1.SHIELD <= 0 THEN
249.             FOR R = 1 TO 45
250.                 CIRCLE (PLAYER1.POSX + 5, PLAYER1.POSY + 2), R, _RGB(0, 0, 0)
251.             NEXT R
252.         END IF
253.  
254.         IF PLAYER2.SHIELD > 0 THEN
255.             FOR R = 1 TO INT(PLAYER2.SHIELD / 10)
256.                 CIRCLE (PLAYER2.POSX + 5, PLAYER2.POSY + 2), R + 30, _RGB(254, 254, 255)
257.             NEXT R
258.         ELSEIF PLAYER2.SHIELD <= 0 THEN
259.             FOR R = 1 TO 45
260.                 CIRCLE (PLAYER2.POSX + 5, PLAYER2.POSY + 2), R, _RGB(0, 0, 0)
261.             NEXT R
262.         END IF
263.  
264.         IF PLAYERTURN > 3 THEN CLS
265.         _CLEARCOLOR _RGB(0, 0, 0)
266.         _DEST DISPLAY&
267.     END IF
268. END SUB
269.  
270. SUB BUYSCREEN (SCREENSELECT)
271.     CLS
272.     DO
273.         IF SCREENSELECT = 1 THEN
274.             CLS
275.             PRINT "X - END GAME"
276.             PRINT
277.             PRINT "0 - DONE"
278.             PRINT
279.             PRINT "MATCHES LEFT:"; ROUNDS - ROUND + 1
280.             PRINT
281.             PRINT "1 - HEAVY SHELL       5 FOR $300,  YOU HAVE -"; PLAYER1WEAP(1)
282.             PRINT "2 - BUNKER BUSTER     5 FOR $600,  YOU HAVE -"; PLAYER1WEAP(2)
283.             PRINT "3 - CARPET BOMB       5 FOR $800,  YOU HAVE -"; PLAYER1WEAP(3)
284.             PRINT "4 - HEAVY CARPET BOMB 5 FOR $1000, YOU HAVE -"; PLAYER1WEAP(4)
285.             PRINT "5 - NUKE              5 FOR $1500, YOU HAVE -"; PLAYER1WEAP(5)
286.             PRINT "6 - DIRT PILE         5 FOR $800,  YOU HAVE -"; PLAYER1WEAP(6)
287.             PRINT "7 - MIRV              5 FOR $1500, YOU HAVE -"; PLAYER1WEAP(7)
288.             PRINT "8 - DIRT MELTER       5 FOR $300,  YOU HAVE -"; PLAYER1WEAP(8)
289.             PRINT "9 - SHIELD            1 FOR $1000, YOU HAVE -"; PLAYER1WEAP(9)
290.             PRINT
291.             PRINT "YOU HAVE:"; PLAYER1.CASH
292.         ELSEIF SCREENSELECT = 2 THEN
293.             CLS
294.             PRINT "X - END GAME"
295.             PRINT
296.             PRINT "0 - DONE"
297.             PRINT
298.             PRINT "MATCHES LEFT:"; ROUNDS - ROUND + 1
299.             PRINT
300.             PRINT "1 - HEAVY SHELL       5 FOR $300,  YOU HAVE -"; PLAYER2WEAP(1)
301.             PRINT "2 - BUNKER BUSTER     5 FOR $600,  YOU HAVE -"; PLAYER2WEAP(2)
302.             PRINT "3 - CARPET BOMB       5 FOR $800,  YOU HAVE -"; PLAYER2WEAP(3)
303.             PRINT "4 - HEAVY CARPET BOMB 5 FOR $1000, YOU HAVE -"; PLAYER2WEAP(4)
304.             PRINT "5 - NUKE              5 FOR $1500, YOU HAVE -"; PLAYER2WEAP(5)
305.             PRINT "6 - DIRT PILE         5 FOR $800,  YOU HAVE -"; PLAYER2WEAP(6)
306.             PRINT "7 - MIRV              5 FOR $1500, YOU HAVE -"; PLAYER2WEAP(7)
307.             PRINT "8 - DIRT MELTER       5 FOR $300,  YOU HAVE -"; PLAYER2WEAP(8)
308.             PRINT "9 - SHIELD            1 FOR $1000, YOU HAVE -"; PLAYER2WEAP(9)
309.             PRINT
310.             PRINT "YOU HAVE:"; PLAYER2.CASH
311.         END IF
312.  
313.         DO
314.             I$ = UCASE$(INKEY$)
315.         LOOP UNTIL I$ <> ""
316.  
317.         IF I$ = "0" THEN
318.             CALL SOUNDBOARD("EXITBUY", 0)
319.         ELSEIF SCREENSELECT = 1 THEN
320.             IF I$ = "1" AND PLAYER1.CASH >= 300 THEN PLAYER1.CASH = PLAYER1.CASH - 300: PLAYER1WEAP(1) = PLAYER1WEAP(1) + 5: CALL SOUNDBOARD("BUY", 0)
321.             IF I$ = "2" AND PLAYER1.CASH >= 600 THEN PLAYER1.CASH = PLAYER1.CASH - 600: PLAYER1WEAP(2) = PLAYER1WEAP(2) + 5: CALL SOUNDBOARD("BUY", 0)
322.             IF I$ = "3" AND PLAYER1.CASH >= 800 THEN PLAYER1.CASH = PLAYER1.CASH - 800: PLAYER1WEAP(3) = PLAYER1WEAP(3) + 5: CALL SOUNDBOARD("BUY", 0)
323.             IF I$ = "4" AND PLAYER1.CASH >= 1000 THEN PLAYER1.CASH = PLAYER1.CASH - 1000: PLAYER1WEAP(4) = PLAYER1WEAP(4) + 5: CALL SOUNDBOARD("BUY", 0)
324.             IF I$ = "5" AND PLAYER1.CASH >= 1500 THEN PLAYER1.CASH = PLAYER1.CASH - 1500: PLAYER1WEAP(5) = PLAYER1WEAP(5) + 5: CALL SOUNDBOARD("BUY", 0)
325.             IF I$ = "6" AND PLAYER1.CASH >= 800 THEN PLAYER1.CASH = PLAYER1.CASH - 800: PLAYER1WEAP(6) = PLAYER1WEAP(6) + 5: CALL SOUNDBOARD("BUY", 0)
326.             IF I$ = "7" AND PLAYER1.CASH >= 500 THEN PLAYER1.CASH = PLAYER1.CASH - 1500: PLAYER1WEAP(7) = PLAYER1WEAP(7) + 5: CALL SOUNDBOARD("BUY", 0)
327.             IF I$ = "8" AND PLAYER1.CASH >= 300 THEN PLAYER1.CASH = PLAYER1.CASH - 300: PLAYER1WEAP(8) = PLAYER1WEAP(8) + 5: CALL SOUNDBOARD("BUY", 0)
328.             IF I$ = "9" AND PLAYER1.CASH >= 1000 THEN PLAYER1.CASH = PLAYER1.CASH - 1000: PLAYER1WEAP(9) = PLAYER1WEAP(9) + 1: CALL SOUNDBOARD("BUY", 0)
329.             IF I$ = "X" THEN GAMEOVER = 1: I$ = "0"
330.         ELSEIF SCREENSELECT = 2 THEN
331.             IF I$ = "1" AND PLAYER2.CASH >= 300 THEN PLAYER2.CASH = PLAYER2.CASH - 300: PLAYER2WEAP(1) = PLAYER2WEAP(1) + 5: CALL SOUNDBOARD("BUY", 0)
332.             IF I$ = "2" AND PLAYER2.CASH >= 600 THEN PLAYER2.CASH = PLAYER2.CASH - 600: PLAYER2WEAP(2) = PLAYER2WEAP(2) + 5: CALL SOUNDBOARD("BUY", 0)
333.             IF I$ = "3" AND PLAYER2.CASH >= 800 THEN PLAYER2.CASH = PLAYER2.CASH - 800: PLAYER2WEAP(3) = PLAYER2WEAP(3) + 5: CALL SOUNDBOARD("BUY", 0)
334.             IF I$ = "4" AND PLAYER2.CASH >= 1000 THEN PLAYER2.CASH = PLAYER2.CASH - 1000: PLAYER2WEAP(4) = PLAYER2WEAP(4) + 5: CALL SOUNDBOARD("BUY", 0)
335.             IF I$ = "5" AND PLAYER2.CASH >= 1500 THEN PLAYER2.CASH = PLAYER2.CASH - 1500: PLAYER2WEAP(5) = PLAYER2WEAP(5) + 5: CALL SOUNDBOARD("BUY", 0)
336.             IF I$ = "6" AND PLAYER2.CASH >= 800 THEN PLAYER2.CASH = PLAYER2.CASH - 800: PLAYER2WEAP(6) = PLAYER2WEAP(6) + 5: CALL SOUNDBOARD("BUY", 0)
337.             IF I$ = "7" AND PLAYER2.CASH >= 500 THEN PLAYER2.CASH = PLAYER2.CASH - 1500: PLAYER2WEAP(7) = PLAYER2WEAP(7) + 5: CALL SOUNDBOARD("BUY", 0)
338.             IF I$ = "8" AND PLAYER2.CASH >= 300 THEN PLAYER2.CASH = PLAYER2.CASH - 300: PLAYER2WEAP(8) = PLAYER2WEAP(8) + 5: CALL SOUNDBOARD("BUY", 0)
339.             IF I$ = "9" AND PLAYER2.CASH >= 1000 THEN PLAYER2.CASH = PLAYER2.CASH - 1000: PLAYER2WEAP(9) = PLAYER2WEAP(9) + 1: CALL SOUNDBOARD("BUY", 0)
340.             IF I$ = "X" THEN GAMEOVER = 1: I$ = "0"
341.         END IF
342.     LOOP UNTIL I$ = "0"
343.     CLS
344. END SUB
345.  
346.  
347. SUB GETFIRESPECS
348.     IF PLAYERTURN = 2 AND LEFT$(UCASE$(PLAYER2.NAME), 8) = "COMPUTER" THEN
349.         CALL AI("FIRE")
350.     ELSE
351.         WEPDIS = 0
352.         LOOPCONTROL$ = "LOOP"
353.         LOCATE 1, 1
354.         PRINT "PLAYER"; PLAYERTURN; "ENTER ANGLE:";: INPUT "", PROJECTILE(1).ANGLE
355.         LOCATE 1, 1
356.        4 PRINT "                                           "
357.         LOCATE 1, 1
358.         PRINT "PLAYER"; PLAYERTURN; "ENTER VELOCITY:";: INPUT "", PROJECTILE(1).VELOCITY
359.         LOCATE 1, 1
360.         PRINT "                                           "
361.         LOCATE 1, 1
362.         PRINT "WEAPON (1 - 9): NORMAL SHELL - UL"
363.         IF PROJECTILE(1).ANGLE > 90 THEN PROJECTILE(1).ANGLE = 90
364.  
365.         DO
366.             I$ = INKEY$
367.             IF I$ >= CHR$(48) AND I$ <= CHR$(57) THEN
368.                 WEPDIS = VAL(I$)
369.  
370.                 IF WEPDIS = 0 THEN
371.                     WEPDIS$ = "NORMAL SHELL"
372.                 ELSEIF WEPDIS = 1 THEN
373.                     WEPDIS$ = "HEAVY SHELL"
374.                 ELSEIF WEPDIS = 2 THEN
375.                     WEPDIS$ = "BUNKER BUSTER"
376.                 ELSEIF WEPDIS = 3 THEN
377.                     WEPDIS$ = "CARPET BOMB"
378.                 ELSEIF WEPDIS = 4 THEN
379.                     WEPDIS$ = "HEAVY CARPET BOMB"
380.                 ELSEIF WEPDIS = 5 THEN
381.                     WEPDIS$ = "NUKE"
382.                 ELSEIF WEPDIS = 6 THEN
383.                     WEPDIS$ = "DIRT PILE"
384.                 ELSEIF WEPDIS = 7 THEN
385.                     WEPDIS$ = "MIRV"
386.                 ELSEIF WEPDIS = 8 THEN
387.                     WEPDIS$ = "DIRT MELTER"
388.                 ELSEIF WEPDIS = 9 THEN
389.                     WEPDIS$ = "SHIELD"
390.                 END IF
391.  
392.                 LOCATE 1, 1
393.                 PRINT "                                           "
394.                 LOCATE 1, 1
395.                 IF PLAYERTURN = 1 AND WEPDIS > 0 THEN
396.                     PRINT " WEAPON (= / -): "; WEPDIS$; " -"; PLAYER1WEAP(WEPDIS)
397.                 ELSEIF PLAYERTURN = 2 AND WEPDIS > 0 THEN
398.                     PRINT " WEAPON (= / -): "; WEPDIS$; " -"; PLAYER2WEAP(WEPDIS)
399.                 ELSEIF WEPDIS = 0 THEN
400.                     PRINT " WEAPON (= / -): "; WEPDIS$; " - UL"
401.                 END IF
402.             END IF
403.  
404.             IF I$ = CHR$(32) THEN
405.  
406.                 IF PLAYERTURN = 1 AND PLAYER1WEAP(WEPDIS) > 0 THEN
407.                     PLAYER1WEAP(WEPDIS) = PLAYER1WEAP(WEPDIS) - 1
408.                     LOOPCONTROL$ = "EXIT"
409.                     PROJECTILE(1).WEAPON = WEPDIS
410.                 ELSEIF PLAYERTURN = 2 AND PLAYER2WEAP(WEPDIS) > 0 THEN
411.                     PLAYER2WEAP(WEPDIS) = PLAYER2WEAP(WEPDIS) - 1
412.                     LOOPCONTROL$ = "EXIT"
413.                     PROJECTILE(1).WEAPON = WEPDIS
414.                 ELSEIF WEPDIS = 0 THEN
415.                     PROJECTILE(1).WEAPON = WEPDIS
416.                     LOOPCONTROL$ = "EXIT"
417.                 END IF
418.             END IF
419.         LOOP UNTIL LOOPCONTROL$ = "EXIT"
420.         CALL ASSEMBLEDISPLAY
421.     END IF
422.     CALL DRAWTANKS
423.  
424.     IF PLAYERTURN = 1 THEN
425.         PROJECTILE(1).POSX = PLAYER1.POSX
426.         PROJECTILE(1).POSY = PLAYER1.POSY
427.     END IF
428.  
429.     IF PLAYERTURN = 2 THEN
430.         PROJECTILE(1).POSX = PLAYER2.POSX
431.         PROJECTILE(1).POSY = PLAYER2.POSY
432.     END IF
433.  
434.     PROJECTILE(1).ACTIVE = 1
435.     PROJECTILES = 1
436. END SUB
437.  
438.  
439. SUB RANDOMIZETANKPOS
440.     PLAYER1.POSX = INT(RND * (REZX * .4)) + 1
441.     PLAYER2.POSX = INT(RND * (REZX * .4)) + (REZX * .5)
442.     CALL UPDATETANKPOS
443. END SUB
444.  
445. SUB UPDATETANKPOS
446.     PLAYER1.POSY = FINDLAND(PLAYER1.POSX + 5, PLAYER1.OLDY)
447.     PLAYER2.POSY = FINDLAND(PLAYER2.POSX + 5, PLAYER2.OLDY)
448.     IF PLAYER1.OLDY = 0 THEN
449.         PLAYER1.OLDY = PLAYER1.POSY
450.     ELSEIF PLAYER1.POSY - PLAYER1.OLDY > PLAYER1.HEALTH THEN
451.         PLAYERTURN = 4
452.     END IF
453.     IF PLAYER2.OLDY = 0 THEN
454.         PLAYER2.OLDY = PLAYER2.POSY
455.     ELSEIF PLAYER2.POSY - PLAYER2.OLDY > PLAYER2.HEALTH THEN
456.         PLAYERTURN = 3
457.     END IF
458. END SUB
459.  
460.  
461. SUB DROPSOIL
462.     DIM DROPMEM&(1080)
463.     _DEST TERRAININFO&
464.  
465.     FOR DROPS = 1 TO PROJECTILES
466.         SOILX = INT(PROJECTILE(DROPS).POSX)
467.         SOILY = INT(PROJECTILE(DROPS).POSY)
468.         RANGE = EXPLOSIONR
469.         IF PROJECTILE(1).WEAPON = 3 OR PROJECTILE(1).WEAPON = 4 THEN
470.             SOILX = SOILX + (EXPLOSIONR * 1.5)
471.             RANGE = RANGE * 2.5
472.         END IF
473.  
474.         IF VERBOSE = 1 THEN
475.             _DEST DISPLAY&
476.             LINE (SOILX - 1, SOILY)-(SOILX + 1, SOILY + 1), _RGB(255, 0, 0), B
477.             LINE (SOILX - RANGE - 1, SOILY)-(SOILX - RANGE - 1, 0), _RGB(0, 0, 255)
478.             LINE (SOILX + RANGE + 1, SOILY)-(SOILX + RANGE + 1, 0), _RGB(0, 0, 255)
479.             LINE (0, HIGHPOINT)-(REZX, HIGHPOINT), _RGB(0, 255, 0)
480.             LINE (0, SOILY + EXPLOSIONR + 2)-(REZX, SOILY + EXPLOSIONR + 2), _RGB(0, 255, 0)
481.             _DEST TERRAININFO&
482.         END IF
483.  
484.         FOR DROPX = SOILX - RANGE - 1 TO SOILX + RANGE + 1
485.             DROPSWITCH = 0
486.             FOR DROPY = SOILY + EXPLOSIONR + 2 TO HIGHPOINT STEP -1
487.  
488.                 _SOURCE TERRAININFO&
489.                 IF POINT(DROPX, DROPY) <> _RGB(LAND.TOPR, LAND.TOPG, LAND.TOPB) AND DROPSWITCH = 0 THEN
490.                     LET DROPSWITCH = 1
491.                     STARTY = DROPY
492.                 END IF
493.  
494.                 IF POINT(DROPX, DROPY) = _RGB(LAND.TOPR, LAND.TOPG, LAND.TOPB) AND DROPSWITCH = 1 THEN DROPSWITCH = 2
495.  
496.                 IF POINT(DROPX, DROPY) = _RGB(LAND.TOPR, LAND.TOPG, LAND.TOPB) AND DROPSWITCH = 2 THEN
497.                     PIXELS = PIXELS + 1
498.                     _SOURCE FOREGROUND&
499.                     DROPMEM&(PIXELS) = POINT(DROPX, DROPY)
500.                     _SOURCE TERRAININFO&
501.                 END IF
502.  
503.                 IF POINT(DROPX, DROPY) <> _RGB(LAND.TOPR, LAND.TOPG, LAND.TOPB) AND DROPSWITCH = 2 THEN
504.                     DROPSWITCH = 3
505.                     ENDY = DROPY
506.                 END IF
507.  
508.                 IF DROPSWITCH = 3 THEN
509.                     DROPSWITCH = 0
510.                     FOR DRAWY = STARTY TO ENDY STEP -1
511.                         IF PIXELS > DRAWN THEN
512.                             DRAWN = DRAWN + 1
513.                             _DEST TERRAININFO&
514.                             LINE (DROPX, DRAWY)-(DROPX, DRAWY), _RGB(LAND.TOPR, LAND.TOPG, LAND.TOPB)
515.                             _DEST FOREGROUND&
516.                             LINE (DROPX, DRAWY)-(DROPX, DRAWY), _RGB(_RED32(DROPMEM&(DRAWN)), _GREEN32(DROPMEM&(DRAWN)), _BLUE32(DROPMEM&(DRAWN)))
517.                         ELSE
518.                             _DEST TERRAININFO&
519.                             LINE (DROPX, DRAWY)-(DROPX, DRAWY), _RGB(0, 0, 0)
520.                             _DEST FOREGROUND&
521.                             LINE (DROPX, DRAWY)-(DROPX, DRAWY), _RGB(0, 0, 0)
522.                         END IF
523.                     NEXT DRAWY
524.                     PIXELS = 0
525.                     DRAWN = 0
526.                 END IF
527.             NEXT DROPY
528.         NEXT DROPX
529.     NEXT DROPS
530.     ERASE DROPMEM&
531.     _CLEARCOLOR _RGB(0, 0, 0)
532.     _DEST DISPLAY&
533.  
534. END SUB
535.  
536.  
537. SUB FIRE
538.     IF PROJECTILE(1).WEAPON = 9 THEN
539.         IF PLAYERTURN = 1 THEN
540.             PLAYER1.SHIELD = 100
541.             CALL SOUNDBOARD("SHIELD", 0)
542.         ELSEIF PLAYERTURN = 2 THEN
543.             PLAYER2.SHIELD = 100
544.             CALL SOUNDBOARD("SHIELD", 0)
545.         END IF
546.         EXIT SUB
547.     END IF
548.  
549.     IF PROJECTILE(1).WEAPON = 8 THEN
550.         CALL MELTDIRT(PLAYERTURN)
551.         EXIT SUB
552.     END IF
553.  
554.     PROJECTILE(1).XMOD = ((90 - PROJECTILE(1).ANGLE) * PROJECTILE(1).VELOCITY) / (500)
555.     PROJECTILE(1).YMOD = ((PROJECTILE(1).ANGLE * PROJECTILE(1).VELOCITY) * -1) / (500)
556.     IF PLAYERTURN = 2 THEN
557.         PROJECTILE(1).XMOD = PROJECTILE(1).XMOD * -1
558.     END IF
559.  
560.     CALL SOUNDBOARD("SHOOT", 0)
561.     DO
562.         CALL ANIMATESHELL(1)
563.         IF MIRVACTIVE = 1 THEN
564.             CALL ANIMATESHELL(2)
565.             CALL ANIMATESHELL(3)
566.             CALL ANIMATESHELL(4)
567.  
568.             IF PROJECTILE(2).ACTIVE = 2 THEN CALL EXPLOSION(PROJECTILE(2).POSX, PROJECTILE(2).POSY): PROJECTILE(2).ACTIVE = 0
569.             IF PROJECTILE(3).ACTIVE = 2 THEN CALL EXPLOSION(PROJECTILE(3).POSX, PROJECTILE(3).POSY): PROJECTILE(3).ACTIVE = 0
570.             IF PROJECTILE(4).ACTIVE = 2 THEN CALL EXPLOSION(PROJECTILE(4).POSX, PROJECTILE(4).POSY): PROJECTILE(4).ACTIVE = 0
571.             IF PROJECTILE(2).ACTIVE = 0 AND PROJECTILE(3).ACTIVE = 0 AND PROJECTILE(4).ACTIVE = 0 THEN MIRVACTIVE = 0
572.         END IF
573.     LOOP UNTIL PROJECTILE(1).ACTIVE <> 1 AND MIRVACTIVE = 0
574.  
575.     IF PROJECTILE(1).ACTIVE = 2 THEN
576.         CALL EXPLOSION(PROJECTILE(1).POSX, PROJECTILE(1).POSY)
577.         IF PROJECTILE(1).WEAPON = 3 OR PROJECTILE(1).WEAPON = 4 THEN
578.             EXPLCOUNT = 0
579.             TEMPPOSX = PROJECTILE(1).POSX
580.             DO
581.                 EXPLCOUNT = EXPLCOUNT + 1
582.                 IF PLAYERTURN = 1 THEN PROJECTILE(1).POSX = PROJECTILE(1).POSX + EXPLOSIONR
583.                 IF PLAYERTURN = 2 THEN PROJECTILE(1).POSX = PROJECTILE(1).POSX - EXPLOSIONR
584.                 CALL EXPLOSION(PROJECTILE(1).POSX, PROJECTILE(1).POSY)
585.             LOOP UNTIL EXPLCOUNT = 3
586.             PROJECTILE(1).POSX = TEMPPOSX
587.         END IF
588.     END IF
589. END SUB
590.  
591.  
592.  
593. SUB ANIMATESHELL (PN)
594.     IF PROJECTILE(PN).ACTIVE = 1 THEN
595.         IF MIRVACTIVE = 1 THEN
596.             FOR DELAY = 1 TO DELAYTIME / 12: NEXT DELAY
597.         ELSE
598.             FOR DELAY = 1 TO DELAYTIME / 4: NEXT DELAY
599.         END IF
600.  
601.         OLDX = PROJECTILE(PN).POSX
602.         OLDY = PROJECTILE(PN).POSY
603.         PROJECTILE(PN).XMOD = PROJECTILE(PN).XMOD + (WIND / 5000)
604.         PROJECTILE(PN).POSX = PROJECTILE(PN).POSX + PROJECTILE(PN).XMOD
605.         PROJECTILE(PN).YMOD = PROJECTILE(PN).YMOD + GRAVITY
606.         PROJECTILE(PN).POSY = PROJECTILE(PN).POSY + PROJECTILE(PN).YMOD
607.  
608.         IF PROJECTILE(1).WEAPON = 7 AND OLDY < PROJECTILE(1).POSY AND MIRVACTIVE = 0 THEN
609.             MIRVACTIVE = 1
610.             PROJECTILES = 4
611.             CALL SOUNDBOARD("MIRV", 0)
612.             FOR TMP = 2 TO 4
613.                 PROJECTILE(TMP).POSX = PROJECTILE(1).POSX
614.                 PROJECTILE(TMP).POSY = PROJECTILE(1).POSY
615.                 PROJECTILE(TMP).VELOCITY = PROJECTILE(1).VELOCITY
616.                 PROJECTILE(TMP).ANGLE = PROJECTILE(1).ANGLE
617.                 PROJECTILE(TMP).OLDCOL = PROJECTILE(1).OLDCOL
618.                 PROJECTILE(TMP).WEAPON = 1
619.                 PROJECTILE(TMP).ACTIVE = 1
620.                 PROJECTILE(TMP).XMOD = PROJECTILE(1).XMOD + (TMP * .5)
621.                 PROJECTILE(TMP).YMOD = PROJECTILE(1).YMOD
622.             NEXT TMP
623.             PROJECTILE(1).WEAPON = 1
624.             IF VERBOSE = 1 THEN CIRCLE (PROJECTILE(1).POSX, PROJECTILE(1).POSY), 25, _RGB(0, 0, 255)
625.             LINE (POSX, POSY)-(POSX + 1, POSY + 1), PROJECTILE(PN).OLDCOL, BF
626.             EXIT SUB
627.         END IF
628.  
629.         _SOURCE TERRAININFO&
630.  
631.         IF POINT(PROJECTILE(PN).POSX, PROJECTILE(PN).POSY) = _RGB(LAND.TOPR, LAND.TOPG, LAND.TOPB) THEN
632.             PROJECTILE(PN).ACTIVE = 2
633.             IF UCASE$(LEFT$(PLAYER2.NAME, 8)) = "COMPUTER" AND PLAYERTURN = 2 THEN CALL AI("UPDATE")
634.         END IF
635.         _SOURCE DISPLAY&
636.         _DEST DISPLAY&
637.  
638.         IF PROJECTILE(PN).POSX > PLAYER2.POSX - 5 AND PROJECTILE(PN).POSX < PLAYER2.POSX + 5 AND PROJECTILE(PN).POSY > PLAYER2.POSY - 30 AND PROJECTILE(PN).POSY < PLAYER2.POSY AND PLAYERTURN = 1 THEN CALL SOUNDBOARD("WHIZZ", 0)
639.         IF PROJECTILE(PN).POSX > PLAYER1.POSX - 5 AND PROJECTILE(PN).POSX < PLAYER1.POSX + 5 AND PROJECTILE(PN).POSY > PLAYER1.POSY - 30 AND PROJECTILE(PN).POSY < PLAYER1.POSY AND PLAYERTURN = 2 THEN CALL SOUNDBOARD("WHIZZ", 0)
640.  
641.         IF POINT(PROJECTILE(PN).POSX, PROJECTILE(PN).POSY) = _RGB(255, 255, 255) AND PLAYERTURN = 2 THEN PLAYERTURN = 5: PROJECTILE(PN).ACTIVE = 2
642.         IF POINT(PROJECTILE(PN).POSX, PROJECTILE(PN).POSY) = _RGB(254, 254, 255) AND PLAYERTURN = 1 THEN PLAYERTURN = 6: PROJECTILE(PN).ACTIVE = 2
643.         LINE (OLDX, OLDY)-(OLDX + 1, OLDY + 1), PROJECTILE(PN).OLDCOL, BF
644.         PROJECTILE(PN).OLDCOL = POINT(PROJECTILE(PN).POSX, PROJECTILE(PN).POSY)
645.         LINE (PROJECTILE(PN).POSX, PROJECTILE(PN).POSY)-(PROJECTILE(PN).POSX + 1, PROJECTILE(PN).POSY + 1), _RGB(255, 155, 55), BF
646.  
647.         IF PROJECTILE(PN).POSX > (REZX + 2) THEN PROJECTILE(PN).ACTIVE = 0
648.         IF PROJECTILE(PN).POSX < -2 THEN
649.             PROJECTILE(PN).ACTIVE = 0
650.             IF UCASE$(LEFT$(PLAYER2.NAME, 8)) = "COMPUTER" AND PLAYERTURN = 2 THEN CALL AI("OFFSCREEN")
651.         END IF
652.     END IF
653. END SUB
654.  
655.  
656. SUB INITENGINE
657.     RANDOMIZE TIMER
658.     GRAVITY = .0002 * (10 ^ 2)
659.     INTEREST = 1.06
660.     REZX = 1920
661.     REZY = 1080
662.     LAND.TOPG = 80
663.  
664.     BACKGROUND& = _NEWIMAGE(REZX, REZY, 32)
665.     FOREGROUND& = _NEWIMAGE(REZX, REZY, 32)
666.     BUFFERSCREEN& = _NEWIMAGE(REZX, REZY, 32)
667.     TERRAININFO& = _NEWIMAGE(REZX, REZY, 32)
668.     DISPLAY& = _NEWIMAGE(REZX, REZY, 32)
669.     VFX& = _NEWIMAGE(REZX, REZY, 32)
670.     SCREEN DISPLAY&
671.     CLS
672. END SUB
673.  
674.  
675. SUB ASSEMBLEDISPLAY
676.     _PUTIMAGE , BACKGROUND&, BUFFERSCREEN&
677.     _PUTIMAGE , VFX&, BUFFERSCREEN&
678.     _PUTIMAGE , FOREGROUND&, BUFFERSCREEN&
679.     _PUTIMAGE , BUFFERSCREEN&, DISPLAY&
680. END SUB
681.  
682. SUB EXPLOSION (EXPLX, EXPLY)
683.     IF PROJECTILE(1).WEAPON = 0 OR PROJECTILE(1).WEAPON = 3 THEN EXPLOSIONR = 25
684.     IF PROJECTILE(1).WEAPON = 1 OR PROJECTILE(1).WEAPON = 4 OR PROJECTILE(1).WEAPON = 7 THEN EXPLOSIONR = 35
685.     IF PROJECTILE(1).WEAPON = 2 THEN EXPLOSIONR = 50
686.     IF PROJECTILE(1).WEAPON = 5 OR PROJECTILE(1).WEAPON = 99 THEN EXPLOSIONR = 100
687.  
688.     IF PLAYERTURN = 5 THEN
689.         PLAYER1.SHIELD = PLAYER1.SHIELD - EXPLOSIONR
690.         CALL SOUNDBOARD("EXPL", 0)
691.         PLAYERTURN = 2
692.         EXIT SUB
693.     ELSEIF PLAYERTURN = 6 THEN
694.         PLAYER2.SHIELD = PLAYER2.SHIELD - EXPLOSIONR
695.         CALL SOUNDBOARD("EXPL", 0)
696.         PLAYERTURN = 1
697.         EXIT SUB
698.     END IF
699.  
700.     IF PROJECTILE(1).WEAPON = 6 THEN
701.         _DEST BUFFERSCREEN&
702.         CLS
703.         EXPLOSIONR = 0
704.  
705.         CIRCLE (EXPLX, EXPLY), 75, _RGB(255, 0, 0)
706.         PAINT (EXPLX, EXPLY), _RGB(255, 255, 255), _RGB(255, 0, 0)
707.         PAINT (EXPLX, EXPLY), _RGB(LAND.TOPR, LAND.TOPG, LAND.TOPB), _RGB(255, 0, 0)
708.         CIRCLE (EXPLX, EXPLY), 75, _RGB(LAND.TOPR, LAND.TOPG, LAND.TOPB)
709.         _PUTIMAGE , FOREGROUND&, BUFFERSCREEN&
710.         _CLEARCOLOR _RGB(0, 0, 0)
711.         _PUTIMAGE , BUFFERSCREEN&, FOREGROUND&
712.  
713.  
714.         _DEST TERRAININFO&
715.         CIRCLE (EXPLX, EXPLY), 75, _RGB(255, 0, 0)
716.         PAINT (EXPLX, EXPLY), _RGB(255, 255, 255), _RGB(255, 0, 0)
717.         PAINT (EXPLX, EXPLY), _RGB(LAND.TOPR, LAND.TOPG, LAND.TOPB), _RGB(255, 0, 0)
718.         CIRCLE (EXPLX, EXPLY), 75, _RGB(LAND.TOPR, LAND.TOPG, LAND.TOPB)
719.  
720.         _DEST DISPLAY&
721.         SCREEN TERRAININFO&
722.         SLEEP
723.         SCREEN DISPLAY&
724.         EXIT SUB
725.     END IF
726.  
727.     _DEST TERRAININFO&
728.     CIRCLE (EXPLX, EXPLY), EXPLOSIONR, _RGB(255, 255, 255)
729.     PAINT (EXPLX, EXPLY), _RGB(0, 0, 0), _RGB(255, 255, 255)
730.     CIRCLE (EXPLX, EXPLY), EXPLOSIONR, _RGB(0, 0, 0)
731.  
732.     _DEST FOREGROUND&
733.     CIRCLE (EXPLX, EXPLY), EXPLOSIONR, _RGB(255, 255, 255)
734.     PAINT (EXPLX, EXPLY), _RGB(0, 0, 0), _RGB(255, 255, 255)
735.     CIRCLE (EXPLX, EXPLY), EXPLOSIONR, _RGB(0, 0, 0)
736.  
737.     _CLEARCOLOR _RGB(0, 0, 0)
738.     CALL ASSEMBLEDISPLAY
739.     _DEST DISPLAY&
740.  
741.     FOR RAD = 3 TO EXPLOSIONR
742.         CIRCLE (EXPLX, EXPLY), RAD, _RGB(255, 255, 255)
743.         CIRCLE (EXPLX, EXPLY), RAD - 1, _RGB(255, 255, 255)
744.         CIRCLE (EXPLX, EXPLY), RAD - 2, _RGB(255, 255, 255)
745.         CIRCLE (EXPLX, EXPLY), RAD - 3, _RGB(150, 0, 0)
746.         FOR DELAY = 1 TO DELAYTIME / 20: NEXT DELAY
747.     NEXT RAD
748.  
749.     IF PROJECTILE(1).WEAPON = 5 THEN
750.         FOR TIMES = 1 TO 5
751.             FOR RAD = 1 TO EXPLOSIONR
752.                 CIRCLE (EXPLX, EXPLY), RAD, _RGB(255, 255, 0)
753.                 FOR DELAY = 1 TO DELAYTIME / 25: NEXT DELAY
754.             NEXT RAD
755.             FOR RAD = 1 TO EXPLOSIONR
756.                 CIRCLE (EXPLX, EXPLY), RAD, _RGB(255, 0, 0)
757.                 FOR DELAY = 1 TO DELAYTIME / 25: NEXT DELAY
758.  
759.             NEXT RAD
760.         NEXT TIMES
761.     END IF
762.     CALL SOUNDBOARD("EXPL", 0)
763. END SUB
764.  
765.  
766. SUB BUILDLEVEL
767.     _DEST TERRAININFO&
768.     CLS
769.  
770.     _DEST VFX&
771.     CLS
772.     _CLEARCOLOR _RGB(0, 0, 0)
773.  
774.     _DEST BACKGROUND&
775.     CLS
776.     BACKDROP = _LOADIMAGE("Data\sky2.jpg")
777.     _PUTIMAGE (0, 0)-(REZX, REZY), BACKDROP
778.     _PUTIMAGE , 0, BACKDROP, (0, 0)-(REZX, REZY)
779.  
780.     _DEST FOREGROUND&
781.     CLS
782.     EARTH = _LOADIMAGE("Data\Dirt.jpg")
783.     _PUTIMAGE (0, 0)-(REZX, REZY), EARTH
784.     _PUTIMAGE , 0, EARTH, (0, 0)-(REZX, REZY)
785.  
786.     H = INT(RND * REZY * .75) + 100
787.     HIGHPOINT = H
788.     FOR I = 0 TO REZX
789.         V = V + ((RND * .5) - .25)
790.         IF V > RND * 10 THEN V = V - .25
791.         IF V < (RND * 10) * -1 THEN V = V + .25
792.         H = H + V
793.         IF H < REZY * .15 THEN V = V + .25
794.         IF H > REZY * .65 THEN V = V - .25
795.         IF HIGHPOINT > H THEN HIGHPOINT = H
796.  
797.         _DEST TERRAININFO&
798.         LINE (I, H)-(I, H + V), _RGB(LAND.TOPR, LAND.TOPG, LAND.TOPB)
799.  
800.         _DEST FOREGROUND&
801.         LINE (I, H)-(I, H + V), _RGB(LAND.TOPR, LAND.TOPG, LAND.TOPB)
802.         LINE (I, H + 30)-(I, H + V + 30), _RGB(LAND.TOPR, LAND.TOPG, LAND.TOPB)
803.  
804.     NEXT I
805.  
806.     HIGHPOINT = HIGHPOINT - 1
807.     _DEST TERRAININFO&
808.     PAINT (REZX - 1, REZY - 1), _RGB(LAND.TOPR, LAND.TOPG, LAND.TOPB), _RGB(LAND.TOPR, LAND.TOPG, LAND.TOPB)
809.     PAINT (I - 2, H + 2), _RGB(LAND.TOPR, LAND.TOPG, LAND.TOPB), _RGB(LAND.TOPR, LAND.TOPG, LAND.TOPB)
810.     PAINT (1, 1), _RGB(0, 0, 0), _RGB(LAND.TOPR, LAND.TOPG, LAND.TOPB)
811.  
812.     _DEST FOREGROUND&
813.     PAINT (I - 2, H + 5), _RGB(LAND.TOPR, LAND.TOPG, LAND.TOPB), _RGB(LAND.TOPR, LAND.TOPG, LAND.TOPB)
814.     PAINT (1, 1), _RGB(0, 0, 0), _RGB(LAND.TOPR, LAND.TOPG, LAND.TOPB)
815.     _CLEARCOLOR _RGB(0, 0, 0)
816.     CALL ASSEMBLEDISPLAY
817. END SUB
818.  
819. FUNCTION FINDLAND (XPOS, OLDY)
820.     FOR Y = OLDY TO REZY
821.         IF POINT(XPOS, Y) = _RGB(LAND.TOPR, LAND.TOPG, LAND.TOPB) THEN EXIT FOR
822.     NEXT Y
823.  
824.     FINDLAND = Y - 7
825. END FUNCTION
826.  
827. SUB ENGINESTART
828.     SCREEN 12
829.     _FULLSCREEN
830.     CLS
831.     COLOR 15, 4
832.     PRINT "                            TANKS6 ENGINE INIT...                               "
833.     COLOR 7, 0
834.     OPEN "Data\Engine.ini" FOR INPUT AS #1
835.     INPUT #1, RUNMODE$
836.     INPUT #1, VERSION$
837.     CLOSE #1
838.     PRINT VERSION$
839.     PRINT
840.  
841.     IF RUNMODE$ = "SOUNDBOARD" THEN
842.         DO
843.             CLS
844.             PRINT "TANKS 6 SOUNDBOARD"
845.             INPUT "ENTER SOUNDBOARD COMMAND: ", SNDCON$
846.             CALL SOUNDBOARD(SNDCON$, 0)
847.         LOOP UNTIL UCASE$(SNDCON$) = "END" OR UCASE$(SNDCON$) = "QUIT"
848.         IF UCASE$(SNDCON$) = "END" THEN SYSTEM
849.         RUNMODE$ = "NORMAL"
850.     END IF
851.  
852.     IF RUNMODE$ = "INSTALL" THEN
853.         PRINT "SETTING UP FOR FIRST TIME USE, PLEASE WAIT..."
854.         TIM$ = TIME$
855.         DO
856.         LOOP UNTIL TIM$ <> TIME$
857.         TIM$ = TIME$
858.  
859.         DO
860.             DELAYTIME = DELAYTIME + 1
861.         LOOP UNTIL TIM$ <> TIME$
862.         PRINT DELAYTIME
863.  
864.         OPEN "Data\Settings.inf" FOR OUTPUT AS #1
865.         PRINT #1, "15"
866.         PRINT #1, DELAYTIME
867.         PRINT #1, "Player 1"
868.         PRINT #1, "COMPUTER"
869.         PRINT #1, "2000"
870.         PRINT #1, "2000"
871.         PRINT #1, "10"
872.         CLOSE #1
873.  
874.         OPEN "Data\Engine.ini" FOR OUTPUT AS #1
875.         PRINT #1, "NORMAL"
876.         PRINT #1, VERSION$
877.         CLOSE #1
878.         RUNMODE$ = "NORMAL"
879.     END IF
880.  
881.     IF RUNMODE$ = "NORMAL" THEN
882.         OPEN "Data\Settings.inf" FOR INPUT AS #1
883.         INPUT #1, ROUNDS
884.         INPUT #1, DELAYTIME
885.         INPUT #1, PLAYER1.NAME
886.         INPUT #1, PLAYER2.NAME
887.         INPUT #1, PLAYER1.CASH
888.         INPUT #1, PLAYER2.CASH
889.         CLOSE #1
890.     END IF
891. END SUB
892.  
893. SUB STARTMENU
894.     CALL JUKEBOX("INTRO")
895.     SHOOTDIR = 0
896.     PLAYER1.POSX = 10
897.     PLAYER1.POSY = 400
898.     PLAYER2.POSX = 600
899.     PLAYER2.POSY = 400
900.  
901.     STARTUP:
902.     CLS
903.     XA = 1
904.     X1 = 4: X2 = 7
905.  
906.     STARTUP1:
907.     GOSUB TOPMENU
908.     COLOR X1
909.     LOCATE 5, 1
910.     PRINT "START"
911.     COLOR X2
912.     PRINT "OPTIONS"
913.     CALL DRAWTANKS
914.     TIMER$ = TIME$
915.     DO
916.         I$ = INKEY$
917.         I$ = UCASE$(I$)
918.         IF I$ = CHR$(0) + "H" THEN GOSUB DWN
919.         IF I$ = CHR$(0) + "P" THEN GOSUB UP
920.         IF I$ = "Q" THEN GOSUB ENDER
921.         IF I$ = " " THEN GOSUB CHECK1
922.  
923.         IF SHOOTDIR = 0 AND TIMER$ <> TIME$ THEN
924.             SHELLX = PLAYER1.POSX
925.             DO UNTIL POSX = PLAYER2.POSX - 10
926.                 FOR WAT = 1 TO DELAYTIME / 50: NEXT WAT
927.                 LINE (POSX + PLAYER1.POSX, PLAYER1.POSY)-(POSX + PLAYER1.POSX, PLAYER1.POSY), 0
928.                 POSX = POSX + 1
929.                 LINE (POSX + PLAYER1.POSX, PLAYER1.POSY)-(POSX + PLAYER1.POSX, PLAYER1.POSY), 15
930.             LOOP
931.             SHOOTDIR = 1
932.             TIMER$ = TIME$
933.         END IF
934.  
935.         IF SHOOTDIR = 1 AND TIMER$ <> TIME$ THEN
936.             POSX = PLAYER2.POSX
937.             DO UNTIL POSX = PLAYER1.POSX
938.                 FOR WAT = 1 TO DELAYTIME / 50: NEXT WAT
939.                 LINE (POSX + PLAYER1.POSX, PLAYER1.POSY)-(POSX + PLAYER1.POSX, PLAYER1.POSY), 0
940.                 POSX = POSX - 1
941.                 LINE (POSX + PLAYER1.POSX, PLAYER1.POSY)-(POSX + PLAYER1.POSX, PLAYER1.POSY), 15
942.             LOOP
943.             TIMER$ = TIME$
944.             SHOOTDIR = 0
945.         END IF
946.     LOOP
947.  
948.  
949.     ENDER:
950.     CALL ENDGAME
951.  
952.     UP:
953.     CALL SOUNDBOARD("MENU", 0)
954.     XA = XA + 1
955.     IF XA = 3 THEN XA = 1
956.     IF XA = 2 THEN X1 = 7: X2 = 4: CK = 2
957.     IF XA = 1 THEN X2 = 7: X1 = 4: CK = 1
958.     GOTO STARTUP1
959.  
960.     DWN:
961.     CALL SOUNDBOARD("MENU", 0)
962.     XA = XA - 1
963.     IF XA = 0 THEN XA = 2
964.     IF XA = 2 THEN X1 = 7: X2 = 4: CK = 2
965.     IF XA = 1 THEN X2 = 7: X1 = 4: CK = 1
966.     GOTO STARTUP1
967.  
968.     CHECK1:
969.     CALL SOUNDBOARD("SELECT", 0)
970.     IF XA = 1 THEN LOCATE 1, 1: GOTO STARTGAM
971.     IF XA = 2 THEN COLORTITLE = 0: GOTO OPTIONS
972.  
973.     OPTIONS:
974.     KEY(1) OFF
975.     CLS
976.     XA = 1
977.     X1 = 4: X2 = 7: X3 = 7: X4 = 7: X5 = 7: X6 = 7: X7 = 7: X8 = 7
978.  
979.     OPTIONS1:
980.     GOSUB TOPMENU
981.     COLOR 5
982.     LOCATE 2, 1
983.     PRINT , "                         OPTIONS"
984.     LOCATE 2, 67: COLOR 8: PRINT VERSION$
985.     COLOR X1
986.     LOCATE 5, 1
987.     PRINT "ROUNDS (";: COLOR 2: PRINT ROUNDS;: COLOR X1: PRINT ")"
988.     LOCATE 6, 1
989.     COLOR X2
990.     PRINT "PLAYER1 NAME (";: COLOR 2: PRINT PLAYER1.NAME;: COLOR X2: PRINT ")"
991.     LOCATE 7, 1
992.     COLOR X3
993.     PRINT "PLAYER2 NAME (";: COLOR 2: PRINT PLAYER2.NAME;: COLOR X3: PRINT ")"
994.  
995.     COLOR 15: LOCATE 15, 1: PRINT "NOTE: TO PLAY SINGLE PLAYER NAME PLAYER 2 COMPUTER"
996.     CALL DRAWTANKS
997.     DO
998.         I$ = INKEY$
999.         I$ = UCASE$(I$)
1000.         IF I$ = CHR$(0) + "H" THEN GOTO ODWN
1001.         IF I$ = CHR$(0) + "P" THEN GOTO OUP
1002.         IF I$ = "Q" THEN GOTO STARTUP
1003.         IF I$ = " " THEN GOTO OCHECK1
1004.  
1005.         IF SHOOTDIR = 0 AND TIMER$ <> TIME$ THEN
1006.             SHELLX = PLAYER1.POSX
1007.             DO UNTIL POSX = PLAYER2.POSX - 10
1008.                 FOR WAT = 1 TO DELAYTIME / 50: NEXT WAT
1009.                 LINE (POSX + PLAYER1.POSX, PLAYER1.POSY)-(POSX + PLAYER1.POSX, PLAYER1.POSY), 0
1010.                 POSX = POSX + 1
1011.                 LINE (POSX + PLAYER1.POSX, PLAYER1.POSY)-(POSX + PLAYER1.POSX, PLAYER1.POSY), 15
1012.             LOOP
1013.             SHOOTDIR = 1
1014.             TIMER$ = TIME$
1015.         END IF
1016.  
1017.         IF SHOOTDIR = 1 AND TIMER$ <> TIME$ THEN
1018.             POSX = PLAYER2.POSX
1019.             DO UNTIL POSX = PLAYER1.POSX
1020.                 FOR WAT = 1 TO DELAYTIME / 50: NEXT WAT
1021.                 LINE (POSX + PLAYER1.POSX, PLAYER1.POSY)-(POSX + PLAYER1.POSX, PLAYER1.POSY), 0
1022.                 POSX = POSX - 1
1023.                 LINE (POSX + PLAYER1.POSX, PLAYER1.POSY)-(POSX + PLAYER1.POSX, PLAYER1.POSY), 15
1024.             LOOP
1025.             TIMER$ = TIME$
1026.             SHOOTDIR = 0
1027.         END IF
1028.     LOOP
1029.  
1030.     OUP:
1031.     CALL SOUNDBOARD("MENU", 0)
1032.     XA = XA + 1
1033.     IF XA = 4 THEN XA = 1
1034.     IF XA = 2 THEN X1 = 7: X2 = 4: CK = 2
1035.     IF XA = 3 THEN X2 = 7: X3 = 4: CK = 3
1036.     IF XA = 1 THEN X3 = 7: X1 = 4: CK = 1
1037.     GOTO OPTIONS1
1038.  
1039.     ODWN:
1040.     CALL SOUNDBOARD("MENU", 0)
1041.     XA = XA - 1
1042.     IF XA = 0 THEN XA = 3
1043.     IF XA = 3 THEN X1 = 7: X3 = 4: CK = 3
1044.     IF XA = 2 THEN X3 = 7: X2 = 4: CK = 2
1045.     IF XA = 1 THEN X2 = 7: X1 = 4: CK = 1
1046.     GOTO OPTIONS1
1047.  
1048.     OCHECK1:
1049.     CALL SOUNDBOARD("SELECT", 0)
1050.  
1051.     IF XA = 1 THEN
1052.         LOCATE 13, 1
1053.         INPUT "ENTER ROUNDS TO PLAY ", ROUNDS
1054.         LOCATE 13, 1
1055.         PRINT "                                                            "
1056.     END IF
1057.  
1058.     IF XA = 2 THEN
1059.         LOCATE 13, 1
1060.         INPUT "PLAYER 1 ENTER YOUR NAME ", PLAYER1.NAME
1061.         LOCATE 13, 1
1062.         PRINT "                                                            "
1063.     END IF
1064.  
1065.     IF XA = 3 THEN
1066.         LOCATE 13, 1
1067.         INPUT "PLAYER 2 ENTER YOUR NAME ", PLAYER2.NAME
1068.         LOCATE 13, 1
1069.         PRINT "                                                            "
1070.     END IF
1071.  
1072.     GOTO OPTIONS
1073.  
1074.     TOPMENU:
1075.     LOCATE 1, 1
1076.     COLOR 15, 4
1077.     PRINT , "                         TANKS 6"
1078.     LOCATE 2, 67: COLOR 8, 0: PRINT VERSION$
1079.     POINTX = 0
1080.     COLOR 7
1081.     POINTY = 0
1082.     LINE (0, 15)-(800, 15), 15
1083.     PAINT (1, 1), 4, 15
1084.     LINE (0, 15)-(800, 15), 4
1085.     LOCATE 27, 1
1086.     COLOR 15
1087.     PRINT "Q - BACK"
1088.     PRINT "SPACEBAR - SELECT"
1089.     RETURN
1090.  
1091.     STARTGAM:
1092.     OPEN "Data\Settings.inf" FOR OUTPUT AS #1
1093.     PRINT #1, ROUNDS
1094.     PRINT #1, DELAYTIME
1095.     PRINT #1, PLAYER1.NAME
1096.     PRINT #1, PLAYER2.NAME
1097.     PRINT #1, PLAYER1.CASH
1098.     PRINT #1, PLAYER2.CASH
1099.     CLOSE #1
1100. END SUB
1101.  
1102.  
1103. SUB AI (JOB$)
1104.     AISPOT = (WIND / 10) + 4
1105.     IF JOB$ = "INIT" THEN
1106.         FOR AISPOT = 1 TO 7
1107.             AIARRAY(AISPOT) = 30
1108.         NEXT AISPOT
1109.     ELSEIF JOB$ = "FIRE" THEN
1110.         PROJECTILE(1).ANGLE = 55
1111.         PROJECTILE(1).VELOCITY = AIARRAY(AISPOT)
1112.         PROJECTILE(1).WEAPON = 1
1113.     ELSEIF JOB$ = "OFFSCREEN" THEN
1114.         AIARRAY(AISPOT) = AIARRAY(AISPOT) - 5
1115.     ELSE
1116.         IF PROJECTILE(1).POSX > PLAYER1.POSX THEN AIARRAY(AISPOT) = AIARRAY(AISPOT) + 2
1117.         IF PROJECTILE(1).POSX < PLAYER1.POSX THEN AIARRAY(AISPOT) = AIARRAY(AISPOT) - 2
1118.     END IF
1119. END SUB
1120.  
1121. SUB SOUNDBOARD (SELECTOR$, SUBSOUD)
1122.  
1123.     IF SELECTOR$ = "BAUGHT" THEN SFX$ = "Sounds\Bo.sfx"
1124.     IF SELECTOR$ = "BUY" THEN SFX$ = "Sounds\Buy.sfx"
1125.     IF SELECTOR$ = "SHIELD" THEN SFX$ = "Sounds\Dsc.sfx"
1126.     IF SELECTOR$ = "EXITBUY" THEN SFX$ = "Sounds\Exitbuy.sfx"
1127.     IF SELECTOR$ = "EXPL" THEN SFX$ = "Sounds\Expl.mp3"
1128.     IF SELECTOR$ = "EDR" THEN SFX$ = "sounds\EDR.sfx" 'NOT USED
1129.     IF SELECTOR$ = "MENU" THEN SFX$ = "Sounds\Menu.sfx"
1130.     IF SELECTOR$ = "MIRV" THEN SFX$ = "Sounds\Mirv.mp3"
1131.     IF SELECTOR$ = "SECRET" THEN SFX$ = "sounds\SECRET.sfx" 'NOT USED
1132.     IF SELECTOR$ = "SELECT" THEN SFX$ = "Sounds\Select.sfx"
1133.     IF SELECTOR$ = "SHOOT" THEN SFX$ = "Sounds\Shoot.mp3"
1134.     IF SELECTOR$ = "SP" THEN SFX$ = "Sounds\SP.sfx"
1135.     IF SELECTOR$ = "SWICHM" THEN SFX$ = "Sounds\SWICHM.sfx"
1136.     IF SELECTOR$ = "HUMILIATION" THEN SFX$ = "Sounds\Humiliation.sfx"
1137.     IF SELECTOR$ = "EXIT" THEN SFX$ = "Sounds\Gamexit.sfx"
1138.     IF SELECTOR$ = "WHIZZ" THEN SFX$ = "Sounds\whizz.sfx"
1139.  
1140.  
1141.     SFX& = _SNDOPEN(SFX$, "VOL,SYNC")
1142.  
1143.     IF SFX& = 0 THEN
1144.         BEEP
1145.         PRINT "ERROR WITH FILE:"; SFX$
1146.     ELSE
1147.         _SNDPLAY SFX&
1148.     END IF
1149.     _SNDCLOSE SFX&
1150. END SUB
1151.  
1152.  
1153. SUB ENDGAME
1154.     _FULLSCREEN _OFF
1155.     CALL SOUNDBOARD("EXIT", 0)
1156.     CLS
1157.     SCREEN 0
1158.     SCREEN 12
1159.     COLOR 14, 4
1160.     PRINT "                    DEVELOPED BY ";
1161.     COLOR 14, 1
1162.     PRINT "PEDRO HERRERA";
1163.     COLOR 14, 4
1164.     PRINT " (c) 2016                         "
1165.     COLOR 15, 4
1166.     PRINT "                                                                                "
1167.     PRINT "THIS IS A REMAKE OF A GAME I MADE BACK IN 1997.                                 "
1168.     PRINT "USING SOME OpenGL CODE AND OpenAL FOR AUDIO.                                    "
1169.     PRINT "PROGRAMMED AND COMPILED IN QBasic 64-Bit                                        "
1170.     PRINT "NEXT PROJECT WILL BE A HACKNET MMO                                              "
1171.     PRINT "                                                                                "
1172.     PRINT "EMAIL: Craz1000@yahoo.com                                                       "
1173.     PRINT "WEB: http://Craz1000.net                                                        "
1174.     PRINT "                                                                                "
1175.     COLOR 15, 0
1176.     PRINT "                                                                                "
1177.  
1178.     END
1179. END SUB
1180.  
1181. SUB DRAWTANKS
1182.     _DEST DISPLAY&
1183.     'PLAYER 1
1184.     LINE (PLAYER1.POSX, PLAYER1.POSY)-(PLAYER1.POSX + 10, PLAYER1.POSY + 10), 0, BF
1185.     LINE (PLAYER1.POSX, PLAYER1.POSY + 5)-(PLAYER1.POSX + 10, PLAYER1.POSY + 7), _RGB(PLAYER1.COLORR, PLAYER1.COLORG, PLAYER1.COLORB), B
1186.     LINE (PLAYER1.POSX + 1, PLAYER1.POSY + 5)-(PLAYER1.POSX + 3, PLAYER1.POSY + 3), _RGB(PLAYER1.COLORR, PLAYER1.COLORG, PLAYER1.COLORB)
1187.     LINE (PLAYER1.POSX + 3, PLAYER1.POSY + 3)-(PLAYER1.POSX + 7, PLAYER1.POSY + 3), _RGB(PLAYER1.COLORR, PLAYER1.COLORG, PLAYER1.COLORB)
1188.     LINE (PLAYER1.POSX + 7, PLAYER1.POSY + 3)-(PLAYER1.POSX + 8, PLAYER1.POSY + 5), _RGB(PLAYER1.COLORR, PLAYER1.COLORG, PLAYER1.COLORB)
1189.     LINE (PLAYER1.POSX + 10, PLAYER1.POSY + 2)-(PLAYER1.POSX + 7, PLAYER1.POSY + 3), _RGB(PLAYER1.COLORR, PLAYER1.COLORG, PLAYER1.COLORB)
1190.     PAINT (PLAYER1.POSX + 5, PLAYER1.POSY + 6), _RGB(PLAYER1.COLORR, PLAYER1.COLORG, PLAYER1.COLORB), _RGB(PLAYER1.COLORR, PLAYER1.COLORG, PLAYER1.COLORB)
1191.     PAINT (PLAYER1.POSX + 5, PLAYER1.POSY + 4), _RGB(PLAYER1.COLORR, PLAYER1.COLORG, PLAYER1.COLORB), _RGB(PLAYER1.COLORR, PLAYER1.COLORG, PLAYER1.COLORB)
1192.  
1193.     'PLAYER2
1194.     LINE (PLAYER2.POSX, PLAYER2.POSY)-(PLAYER2.POSX + 10, PLAYER2.POSY + 10), 0, BF
1195.     LINE (PLAYER2.POSX, PLAYER2.POSY + 5)-(PLAYER2.POSX + 10, PLAYER2.POSY + 7), _RGB(PLAYER2.COLORR, PLAYER2.COLORG, PLAYER2.COLORB), B
1196.     LINE (PLAYER2.POSX + 1, PLAYER2.POSY + 5)-(PLAYER2.POSX + 3, PLAYER2.POSY + 3), _RGB(PLAYER2.COLORR, PLAYER2.COLORG, PLAYER2.COLORB)
1197.     LINE (PLAYER2.POSX + 3, PLAYER2.POSY + 3)-(PLAYER2.POSX + 7, PLAYER2.POSY + 3), _RGB(PLAYER2.COLORR, PLAYER2.COLORG, PLAYER2.COLORB)
1198.     LINE (PLAYER2.POSX + 7, PLAYER2.POSY + 3)-(PLAYER2.POSX + 8, PLAYER2.POSY + 5), _RGB(PLAYER2.COLORR, PLAYER2.COLORG, PLAYER2.COLORB)
1199.     LINE (PLAYER2.POSX, PLAYER2.POSY + 2)-(PLAYER2.POSX + 3, PLAYER2.POSY + 3), _RGB(PLAYER2.COLORR, PLAYER2.COLORG, PLAYER2.COLORB)
1200.     PAINT (PLAYER2.POSX + 5, PLAYER2.POSY + 6), _RGB(PLAYER2.COLORR, PLAYER2.COLORG, PLAYER2.COLORB), _RGB(PLAYER2.COLORR, PLAYER2.COLORG, PLAYER2.COLORB)
1201.     PAINT (PLAYER2.POSX + 5, PLAYER2.POSY + 4), _RGB(PLAYER2.COLORR, PLAYER2.COLORG, PLAYER2.COLORB), _RGB(PLAYER2.COLORR, PLAYER2.COLORG, PLAYER2.COLORB)
1202. END SUB
1203.  
1204. SUB JUKEBOX (SONG$)
1205.     IF SONG$ = "INTRO" THEN BGM$ = "Music\Intro.mp3"
1206.  
1207.     IF SONG$ = "BUY" THEN BGM$ = "Music\Buy.mp3"
1208.  
1209.     IF SONG$ = "FIGHT" THEN
1210.         TRACK = INT(RND * 7) + 1
1211.         IF TRACK = 1 THEN BGM$ = "Music\Track-1.mp3"
1212.         IF TRACK = 2 THEN BGM$ = "Music\Track-2.mp3"
1213.         IF TRACK = 3 THEN BGM$ = "Music\Track-3.mp3"
1214.         IF TRACK = 4 THEN BGM$ = "Music\Track-4.mp3"
1215.         IF TRACK = 5 THEN BGM$ = "Music\Track-5.mp3"
1216.         IF TRACK = 6 THEN BGM$ = "Music\Track-6.mp3"
1217.         IF TRACK = 7 THEN BGM$ = "Music\Track-7.mp3"
1218.     END IF
1219.  
1220.     BGM& = _SNDOPEN(BGM$, "VOL,SYNC")
1221.  
1222.     IF BGM& = 0 THEN
1223.         BEEP
1224.         _DEST DISPLAY&
1225.         LOCATE 10, 10
1226.         PRINT "ERROR WITH FILE:"; BGM$
1227.     ELSE
1228.         _SNDVOL BGM&, 0.25
1229.         IF SONG$ = "BUY" OR SONG$ = "INTRO" THEN
1230.             _SNDLOOP BGM&
1231.         ELSE
1232.             _SNDPLAY BGM&
1233.         END IF
1234.     END IF
1235. END SUB
1236.  

[qb4ever]

Thanks,

have a nice day