Tank Walls

[johnno56]

Just tried your new level...  Wow that enemy has some serious speed.... Cool...

[SierraKen]

Thanks Johno. Yeah I'm pretty much done making this game. I did kinda make a bounce-back system but instead of moving him back, I just changed his direction. This way he doesn't always come back to the same location all the time toward where I am on the entire map. Thanks for the suggestion though. But I think I'm finished, for now anyway. :)

[bplus]

In reference to wall collision. Bplus has a good idea to check to see if a wall exists in the direction of movement. I used to get "stuck" in walls as well. Using bplus's idea of detection, when you hit the wall, simply 'bounce' back at the same velocity as the collision. Voila! No more partial 'Caspers'. Just a thought...

Ha! Actually I think it smarter to check if wall is there before going in that direction.

[johnno56]

That's what I meant by, "to check to see if a wall exists 'in the direction' of movement". My fault for not expressing the idea in a clear and concise method.

Oh. Just thought of a slight modification Correct me if I am wrong, but as the game stands, when a tank is destroyed the player and enemy are randomly placed within the scene and the 'dance' continues. How about making it a little harder to play with each victory?  What about setting the players 'shooting range" slightly shorter with each win or perhaps multiple hits on the enemy to destroy it? Just some thoughts... Then there are 'power ups'... Speed. Firing distance. Invulnerability. Casper (move through walls)... But only have them appear for a short time... Sometimes, and that's pretty rare, I think of weird stuff like that... lol

[SierraKen]

Johno, that's a good idea about limiting the shot range. I never thought of that. Because as it is now, if someone knows how to control the shot by using your arrow keys really well, the person will win every time. I'll check that out and see what I can do. Thanks! The other stuff, maybe someday :). Someday I also might make a package of like 20 maps and make it go from 1 to the other after a certain amount of points are reached. After like 20 maps the game is over, or it's like Pac-Man and goes back to the first but a lot faster. lol Great ideas.

[SierraKen]

OK here we go, I made the shots go almost the length of the width of the window. This still lets people control the direction of the shot with the arrow keys but not too much.
I also spruced up the program a bit more and fixed a couple variables and deleted 2 variables not needed. I also sectioned off the enemy tank as the last half of the program completely and your tank as the first half of the program. So here it is :) Have fun!

Code: QB64: [Select]

