Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on June 22, 2019, 10:43:28 pm

Title: Artillery Wanted
Post by: SierraKen on June 22, 2019, 10:43:28 pm
Does anyone remember some of the very first PC games from the 70's and early 80's? One really popular one was called Artillery. You shot over a mountain to try and hit your opponents cannon. You first set your angle and velocity. It was a 2 or 3 player game, depending on which version. Looking at some websites about it, there was one made in Turbo Basic back in the day but nothing else I can find so far. Would love to try and make it. I might someday. I guess it wouldn't be too hard to make the holes if you use the PAINT fill-in after you draw the land and wherever your cannonball hits, it makes a big hole. Was a really fun game. I might even try to make it a 1 player game. :)
Title: Re: Artillery Wanted
Post by: bplus on June 22, 2019, 10:53:41 pm
Here is something I did with tanks:
https://www.qb64.org/forum/index.php?topic=1130.msg103232#msg103232

I started a projectile study in that thread too.

The Gorilla that throws exploding banana's is a classic, Nibbles? was it?

Nibbles was the snake game, Gor64 in programs of QB64 samples is the Gorillas Game.

BTW have you looked through the sample programs?
Title: Re: Artillery Wanted
Post by: SierraKen on June 22, 2019, 11:06:13 pm
Wow now I haven't, they are a bit buried in the folders so I'll copy them and put them with the rest of mine. :) Awesome stuff!
Title: Re: Artillery Wanted
Post by: SierraKen on June 22, 2019, 11:13:18 pm
ROFL I totally forgot about Gorilla. I love it! LOL
Title: Re: Artillery Wanted
Post by: johnno56 on June 23, 2019, 08:54:54 am
Tektronix 4051 computer of the mid 70's had a demo program 'Artillery'. In 1980, 'Artillery' and 'Super Artillery', were released on the Apple2.

I believe that this is the game you are referring to?

  [ This attachment cannot be displayed inline in 'Print Page' view ]  

I may have the listing somewhere buried amongst my files... Do not hold your breath waiting... lol

J
Title: Re: Artillery Wanted
Post by: bplus on June 23, 2019, 09:07:19 am
Oh Johnno, that reminds me of something I saw in JB, maybe I can find it and translate...

It also reminds me of something we (you?) started on at SdlBasic... maybe I can did that up too? (or better left buried   ;-)  )
Title: Re: Artillery Wanted
Post by: johnno56 on June 23, 2019, 09:08:14 am
Found it!

J
Title: Re: Artillery Wanted
Post by: johnno56 on June 23, 2019, 09:09:40 am
Dig away... Your memory is obviously better than mine... lol
Title: Re: Artillery Wanted
Post by: bplus on June 23, 2019, 09:28:58 am
Found JB game, looks familiar supposedly copyright by Carl but obviously this game comes from Johnno's.

Oh and look, it's GUI, great minds think alike! (or just copy one another without realizing)

  [ This attachment cannot be displayed inline in 'Print Page' view ]  

Title: Re: Artillery Wanted
Post by: johnno56 on June 23, 2019, 09:45:24 am
Did you spot the technical glitch with the image? The wind is travelling from right to left at a velocity of 19, right? Then why is the flag of the right hand tank fluttering in the opposite direction? Ka-ching! Ding. Ding. Ding. And the prize goes to.....

Basic's with GUI libraries... Not all have them but I think they should....  I miss the old Scorched Earth.... I have the latest '3D' version but it doesn't have the same 'feel' as the old version...
Title: Re: Artillery Wanted
Post by: bplus on June 23, 2019, 10:22:29 am
Hi Johnno,

I found the folder, I don't have SdlBasic running on this computer, is there anything worth translating to QB64?
BTW my first version of Tanks Battle was born from this study and at Naalaa for a Gorilla clone.

BTW if anyone needs a Gorilla... ;-))

PS nothing wrong with your eyesight! ;-)

Title: Re: Artillery Wanted
Post by: SierraKen on June 23, 2019, 12:23:34 pm
WOW Thanks guys! I'll take a look at those 2 later today!
Title: Re: Artillery Wanted
Post by: SierraKen on June 23, 2019, 04:41:54 pm
Looks like that was made with an Apple computer or something similar. I tried converting it but it looks pretty difficult without messing anything up. I'm still going to see if I can find the math for my own game though on this. Thanks.
Title: Re: Artillery Wanted
Post by: SierraKen on June 23, 2019, 08:07:50 pm
B+ I used your "Projectile Study" code to make a similar game. Here is what I have so far. I hope it's OK with you that I use this code. If I make a game good enough, I'll add the program to my website with your name as well as mine. Of course I will never sell anything I put on my website or with code that anyone people posts. I am still am amateur programmer and probably always will be. Anyway, here is the code I have so far. I figured out how to ask the user for degrees and power. I also changed the colors a tiny bit on the sky and land and made the window much larger. Plus I made a sound and funky explosion lol. Feel free to use my code too of course. This isn't really a game so far but more of a simulator but later on I will probably see if I can make you go against the computer, kinda like I did with Ping Pong lol (but not impossible LOL). Thank you tons for posting that code. Here is what I did with it so far:
Code: QB64: [Select]
  1. 'Thank you to B+ for posting much of this code on the QB64.org Forum!
  2.  
  3. _TITLE "Ken's Artillery"
  4. SCREEN _NEWIMAGE(1600, 800, 32)
  5. ground = 590 'up is negative in direction
  6.  
  7. cbx = 10 '              cannon butt end x, y
  8. cby = ground - 10
  9. cmx = 50 '              cannon mouth end
  10. cmy = ground - 70
  11.  
  12.  
  13. g = .15 '       with air resistance
  14. airX = -.005 '         wind blows against direction of shot
  15. COLOR , _RGB32(156, 210, 237)
  16. LINE (0, ground)-(1600, 800), _RGB32(74, 86, 58), BF 'ground
  17. LINE (cbx, cby)-(cmx, cmy), _RGB32(150, 50, 0) 'cannon line
  18.  
  19. GOSUB coords:
  20.  
  21. again:
  22. 'initialize
  23. bx = cmx 'ball x, y same as cannon mouth at start of shot
  24. by = cmy
  25.  
  26.  
  27. dx = vel * COS(ca) 'start at cannon mouth
  28. dy = vel * SIN(ca)
  29.  
  30. 'shot
  32.     CLS 'sky
  33.     a$ = INKEY$
  34.     IF a$ = CHR$(27) THEN END
  35.     LINE (0, ground)-(1600, 800), _RGB32(74, 86, 58), BF 'ground
  36.     LINE (cbx, cby)-(cmx, cmy), _RGB32(150, 50, 0) 'cannon line
  37.     CIRCLE (bx, by), 5, _RGB32(0, 0, 0)
  38.     PAINT (bx, by), _RGB32(0, 0, 0), _RGB32(0, 0, 0)
  39.     dx = dx + airX
  40.     dy = dy + g
  41.     bx = bx + dx
  42.     by = by + dy
  43.     _DISPLAY
  44.     _LIMIT 30
  45.     IF by > ground THEN
  46.         FOR explosion = 10 TO 50 STEP 5
  47.             CIRCLE (bx, by), explosion, _RGB32(4, 4, 4)
  48.             SOUND 150 + (explosion * 5), 1
  49.         NEXT explosion
  50.     END IF
  51. LOOP UNTIL bx > 1600 OR by > ground OR bx < 0
  52. GOSUB coords:
  53. GOTO again:
  55. coords:
  56. COLOR _RGB(0, 0, 0)
  57. LOCATE 1, 1: INPUT "Power (0-80):", vel
  58. LOCATE 2, 1: INPUT "Angle (0-360): ", a
  59. going:
  60. vel = INT(vel / 4)
  61. IF a > 360 THEN a = 360
  62. IF a < 0 THEN a = 0
  63. IF vel < 0 THEN vel = 0
  64. IF vel > 80 THEN vel = 80
  65. a = 360 - a
  66. ca = _D2R(a)
  68.  

