Artillery Wanted

[bplus]

Wow that is interesting. Mine uses POINT to only detect the brown dirt, nothing else. Like if it hits the text in the sky, it just goes through it. And since the sky is blue, it won't detect that either. This is what I have on mine:

Code: QB64: [Select]

1. IF POINT(bx, by) = _RGB32(74, 86, 58) THEN
2.  

I'm not sure what else would help you, I am very, very new on POINT. This is probably the very first time I ever used it.

Ah! only for dirt? not the bases? not the hill? wait the hill is same as dirt for yours... OK. Come to think of it, I did see some tunneling through the bases. What stops tunneling is gravity's effect of pulling down harder making ball go farther that it's radius.

For help, I probably need some but not for the "tunneling" problem. :-))
I will just take a snap shot of screen before showing the new ball and clear screen between each loop with it.
OR do it like Tanks Battle, take a snapshot at start and then record all holes made by explosions, redraw screen at each loop and redraw all the holes in it. But it was really cool, to me, to see the ball cleared without having to clear the screen each loop.

[SierraKen]

Yeah, only for dirt. The bases I use coordinate variables, just like my Wall Detection Example, only variables. I thought about it later how I could have used POINT instead but that's OK.

[johnno56]

If memory serves correctly, in the original dos version of Scorched Earth, 'tunnelling'  was an 'option'... Tunnelling or not, I just enjoy blowing stuff up... Now, a nice addition, would be 'collapsible' landscape.... You know, blast a crater in the ground, then watch the sides of the crater slide towards the bottom of the crater... Just a though...

J

[bplus]

Well after one goofy setback after another, I finally got my MOD worked out. Computer is playing decent game.

Code: QB64: [Select]

