« previous next »
Pages: 1 2 [3] 4   Go Down

Author Topic: Artillery Wanted  (Read 11190 times)

0 Members and 1 Guest are viewing this topic.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Artillery Wanted
« Reply #30 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).
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Artillery Wanted
« Reply #31 on: June 25, 2019, 11:48:02 pm »
Cool... Two things missing.... Snow and a set of skis... lol
Logged
Logic is the beginning of wisdom.

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Artillery Wanted
« Reply #32 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
Logged
Logic is the beginning of wisdom.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Artillery Wanted
« Reply #33 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.
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Artillery Wanted
« Reply #34 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:
 
Ken's Artillery.PNG


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? ;-))
« Last Edit: June 26, 2019, 01:00:11 am by bplus »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Artillery Wanted
« Reply #35 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.
« Last Edit: June 26, 2019, 01:17:44 pm by SierraKen »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Artillery Wanted
« Reply #36 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.  
« Last Edit: June 26, 2019, 02:01:23 pm by SierraKen »
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Artillery Wanted
« Reply #37 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
Logged
Logic is the beginning of wisdom.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Artillery Wanted
« Reply #38 on: June 26, 2019, 06:00:03 pm »
LOL John! Wow, you got kinda unlucky on that game. hehe. Thanks for checking it out!
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Artillery Wanted
« Reply #39 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!
Logged
Logic is the beginning of wisdom.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Artillery Wanted
« Reply #40 on: June 26, 2019, 10:57:19 pm »
Thanks!
Logged

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: Artillery Wanted
« Reply #41 on: June 27, 2019, 01:49:16 am »
Nice game!
Logged
if (Me.success) {Me.improve()} else {Me.tryAgain()}


My Projects - https://github.com/AshishKingdom?tab=repositories
OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Artillery Wanted
« Reply #42 on: June 28, 2019, 11:34:10 am »
Thanks Ashish! :)
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Artillery Wanted
« Reply #43 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?
 
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Artillery Wanted
« Reply #44 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.
Logged
Pages: 1 2 [3] 4   Go Up
« previous next »