Tank Walls

[SierraKen]

Hi all. You might have guessed it, but I decided to make a game out of my graphical plotting program and wall detection example. It took me a few days to make this. I got the idea mostly from the old Atari 2600 game COMBAT from the 1980's. But this time your tank is smaller, will lesser sounds. But the awesome thing is, you get to make your own map layout of walls before you start playing. You will need both programs to make your own and play the game, but I will try to include an example layout picture on this forum thread as well as the game. The object of the game is to shoot him with your blue tank. You use the arrow keys and press the space bar to shoot. I apologize if you run into problems, I've had to do quite a number of fixes on it the last few days but I hope to have them all fixed. It's not a perfect game in that you will see some extra graphics here and there that don't belong there anymore, such as your shot from your cannon and a leftover dot of the tank you shot. You also will see holes in the walls if you shoot the tank near a wall, but I left that there for the looks of destruction. lol Please tell me what you think. If you can make it better, then that is great! Do anything you wish to it for yourself. But I doubt I will do much more if anything, I rattled my brain for days over this, as you can see in all the code lol. But have fun! :) I'll add it to my website soon. *Note: You can also re-direct your tank shot, after you have shot, using your arrow keys, like a guided missile. :)

Here is the graphical plotting program first again, so you have that to make your own layouts. The game asks you for the name of your graphical creation when you start. I'll add the game itself on the 3rd post. The next post will have an example picture layout to use with it if you wish.

Code: QB64: [Select]