1. OPTION _EXPLICIT
2.  
3. 'Ken:
4. 'I've always wanted to make this game ever since I started programming in the 80's.
5. 'This was made using the BASIC and compile language QB64 from QB64.org
6. 'This was created by Ken G. with much help from others below.
7. 'Thank you to B+ for posting much of this math code on the QB64.org forum!
8. 'Also thank you to johnno56 for a little help on the explosions, from the QB64.org forum.
9. 'It takes the computer a little time to learn how to hit your base.
10. 'Created on June 25, 2019.
11.  
12. 'Hi Ken, I made a couple of changes to the game. Do you recognize it :D  MOD 2019-07-01 B+
13.  
14. CONST xmax = 1200, ymax = 740
15. _TITLE "Ken's Artillery MOD B+  Hey! They only have one cannon ball between the two of them :D" 'mod B+ makeover started 2019-06-25
16. SCREEN _NEWIMAGE(xmax, ymax, 32)
17. _SCREENMOVE 100, 0
18. RANDOMIZE TIMER
19.  
20. TYPE ball
21.     x AS SINGLE
22.     y AS SINGLE
23.     dx AS SINGLE
24.     dy AS SINGLE
25. END TYPE
26.  
27. TYPE Contestent
28.     baseX AS INTEGER 'butt end of cannon
29.     baseY AS INTEGER
30.     baseC AS _UNSIGNED LONG
31.     cannonAngle AS SINGLE
32.     velocity AS SINGLE
33.     points AS INTEGER
34. END TYPE
35.  
36. CONST skyC = &HFF9988FF
37. CONST ballC = &HFF000000
38. CONST groundC = &HFF405020
39. CONST cannonC = &HFF884422
40. CONST printC = &HFFEEDDCC
41. CONST groundY = 680
42. CONST gravity = .05
43. CONST cannonLength = 100
44. CONST baseLength = 100
45. CONST baseHeight = 30
46. CONST ballRadius = 5
47. DIM SHARED bg AS LONG, c AS Contestent, p AS Contestent, b AS ball, airX, turn, lastWind
48.  
49. bg = _NEWIMAGE(xmax, ymax, 32) 'get bg snap shot area ready
50. COLOR printC, groundC
51. setPlayerConstants
52. DO
53.     initGame
54.     WHILE _KEYHIT <> 27 AND p.points <> 5 AND c.points <> 5
55.         turn = (turn + 1) MOD 2
56.         IF turn THEN PlayerFire ELSE ComputerFire
57.     WEND
58.     _DELAY 3
59. LOOP
60.  
61. SUB setPlayerConstants
62.     p.baseX = 10: c.baseX = xmax - 10
63.     p.baseY = groundY - baseHeight: c.baseY = groundY - baseHeight
64.     p.baseC = &HFF880000: c.baseC = &HFF000088
65.     p.cannonAngle = _D2R(360 - 45)
66.     p.velocity = 7
67. END SUB
68.  
69. SUB initGame
70.     p.points = 0: c.points = 0
71.     MakeMountain xmax / 2, rrnd(200, (xmax - 220) / 2.3), ymax
72.     LINE (0, groundY)-(xmax, ymax), groundC, BF 'ground
73.     LINE (p.baseX, p.baseY)-STEP(baseLength, baseHeight), p.baseC, BF
74.     LINE (c.baseX, c.baseY)-STEP(-baseLength, baseHeight), c.baseC, BF
75.     SetDisplayWind
76.     showScore
77. END SUB
78.  
79. SUB PlayerFire
80.     DIM kh AS LONG
81.     p.cannonAngle = 360 - _R2D(p.cannonAngle)
82.     'IF p.cannonAngle = 360 THEN p.cannonAngle = 0
83.     LOCATE 44, 1: PRINT "Power: Left/Right   Angle: Up/Down   Fire: Spacebar";
84.     LOCATE 45, 1: PRINT "Power (0-10): " + TS$(p.velocity);
85.     LOCATE 46, 1: PRINT "Angle (0-90): " + TS$(p.cannonAngle);
86.     _DISPLAY
87.     WHILE kh <> 32
88.         kh = _KEYHIT
89.         IF kh = 18432 AND p.cannonAngle + 1 < 90 THEN p.cannonAngle = p.cannonAngle + 1
90.         IF kh = 20480 AND p.cannonAngle - 1 > 0 THEN p.cannonAngle = p.cannonAngle - 1
91.         IF kh = 19712 AND (p.velocity + .2 <= 10) THEN p.velocity = p.velocity + .2
92.         IF kh = 19200 AND (p.velocity - .2 >= .2) THEN p.velocity = p.velocity - .2
93.         LOCATE 45, 1: PRINT SPACE$(50);
94.         LOCATE 46, 1: PRINT SPACE$(50);
95.         LOCATE 45, 1: PRINT "Power (0-10): " + TS$(p.velocity);
96.         LOCATE 46, 1: PRINT "Angle (0-90): " + TS$(p.cannonAngle);
97.         _DISPLAY
98.         _LIMIT 200
99.     WEND
100.     LOCATE 44, 1: PRINT SPACE$(60);
101.     LOCATE 45, 1: PRINT SPACE$(50);
102.     LOCATE 46, 1: PRINT SPACE$(50);
103.     p.cannonAngle = _D2R(360 - p.cannonAngle)
104.     drawCannon cannonC
105.     b.x = p.baseX + baseLength * COS(p.cannonAngle)
106.     b.y = p.baseY + baseLength * SIN(p.cannonAngle)
107.     b.dx = p.velocity * COS(p.cannonAngle)
108.     b.dy = p.velocity * SIN(p.cannonAngle)
109.     _DISPLAY
110.     _PUTIMAGE , 0, bg
111.     playBall
112. END SUB
113.  
114. SUB ComputerFire
115.     IF airX <> lastWind THEN 'new wind blowing make adjustments
116.         c.cannonAngle = _D2R(180 + 50 - 1000 * airX / 15)
117.         c.velocity = 7 + 1000 * airX / 9
118.         lastWind = airX
119.     END IF
120.     drawCannon cannonC
121.     b.x = c.baseX + baseLength * COS(c.cannonAngle)
122.     b.y = c.baseY + baseLength * SIN(c.cannonAngle)
123.     b.dx = c.velocity * COS(c.cannonAngle)
124.     b.dy = c.velocity * SIN(c.cannonAngle)
125.     LOCATE 45, xmax / 8 - 10: PRINT TS$(c.velocity);
126.     LOCATE 46, xmax / 8 - 10: PRINT TS$(_R2D(c.cannonAngle) - 180);
127.     _DISPLAY
128.     _PUTIMAGE , 0, bg
129.     playBall
130.     IF b.x - (p.baseX + .5 * baseLength) > 0 THEN
131.         c.velocity = c.velocity + (b.x - p.baseX + .5 * baseLength) / 1000
132.     ELSE
133.         c.velocity = c.velocity - ((groundY - b.y) + (p.baseX + .5 * baseLength - b.x)) / 1000
134.     END IF
135.     LOCATE 45, xmax / 8 - 10: PRINT SPACE$(10);
136.     LOCATE 46, xmax / 8 - 10: PRINT SPACE$(10);
137.     _DISPLAY
138. END SUB
139.  
140. SUB drawCannon (K AS _UNSIGNED LONG)
141.     IF turn THEN 'players
142.         LINE (p.baseX, p.baseY)-STEP(baseLength * COS(p.cannonAngle), baseLength * SIN(p.cannonAngle)), K
143.     ELSE
144.         LINE (c.baseX, c.baseY)-STEP(baseLength * COS(c.cannonAngle), baseLength * SIN(c.cannonAngle)), K
145.     END IF
146. END SUB
147.  
148. SUB playBall
149.     DIM explosion
150.     WHILE _KEYHIT <> 27
151.         _PUTIMAGE , bg, 0 'clear last
152.         b.dx = b.dx + airX
153.         b.dy = b.dy + gravity
154.         b.x = b.x + b.dx
155.         b.y = b.y + b.dy
156.         fcirc b.x, b.y, ballRadius, ballC 'draw new
157.         CenterPrint 45, "                      "
158.         CenterPrint 45, TS$(b.x) + ", " + TS$(b.y)
159.         IF b.y >= 0 THEN
160.             _SOURCE bg 'oh! need this to read point(x, y) off bg !!!!!!!!!1
161.             IF POINT(b.x, b.y) <> skyC THEN 'explosions
162.                 FOR explosion = 0 TO 14.5 STEP .25
163.                     fcirc b.x, b.y, explosion, _RGB32(RND * 255, RND * 255, 0)
164.                     SOUND 100 + explosion, .25
165.                     _DISPLAY
166.                     _DELAY .01
167.                 NEXT
168.                 IF POINT(b.x, b.y) = c.baseC THEN ' computer base hit
169.                     p.points = p.points + 1
170.                     showScore
171.                     SOUND 500, 1: SOUND 550, 1: SOUND 600, 1: SOUND 650, 1: SOUND 700, 1
172.                 ELSEIF POINT(b.x, b.y) = p.baseC THEN ' player base hit
173.                     c.points = c.points + 1
174.                     showScore
175.                     SOUND 700, 1: SOUND 650, 1: SOUND 600, 1: SOUND 550, 1: SOUND 500, 1
176.                 END IF
177.                 fcirc b.x, b.y, 3 * ballRadius, skyC
178.                 'take a snap of new background when ever we blow up
179.                 CenterPrint 45, "                      "
180.                 _DISPLAY
181.                 _PUTIMAGE , 0, bg '<<<< use this after debug
182.                 EXIT WHILE
183.             END IF
184.         END IF
185.         _DISPLAY
186.         _LIMIT 30
187.     WEND
188.     CenterPrint 45, "                      "
189.     drawCannon skyC
190.     _PUTIMAGE , 0, bg
191.     'take a snap for next player
192. END SUB
193.  
194. SUB showScore
195.     DIM s$
196.     s$ = "Human: " + TS$(p.points) + "  Computer: " + TS$(c.points)
197.     IF p.points = 5 THEN s$ = s$ + "  YOU WIN!"
198.     IF c.points = 5 THEN s$ = s$ + "  Computer won."
199.     CenterPrint 46, s$
200.     _DISPLAY
201. END SUB
202.  
203. SUB SetDisplayWind
204.     airX = rrnd(-20, 20)
205.     CenterPrint 44, SPACE$(24)
206.     IF airX < 0 THEN CenterPrint 44, "<<< Wind at: " + TS$(INT(10 * airX) / 10)
207.     IF airX > 0 THEN CenterPrint 44, "Wind at: " + TS$(INT(10 * airX) / 10) + " >>>"
208.     airX = airX / 1000
209.     _DISPLAY
210. END SUB
211.  
212. SUB MakeMountain (xcenter, maxHeight, mountainbaseY)
213.     DIM centerDist, i, xc, yc, xl, xr, dir
214.     LINE (0, 0)-(xmax + 50, ymax + 50), skyC, BF
215.     centerDist = 15 * RND + 15
216.     FOR i = 1 TO 5
217.         IF RND < .5 THEN dir = -1 ELSE dir = 1
218.         xc = xcenter + dir * centerDist
219.         yc = maxHeight - centerDist - RND * 25
220.         xl = xc - rrnd(1.15 * yc, yc)
221.         xr = xc + rrnd(1.15 * yc, yc)
222.         IF mountainbaseY - yc < mountainbaseY THEN
223.             ftri xl, mountainbaseY, xc, mountainbaseY - yc, xr, mountainbaseY, _RGB32(110 - i * 4, RND * 20 + 100 - i * 2, 100 - i * 8)
224.         ELSE
225.             EXIT FOR
226.         END IF
227.         centerDist = centerDist + 40 * RND + 30
228.     NEXT
229. END SUB
230.  
231. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
232.     DIM a&
233.     a& = _NEWIMAGE(1, 1, 32)
234.     _DEST a&
235.     PSET (0, 0), K
236.     _DEST 0
237.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
238.     _FREEIMAGE a& '<<< this is important!
239. END SUB
240.  
241. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
242.     DIM Radius AS INTEGER, RadiusError AS INTEGER
243.     DIM X AS INTEGER, Y AS INTEGER
244.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
245.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
246.     LINE (CX - X, CY)-(CX + X, CY), C, BF
247.     WHILE X > Y
248.         RadiusError = RadiusError + Y * 2 + 1
249.         IF RadiusError >= 0 THEN
250.             IF X <> Y + 1 THEN
251.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
252.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
253.             END IF
254.             X = X - 1
255.             RadiusError = RadiusError - X * 2
256.         END IF
257.         Y = Y + 1
258.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
259.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
260.     WEND
261. END SUB
262.  
263. FUNCTION rrnd (n1, n2) 'return real number between n1, n2
264.     rrnd = (n2 - n1) * RND + n1
265. END FUNCTION
266.  
267. SUB CenterPrint (row, s$)
268.     LOCATE row, .125 * (xmax - 8 * LEN(s$)) / 2: PRINT s$;
269. END SUB
270.  
271. FUNCTION TS$ (n)
272.     TS$ = _TRIM$(STR$(INT(n * 100 + .5) / 100)) 'I have to add .5 for rounding coreectly
273. END FUNCTION
274.  