Title: Re: Artillery Wanted
Post by: bplus on June 23, 2019, 09:01:07 pm
Hi SierraKen,

For angle, I'd make the allowable range between 0 and 90 degrees. Nice that you figured to subtract the input angle from 360 degrees.

I have worked out a way to set angle with mouse and to use up and down arrow keys to change speed so there is no input for extra enter key press.

The cannon should adjust it's angle to the input angle before firing in my opinion.

The math for that:
If the angle input is 20 degrees then subtract from 360 = 340 as you have done for firing the projectile.
Convert 340 degrees to radians: use _D2R(340) or 340 * _PI / 180, now you have a number SIN and COS can use.

Say the cannon length is 100 then the X coordinate will be ( with butt end coord's (bx, by) )
exit end = bx + 100 * COS(_D2R(340))
exit end = by - 100 * SIN(_D2R(340))   because raising the cannon mouth is decreasing the y coordinate value.

BTW you must have a giant screen, on my laptop I reduce x to 1200 and y to 700. :)
Title: Re: Artillery Wanted
Post by: SierraKen on June 23, 2019, 09:59:32 pm
Awesome thanks again! I used your suggestions and added what you said about the cannon angle. I also changed the window size to 1200 x 700. Plus I changed the sound to a bit deeper sound so it's not an irritating one lol. But it took about an hour to figure out what variables to use and how to do the equations you told me about. It's just 2 lines I needed, which are these, which are down below as the last lines before "RETURN".
Code: QB64: [Select]
  1. cmx = cbx + (100 * COS(_D2R(a)))
  2. cmy = cby + (100 * SIN(_D2R(a)))
  3.  
That wraps it up for tonight on my programming, I never program late anymore like I did in the 90's. I hope to work on it more this coming week and will post my progress. :)
Title: Re: Artillery Wanted
Post by: johnno56 on June 24, 2019, 12:06:39 am
I couldn't resist... Sorry.  A few minor tweaks. May not be the right way to do it but it seems to work.

J

Code: QB64: [Select]
  1. 'Thank you to B+ for posting much of this code on the QB64.org Forum!
  2.  
  3. _TITLE "Ken's Artillery"
  4. SCREEN _NEWIMAGE(1600, 800, 32)
  5. ground = 590 'up is negative in direction
  6.  
  7. cbx = 10 '              cannon butt end x, y
  8. cby = ground - 10
  9. cmx = 50 '              cannon mouth end
  10. cmy = ground - 70
  11.  
  12.  
  13. g = .15 '       with air resistance
  14. airX = -.005 '         wind blows against direction of shot
  15. COLOR , _RGB32(156, 210, 237)
  16. CLS ' sky
  17. LINE (0, ground)-(1600, 800), _RGB32(74, 86, 58), BF 'ground
  18. LINE (cbx, cby)-(cmx, cmy), _RGB32(150, 50, 0) 'cannon line
  19.  
  20. GOSUB coords:
  21.  
  22. again:
  23. 'initialize
  24. bx = cmx 'ball x, y same as cannon mouth at start of shot
  25. by = cmy
  26.  
  27.  
  28. dx = vel * COS(ca) 'start at cannon mouth
  29. dy = vel * SIN(ca)
  30.  
  31. 'shot
  33.     CLS
  34.     a$ = INKEY$
  35.     IF a$ = CHR$(27) THEN END
  36.     LINE (0, ground)-(1600, 800), _RGB32(74, 86, 58), BF 'ground
  37.     LINE (cbx, cby)-(cmx, cmy), _RGB32(150, 50, 0) 'cannon line
  38.     CIRCLE (bx, by), 5, _RGB32(0, 0, 0)
  39.     PAINT (bx, by), _RGB32(0, 0, 0), _RGB32(0, 0, 0)
  40.     dx = dx + airX
  41.     dy = dy + g
  42.     bx = bx + dx
  43.     by = by + dy
  44.     _DISPLAY
  45.     _LIMIT 30
  46.     IF by > ground THEN
  47.         FOR explosion = 10 TO 50 STEP 0.5
  48.             CIRCLE (bx, by), explosion, _RGB32(156, 210, 237)
  49.             SOUND 150 + (explosion * 5), 0.07
  50.         NEXT explosion
  51.         FOR i = 0 TO 10 STEP 0.5
  52.             CIRCLE (bx, by), i, _RGB(156, 210, 237)
  53.         NEXT
  54.     END IF
  55. LOOP UNTIL bx > 1600 OR by > ground OR bx < 0
  56. GOSUB coords:
  57. GOTO again:
  59. coords:
  60. COLOR _RGB(0, 0, 0)
  61. LOCATE 1, 1: INPUT "Power (0-80):", vel
  62. LOCATE 2, 1: INPUT "Angle (0-360): ", a
  63. going:
  64. vel = INT(vel / 4)
  65. IF a > 360 THEN a = 360
  66. IF a < 0 THEN a = 0
  67. IF vel < 0 THEN vel = 0
  68. IF vel > 80 THEN vel = 80
  69. a = 360 - a
  70. ca = _D2R(a)
  72.  