1. 'This plotter was made in 2 days by Ken G. and finished on June 27, 2019 using QB64 language.
2. 'Thank you for some ideas from some people at the QB64.org Forum!
3. 'Code to use the pictures made with this can be found marked out toward the end of this program.
4. 'This program is Freeware and will always be Freeware.
5. 'Feel free to use any of this code in your own programs.
6. '-----------------------------------------------------------------------------------------------
7. _TITLE "Ken's Plotter"
8. _LIMIT 400
9. start:
10. DIM x$(10000), y$(10000), x(10000), y(10000)
11. p = 0
12. t = 0
13. pn = 0
14. e = 0
15. CLS
16. SCREEN _NEWIMAGE(640, 480, 32)
17. PRINT "                     Ken's Plotter"
18. PRINT
19. PRINT "                       By Ken G."
20. PRINT: PRINT
21. PRINT "Use the arrow keys to move the red box."
22. PRINT "Use Space Bar to move Pen Down to draw and Pen Up to just move."
23. PRINT "Use E to turn the Eraser off and on."
24. PRINT "Use Esc to start over."
25. PRINT
26. PRINT "**** You will need to have Pen Down to use Eraser."
27. PRINT
28. PRINT "There is a 10,000 plot limit. Don't worry about this limit"
29. PRINT "because you can fill the entire screen and more and still be"
30. PRINT "less than 10,000 plots."
31. PRINT "Press S to save and L to load an already saved picture."
32. PRINT "The saved .txt file will have X,Y plots on each line that"
33. PRINT "can be used in your own programs."
34. PRINT "This is a simple plotting/drawing program that doesn't change colors."
35. PRINT "The saved files don't have any colors on them, so when"
36. PRINT "you use them for your own programs, you will need to add a color."
37. PRINT "The window scale is 640 x 480 pixels with each plot every 10 pixels."
38. PRINT "So when using in your own programs, make sure and make X = X + 10 and"
39. PRINT "Y = Y + 10 to display with LINE command."
40. PRINT "Code to load your picture is marked out in the code of this program."
41. PRINT "The coordinates and Pen Up, Pen Down, Eraser On, Eraser Off will be"
42. PRINT "in the top Window title bar."
43. PRINT
44. INPUT "Press enter to start.", st$
45. PRINT
46. CLS
47. x = 320: y = 240
48. FOR gridx = 0 TO 640 STEP 10
49.     FOR gridy = 0 TO 480 STEP 10
50.         LINE (gridx, gridy)-(gridx + 10, gridy + 10), _RGB32(255, 255, 255), B
51.     NEXT gridy
52. NEXT gridx
53. LINE (x, y)-(x + 10, y + 10), _RGB(255, 0, 0), B
54. pen$ = "Up": eraser$ = "Off"
55. xx$ = STR$(x): yy$ = STR$(y)
56. titl$ = "Ken's Plotter X=" + xx$ + " Y=" + yy$ + "     Pen: " + pen$ + "     Eraser: " + eraser$
57. _TITLE titl$
58. go:
59. _LIMIT 400
60. a$ = INKEY$
61. IF a$ = CHR$(27) THEN GOTO start:
62. IF a$ = "s" OR a$ = "S" THEN GOTO save:
63. IF a$ = "l" OR a$ = "L" OR a$ = "m" OR a$ = "M" THEN GOTO load:
64. IF a$ = CHR$(0) + CHR$(72) THEN
65.     LINE (x, y)-(x + 10, y + 10), _RGB(255, 255, 255), B
66.     y = y - 10
67.     IF y < 0 THEN y = 0
68.     LINE (x, y)-(x + 10, y + 10), _RGB(255, 0, 0), B
69.     IF pn = 1 THEN
70.         x2 = x + 10
71.         y2 = y + 10
72.         IF e = 0 THEN LINE (x, y)-(x2, y2), _RGB32(255, 255, 255), BF
73.         t = t + 1
74.         x$(t) = STR$(x): y$(t) = STR$(y)
75.         IF e = 1 THEN
76.             LINE (x, y)-(x2, y2), _RGB32(0, 0, 0), BF
77.             GOSUB eraser:
78.         END IF
79.         GOSUB check:
80.     END IF
81.     xx$ = STR$(x): yy$ = STR$(y)
82.     titl$ = "Ken's Plotter X=" + xx$ + " Y=" + yy$ + "     Pen: " + pen$ + "     Eraser: " + eraser$
83.     _TITLE titl$
84. END IF
85. IF a$ = CHR$(0) + CHR$(80) THEN
86.     LINE (x, y)-(x + 10, y + 10), _RGB(255, 255, 255), B
87.     y = y + 10
88.     IF y > 470 THEN y = 470
89.     LINE (x, y)-(x + 10, y + 10), _RGB(255, 0, 0), B
90.     IF pn = 1 THEN
91.         x2 = x + 10
92.         y2 = y + 10
93.         LINE (x, y)-(x2, y2), _RGB32(255, 255, 255), BF
94.         t = t + 1
95.         x$(t) = STR$(x): y$(t) = STR$(y)
96.         IF e = 1 THEN
97.             LINE (x, y)-(x2, y2), _RGB32(0, 0, 0), BF
98.             GOSUB eraser:
99.         END IF
100.         GOSUB check:
101.     END IF
102.     xx$ = STR$(x): yy$ = STR$(y)
103.     titl$ = "Ken's Plotter X=" + xx$ + " Y=" + yy$ + "     Pen: " + pen$ + "     Eraser: " + eraser$
104.     _TITLE titl$
105. END IF
106. IF a$ = CHR$(0) + CHR$(77) THEN
107.     LINE (x, y)-(x + 10, y + 10), _RGB(255, 255, 255), B
108.     x = x + 10
109.     IF x > 630 THEN x = 630
110.     LINE (x, y)-(x + 10, y + 10), _RGB(255, 0, 0), B
111.     IF pn = 1 THEN
112.         x2 = x + 10
113.         y2 = y + 10
114.         LINE (x, y)-(x2, y2), _RGB32(255, 255, 255), BF
115.         t = t + 1
116.         x$(t) = STR$(x): y$(t) = STR$(y)
117.         IF e = 1 THEN
118.             LINE (x, y)-(x2, y2), _RGB32(0, 0, 0), BF
119.             GOSUB eraser:
120.         END IF
121.         GOSUB check:
122.     END IF
123.     xx$ = STR$(x): yy$ = STR$(y)
124.     titl$ = "Ken's Plotter X=" + xx$ + " Y=" + yy$ + "     Pen: " + pen$ + "     Eraser: " + eraser$
125.     _TITLE titl$
126. END IF
127. IF a$ = CHR$(0) + CHR$(75) THEN
128.     LINE (x, y)-(x + 10, y + 10), _RGB(255, 255, 255), B
129.     x = x - 10
130.     IF x < 0 THEN x = 0
131.     LINE (x, y)-(x + 10, y + 10), _RGB(255, 0, 0), B
132.     IF pn = 1 THEN
133.         x2 = x + 10
134.         y2 = y + 10
135.         LINE (x, y)-(x2, y2), _RGB32(255, 255, 255), BF
136.         t = t + 1
137.         x$(t) = STR$(x): y$(t) = STR$(y)
138.         IF e = 1 THEN
139.             LINE (x, y)-(x2, y2), _RGB32(0, 0, 0), BF
140.             GOSUB eraser:
141.         END IF
142.         GOSUB check:
143.     END IF
144.     xx$ = STR$(x): yy$ = STR$(y)
145.     titl$ = "Ken's Plotter X=" + xx$ + " Y=" + yy$ + "     Pen: " + pen$ + "     Eraser: " + eraser$
146.     _TITLE titl$
147. END IF
148. IF a$ = "e" OR a$ = "E" THEN
149.     e = e + 1
150.     IF e = 2 THEN e = 0
151.     IF e = 1 THEN
152.         IF pen$ = "Down" THEN eraser$ = "On"
153.         titl$ = "Ken's Plotter X=" + xx$ + " Y=" + yy$ + "     Pen: " + pen$ + "     Eraser: " + eraser$
154.         _TITLE titl$
155.     END IF
156.     IF e = 0 THEN
157.         eraser$ = "Off"
158.         titl$ = "Ken's Plotter X=" + xx$ + " Y=" + yy$ + "     Pen: " + pen$ + "     Eraser: " + eraser$
159.         _TITLE titl$
160.     END IF
161. END IF
162. IF a$ = " " THEN
163.     pn = pn + 1
164.     IF pn = 2 THEN pn = 0
165. END IF
166. IF pn = 1 THEN
167.     pen$ = "Down"
168.     titl$ = "Ken's Plotter X=" + xx$ + " Y=" + yy$ + "     Pen: " + pen$ + "     Eraser: " + eraser$
169.     _TITLE titl$
170.  
171. END IF
172. IF pn = 0 THEN
173.     pen$ = "Up"
174.     titl$ = "Ken's Plotter X=" + xx$ + " Y=" + yy$ + "     Pen: " + pen$ + "     Eraser: " + eraser$
175.     _TITLE titl$
176. END IF
177. GOTO go:
178.  
179. save:
180. CLS
181. save2:
182. INPUT "Type file name of maze to create (without the .txt ending):", nm$
183. nm$ = nm$ + ".txt"
184. 'Checking to see if the file already exists on your computer.
185. theFileExists = _FILEEXISTS(nm$)
186. IF theFileExists = -1 THEN
187.     PRINT "File Already Exists"
188.     PRINT "Saving will delete your old maze."
189.     PRINT
190.     PRINT "Would you like to still do it?"
191.     PRINT "(Y/N). Esc ends program."
192.     llloop:
193.     _LIMIT 10
194.     ag2$ = INKEY$
195.     IF ag2$ = "" THEN GOTO llloop:
196.     IF ag2$ = "y" OR ag$ = "Y" THEN GOTO save3:
197.     IF ag2$ = CHR$(27) THEN END
198.     GOTO save2:
199. END IF
200. save3:
201. OPEN nm$ FOR OUTPUT AS #1
202. FOR plots = 1 TO t
203.     _LIMIT 400
204.     IF x$(plots) = "" OR y$(plots) = "" THEN GOTO skip2:
205.     PRINT #1, x$(plots); ","; y$(plots)
206.     skip2:
207. NEXT plots
208. CLOSE #1
209. PRINT: PRINT
210. PRINT nm$; " has been saved to your computer."
211. PRINT: PRINT
212. INPUT "Press enter to start again."; a$
213. GOTO start:
214.  
215. '------------------------------------------------------------------------------
216. 'The following is the code you can use to load the graphic to your own program.
217. '------------------------------------------------------------------------------
218.  
219. load:
220. CLS
221. INPUT "Type file name to load (without the .txt ending):", nm$
222. nm$ = nm$ + ".txt"
223. CLS
224. OPEN nm$ FOR INPUT AS #1
225. ggo:
226. _LIMIT 400
227. p = p + 1
228. INPUT #1, x$(p), y$(p)
229. x(p) = VAL(x$(p)): y(p) = VAL(y$(p))
230. LINE (x(p), y(p))-(x(p) + 10, y(p) + 10), _RGB(255, 255, 255), BF
231. IF EOF(1) THEN CLOSE #1: GOTO done:
232. GOTO ggo:
233. done:
234. a$ = INKEY$
235. IF a$ = "" THEN GOTO done:
236. IF a$ = CHR$(27) THEN END
237.  
238. '------------------------------------------------------------------------------
239.  
240. GOTO start:
241.  
242. check:
243. IF t = 10000 THEN
244.     INPUT "Limit has been reached, do you want to save (Yes/No):"; yn$
245.     IF yn$ = "YES" OR yn$ = "yes" OR yn$ = "Yes" OR yn$ = "YEs" OR yn$ = "yES" OR yn$ = "Y" OR yn$ = "y" THEN GOTO save:
246.     GOTO start:
247. END IF
248. RETURN
249.  
250. eraser:
251. FOR ee = 1 TO t
252.     IF x$(ee) = x$(t) AND y$(ee) = y$(t) THEN
253.         x$(ee) = "": y$(ee) = ""
254.     END IF
255. NEXT ee
256. RETURN
257.  

 