1. 'This game has been made from my Walls Detector Example program.
2. 'You are the blue tank and you move with the arrow keys and shoot the red tank with the space bar.
3. 'You can control the direction of your shot by using the arrow keys as it flies.
4. 'But first you have to make a walls layout picture using my 'Ken's Plotter' program which can be found on my website here: http://ken.x10host.com/qb64/
5. 'Which is very simple, you just plot using the arrow keys and space bar. All instructions are on that program.
6. 'Make many layout pictures and have a BLAST!
7. 'I call the enemy a 'monster' in my code because at first this was going to be just shooting monsters but it turned out to be more like tanks.
8. 'This game was made on June 30, 2019 by Ken G.
9. 'Feel free to edit this code how you wish but do not sell it. This game took a couple weeks to make both programs and is something I've wanted to make for a very long time.
10.  
11. start:
12. 'You will need to DIM these strings and variables first to make memory.
13. DIM x$(10000), y$(10000), x(10000), y(10000)
14. _TITLE "Tank Walls     Score: 0     Lives: 5"
15. points = 0
16. lives = 5
17. mshot = 0
18. shot = 0
19. ds = 1
20. dd = 1
21. sht = 0
22. sht2 = 0
23. 'xx and yy are the coordinates to your blue tank and others are the turrent locations of the tank.
24. xx = 320: yy = 240
25. leftxt = xx - 4: leftyt = yy + 2: leftxxt = xx: leftyyt = yy + 3
26. rightxt = xx + 5: rightyt = yy + 2: rightxxt = xx + 9: rightyyt = yy + 3
27. upxt = xx + 2: upyt = yy - 4: upxxt = xx + 3: upyyt = yy
28. downxt = xx + 2: downyt = yy + 5: downxxt = xx + 3: downyyt = yy + 9
29. GOSUB oldtank:
30. _SCREENMOVE 300, 200
31. SCREEN _NEWIMAGE(640, 480, 32)
32. CLS
33. PRINT "                     Tank Walls"
34. PRINT
35. PRINT "                     By Ken G."
36. PRINT: PRINT
37. PRINT "This is an example game on how to use any picture you make"
38. PRINT "to turn into a game that shoots a computer tank."
39. PRINT "First you need to create a picture or maze using 'Ken's Plotter'."
40. PRINT "Make many layout pictures to use with this game and have a BLAST!"
41. PRINT: PRINT
42. PRINT "Use your arrow keys to move the little blue square tank around and it will"
43. PRINT "stop at every wall. You start out in the very center"
44. PRINT "of the window. The enemy tank is the red square and it will be"
45. PRINT "randomly placed within the walls."
46. PRINT "When you are in line with the green square tank,"
47. PRINT "press the Space Bar to fire a shot at him."
48. PRINT "Notice how your shot stops at every wall it hits and if you hit"
49. PRINT "the enemy, it will make a small explosion."
50. PRINT "You start off with 5 lives, when all 5 are gone, the game is over."
51. PRINT "You get 10 points for every Enemy Tank you hit."
52. PRINT "You can control the direction of your shot by using the arrow"
53. PRINT "keys as it flies."
54. PRINT: PRINT: PRINT
55. again:
56. INPUT "Type file name of picture to load (without the .txt ending):", nm$
57. IF nm$ = "" THEN GOTO again:
58. nm$ = nm$ + ".txt"
59. theFileExists = _FILEEXISTS(nm$)
60. IF theFileExists = 0 THEN
61.     PRINT "File does not exist, try again."
62.     GOTO again:
63. END IF
64. CLS
65. 'First you load the picture and put every coordinate into memory.
66. OPEN nm$ FOR INPUT AS #1
67. ggo:
68. _LIMIT 1000
69. p = p + 1
70. INPUT #1, x$(p), y$(p)
71. x(p) = VAL(x$(p)): y(p) = VAL(y$(p))
72. LINE (x(p), y(p))-(x(p) + 10, y(p) + 10), _RGB32(255, 255, 255), BF
73. IF EOF(1) THEN
74.     CLOSE #1
75.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(127, 127, 255), BF
76.     LINE (upxt, upyt)-(upxxt, upyyt), _RGB32(127, 127, 255), BF
77.     'Start monster location
78.     place:
79.     RANDOMIZE TIMER
80.     xxx = INT(RND * 630) + 5
81.     RANDOMIZE TIMER
82.     yyy = INT(RND * 470) + 5
83.     IF xxx - xx < 150 AND xxx - xx > -150 THEN
84.         IF yyy - yy < 150 AND yyy - yy > -150 THEN
85.             GOTO place:
86.         END IF
87.     END IF
88.     FOR tt = 1 TO p
89.         IF xxx > x(tt) - 15 AND xxx < x(tt) + 15 AND yyy > y(tt) - 15 AND yyy < y(tt) + 15 THEN GOTO place:
90.     NEXT tt
91.     LINE (xxx, yyy)-(xxx + 5, yyy + 5), _RGB32(255, 0, 0), BF
92.     leftxt2 = xxx - 4: leftyt2 = yyy + 2: leftxxt2 = xxx: leftyyt2 = yyy + 3
93.     rightxt2 = xxx + 5: rightyt2 = yyy + 2: rightxxt2 = xxx + 9: rightyyt2 = yyy + 3
94.     upxt2 = xxx + 2: upyt2 = yyy - 4: upxxt2 = xxx + 3: upyyt2 = yyy
95.     downxt2 = xxx + 2: downyt2 = yyy + 5: downxxt2 = xxx + 3: downyyt2 = yyy + 9
96.     ds = 2
97.     LINE (downxt2, downyt2)-(downxxt2, downyyt2), _RGB32(255, 0, 0), BF
98.     GOTO go:
99. END IF
100. GOTO ggo:
101.  
102. 'Here is the main loop of the program where you move the square around.
103. go:
104. _LIMIT 100
105. a$ = INKEY$
106. IF a$ = CHR$(27) THEN END
107. IF a$ = " " GOTO shoot:
108. IF a$ = CHR$(0) + CHR$(72) THEN
109.     ds = 1
110.     GOSUB oldtank:
111.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(0, 0, 0), BF
112.     GOSUB oldtank2:
113.     yy = yy - 5
114.     GOSUB check:
115.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(127, 127, 255), BF
116.     upxt = xx + 2: upyt = yy - 4: upxxt = xx + 3: upyyt = yy
117.     LINE (upxt, upyt)-(upxxt, upyyt), _RGB32(127, 127, 255), BF
118. END IF
119.  
120. IF a$ = CHR$(0) + CHR$(80) THEN
121.     ds = 2
122.     GOSUB oldtank:
123.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(0, 0, 0), BF
124.     GOSUB oldtank2:
125.     yy = yy + 5
126.     GOSUB check:
127.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(127, 127, 255), BF
128.     downxt = xx + 2: downyt = yy + 5: downxxt = xx + 3: downyyt = yy + 9
129.     LINE (downxt, downyt)-(downxxt, downyyt), _RGB32(127, 127, 255), BF
130. END IF
131.  
132. IF a$ = CHR$(0) + CHR$(75) THEN
133.     ds = 3
134.     GOSUB oldtank:
135.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(0, 0, 0), BF
136.     GOSUB oldtank2:
137.     xx = xx - 5
138.     GOSUB check:
139.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(127, 127, 255), BF
140.     leftxt = xx - 4: leftyt = yy + 2: leftxxt = xx: leftyyt = yy + 3
141.     LINE (leftxt, leftyt)-(leftxxt, leftyyt), _RGB32(127, 127, 255), BF
142. END IF
143.  
144. IF a$ = CHR$(0) + CHR$(77) THEN
145.     ds = 4
146.     GOSUB oldtank:
147.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(0, 0, 0), BF
148.     GOSUB oldtank2:
149.     xx = xx + 5
150.     GOSUB check:
151.     LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(127, 127, 255), BF
152.     rightxt = xx + 5: rightyt = yy + 2: rightxxt = xx + 9: rightyyt = yy + 3
153.     LINE (rightxt, rightyt)-(rightxxt, rightyyt), _RGB32(127, 127, 255), BF
154. END IF
155. IF shot = 1 AND ds = 1 THEN GOTO shoot1:
156. IF shot = 1 AND ds = 2 THEN GOTO shoot2:
157. IF shot = 1 AND ds = 3 THEN GOTO shoot3:
158. IF shot = 1 AND ds = 4 THEN GOTO shoot4:
159. GOTO monster:
160.  
161. 'Here is where the computer checks to see if your tank hits a wall.
162. check:
163. IF yy < 0 THEN yy = 0
164. IF xx < 0 THEN xx = 0
165. IF yy > 475 THEN yy = 475
166. IF xx > 635 THEN xx = 635
167.  
168. FOR t = 1 TO p
169.     IF xx > x(t) - 10 AND xx < x(t) + 15 AND yy > y(t) - 10 AND yy < y(t) + 15 THEN xx = oldxx: yy = oldyy
170. NEXT t
171. RETURN
172.  
173. oldtank:
174. oldyy = yy
175. oldxx = xx
176. oldleftxt = leftxt: oldleftyt = leftyt: oldleftxxt = leftxxt: oldleftyyt = leftyyt
177. oldrightxt = rightxt: oldrightyt = rightyt: oldrightxxt = rightxxt: oldrightyyt = rightyyt
178. oldupxt = upxt: oldupyt = upyt: oldupxxt = upxxt: oldupyyt = upyyt
179. olddownxt = downxt: olddownyt = downyt: olddownxxt = downxxt: olddownyyt = downyyt
180. RETURN
181.  
182. oldtank2:
183. LINE (oldleftxt, oldleftyt)-(oldleftxxt, oldleftyyt), _RGB32(0, 0, 0), BF
184. LINE (oldrightxt, oldrightyt)-(oldrightxxt, oldrightyyt), _RGB32(0, 0, 0), BF
185. LINE (oldupxt, oldupyt)-(oldupxxt, oldupyyt), _RGB(0, 0, 0), BF
186. LINE (olddownxt, olddownyt)-(olddownxxt, olddownyyt), _RGB(0, 0, 0), BF
187. RETURN
188.  
189. shoot:
190. shot = 1
191. IF ds = 1 THEN
192.     sx = xx + 3: sy = yy - 4
193. END IF
194. IF ds = 2 THEN
195.     sx = xx + 3: sy = yy + 10
196. END IF
197. IF ds = 3 THEN
198.     sx = xx - 4: sy = yy + 3
199. END IF
200. IF ds = 4 THEN
201.     sx = xx + 10: sy = yy + 4
202. END IF
203.  
204. SOUND 700, .5
205. 'Up
206. IF ds = 1 THEN
207.     sy = sy - 10
208.     shoot1:
209.     _LIMIT 100
210.     LINE (oldsx + 3, oldsy + 3)-(oldsx - 3, oldsy - 3), _RGB32(0, 0, 0), BF
211.     sy = sy - 3
212.     LINE (sx, sy)-(sx, sy - 3), _RGB32(255, 0, 0)
213.     oldsx = sx: oldsy = sy
214.     GOSUB checkshot:
215.     GOTO go:
216. END IF
217. 'Down
218. IF ds = 2 THEN
219.     sy = sy + 10
220.     shoot2:
221.     _LIMIT 100
222.     LINE (oldsx - 3, oldsy - 3)-(oldsx + 3, oldsy + 3), _RGB32(0, 0, 0), BF
223.     sy = sy + 3
224.     LINE (sx, sy)-(sx, sy + 3), _RGB32(255, 0, 0)
225.     oldsx = sx: oldsy = sy
226.     GOSUB checkshot:
227.     GOTO go:
228. END IF
229. 'Left
230. IF ds = 3 THEN
231.     sx = sx - 10
232.     shoot3:
233.     _LIMIT 100
234.     LINE (oldsx + 3, oldsy + 3)-(oldsx - 3, oldsy - 3), _RGB32(0, 0, 0), BF
235.     sx = sx - 3
236.     LINE (sx, sy)-(sx - 3, sy), _RGB32(255, 0, 0)
237.     oldsx = sx: oldsy = sy
238.     GOSUB checkshot:
239.     GOTO go:
240. END IF
241. 'Right
242. IF ds = 4 THEN
243.     sx = sx + 10
244.     shoot4:
245.     _LIMIT 100
246.     LINE (oldsx - 3, oldsy - 3)-(oldsx + 3, oldsy + 3), _RGB32(0, 0, 0), BF
247.     sx = sx + 3
248.     LINE (sx, sy)-(sx + 3, sy), _RGB32(255, 0, 0)
249.     oldsx = sx: oldsy = sy
250.     GOSUB checkshot:
251.     GOTO go:
252. END IF
253.  
254. RETURN
255.  
256. checkshot:
257. 'Check your shot distance.
258. sht = sht + 1
259. IF sht > 150 THEN
260.     sht = 0
261.     GOSUB dscheck:
262.     shot = 0
263.     GOTO go:
264. END IF
265.  
266. 'Check walls and enemy.
267. FOR tt = 1 TO p
268.     IF sx > x(tt) - 10 AND sx < x(tt) + 10 AND sy > y(tt) - 10 AND sy < y(tt) + 10 THEN
269.         GOSUB dscheck:
270.         shot = 0
271.         sht = 0
272.         GOTO go:
273.     END IF
274.     IF sx > xxx - 10 AND sx < xxx + 10 AND sy > yyy - 10 AND sy < yyy + 10 THEN
275.         FOR tttt = 1 TO 10
276.             _LIMIT 50
277.             CIRCLE (sx, sy), tttt, _RGB32(255, 0, 127)
278.             CIRCLE (sx, sy), tttt + 5, _RGB32(255, 0, 127)
279.             SOUND 100, .5
280.             _DELAY .05
281.             CIRCLE (sx, sy), tttt, _RGB32(0, 0, 0)
282.             CIRCLE (sx, sy), tttt + 5, _RGB32(0, 0, 0)
283.         NEXT tttt
284.         CIRCLE (sx, sy), 7, _RGB32(0, 0, 0), BF
285.         points = points + 10
286.         points$ = STR$(points)
287.         lives$ = STR$(lives)
288.         titl$ = "Tank Walls     Score:" + points$ + "     Lives:" + lives$
289.         _TITLE titl$
290.         LINE (sx - 4, sy - 4)-(sx + 4, sy + 4), _RGB32(0, 0, 0), BF
291.         GOSUB dscheck:
292.         LINE (xxx - 5, yyy - 5)-(xxx + 6, yyy + 6), _RGB32(0, 0, 0), BF
293.         shot = 0
294.         mshot = 0
295.         sht = 0
296.         GOTO place:
297.     END IF
298. NEXT tt
299.  
300. RETURN
301.  
302. 'Your direction check to erase your old shot.
303. dscheck:
304. IF ds = 1 THEN LINE (sx, sy)-(sx, sy - 3), _RGB32(0, 0, 0)
305. IF ds = 2 THEN LINE (sx, sy)-(sx, sy + 3), _RGB32(0, 0, 0)
306. IF ds = 3 THEN LINE (sx, sy)-(sx - 3, sy), _RGB32(0, 0, 0)
307. IF ds = 4 THEN LINE (sx, sy)-(sx + 3, sy), _RGB32(0, 0, 0)
308. RETURN
309.  
310. '--------------------------------------------------------------------------------------------
311. 'The last half of this program is what the enemy tank does.
312. '--------------------------------------------------------------------------------------------
313.  
314. monster:
315. GOSUB oldmonster:
316.  
317. IF xxx > xx AND yyy > yy - 10 AND yyy < yy + 10 THEN
318.     dd = 1
319.     GOTO monsters:
320. END IF
321. IF xxx < xx AND yyy > yy - 10 AND yyy < yy + 10 THEN
322.     dd = 2
323.     GOTO monsters:
324. END IF
325. IF yyy > yy AND xxx > xx - 10 AND xxx < xx + 10 THEN
326.     dd = 3
327.     GOTO monsters:
328. END IF
329. IF yyy < yy AND xxx > xx - 10 AND xxx < xx + 10 THEN
330.     dd = 4
331. END IF
332.  
333.  
334. monsters:
335. _LIMIT 50
336. IF dd = 1 THEN
337.     IF xxx > xx - 50 AND xxx < xx + 50 THEN
338.         IF yyy > yy - 50 AND yyy < yy + 50 THEN
339.             GOTO notcloser1:
340.         END IF
341.     END IF
342.     GOSUB oldmonster:
343.     xxx = xxx - 5
344.     notcloser1:
345.     GOSUB checkmonster:
346.     LINE (oldxxx, oldyyy)-(oldxxx + 5, oldyyy + 5), _RGB(0, 0, 0), BF
347.     GOSUB oldmonster2:
348.     LINE (xxx, yyy)-(xxx + 5, yyy + 5), _RGB32(255, 0, 0), BF
349.     leftxt2 = xxx - 4: leftyt2 = yyy + 2: leftxxt2 = xxx: leftyyt2 = yyy + 3
350.     LINE (leftxt2, leftyt2)-(leftxxt2, leftyyt2), _RGB32(255, 0, 0), BF
351. END IF
352. IF dd = 2 THEN
353.     IF xxx > xx - 50 AND xxx < xx + 50 THEN
354.         IF yyy > yy - 50 AND yyy < yy + 50 THEN
355.             GOTO notcloser2:
356.         END IF
357.     END IF
358.     GOSUB oldmonster:
359.     xxx = xxx + 5
360.     notcloser2:
361.     GOSUB checkmonster:
362.     LINE (oldxxx, oldyyy)-(oldxxx + 5, oldyyy + 5), _RGB(0, 0, 0), BF
363.     GOSUB oldmonster2:
364.     LINE (xxx, yyy)-(xxx + 5, yyy + 5), _RGB32(255, 0, 0), BF
365.     rightxt2 = xxx + 5: rightyt2 = yyy + 2: rightxxt2 = xxx + 9: rightyyt2 = yyy + 3
366.     LINE (rightxt2, rightyt2)-(rightxxt2, rightyyt2), _RGB32(255, 0, 0)
367.  
368. END IF
369. IF dd = 3 THEN
370.     IF xxx > xx - 50 AND xxx < xx + 50 THEN
371.         IF yyy > yy - 50 AND yyy < yy + 50 THEN
372.             GOTO notcloser3:
373.         END IF
374.     END IF
375.     GOSUB oldmonster:
376.     yyy = yyy - 5
377.     notcloser3:
378.     GOSUB checkmonster:
379.     LINE (oldxxx, oldyyy)-(oldxxx + 5, oldyyy + 5), _RGB(0, 0, 0), BF
380.     GOSUB oldmonster2:
381.     LINE (xxx, yyy)-(xxx + 5, yyy + 5), _RGB32(255, 0, 0), BF
382.     upxt2 = xxx + 2: upyt2 = yyy - 4: upxxt2 = xxx + 3: upyyt2 = yyy
383.     LINE (upxt2, upyt2)-(upxxt2, upyyt2), _RGB32(255, 0, 0), BF
384.  
385. END IF
386. IF dd = 4 THEN
387.     IF xxx > xx - 50 AND xxx < xx + 50 THEN
388.         IF yyy > yy - 50 AND yyy < yy + 50 THEN
389.             GOTO notcloser4:
390.         END IF
391.     END IF
392.     GOSUB oldmonster:
393.     yyy = yyy + 5
394.     notcloser4:
395.     GOSUB checkmonster:
396.     LINE (oldxxx, oldyyy)-(oldxxx + 5, oldyyy + 5), _RGB(0, 0, 0), BF
397.     GOSUB oldmonster2:
398.     LINE (xxx, yyy)-(xxx + 5, yyy + 5), _RGB32(255, 0, 0), BF
399.     downxt2 = xxx + 2: downyt2 = yyy + 5: downxxt2 = xxx + 3: downyyt2 = yyy + 9
400.     LINE (downxt2, downyt2)-(downxxt2, downyyt2), _RGB32(255, 0, 0), BF
401. END IF
402.  
403. IF mshot = 1 THEN GOTO monstershot2:
404. RANDOMIZE TIMER
405. rms = INT(RND * 1000) + 1
406. IF rms > 988 THEN
407.     mshot = 1
408.     GOTO monstershot:
409. END IF
410. GOTO go:
411.  
412. oldmonster:
413. oldxxx = xxx
414. oldyyy = yyy
415. oldleftxt2 = leftxt2: oldleftyt2 = leftyt2: oldleftxxt2 = leftxxt2: oldleftyyt2 = leftyyt2
416. oldrightxt2 = rightxt2: oldrightyt2 = rightyt2: oldrightxxt2 = rightxxt2: oldrightyyt2 = rightyyt2
417. oldupxt2 = upxt2: oldupyt2 = upyt2: oldupxxt2 = upxxt2: oldupyyt2 = upyyt2
418. olddownxt2 = downxt2: olddownyt2 = downyt2: olddownxxt2 = downxxt2: olddownyyt2 = downyyt2
419. RETURN
420.  
421. oldmonster2:
422. LINE (oldleftxt2, oldleftyt2)-(oldleftxxt2, oldleftyyt2), _RGB32(0, 0, 0), BF
423. LINE (oldrightxt2, oldrightyt2)-(oldrightxxt2, oldrightyyt2), _RGB32(0, 0, 0), BF
424. LINE (oldupxt2, oldupyt2)-(oldupxxt2, oldupyyt2), _RGB(0, 0, 0), BF
425. LINE (olddownxt2, olddownyt2)-(olddownxxt2, olddownyyt2), _RGB(0, 0, 0), BF
426. RETURN
427.  
428.  
429. checkmonster:
430. FOR tt = 1 TO p
431.     IF xxx > x(tt) - 10 AND xxx < x(tt) + 15 AND yyy > y(tt) - 10 AND yyy < y(tt) + 15 THEN
432.         xxx = oldxxx: yyy = oldyyy
433.         GOSUB ddcheck:
434.         RANDOMIZE TIMER
435.         dd = INT(RND * 4) + 1
436.         GOTO checkdone:
437.     END IF
438. NEXT tt
439. checkdone:
440. RETURN
441.  
442.  
443. monstershot:
444. SOUND 300, .5
445.  
446. IF dd = 1 THEN
447.     mx = xxx - 4: my = yyy + 3
448. END IF
449. IF dd = 2 THEN
450.     mx = xxx + 10: my = yyy + 4
451. END IF
452. IF dd = 3 THEN
453.     mx = xxx + 3: my = yyy - 4
454. END IF
455. IF dd = 4 THEN
456.     mx = xxx + 3: my = yyy + 10
457. END IF
458.  
459. oldmx = mx
460. oldmy = my
461.  
462. monstershot2:
463. _LIMIT 500
464. 'Left
465. IF dd = 1 THEN
466.     mshot1:
467.     LINE (oldmx - 3, oldmy - 3)-(oldmx + 3, oldmy + 3), _RGB32(0, 0, 0), BF
468.     mx = mx - 3
469.     LINE (mx, my)-(mx - 3, my), _RGB32(255, 0, 0)
470.     oldmx = mx: oldmy = my
471.     GOSUB mcheckshot:
472. END IF
473. 'Right
474. IF dd = 2 THEN
475.     mshot2:
476.     LINE (oldmx - 3, oldmy - 3)-(oldmx + 3, oldmy + 3), _RGB32(0, 0, 0), BF
477.     mx = mx + 3
478.     LINE (mx, my)-(mx + 3, my), _RGB32(255, 0, 0)
479.     oldmx = mx: oldmy = my
480.     GOSUB mcheckshot:
481. END IF
482. 'Up
483. IF dd = 3 THEN
484.     mshot3:
485.     LINE (oldmx - 3, oldmy - 3)-(oldmx + 3, oldmy + 3), _RGB32(0, 0, 0), BF
486.     my = my - 3
487.     LINE (mx, my)-(mx, my - 3), _RGB32(255, 0, 0)
488.     oldmx = mx: oldmy = my
489.     GOSUB mcheckshot:
490. END IF
491. 'Down
492. IF dd = 4 THEN
493.     mshot4:
494.     LINE (oldmx - 3, oldmy - 3)-(oldmx + 3, oldmy + 3), _RGB32(0, 0, 0), BF
495.     my = my + 3
496.     LINE (mx, my)-(mx, my + 3), _RGB32(255, 0, 0)
497.     oldmx = mx: oldmy = my
498.     GOSUB mcheckshot:
499. END IF
500.  
501. GOTO go:
502.  
503. mcheckshot:
504. 'Check his shot distance.
505. sht2 = sht2 + 1
506. IF sht2 > 150 THEN
507.     sht2 = 0
508.     GOSUB ddcheck:
509.     mshot = 0
510.     GOTO go:
511. END IF
512. 'Check walls and if it hit your tank for his shot.
513. FOR tt = 1 TO p
514.     IF mx > x(tt) - 10 AND mx < x(tt) + 10 AND my > y(tt) - 10 AND my < y(tt) + 10 THEN
515.         GOSUB ddcheck:
516.         mshot = 0
517.         sht2 = 0
518.         GOTO go:
519.     END IF
520.     IF mx > xx - 10 AND mx < xx + 10 AND my > yy - 10 AND my < yy + 10 THEN
521.         FOR tttt = 1 TO 10
522.             _LIMIT 200
523.             CIRCLE (mx, my), tttt, _RGB32(255, 0, 127)
524.             CIRCLE (mx, my), tttt + 5, _RGB(255, 0, 127)
525.             SOUND 100, .5
526.             _DELAY .05
527.             CIRCLE (mx, my), tttt, _RGB32(0, 0, 0)
528.             CIRCLE (mx, my), tttt + 5, _RGB32(0, 0, 0)
529.         NEXT tttt
530.         LINE (mx - 4, my - 4)-(mx + 4, my + 4), _RGB32(0, 0, 0), BF
531.         GOSUB ddcheck:
532.         sht2 = 0
533.         mshot = 0
534.         lives = lives - 1
535.         lives$ = STR$(lives)
536.         titl$ = "Tank Walls     Score:" + points$ + "     Lives:" + lives$
537.         _TITLE titl$
538.         LINE (xx - 5, yy - 5)-(xx + 6, yy + 6), _RGB32(0, 0, 0), BF
539.         LINE (xxx - 5, yyy - 5)-(xxx + 6, yyy + 6), _RGB32(0, 0, 0), BF
540.         xx = 320: yy = 240
541.         LINE (xx, yy)-(xx + 5, yy + 5), _RGB32(127, 127, 255), BF
542.         a$ = ""
543.         IF lives = 0 THEN
544.             LOCATE 1, 35
545.             PRINT "GAME OVER"
546.             LOCATE 5, 35
547.             INPUT "Play Again (Yes/No)"; ag$
548.             IF ag$ = "yes" OR ag$ = "YES" OR ag$ = "Yes" OR ag$ = "yES" OR ag$ = "YEs" OR ag$ = "Y" OR ag$ = "y" THEN GOTO start:
549.             END
550.         END IF
551.         GOTO place:
552.     END IF
553. NEXT tt
554.  
555. RETURN
556.  
557. 'His direction check to erase his old shot.
558. ddcheck:
559. IF dd = 1 THEN LINE (mx, my)-(mx - 3, my), _RGB32(0, 0, 0)
560. IF dd = 2 THEN LINE (mx, my)-(mx + 3, my), _RGB32(0, 0, 0)
561. IF dd = 3 THEN LINE (mx, my)-(mx, my - 3), _RGB32(0, 0, 0)
562. IF dd = 4 THEN LINE (mx, my)-(mx, my + 3), _RGB32(0, 0, 0)
563. RETURN
564.  
565.  