Title: Re: Artillery Wanted
Post by: bplus on June 24, 2019, 12:40:25 am
Here is what I came up with after stuck with messing around with moving target in afternoon.

I went with number key press for speed setting.

So look at the Moon, set your speed number, move mouse so arrow is the angle you want to try and click the mouse to shoot.

Here is "Shoot'n for the Moon":
Code: QB64: [Select]
  2. _TITLE "Shoot'n for the Moon" 'B+ started 2019-06-23
  4. CONST xmax = 1200, ymax = 700, pi = 3.14159265
  5.  
  6. SCREEN _NEWIMAGE(xmax, ymax, 32)
  7. _SCREENMOVE 100, 20
  8.  
  9. CONST gravity = .035
  10. CONST airResistance = .01
  11. CONST nStars = 127
  12. CONST lnth = 100
  13. CONST wallx1 = .5 * xmax - 20
  14. CONST wallx2 = .5 * xmax
  15.  
  16. TYPE XYR
  17.     x AS INTEGER
  18.     y AS INTEGER
  19.     r AS INTEGER
  21.  
  22. TYPE projectile
  23.     x AS INTEGER
  24.     y AS INTEGER
  25.     dx AS SINGLE
  26.     dy AS SINGLE
  27.     a AS SINGLE 'radian angle
  28.     speed AS SINGLE
  29.     active AS INTEGER
  31. DIM SHARED level, p AS projectile, t AS XYR, wallY, stars(1 TO nStars) AS XYR
  32.  
  33. 'set up stars
  34. DIM i, r
  35. FOR i = 1 TO 127
  36.     stars(i).x = xmax * RND
  37.     stars(i).y = ymax * RND
  38.     r = RND
  39.     SELECT CASE r
  40.         CASE IS < .5: stars(i).r = 0
  41.         CASE IS < .75: stars(i).r = 1
  42.         CASE IS < .875: stars(i).r = 2
  43.         CASE IS < .9375: stars(i).r = 3
  44.         CASE ELSE: stars(i).r = 1
  45.     END SELECT
  47.  
  48. level = 1
  49. COLOR , &H0 'clear background for printing on various shades of blue
  51.     DrawSpace
  52.     InitTarget
  53.     Target
  54.     InitProjectile
  55.     WHILE p.active
  56.         DrawSpace 'cls
  57.         Arrow
  58.         Target
  59.         p.dy = p.dy + gravity
  60.         p.dx = p.dx + airResistance
  61.         p.x = p.x + p.dx
  62.         p.y = p.y + p.dy
  63.         p.a = _ATAN2(p.dy, p.dx) 'reset arrow angle
  64.         'IF p.a < 0 THEN p.a = p.a + 2 * pi
  65.         IF ((p.x - t.x) ^ 2 + (p.y - t.y) ^ 2) ^ .5 < t.r THEN
  66.             p.active = 0: BEEP ' here a beep is a good thing!
  67.         ELSEIF p.x < 0 OR p.x > xmax OR p.y > ymax THEN
  68.             p.active = 0
  69.         ELSEIF p.x > wallx1 AND p.x < wallx2 AND p.y > wallY THEN
  70.             p.active = 0
  71.         END IF
  72.         LOCATE 1, 1: PRINT "("; _TRIM$(STR$(p.x)); ", "; _TRIM$(STR$(p.y)); ")";
  73.         _DISPLAY
  74.         _LIMIT 60
  75.     WEND
  76.     _DELAY 3
  78.  
  79. SUB InitProjectile
  80.     DIM kh&, mx, my, mb
  81.     _TITLE "Use numbers 1 to 9, 0 for 10 for speed, click mouse when arrow at fire angle to fire."
  82.     p.x = 100
  83.     p.y = ymax - 100
  84.     p.active = 0
  85.     p.speed = 0
  86.     WHILE p.active = 0
  87.         DrawSpace 'CLS
  88.         Target
  89.         Arrow
  90.         kh& = _KEYHIT
  91.         IF kh& >= 48 AND kh& <= 57 THEN
  92.             IF kh& = 48 THEN p.speed = 10 ELSE p.speed = kh& - 48
  93.         END IF
  94.         WHILE _MOUSEINPUT: WEND
  95.         mb = _MOUSEBUTTON(1): mx = _MOUSEX: my = _MOUSEY
  96.         p.a = _ATAN2(my - p.y, mx - p.x)
  97.         IF p.a < 0 THEN p.a = p.a + 2 * pi
  98.         p.dx = p.speed * COS(p.a): p.dy = p.speed * SIN(p.a)
  99.         IF mb THEN
  100.             IF p.speed THEN p.active = -1 ELSE BEEP ' <<< you forgot to set a speed!
  101.         END IF
  102.         LOCATE 1, 1: PRINT "Angle:"; INT(360 - _R2D(p.a));
  103.         LOCATE 2, 1: PRINT "Speed:"; p.speed
  104.         _DISPLAY
  105.         _LIMIT 60
  106.     WEND
  108.  
  109. SUB InitTarget
  110.     t.r = 55 - 5 * level
  111.     wallY = RND * ymax * .5 + .25 * ymax
  112.     t.x = RND * (.25 * xmax - t.r) + .75 * xmax: t.y = RND * (ymax - 2 * t.r) + t.r
  114.  
  115. SUB DrawSpace
  116.     DIM y AS INTEGER
  117.     FOR y = 0 TO ymax
  118.         LINE (0, y)-STEP(xmax, 0), _RGB32(35, 0, 55 * y / ymax + 10), BF
  119.     NEXT
  120.     FOR y = 1 TO nStars
  121.         fcirc stars(y).x, stars(y).y, stars(y).r, &HFFDDEEFF
  122.     NEXT
  124.  
  125. SUB Target
  126.     fcirc t.x, t.y, t.r, &HFFCFCEA3
  127.     'draw wall blocking
  128.     LINE (wallx1, wallY)-(wallx2, ymax), &HFFAA6600, BF
  130.  
  131. SUB Arrow '  save these for other (x0, y0, rAngle, lngth)
  132.     DIM x0, y0, x1, y1, x2, y2, rAngle, lngth, i AS INTEGER
  133.     x0 = p.x: y0 = p.y: rAngle = p.a: lngth = lnth
  134.     x2 = x0 - lngth * COS(rAngle)
  135.     y2 = y0 - lngth * SIN(rAngle)
  136.     drawLink x0, y0, .001 * lngth, x2, y2, .01 * lngth, &HFFFFFFFF
  137.     LINE (x0, y0)-(x2, y2), &HFFFFFFFF
  138.     x2 = x0 - .1 * lngth * COS(rAngle - .2 * pi)
  139.     y2 = y0 - .1 * lngth * SIN(rAngle - .2 * pi)
  140.     x1 = x0 - .1 * lngth * COS(rAngle + .2 * pi)
  141.     y1 = y0 - .1 * lngth * SIN(rAngle + .2 * pi)
  142.     ftri x0, y0, x1, y1, x2, y2, &HFFFF0000
  143.     FOR i = .8 * lngth TO lngth STEP 3
  144.         x1 = x0 - i * COS(rAngle)
  145.         y1 = y0 - i * SIN(rAngle)
  146.         x2 = x1 - .1 * lngth * COS(rAngle - .25 * pi)
  147.         y2 = y1 - .1 * lngth * SIN(rAngle - .25 * pi)
  148.         LINE (x1, y1)-(x2, y2), &HFF0000FF
  149.         x2 = x1 - .1 * lngth * COS(rAngle + .25 * pi)
  150.         y2 = y1 - .1 * lngth * SIN(rAngle + .25 * pi)
  151.         LINE (x1, y1)-(x2, y2), &HFF0000FF
  152.     NEXT
  154.  
  155. SUB drawLink (x1, y1, r1, x2, y2, r2, c AS _UNSIGNED LONG)
  156.     DIM a, a1, a2, x3, x4, x5, x6, y3, y4, y5, y6
  157.     a = _ATAN2(y2 - y1, x2 - x1)
  158.     a1 = a + _PI(1 / 2)
  159.     a2 = a - _PI(1 / 2)
  160.     x3 = x1 + r1 * COS(a1): y3 = y1 + r1 * SIN(a1)
  161.     x4 = x1 + r1 * COS(a2): y4 = y1 + r1 * SIN(a2)
  162.     x5 = x2 + r2 * COS(a1): y5 = y2 + r2 * SIN(a1)
  163.     x6 = x2 + r2 * COS(a2): y6 = y2 + r2 * SIN(a2)
  164.     fquad x3, y3, x4, y4, x5, y5, x6, y6, c
  166.  
  167. 'need 4 non linear points (not all on 1 line) list them clockwise so x2, y2 is opposite of x4, y4
  168. SUB fquad (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER, x3 AS INTEGER, y3 AS INTEGER, x4 AS INTEGER, y4 AS INTEGER, c AS _UNSIGNED LONG)
  169.     ftri x1, y1, x2, y2, x4, y4, c
  170.     ftri x3, y3, x4, y4, x1, y1, c
  172.  
  173. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  174.     DIM a&
  175.     a& = _NEWIMAGE(1, 1, 32)
  176.     _DEST a&
  177.     PSET (0, 0), K
  178.     _DEST 0
  179.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  180.     _FREEIMAGE a& '<<< this is important!
  182.  
  183. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  184.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  185.     DIM X AS INTEGER, Y AS INTEGER
  186.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
  187.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  188.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  189.     WHILE X > Y
  190.         RadiusError = RadiusError + Y * 2 + 1
  191.         IF RadiusError >= 0 THEN
  192.             IF X <> Y + 1 THEN
  193.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  194.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  195.             END IF
  196.             X = X - 1
  197.             RadiusError = RadiusError - X * 2
  198.         END IF
  199.         Y = Y + 1
  200.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  201.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  202.     WEND
  204.  