EDIT: a couple of minor tweaks 2019-07-02

[johnno56]

The player needs to be crack shot if winning is the goal. Quite a marksman that enemy player!!

[bplus]

The player needs to be crack shot if winning is the goal. Quite a marksman that enemy player!!

Yes, you will fall asleep if the enemy doesn't keep you on your toes! Once you get a feel for the shots, it's a pretty even game, it alternate's who goes first after a win.

[johnno56]

Sooo.... There is a good chance I can be beaten? Hmm... I have an idea for an invulnerability power-up... Activate the ability at 'start up'.... that's it... lol

[Pete]

Great sound effects. Nice that the mountain size changes each round. I wish the wind would change during the round. Also, there needs to be a display for the power and the angle as they are changed. The AI needs some work, as it constantly attacks the same hole it makes.

Pete

[bplus]

Great sound effects. Nice that the mountain size changes each round. I wish the wind would change during the round. Also, there needs to be a display for the power and the angle as they are changed. The AI needs some work, as it constantly attacks the same hole it makes.

Pete

Hi Pete,

If you are commenting on my MOD (which does have the mountains), the power and angle are displayed and changed with the arrow keys by the human player. (Power and angle displayed when computer is firing but not labeled.)

You are right about AI locking in on Power and Angle setting. I never noticed that happening when testing but sure enough it happened the first time I reviewed it. That's easy enough to fix!

