Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on November 13, 2020, 04:58:00 pm

Title: Shoot The Alien With Your Tank Mouse Game
Post by: SierraKen on November 13, 2020, 04:58:00 pm
Petr gave me this tank code the other day so I figured I should make something out of it. It's not a complicating game, random alien appears, you shoot him. lol I could probably make something more complicating sometime but I just threw this together today. Do you like the alien? lol I also used my new circle fill-in SUB that B+ gave me for the alien. Most of the code in this is from Petr. Thanks Petr! Oh also, I added the tank movement, so it goes toward where you aim at with the mouse.
I should also say that there's no real objective to this game except shooting the alien as many times as you want. You don't die and there's no time limit. But it does keep a record of how many times you shot him in the Title bar.

To play: Use the mouse to move and aim. Shoot with the left mouse button.

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1024, 768, 32)
  2.  
  3. TYPE xy
  4.     x AS INTEGER
  5.     y AS INTEGER
  7.  
  8. DIM position AS INTEGER 'which fire image is last viewed?
  9. DIM firepoints(100) AS xy '  ---> is the same as 30 different varibles for X, and for Y. Number in parentheses say you, which number it is. so
  10. '                           firepoints(10).x is the same as x10, firepoints(10).y the same as y10, firepoints(1).time is the same as time1....
  11.  
  12. 'set canon position
  13. cannonX = 512
  14. cannonY = 384
  18.     playerX = _MOUSEX
  19.     playerY = _MOUSEY
  20.     mouseLeftButton = _MOUSEBUTTON(1)
  21.     CLS
  22.     aliens = INT(RND * 1000)
  23.     IF aliens > 992 OR nextalien = 1 THEN
  24.         nextalien = 0
  25.         al = 0
  26.         makealien:
  27.         cx = RND * _WIDTH
  28.         cy = RND * _HEIGHT
  29.         IF cx < cannonX + 60 AND cx > cannonX - 60 AND cy > cannonY + 60 AND cy < cannonY - 60 THEN GOTO makealien:
  30.         r = 15
  31.         c = _RGB32(0, 255, 0)
  32.     END IF
  33.  
  34.  
  35.  
  36.     'get angle between player and canon
  37.     angle = _ATAN2(playerY - cannonY, playerX - cannonX)
  38.  
  39.     'draw canon
  40.     CIRCLE (cannonX, cannonY), 30, _RGB32(127)
  41.     LINE (cannonX, cannonY)-(cannonX + COS(angle) * 50, cannonY + SIN(angle) * 50)
  42.  
  43.     'calculate points for fire (points in line between current cannon angle and last position. Let say, maximal fire lenght is 300 (calculating here is for 30 steps)
  44.     FOR calcFireRoute = 1 TO 30
  45.         RouteLenght = 30 + (calcFireRoute * 20) '10 * 30 = 300
  46.         IF firepoints(calcFireRoute).x = 0 THEN
  47.             firepoints(calcFireRoute).x = cannonX + COS(angle) * RouteLenght
  48.  
  49.         END IF
  50.         'calcFireRoute is just number. Number 1 to 30. So is this number is 1, you do X1 and Y1. If is 2, you do X2 and Y2....
  51.  
  52.         IF firepoints(calcFireRoute).y = 0 THEN
  53.             firepoints(calcFireRoute).y = cannonY + SIN(angle) * RouteLenght
  54.         END IF
  55.         'is used the same principle as calculating for barrel
  56.  
  57.     NEXT
  58.     cannonX = cannonX + COS(angle)
  59.     cannonY = cannonY + SIN(angle)
  60.     position = position + 1
  61.  
  62.     IF position > 30 THEN
  63.         position = 1 'number in parenthesis is named "index". Maximal index number for array firepoints is 30. This number say us, which position is actual
  64.  
  65.         'previous position must be set back to zero, for new calculating (see conditions in FOR NEXT loop)
  66.         firepoints(30).x = 0 'set first X to zero
  67.         FOR setZero = 1 TO 30
  68.             firepoints(setZero).x = 0
  69.             firepoints(setZero).y = 0
  70.         NEXT
  71.     END IF
  72.     IF mouseLeftButton THEN
  73.         'draw fire
  74.         CIRCLE (firepoints(position).x, firepoints(position).y), 10, &HFFFF0000 'fire color is red (FF = 255, it is &H ALPHA, RED, GREEN, BLUE), here is full ALPHA and full RED. How find, what is FF: Try PRINT VAL("&HFF")
  75.         PAINT (firepoints(position).x, firepoints(position).y), &HFF506070, &HFFFF0000
  76.         IF cx > firepoints(position).x - 20 AND cx < firepoints(position).x + 20 AND cy > firepoints(position).y - 20 AND cy < firepoints(position).y + 20 THEN
  77.             al = 1: score = score + 1: score$ = STR$(score): _TITLE score$
  78.             FOR snd = 600 TO 500 STEP -50
  79.                 SOUND snd, .5
  80.             NEXT snd
  81.             nextalien = 1
  82.         END IF
  83.     END IF
  84.  
  85.  
  86.     'draw player
  87.     CIRCLE (playerX, playerY), 20, _RGB32(127, 65, 78)
  88.     'draw alien
  89.     IF al = 0 THEN fillCircle cx, cy, r, c
  90.     LINE (cx - 5, cy - 5)-(cx - 3, cy - 3), _RGB32(0, 0, 0), BF
  91.     LINE (cx + 5, cy - 5)-(cx + 3, cy - 3), _RGB32(0, 0, 0), BF
  92.     LINE (cx - 5, cy + 7)-(cx + 5, cy + 5), _RGB32(0, 0, 0), BF
  93.     LINE (cx - 5, cy - 7)-(cx - 10, cy - 20), _RGB32(0, 255, 0)
  94.     CIRCLE (cx - 12, cy - 22), 3, _RGB32(0, 255, 0)
  95.     LINE (cx + 5, cy - 7)-(cx + 10, cy - 20), _RGB32(0, 255, 0)
  96.     CIRCLE (cx + 12, cy - 22), 3, _RGB32(0, 255, 0)
  97.     _DISPLAY
  98.  
  99.     _LIMIT 120
  101.  
  102.  
  103. 'from Steve Gold standard
  104. SUB fillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  105.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  106.     DIM X AS INTEGER, Y AS INTEGER
  107.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
  108.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  109.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  110.     WHILE X > Y
  111.         RadiusError = RadiusError + Y * 2 + 1
  112.         IF RadiusError >= 0 THEN
  113.             IF X <> Y + 1 THEN
  114.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  115.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  116.             END IF
  117.             X = X - 1
  118.             RadiusError = RadiusError - X * 2
  119.         END IF
  120.         Y = Y + 1
  121.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  122.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  123.     WEND
  125.  
Title: Re: Shoot The Alien With Your Tank Mouse Game
Post by: Petr on November 14, 2020, 03:18:21 am
Nice work, SierraKen :)
Title: Re: Shoot The Alien With Your Tank Mouse Game
Post by: mynameispaul on November 14, 2020, 11:43:54 am
very entertaining
thanks
Title: Re: Shoot The Alien With Your Tank Mouse Game
Post by: Aurel on November 15, 2020, 03:54:10 am
yes ..this one work in my win7 --- 1.3 qb64_win32 version
Title: Re: Shoot The Alien With Your Tank Mouse Game
Post by: SierraKen on November 15, 2020, 02:02:14 pm
Thanks everyone. :)
Text Only | Text with Attachments