Title: Re: Artillery Wanted
Post by: johnno56 on June 24, 2019, 04:15:03 am
More misses than hits... But that's normal for me... lol

But, I did notice the subtle absence of aliens and or asteroids....
Title: Re: Artillery Wanted
Post by: SierraKen on June 24, 2019, 12:08:41 pm
Thanks for the idea Johno56. I added that to mine and also made it so the holes stay as you keep firing. Also last night I added random wind speed and it displays the amount up on top of the screen so you can try to calculate how to go with or against the wind.
Title: Re: Artillery Wanted
Post by: SierraKen on June 24, 2019, 12:12:16 pm
LOL B+ that kicks butt! That's professional right there. :) I got the Moon once. :) Good job!
Title: Re: Artillery Wanted
Post by: bplus on June 24, 2019, 12:24:04 pm
Thanks Ken, Johnno I find it more difficult than expected myself, the aliens are coming soon enough ;-))

Keep the holes! Great idea! Now maybe the moon wont be so full :D

I am working on a slider for speed settings so it's all mouse work: click, spin, click and we're off to the moon.

Maybe a cartoon rocket and moon would be good images. What should it sound like when you hit..., wait.. let's plant flags on the moon, wait... no wind ;-))
Title: Re: Artillery Wanted
Post by: SierraKen on June 24, 2019, 08:24:26 pm
I'm getting closer and closer to finishing it. :) You can play the computer now and the wind speed and direction shows up on top. Plus I made a little base on each side so you can see what you are actually blowing up. lol You win or the computer wins when you blow up the other person 5 times. Am still tweaking it some so it might be a couple days until I release it. Tomorrow I will be busy all day doing other things.
Title: Re: Artillery Wanted
Post by: SierraKen on June 25, 2019, 12:09:49 pm
I'm done with version 1. But first I'm trying to see if I can make a mountain or not, might take awhile if I can do it. lol
Title: Re: Artillery Wanted
Post by: SierraKen on June 25, 2019, 01:15:13 pm
Post erased by original poster.
Title: Re: Artillery Wanted
Post by: johnno56 on June 25, 2019, 05:28:51 pm
Cool...  I particularly like the way the wind speed and direction changes for each shot... Do you have any plans for further development?
Title: Re: Artillery Wanted
Post by: SierraKen on June 25, 2019, 08:08:10 pm
Thanks Johno56. At this moment I don't although later on I might think of something to add to it. I will post this to my website after B+ checks it out and I will put both names on the site. Actually 1 thing I will add is saying "5 Points Wins" somewhere so people know how long the game is. I think I'm going to make a splash screen (welcome screen) with the basic instructions with B+ and your name on it. I'll add the code in a few minutes to this forum.
Title: Re: Artillery Wanted
Post by: johnno56 on June 25, 2019, 09:21:39 pm
Thank you. But credit is not necessary. In the meantime, I will keep my eye open for upgrades... lol (No pressure, right?)
Title: Re: Artillery Wanted
Post by: SierraKen on June 25, 2019, 09:27:13 pm
LOL thanks Johnno56. Well, I did find some problems with the last one, for example, there wasn't explosions on the normal ground below older explosions, so I fixed that and a couple other things. I also added the welcome screen. Here is (possibly) the final version. I'll erase the code on my last post.
B+ what do you think of it? :) You helped me with most of the math code so I put your name on it.