[SierraKen]

Here is an attachment file of a pretty simple but neat graphical layout for Tank Walls. You can try this before making your own if you wish. Put this "halls.txt" file in the same directory as the game. I'll put the game on the next post. Just remember, you need a graphic, like this one, to be used with the Tank Walls game.

[SierraKen]

And here is the Tank Walls game itself :). Please don't be picky on it, I just started on QB64 and still not as good as you guys yet I bet, although I used to program a lot decades ago. But I've wanted to make a game like this ever since the 80's. :)

(Code deleted from this post, a better version is below on this same thread.)

[johnno56]

Cool game... Sneaky little mongrel that enemy tank... I managed to blow him away more time than he did me.... Nicely done!

[SierraKen]

Thanks Johno! Am glad you like it. Will be interesting to see how it works with different maps. And of course anyone can change the input command asking people for a map, to just plugging a map or more directly to the code.

[bplus]

Dang Ken you whipped up 500+ lines of code into a working game in a day or two?!?!

When the little red monster learns to quit banging it's turret against the first wall it runs into, I am going to be in deep doo-doo! ;-))

[SierraKen]

LOL B+, yeah I can't figure out how to make much more intelligence than what he has. He will catch you if you are in the same hallway or room though, if you don't shoot him first. :) Glad you like it. Oh, it took almost a week. :) I'll put it on my website now.  http://ken.x10host.com/qb64/

