QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on June 30, 2019, 08:45:22 pm

Title: Tank Walls
Post by: SierraKen on June 30, 2019, 08:45:22 pm

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.  

 

Title: Re: Tank Walls
Post by: SierraKen on June 30, 2019, 08:49:02 pm

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.

Title: Re: Tank Walls
Post by: SierraKen on June 30, 2019, 08:51:49 pm

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

Title: Re: Tank Walls
Post by: johnno56 on June 30, 2019, 11:26:38 pm

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

Title: Re: Tank Walls
Post by: SierraKen on June 30, 2019, 11:40:13 pm

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.

Title: Re: Tank Walls
Post by: bplus on June 30, 2019, 11:42:44 pm

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! ;-))

Title: Re: Tank Walls
Post by: SierraKen on July 01, 2019, 12:12:03 am

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/

Title: Re: Tank Walls
Post by: bplus on July 01, 2019, 11:03:12 am

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.

Title: Re: Tank Walls
Post by: SierraKen on July 01, 2019, 12:18:56 pm

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.

Title: Re: Tank Walls
Post by: bplus on July 01, 2019, 12:26:26 pm

Yeah, you'll get it soon enough :D

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

Title: Re: Tank Walls
Post by: SierraKen on July 01, 2019, 12:46:19 pm

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

Title: Re: Tank Walls
Post by: bplus on July 01, 2019, 01:30:08 pm

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

Title: Re: Tank Walls
Post by: SierraKen on July 01, 2019, 02:35:37 pm

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

Title: Re: Tank Walls
Post by: SierraKen on July 01, 2019, 04:36:20 pm

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

Title: Re: Tank Walls
Post by: johnno56 on July 01, 2019, 05:52:00 pm

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

Title: Re: Tank Walls
Post by: johnno56 on July 01, 2019, 05:59:01 pm

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

Title: Re: Tank Walls
Post by: SierraKen on July 01, 2019, 07:34:35 pm

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

Title: Re: Tank Walls
Post by: bplus on July 01, 2019, 11:12:23 pm

Quote from: johnno56 on July 01, 2019, 05:52:00 pm

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.

Title: Re: Tank Walls
Post by: johnno56 on July 01, 2019, 11:42:22 pm

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

Title: Re: Tank Walls
Post by: SierraKen on July 02, 2019, 01:18:52 pm

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.

Title: Re: Tank Walls
Post by: SierraKen on July 02, 2019, 03:46:29 pm

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.  

Title: Re: Tank Walls
Post by: johnno56 on July 02, 2019, 05:17:01 pm

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?)

Title: Re: Tank Walls
Post by: SierraKen on July 02, 2019, 07:27:34 pm

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

Title: Re: Tank Walls
Post by: SierraKen on July 02, 2019, 09:59:56 pm

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.

Title: Re: Tank Walls
Post by: Pete on July 03, 2019, 03:58:27 pm

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

Title: Re: Tank Walls
Post by: SierraKen on July 03, 2019, 06:50:22 pm

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.

Text Only | Text with Attachments