Edit: Finding more problems.. will look this over more and then post. Sorry for any problems this caused.
Title: Re: Artillery Wanted
Post by: bplus on June 25, 2019, 10:19:08 pm
Hi Ken,

I wrote some code for making very very simple mountains:
Code: QB64: [Select]
  1. _TITLE " by bplus"
  2. 'QB64 v1.3
  3. CONST xmax = 1200
  4. CONST ymax = 700
  5. SCREEN _NEWIMAGE(xmax, ymax, 32)
  6. _SCREENMOVE (1280 - xmax) / 2 + 30, (760 - ymax) / 2
  8. COLOR , _RGB32(110, 110, 255)
  10.     CLS
  11.     MakeMountain xmax / 2, (ymax - 100) * .8, ymax - 100
  12.     _DELAY 2
  14.  
  15. SUB MakeMountain (xcenter, maxHeight, mountainbaseY)
  16.     centerDist = 15 * RND + 15
  17.     FOR i = 1 TO 5
  18.         IF RND < .5 THEN dir = -1 ELSE dir = 1
  19.         xc = xcenter + dir * centerDist
  20.         yc = maxHeight - centerDist - RND * 25
  21.         xl = xc - rrnd(1.25 * yc, yc)
  22.         xr = xc + rrnd(1.25 * yc, yc)
  23.         IF mountainbaseY - yc < mountainbaseY THEN
  24.             ftri xl, mountainbaseY, xc, mountainbaseY - yc, xr, mountainbaseY, _RGB32(110 - i * 4, RND * 20 + 100 - i * 2, 100 - i * 8)
  25.         ELSE
  26.             EXIT FOR
  27.         END IF
  28.         centerDist = centerDist + 40 * RND + 30
  29.     NEXT
  31.  
  32. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  33.     a& = _NEWIMAGE(1, 1, 32)
  34.     _DEST a&
  35.     PSET (0, 0), K
  36.     _DEST 0
  37.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  38.     _FREEIMAGE a& '<<< this is important!
  40. FUNCTION rrnd (n1, n2) 'return real number (_single, double, _float depending on default / define setup)
  41.     rrnd = (n2 - n1) * RND + n1
  43.  

I tried to install it into your game and ran into one thing after another so I am trying to overhaul it so I can understand it and not ruin that great AI shooter you have going!
Title: Re: Artillery Wanted
Post by: SierraKen on June 25, 2019, 11:14:32 pm
Fun stuff B+, but the way I do it with my random mountain is just 1 half of a big circle using Paint. Then using the POINT command it knows exactly what color to look for. Your colors blend together so it would be pretty difficult using yours. But those are pretty neat mountains. :) I'm going to look over my code 1 more time and post the finished product here (hopefully).
Title: Re: Artillery Wanted
Post by: johnno56 on June 25, 2019, 11:48:02 pm
Cool... Two things missing.... Snow and a set of skis... lol
Title: Re: Artillery Wanted
Post by: johnno56 on June 26, 2019, 12:23:52 am
Ken,

This is the section, converted from the Applesoft Artillery game, that draws a simple "hill".
Sorry about the screen size... But that's Apple of the 80's... lol

SCREEN _NEWIMAGE(280, 200, 32)

DIM YY(280)

P1 = 99
PI = 3.141592654 / 180

P = RND(1) * 20 + 139
FOR I = 1 TO 112
    LINE (I, P)-(I, 159), _RGB32(0, 255, 0)
    YY(I) = P
NEXT
HG = RND(1) * 50 + 25
FOR I = 113 TO 152
    HX = SIN(((I - 112) * 4.5 + 180) * PI) * HG
    YY(I) = HX + P
    LINE (I, HX + P)-(I, 159), _RGB32(0, 255, 0)
NEXT
FOR I = 153 TO 279
    LINE (I, P)-(I, 159), _RGB32(0, 255, 0)
    YY(I) = P
NEXT

J
Title: Re: Artillery Wanted
Post by: SierraKen on June 26, 2019, 12:31:57 am
LOL Johno, the old CGA graphics :). I'm using a half-circle for a mountain, but the random function seems to get sticky sometimes. It will have a random number for a few turns, then stay at the same number for the rest of the game... not sure what's going on yet.
Title: Re: Artillery Wanted
Post by: bplus on June 26, 2019, 12:48:18 am
Hi Ken,

You might be overusing RANDOMIZE, (you are using it before every call to RND which is not necessary) you deleted the code post so I don't remember if you also used TIMER for seed. If not, you could be resetting random number sequence back to start of sequence and run same numbers over and over.

I don't need to know all the POINT values of mountains, just the sky, and the bases and to watch out for the black print in the sky. If it's not the sky, the bases, or the black print and the point is on screen then it must be a mountain or the ground.

Here is a screen test:
 