Changing wind? That sucks when you are developing AI, but sure when does wind ever stay exactly the same?
Again easy fix, that would actually fix the other problem of AI locked in a Power and Angle setting, the wind would force change. Good! 2 birds, one stone, I will just change the wind... and label Computer's Power and Angle display.

[bplus]

OK Pete's recommendations adapted, I kind of like the change in the way wind is handled in this MOD:

Code: QB64: [Select]

1. OPTION _EXPLICIT
2.  
3. 'Ken:
4. 'I've always wanted to make this game ever since I started programming in the 80's.
5. 'This was made using the BASIC and compile language QB64 from QB64.org
6. 'This was created by Ken G. with much help from others below.
7. 'Thank you to B+ for posting much of this math code on the QB64.org forum!
8. 'Also thank you to johnno56 for a little help on the explosions, from the QB64.org forum.
9. 'It takes the computer a little time to learn how to hit your base.
10. 'Created on June 25, 2019.
11.  
12. 'Hi Ken, I made a couple of changes to the game. Do you recognize it :D  MOD 2019-07-01 B+
13. ' 2019-07-03 fix items mentioned by Pete label Computer Power and Angle display, apply constant wind change.
14.  
15. CONST xmax = 1200, ymax = 740
16. _TITLE "Ken's Artillery MOD B+  Hey! They only have one cannon ball between the two of them :D" 'mod B+ makeover started 2019-06-25
17. SCREEN _NEWIMAGE(xmax, ymax, 32)
18. _SCREENMOVE 100, 0
19. RANDOMIZE TIMER
20.  
21. TYPE ball
22.     x AS SINGLE
23.     y AS SINGLE
24.     dx AS SINGLE
25.     dy AS SINGLE
26. END TYPE
27.  
28. TYPE Contestent
29.     baseX AS INTEGER 'butt end of cannon
30.     baseY AS INTEGER
31.     baseC AS _UNSIGNED LONG
32.     cannonAngle AS SINGLE
33.     velocity AS SINGLE
34.     points AS INTEGER
35. END TYPE
36.  
37. CONST skyC = &HFF9988FF
38. CONST ballC = &HFF000000
39. CONST groundC = &HFF405020
40. CONST cannonC = &HFF884422
41. CONST printC = &HFFEEDDCC
42. CONST groundY = 680
43. CONST gravity = .05
44. CONST cannonLength = 100
45. CONST baseLength = 100
46. CONST baseHeight = 30
47. CONST ballRadius = 5
48. DIM SHARED bg AS LONG, c AS Contestent, p AS Contestent, b AS ball, airX, turn, lastWind
49.  
50. bg = _NEWIMAGE(xmax, ymax, 32) 'get bg snap shot area ready
51. COLOR printC, groundC
52. setPlayerConstants
53. DO
54.     initGame
55.     WHILE _KEYHIT <> 27 AND p.points <> 5 AND c.points <> 5
56.         SetDisplayWind
57.         turn = (turn + 1) MOD 2
58.         IF turn THEN PlayerFire ELSE ComputerFire
59.     WEND
60.     _DELAY 3
61. LOOP
62.  
63. SUB setPlayerConstants
64.     p.baseX = 10: c.baseX = xmax - 10
65.     p.baseY = groundY - baseHeight: c.baseY = groundY - baseHeight
66.     p.baseC = &HFF880000: c.baseC = &HFF000088
67.     p.cannonAngle = _D2R(360 - 45)
68.     p.velocity = 7
69. END SUB
70.  
71. SUB initGame
72.     p.points = 0: c.points = 0
73.     MakeMountain xmax / 2, rrnd(200, (xmax - 220) / 2.3), ymax
74.     LINE (0, groundY)-(xmax, ymax), groundC, BF 'ground
75.     LINE (p.baseX, p.baseY)-STEP(baseLength, baseHeight), p.baseC, BF
76.     LINE (c.baseX, c.baseY)-STEP(-baseLength, baseHeight), c.baseC, BF
77.     airX = rrnd(-20, 20)
78.     SetDisplayWind
79.     showScore
80. END SUB
81.  
82. SUB PlayerFire
83.     DIM kh AS LONG
84.     p.cannonAngle = 360 - _R2D(p.cannonAngle)
85.     'IF p.cannonAngle = 360 THEN p.cannonAngle = 0
86.     LOCATE 44, 1: PRINT "Power: Left/Right   Angle: Up/Down   Fire: Spacebar";
87.     LOCATE 45, 10: PRINT "Power (0-10): " + TS$(p.velocity);
88.     LOCATE 46, 10: PRINT "Angle (0-90): " + TS$(p.cannonAngle);
89.     _DISPLAY
90.     WHILE kh <> 32
91.         kh = _KEYHIT
92.         IF kh = 18432 AND p.cannonAngle + 1 < 90 THEN p.cannonAngle = p.cannonAngle + 1
93.         IF kh = 20480 AND p.cannonAngle - 1 > 0 THEN p.cannonAngle = p.cannonAngle - 1
94.         IF kh = 19712 AND (p.velocity + .2 <= 10) THEN p.velocity = p.velocity + .2
95.         IF kh = 19200 AND (p.velocity - .2 >= .2) THEN p.velocity = p.velocity - .2
96.         LOCATE 45, 10: PRINT SPACE$(25);
97.         LOCATE 46, 10: PRINT SPACE$(25);
98.         LOCATE 45, 10: PRINT "Power (0-10): " + TS$(p.velocity);
99.         LOCATE 46, 10: PRINT "Angle (0-90): " + TS$(p.cannonAngle);
100.         _DISPLAY
101.         _LIMIT 200
102.     WEND
103.     LOCATE 44, 1: PRINT SPACE$(55);
104.     LOCATE 45, 10: PRINT SPACE$(25);
105.     LOCATE 46, 10: PRINT SPACE$(25);
106.     p.cannonAngle = _D2R(360 - p.cannonAngle)
107.     drawCannon cannonC
108.     b.x = p.baseX + baseLength * COS(p.cannonAngle)
109.     b.y = p.baseY + baseLength * SIN(p.cannonAngle)
110.     b.dx = p.velocity * COS(p.cannonAngle)
111.     b.dy = p.velocity * SIN(p.cannonAngle)
112.     _DISPLAY
113.     _PUTIMAGE , 0, bg
114.     playBall
115. END SUB
116.  
117. SUB ComputerFire
118.     IF ABS(airX - lastWind) > 2 OR c.cannonAngle <= _D2R(5 + 180) THEN 'new game or wind
119.         c.cannonAngle = _D2R(180 + 50 - airX / 7)
120.         c.velocity = 7.2 + airX / 10
121.         lastWind = airX
122.     END IF
123.     drawCannon cannonC
124.     b.x = c.baseX + baseLength * COS(c.cannonAngle)
125.     b.y = c.baseY + baseLength * SIN(c.cannonAngle)
126.     b.dx = c.velocity * COS(c.cannonAngle)
127.     b.dy = c.velocity * SIN(c.cannonAngle)
128.     LOCATE 45, xmax / 8 - 25: PRINT "Power: " + TS$(c.velocity);
129.     LOCATE 46, xmax / 8 - 25: PRINT "Angle: " + TS$(_R2D(c.cannonAngle) - 180);
130.     _DISPLAY
131.     _PUTIMAGE , 0, bg
132.     playBall
133.     IF b.x - (p.baseX + .5 * baseLength) > 0 THEN
134.         c.velocity = c.velocity + (b.x - p.baseX + .5 * baseLength) / 1000
135.     ELSE
136.         c.velocity = c.velocity - ((groundY - b.y) + (p.baseX + .5 * baseLength - b.x)) / 1000
137.     END IF
138.     LOCATE 45, xmax / 8 - 25: PRINT SPACE$(25);
139.     LOCATE 46, xmax / 8 - 25: PRINT SPACE$(25);
140.     _DISPLAY
141. END SUB
142.  
143. SUB drawCannon (K AS _UNSIGNED LONG)
144.     IF turn THEN 'players
145.         LINE (p.baseX, p.baseY)-STEP(baseLength * COS(p.cannonAngle), baseLength * SIN(p.cannonAngle)), K
146.     ELSE
147.         LINE (c.baseX, c.baseY)-STEP(baseLength * COS(c.cannonAngle), baseLength * SIN(c.cannonAngle)), K
148.     END IF
149. END SUB
150.  
151. SUB playBall
152.     DIM explosion
153.     WHILE _KEYHIT <> 27
154.         _PUTIMAGE , bg, 0 'clear last
155.         b.dx = b.dx + airX / 1000
156.         b.dy = b.dy + gravity
157.         b.x = b.x + b.dx
158.         b.y = b.y + b.dy
159.         fcirc b.x, b.y, ballRadius, ballC 'draw new
160.         CenterPrint 45, "                      "
161.         CenterPrint 45, TS$(b.x) + ", " + TS$(b.y)
162.         IF b.y >= 0 THEN
163.             _SOURCE bg 'oh! need this to read point(x, y) off bg !!!!!!!!!1
164.             IF POINT(b.x, b.y) <> skyC THEN 'explosions
165.                 FOR explosion = 0 TO 14.5 STEP .25
166.                     fcirc b.x, b.y, explosion, _RGB32(RND * 255, RND * 255, 0)
167.                     SOUND 100 + explosion, .25
168.                     _DISPLAY
169.                     _DELAY .01
170.                 NEXT
171.                 IF POINT(b.x, b.y) = c.baseC THEN ' computer base hit
172.                     p.points = p.points + 1
173.                     showScore
174.                     SOUND 500, 1: SOUND 550, 1: SOUND 600, 1: SOUND 650, 1: SOUND 700, 1
175.                 ELSEIF POINT(b.x, b.y) = p.baseC THEN ' player base hit
176.                     c.points = c.points + 1
177.                     showScore
178.                     SOUND 700, 1: SOUND 650, 1: SOUND 600, 1: SOUND 550, 1: SOUND 500, 1
179.                 END IF
180.                 fcirc b.x, b.y, 3 * ballRadius, skyC
181.                 'take a snap of new background when ever we blow up
182.                 CenterPrint 45, "                      "
183.                 _DISPLAY
184.                 _PUTIMAGE , 0, bg '<<<< use this after debug
185.                 EXIT WHILE
186.             END IF
187.         END IF
188.         _DISPLAY
189.         _LIMIT 30
190.     WEND
191.     CenterPrint 45, "                      "
192.     drawCannon skyC
193.     _PUTIMAGE , 0, bg
194. END SUB
195.  
196. SUB showScore
197.     DIM s$
198.     s$ = "Human: " + TS$(p.points) + "  Computer: " + TS$(c.points)
199.     IF p.points = 5 THEN s$ = s$ + "  YOU WIN!"
200.     IF c.points = 5 THEN s$ = s$ + "  Computer won."
201.     CenterPrint 46, s$
202.     _DISPLAY
203. END SUB
204.  
205. SUB SetDisplayWind
206.     airX = airX + rrnd(-1.5, 1.5)
207.     IF airX < -20 THEN airX = -19.99
208.     IF airX > 20 THEN airX = 19.99
209.     CenterPrint 44, SPACE$(24)
210.     IF airX < 0 THEN CenterPrint 44, "<<< Wind at: " + TS$(airX)
211.     IF airX > 0 THEN CenterPrint 44, "Wind at: " + TS$(airX) + " >>>"
212.     _DISPLAY
213. END SUB
214.  
215. SUB MakeMountain (xcenter, maxHeight, mountainbaseY)
216.     DIM centerDist, i, xc, yc, xl, xr, dir
217.     LINE (0, 0)-(xmax + 50, ymax + 50), skyC, BF
218.     centerDist = 15 * RND + 15
219.     FOR i = 1 TO 5
220.         IF RND < .5 THEN dir = -1 ELSE dir = 1
221.         xc = xcenter + dir * centerDist: yc = maxHeight - centerDist - RND * 25
222.         xl = xc - rrnd(1.15 * yc, yc): xr = xc + rrnd(1.15 * yc, yc)
223.         IF mountainbaseY - yc < mountainbaseY THEN
224.             ftri xl, mountainbaseY, xc, mountainbaseY - yc, xr, mountainbaseY, _RGB32(110 - i * 4, RND * 20 + 100 - i * 2, 100 - i * 8)
225.         ELSE
226.             EXIT FOR
227.         END IF
228.         centerDist = centerDist + 40 * RND + 30
229.     NEXT
230. END SUB
231.  
232. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
233.     DIM a&
234.     a& = _NEWIMAGE(1, 1, 32)
235.     _DEST a&
236.     PSET (0, 0), K
237.     _DEST 0
238.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
239.     _FREEIMAGE a& '<<< this is important!
240. END SUB
241.  
242. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
243.     DIM Radius AS INTEGER, RadiusError AS INTEGER
244.     DIM X AS INTEGER, Y AS INTEGER
245.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
246.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
247.     LINE (CX - X, CY)-(CX + X, CY), C, BF
248.     WHILE X > Y
249.         RadiusError = RadiusError + Y * 2 + 1
250.         IF RadiusError >= 0 THEN
251.             IF X <> Y + 1 THEN
252.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
253.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
254.             END IF
255.             X = X - 1
256.             RadiusError = RadiusError - X * 2
257.         END IF
258.         Y = Y + 1
259.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
260.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
261.     WEND
262. END SUB
263.  
264. FUNCTION rrnd (n1, n2) 'return real number between n1, n2
265.     rrnd = (n2 - n1) * RND + n1
266. END FUNCTION
267.  
268. SUB CenterPrint (row, s$)
269.     LOCATE row, .125 * (xmax - 8 * LEN(s$)) / 2: PRINT s$;
270. END SUB
271.  
272. FUNCTION TS$ (n)
273.     TS$ = _TRIM$(STR$(INT(n * 100 + .5) / 100)) 'I have to add .5 for rounding coreectly
274. END FUNCTION
275.  

[Pete]

The AI is much better now! I won a couple, and lost a couple. Nice job!

Pete