[johnno56]

I like the "guided" shots... Shooting around corners was a brilliant addition... I now have the chance to survive!! YES!!  Unless... It was not your intention to add the feature... and now that you know... Lovely weather today... (My feeble attempt to distract... Did it work?)

[SierraKen]

LOL Johno, funny you say that because when I was working on it at first, it was actually not my intention for the shots to change direction as they do. But then I quickly remembered that on the Atari 2600 game Combat, there was a selection that let you do the same exact thing, so I kept it. :) I liked that feature on the game Combat the best. lol

[SierraKen]

I am working on Tank Walls 2. This will be more game oriented than an example program. It will have 20 maps (levels). Every 100 points you go to another level. I'm about done with the code part, I just have to make 18 more maps. :) After the player has made it past level 20, it goes back to 1. The speed or difficulty won't change per level since it's pretty fast already. But this will be the first time I've ever made a game with so many different maps. Might take a few days or more to make the maps, we'll see. But I'll post the zip of all the maps and the code to the forum when I'm done, and also my website.

[Pete]

Neat, but it could use a flow through coding method so that when you fire the blue tank, the red tank keeps moving. Just cut the delay in half, and poll the red tank every time the blue tank bullet moves one space. Restore the original delay when the bullet is terminated.

Pete

[SierraKen]

Wow thanks Pete! All I had to do is delete the Return of the first half's part of your tank. So now the program flows straight through to the other tank in the same loop as your tank. I also had to add a "GOTO monster:" so it would skip the last little gosub section of your tank's code. I also changed the _LIMIT command on a few of them, but I might change it again later on. I don't have a _DELAY on the movement of the tanks, just on the explosions, but _LIMIT changes the speed when I make it smaller than 200 usually. All of this will be on Tank Walls 2. I've made 10 maps so far, 10 more to go and then I will release it here. :) Thanks again.