I am going to see if I can improve on AI, seems to me it worked better before the overhaul, you deleted the code so I can't check back to see if I changed something I shouldn't had. You weren't using the green hill color for gaging shots? ;-))
Title: Re: Artillery Wanted
Post by: SierraKen on June 26, 2019, 01:04:32 am
That looks really nice B+. But the cannonball always hits the text in the sky so I couldn't put a <> blue on the POINT value, but that's OK, I like my rolling mountain. :) I'm going to stop here and post my code and let you all look at it. You can do what you wish to it of course. Wow yeah I think my _DELAY command as well as possibly averaging out random lines on accident (possibly) was causing it. lol Thanks for the help you 2. Well, here is the game. It's not the hardest game LOL but the computer can still win (once in a great while). I tried to make it a bit harder but it was like pulling teeth on random variables lol. So.... once and for all... here it is.... :) (And of course any more suggestions would be appreciated lol).  Edit: I could put a if POINT <> black or Point <> blue for the text in the sky, but nahh, I like some originality of my own in this. :) 

Edit: Program deleted again because it was too easy, the better one is in the next post.
Title: Re: Artillery Wanted
Post by: SierraKen on June 26, 2019, 01:19:40 pm
Well, since it was too easy, I made it so the computer uses the same angle as you do, just their power will be different. It's still pretty easy if you get the hang of it. But here's the program, enjoy!
I also just added it to my website here: http://ken.x10host.com/qb64/