[bplus]

Hi Ken,

I am feeling ambiguous about making the enemy smarter, but if the little red devil can remember it has been in same place 2 steps ago, it might turn 90 degrees and try another banger session of only once, turn 90 again... it must then find it's way out of 3 sided trap without need of detecting it's prey in the vicinity to give chase. Keep a memory of last 3 steps, if 1st = 3rd then turn.

[SierraKen]

B+ yes I've thought of that kind of stuff, but the problem is, it can change direction, but it will automatically fall back to the same thing just about, over and over. Because it is always looking for where you are too. I also thought about making it only half the time looking for where you are, but then it would be too easy when you are in the same room or hallway. Maybe I can make loop variables that expand out until they hit the next wall in 4 directions from the enemy and if it doesn't see you, then it won't look for you. Hmm I'll give it a try I think. Not sure yet how I can do this but I'll look.

[bplus]

Yeah, you'll get it soon enough :D

and then I will have to find another game easy to win ;-))

[SierraKen]

LOL it was easier than I thought! I just made it so when the enemy tank hits a wall, it picks a random direction and goes another way. It wasn't like I thought, he doesn't keep falling back to the wall all the time. But when he does, he keeps randomly picking a different direction until he doesn't hit the wall and then goes and goes. :))) This is SO AWESOME! Thanks for the suggestion.
Here is the updated version:

(Code deleted again, even better version below.)

[bplus]

I was think'in it could just check if a wall was where it was intending to step... easy too.

[SierraKen]

Well, I found ways to get rid of almost all the leftover graphics clutter. Except for a tiny bit which I'm just going to leave. Here is the better version:

(Code deleted again, I apologize. The updated code, with a limit on the shots, is on page 2 of this forum thread.)

[SierraKen]

Here is a second map I've made if anyone is interested. I have both now on my website as well.

[johnno56]

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...