Code: QB64: [Select]
  1. 'I've always wanted to make this game ever since I started programming in the 80's.
  2. 'This was made using the BASIC and compile language QB64 from QB64.org
  3. 'This was created by Ken G. with much help from others below.
  4. 'Thank you to B+ for posting much of this math code on the QB64.org forum!
  5. 'It takes the computer a little time to learn how to hit your base.
  6. 'Created on June 25, 2019.
  7.  
  8.  
  9. _TITLE "Ken's Artillery"
  10. start:
  11. compoints = 0
  12. points = 0
  13. c = 0
  14. mountain = 0
  16. SCREEN _NEWIMAGE(1200, 700, 32)
  17. PRINT "                                               Ken's Artillery"
  19. PRINT "                           By Ken G. with math help from B+ from QB64.org Forum."
  21. PRINT "                         Instructions: You play against the computer by shooting a cannonball"
  22. PRINT "                         from your cannon at your base on the left side of the screen"
  23. PRINT "                         to the computer's base on the right side of the screen."
  24. PRINT "                         To do this, you type a power number between 0 and 80 and press Enter."
  25. PRINT "                         Then you type an angle that the cannonball will travel at,"
  26. PRINT "                         between 0 and 90 and press Enter."
  27. PRINT "                         You get a point every time you hit the other base."
  28. PRINT "                         The first to get 5 points wins the game."
  29. PRINT "                         Watch the wind speed indicator up on top to see the direction and"
  30. PRINT "                         speed of the wind, which makes a big difference on where your"
  31. PRINT "                         cannonball will land. Also, there will be a random sized mountain"
  32. PRINT "                         for every game."
  34. INPUT "                         Press Enter to begin.", start$
  36.  
  37. ground = 590 'up is negative in direction
  38.  
  39. 'Your Cannon
  40.  
  41. cbx = 10 '              cannon butt end x, y
  42. cby = ground - 20
  43. cmx = 50 '              cannon mouth end
  44. cmy = ground - 70
  45.  
  46. 'Computer's Cannon
  47.  
  48. cbx2 = 1190
  49. cby2 = cby
  50. cmx2 = 1150
  51. cmy2 = cmy
  52.  
  53.  
  54. g = .15 '       with air resistance
  56. air = INT(RND * 20)
  57. air2 = air / 1000
  59. air3 = INT(RND * 100)
  60. IF air3 > 50 THEN air2 = -air2
  61. airX = air2
  62. COLOR , _RGB32(156, 210, 237)
  64. LINE (0, ground)-(1200, 700), _RGB32(74, 86, 58), BF 'ground
  65. 'Bases
  66. LINE (cbx, ground)-(cbx + 100, ground - 20), _RGB32(4, 4, 4), BF
  67. LINE (cbx2, ground)-(cbx2 - 100, ground - 20), _RGB32(4, 4, 4), BF
  68. 'Mountain
  70. sz = INT(RND * 300) + 100
  71. circx = 595
  72. CIRCLE (circx, ground), sz, _RGB32(74, 86, 58)
  73. PAINT (circx, ground - 2), _RGB32(74, 86, 58)
  74.  
  75. again:
  76. COLOR _RGB(0, 0, 0)
  77. LOCATE 10, 120: PRINT "               "
  78. LOCATE 10, 1: PRINT "Your Turn     "
  80. air = INT(RND * 20)
  81. air2 = air / 1000
  83. air3 = INT(RND * 100)
  84. IF air3 > 50 THEN air2 = -air2
  85. airX = air2
  86. airx2 = airX * 1000
  87. IF airx2 < -1 THEN winddir$ = "West"
  88. IF airx2 > 1 THEN winddir$ = "East"
  89. IF airx2 > -1 AND airx2 < 1 THEN winddir$ = "Sunny"
  90. IF airx2 < 0 THEN airx2 = airx2 * -1
  91.  
  92. GOSUB Wind:
  93. COLOR _RGB(0, 0, 0)
  94. LOCATE 1, 1: INPUT "Power (0-80):", vel
  95. LOCATE 2, 1: INPUT "Angle (0-90): ", a
  96. LOCATE 1, 1: PRINT "                            "
  97. LOCATE 2, 1: PRINT "                            "
  98. going:
  99. IF a > 90 THEN a = 90
  100. IF a < 0 THEN a = 0
  101. IF vel < 0 THEN vel = 0
  102. IF vel > 80 THEN vel = 80
  103. vel = INT(vel / 4)
  104. a = 360 - a
  105. ca = _D2R(a)
  106. cmx = cbx + (100 * COS(_D2R(a)))
  107. cmy = cby + (100 * SIN(_D2R(a)))
  108.  
  109. 'initialize
  110. bx = cmx 'ball x, y same as cannon mouth at start of shot
  111. by = cmy
  112.  
  113.  
  114. dx = vel * COS(ca) 'start at cannon mouth
  115. dy = vel * SIN(ca)
  116.  
  117. 'shot
  118.  
  120.     GOSUB Wind:
  121.  
  122.     a$ = INKEY$
  123.     IF a$ = CHR$(27) THEN END
  124.     CIRCLE (bx, by), 5, _RGB32(0, 0, 0)
  125.     PAINT (bx, by), _RGB32(0, 0, 0), _RGB32(0, 0, 0)
  126.     LINE (cbx, cby)-(cmx, cmy), _RGB32(150, 50, 0) 'cannon line
  127.     oldbx = bx: oldby = by
  128.     dx = dx + airX
  129.     dy = dy + g
  130.     bx = bx + dx
  131.     by = by + dy
  132.     _DISPLAY
  133.     _LIMIT 30
  134.     CIRCLE (oldbx, oldby), 5, _RGB(156, 210, 237)
  135.     PAINT (oldbx, oldby), _RGB(156, 210, 237)
  136.     IF POINT(bx, by) = _RGB32(74, 86, 58) THEN
  137.         mountain = 1
  138.         FOR explosion = 0 TO 20 STEP .5
  139.             CIRCLE (bx, by), explosion, _RGB32(156, 210, 237)
  140.             SOUND 100 + explosion, .25
  141.         NEXT explosion
  142.     END IF
  143.     IF bx > cbx2 - 120 AND bx < cbx2 + 20 AND by >= ground THEN
  144.         points = points + 1
  145.         LOCATE 3, 69: PRINT "You: "; points; " Computer: "; compoints
  146.         FOR explosion = 0 TO 20 STEP .5
  147.             CIRCLE (bx, by), explosion, _RGB32(156, 210, 237)
  148.             SOUND 100 + explosion, .25
  149.         NEXT explosion
  150.         FOR sndd = 500 TO 700 STEP 50
  151.             SOUND sndd, 1
  152.         NEXT sndd
  153.         mountain = 1
  154.         IF points = 5 THEN COLOR _RGB(0, 0, 0): LOCATE 20, 65: PRINT "YOU WIN!": GOTO asking:
  155.     END IF
  156. LOOP UNTIL mountain = 1 OR by > 700
  157. LINE (cbx, cby)-(cmx, cmy), _RGB32(156, 210, 237) 'delete cannon line
  158. mountain = 0
  159. 'The Computer's Turn
  160.  
  161. comp:
  162.  
  163. COLOR _RGB(0, 0, 0)
  164. LOCATE 10, 1: PRINT "             "
  165. LOCATE 10, 120: PRINT "Computer Turn"
  166. GOSUB Wind:
  167.  
  168. 'Computer learns as it goes but is not perfect, like a human.  ;-)
  169. IF c = 0 THEN GOTO compstuff:
  170. oldvel2 = vel2
  171.  
  172. compstuff:
  174. vel2 = INT(RND * 35) + 30
  175.  
  176. a2 = a
  177.  
  178. vel2 = INT(vel2 / 4)
  179.  
  180. IF c = 0 THEN GOTO nex:
  181. 'Last shot was too far away.
  182. IF oldbx2 < cbx THEN
  183.     vel2 = oldvel2 - 1
  184.     IF vel2 < 8 THEN vel2 = 8
  186. 'Last shot wasn't far enough.
  187. IF oldbx2 > cbx THEN
  188.     vel2 = oldvel2 + 1
  189.     IF vel2 > 15 THEN vel2 = 15
  191. nex:
  192. c = 1
  193. ca2 = _D2R(a2)
  194. cmx2 = cbx2 - (100 * COS(_D2R(a2)))
  195. cmy2 = cby2 + (100 * SIN(_D2R(a2)))
  196.  
  197. 'initialize
  198. bx2 = cmx2 'ball x, y same as cannon mouth at start of shot
  199. by2 = cmy2
  200. dx2 = vel2 * COS(ca2) 'start at cannon mouth
  201. dy2 = vel2 * SIN(ca2)
  202.  
  203. 'shot
  204.  
  206.     a$ = INKEY$
  207.     IF a$ = CHR$(27) THEN END
  208.     CIRCLE (bx2, by2), 5, _RGB32(0, 0, 0)
  209.     PAINT (bx2, by2), _RGB32(0, 0, 0), _RGB32(0, 0, 0)
  210.     LINE (cbx2, cby2)-(cmx2, cmy2), _RGB32(150, 50, 0) 'cannon line
  211.     oldbx2 = bx2: oldby2 = by2
  212.     dx2 = dx2 + airX
  213.     dy2 = dy2 + g
  214.     bx2 = bx2 - dx2
  215.     by2 = by2 + dy2
  216.     _DISPLAY
  217.     _LIMIT 30
  218.     CIRCLE (oldbx2, oldby2), 5, _RGB(156, 210, 237)
  219.     PAINT (oldbx2, oldby2), _RGB(156, 210, 237)
  220.     IF POINT(bx2, by2) = _RGB32(74, 86, 58) THEN
  221.         mountain = 1
  222.         FOR explosion = 0 TO 20 STEP .5
  223.             CIRCLE (bx2, by2), explosion, _RGB32(156, 210, 237)
  224.             SOUND 100 + explosion, .25
  225.         NEXT explosion
  226.     END IF
  227.     IF bx2 > cbx - 20 AND bx2 < cbx + 120 AND by2 >= ground THEN
  228.         compoints = compoints + 1
  229.         LOCATE 3, 69: PRINT "You: "; points; " Computer: "; compoints
  230.         FOR explosion = 0 TO 20 STEP .5
  231.             CIRCLE (bx2, by2), explosion, _RGB32(156, 210, 237)
  232.             SOUND 100 + explosion, .25
  233.         NEXT explosion
  234.         FOR sndd = 500 TO 700 STEP 50
  235.             SOUND sndd, 1
  236.         NEXT sndd
  237.         mountain = 1
  238.         IF compoints = 5 THEN COLOR _RGB(0, 0, 0): LOCATE 20, 65: PRINT "COMPUTER WINS!": GOTO asking:
  239.     END IF
  240. LOOP UNTIL mountain = 1 OR by2 > 700
  241.  
  242. LINE (cbx2, cby2)-(cmx2, cmy2), _RGB32(156, 210, 237) 'delete cannon line
  243. mountain = 0
  244. GOTO again:
  245.  
  246. 'This code is used in a few different places in the program.
  247. Wind:
  248. COLOR _RGB(0, 0, 0)
  249. LOCATE 1, 73: PRINT "Wind"
  250. IF winddir$ = "West" THEN
  251.     LOCATE 2, 83: PRINT "                               "
  252.     LOCATE 2, 56: PRINT airx2; " mph   "
  254. IF winddir$ = "East" THEN
  255.     LOCATE 2, 56: PRINT "               "
  256.     LOCATE 2, 83: PRINT airx2; " mph   "
  258. LOCATE 2, 69: PRINT "West <-> East"
  259. LOCATE 3, 69: PRINT "You: "; points; " Computer: "; compoints
  261.  
  262. asking:
  263. LOCATE 22, 65: INPUT "Again? (Yes/No):", ag$
  264. IF ag$ = "y" OR ag$ = "Y" OR ag$ = "yes" OR ag$ = "Yes" OR ag$ = "YES" OR ag$ = "yES" OR ag$ = "yeS" THEN GOTO start:
  266.  
  267.  
  268.  
  269.  
  270.  
  271.  
Title: Re: Artillery Wanted
Post by: johnno56 on June 26, 2019, 05:57:14 pm
This game is coming along quite nicely!  I found a small wrinkle... actually a glaring problem.... I keep getting hit by the computer!  There is a 'real' chance that I could be killed off...  I think you should seriously include a "God Mode" and only tell 'me' what the code is.... Nah... I'm kidding. You don't need to include a 'God Mode'... Just don't allow the enemy to fire... lol
Title: Re: Artillery Wanted
Post by: SierraKen on June 26, 2019, 06:00:03 pm
LOL John! Wow, you got kinda unlucky on that game. hehe. Thanks for checking it out!
Title: Re: Artillery Wanted
Post by: johnno56 on June 26, 2019, 08:49:13 pm
Oh, don't get me wrong, I didn't say that I 'lost'.... I'm being shot at... I prefer a 'one-sided' game, but that's me, everyone else enjoys a challenge... lol

Good game. Apart from being shot at, I enjoyed playing it... Well done!
Title: Re: Artillery Wanted
Post by: SierraKen on June 26, 2019, 10:57:19 pm
Thanks!
Title: Re: Artillery Wanted
Post by: Ashish on June 27, 2019, 01:49:16 am
Nice game!
Title: Re: Artillery Wanted
Post by: SierraKen on June 28, 2019, 11:34:10 am
Thanks Ashish! :)
Title: Re: Artillery Wanted
Post by: bplus on June 28, 2019, 11:54:49 am
Hey Ken,

This is a nice game with the computer as opponent!

While reworking the code to more my style to use mountains and play with AI for computer, I ran into a problem I will call "tunneling". This happens when you use the sky color over last cannon ball location to erase it and then using POINT to detect objects not the sky color.

If the new ball location is less than it's radius in distance, POINT will detect sky color from last erase and keep the ball going because no object hit was detected.

Even if you don't erase the ball, POINT will detect the ball color (Black) if the new location is still less than a radius away from last. I'm not sure your version has completely overcome "tunneling" but it sure works better than my early remake version! I don't know how you managed to avoid more blatant "tunneling" with your version.

Have you noticed this phenomena?
 
Title: Re: Artillery Wanted
Post by: SierraKen on June 28, 2019, 02:31:49 pm
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.
Title: Re: Artillery Wanted
Post by: bplus on June 28, 2019, 03:15:43 pm
Quote from: SierraKen on June 28, 2019, 02:31:49 pm
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.
Title: Re: Artillery Wanted
Post by: SierraKen on June 28, 2019, 08:54:45 pm
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.
Title: Re: Artillery Wanted
Post by: johnno56 on June 29, 2019, 05:44:36 am
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
Title: Re: Artillery Wanted
Post by: bplus on July 02, 2019, 12:05:18 am
Well after one goofy setback after another, I finally got my MOD worked out. Computer is playing decent game.

Code: QB64: [Select]
  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)
  19.  
  20. TYPE ball
  21.     x AS SINGLE
  22.     y AS SINGLE
  23.     dx AS SINGLE
  24.     dy AS SINGLE
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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!
  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
  262.  
  263. FUNCTION rrnd (n1, n2) 'return real number between n1, n2
  264.     rrnd = (n2 - n1) * RND + n1
  266.  
  267. SUB CenterPrint (row, s$)
  268.     LOCATE row, .125 * (xmax - 8 * LEN(s$)) / 2: PRINT s$;
  270.  
  271. FUNCTION TS$ (n)
  272.     TS$ = _TRIM$(STR$(INT(n * 100 + .5) / 100)) 'I have to add .5 for rounding coreectly
  274.  

EDIT: a couple of minor tweaks 2019-07-02
Title: Re: Artillery Wanted
Post by: johnno56 on July 02, 2019, 08:25:03 am
The player needs to be crack shot if winning is the goal. Quite a marksman that enemy player!!
Title: Re: Artillery Wanted
Post by: bplus on July 02, 2019, 08:57:05 am
Quote from: johnno56 on July 02, 2019, 08:25:03 am
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.
Title: Re: Artillery Wanted
Post by: johnno56 on July 02, 2019, 05:24:15 pm
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
Title: Re: Artillery Wanted
Post by: Pete on July 03, 2019, 04:10:57 pm
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
Title: Re: Artillery Wanted
Post by: bplus on July 03, 2019, 04:56:09 pm
Quote from: Pete on July 03, 2019, 04:10:57 pm
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.


Title: Re: Artillery Wanted
Post by: bplus on July 04, 2019, 01:57:27 pm
OK Pete's recommendations adapted, I kind of like the change in the way wind is handled in this MOD:
Code: QB64: [Select]
  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)
  20.  
  21. TYPE ball
  22.     x AS SINGLE
  23.     y AS SINGLE
  24.     dx AS SINGLE
  25.     dy AS SINGLE
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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
  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!
  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
  263.  
  264. FUNCTION rrnd (n1, n2) 'return real number between n1, n2
  265.     rrnd = (n2 - n1) * RND + n1
  267.  
  268. SUB CenterPrint (row, s$)
  269.     LOCATE row, .125 * (xmax - 8 * LEN(s$)) / 2: PRINT s$;
  271.  
  272. FUNCTION TS$ (n)
  273.     TS$ = _TRIM$(STR$(INT(n * 100 + .5) / 100)) 'I have to add .5 for rounding coreectly
  275.  
Title: Re: Artillery Wanted
Post by: Pete on July 04, 2019, 02:22:47 pm
The AI is much better now! I won a couple, and lost a couple. Nice job!

Pete
Text Only | Text with Attachments