Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: bplus on October 27, 2020, 04:19:05 pm

Title: b+ Asteroids makeover
Post by: bplus on October 27, 2020, 04:19:05 pm
New (old stars.png) background, font, coloring and specially shooter action. Use mouse to point shooter / ship and use spacebar to shoot and about 100 less LOC, yeah I did double park :)

So much better than arrow keys! Asteroids are all uniquely drawn and spun.

zip has bas source, font and background image.



Title: Re: b+ Asteroids makeover
Post by: SierraKen on October 27, 2020, 09:42:35 pm
That is really good B+! You are a good artist. Do you have plans to add break-ups on the asteroids and sound? I'm not sure how I would do the math myself for break-ups but you can try it if you want. The mouse does make it work great. An easy way I guess to do the math would just not use math and make random trajectories on the smaller asteroids.
Title: Re: b+ Asteroids makeover
Post by: bplus on October 27, 2020, 11:14:20 pm
Thanks Ken, they're suppose to break up? and pose further threat I suppose. :)

That does sound good... I know I could do better explosions... hmm...
Title: Re: b+ Asteroids makeover
Post by: SierraKen on October 28, 2020, 12:54:36 am
Yes, here is the original arcade version. But there's been countless versions over the years and yours looks 100x better than the original of course.
But notice how they break up and also how your ship can fly around. When he goes off the screen, he appears on the opposite side. Plus there's the UFO ships if you really want to get involved.

https://www.youtube.com/watch?v=WYSupJ5r2zo (https://www.youtube.com/watch?v=WYSupJ5r2zo)
Title: Re: b+ Asteroids makeover
Post by: johnno56 on October 28, 2020, 06:41:20 am
Who doesn't like a good Asteroids game? Another cool version... Nicely done!
Title: Re: b+ Asteroids makeover
Post by: bplus on October 28, 2020, 10:56:57 am
Little experiment about increasing rock count while in a rock count loop
Code: QB64: [Select]
  1. top = 10
  2. FOR i = 1 TO top
  3.     IF i = 2 THEN top = top + 1
  4.     PRINT i
  6. ' good it stops at first top value
  7. FOR i = 1 TO top
  8.     IF i = 2 THEN top = top + 1
  9.     PRINT i
  11. 'good it stops at 2nd top value
  12.  
  13.  
Title: Re: b+ Asteroids makeover
Post by: SierraKen on October 28, 2020, 01:23:06 pm
:) If I remember right, the asteroids can break up twice before totally disintagrating.
Title: Re: b+ Asteroids makeover
Post by: Dav on October 28, 2020, 01:29:09 pm
Cool!  I've always like Asteroids games.  Nice tight code, @bplus!  I added a few SFX here for fun.  Thanks for sharing your work.

- Dav

Title: Re: b+ Asteroids makeover
Post by: bplus on October 28, 2020, 01:33:07 pm
Yeah I am in process of converting back to UDT's to apply explosions and splittings.

I do need sound effects (no .ogg), wait can you hear explosions in space?

;-))
Title: Re: b+ Asteroids makeover
Post by: bplus on October 29, 2020, 11:57:03 am
Update: switched over to UDT's, freed ship to move around, new shooter action, added explosions = cool!, and splitting larger rocks into baby ones. Baby rock management a bear but it was getting late.

Again new shooter action, I liked what I saw in MonoSpac only I am using Left / Right Mouse button to flip the gun left and right, now if I can only remember my left from my right ;-)) on man!
But accuracy has jumped up from 10-20% to 60-80% depending how trigger happy you are.

You need to be very careful now shooting at big rocks too close to ship.

Funny I was shooting bullets and hitting ghost rocks!   WTH?  ah they might not be showing but they were still there in the arrays ;-))
Title: Re: b+ Asteroids makeover
Post by: SierraKen on October 29, 2020, 01:00:47 pm
It sounds great, can't wait to see it. :)
Title: Re: b+ Asteroids makeover
Post by: bplus on October 29, 2020, 04:29:49 pm
Quote from: SierraKen on October 29, 2020, 01:00:47 pm
It sounds great, can't wait to see it. :)

Neither can I :-)) actually baby rock management a piece of cake, now working on increasing level difficulty.

Here is snapshot of WIP:
Code: QB64: [Select]
  1. _TITLE "b+ Asteroids m2" 'started 2018-07-13"
  2. ' 2020-10-27 remove the alternate subs and get down below 200 LOC almost there now! new shooter action font and background
  3. ' 2020-10-28 another makeover explosions and split asteroids
  4. ' 2020-10-29 fix baby rock management, break between lives
  5.  
  6. CONST xmax = 1200, ymax = 700, pi = _PI, polyAngle = _PI / 6, nRocks = 100, nBullets = 1000, bSpeed = 30
  7.  
  8. TYPE particle
  9.     x AS SINGLE
  10.     y AS SINGLE
  11.     dx AS SINGLE
  12.     dy AS SINGLE
  13.     size AS SINGLE
  14.     kolor AS LONG
  16.  
  17. TYPE bullet
  18.     x AS LONG
  19.     y AS LONG
  20.     dx AS SINGLE
  21.     dy AS SINGLE
  22.     live AS LONG
  24.  
  25. TYPE shipType
  26.     x AS LONG
  27.     y AS LONG
  28.     live AS LONG
  29.     a AS SINGLE
  31.  
  32. TYPE rock
  33.     x AS LONG
  34.     y AS LONG
  35.     r AS LONG 'radius
  36.     ra AS SINGLE 'rotation angle  a = a + spin
  37.     heading AS SINGLE 'heading from which dx, dy are calc with speed
  38.     speed AS SINGLE 'speed
  39.     spin AS SINGLE
  40.     seed AS LONG
  41.     c AS INTEGER 'color   rgb(grey)
  42.     hit AS LONG 'TF or count before or after hit  not sure I need this from explosions
  43.     live AS LONG 'need this to track rocks still active like bullets
  45.  
  46. DIM SHARED dots(2000) AS particle
  47. DIM SHARED b(nBullets) AS bullet
  48. DIM SHARED ship AS shipType
  49. DIM SHARED r(nRocks) AS rock
  50. DIM SHARED lives&, rocks& '   rocks is the minimum number of parent rocks to have on screen  automatic replace when hit or out of bounds, always live
  51.  
  52. SCREEN _NEWIMAGE(xmax, ymax, 32)
  53. _SCREENMOVE 100, 20
  55.  
  56. stars& = _LOADIMAGE("stars.png", 32)
  57. fnt& = _LOADFONT("ARLRDBD.ttf", 12, "MONOSPACE")
  58. _FONT fnt&
  59. COLOR &HFF00FFFF, &H00000000
  60. rocks& = 6 ' always active rocks
  61. lives& = 100
  63.  
  64. WHILE lives& AND _KEYDOWN(27) = 0 ' init start restart
  65.     FOR i = 1 TO nRocks 'reset rocks mainly clear baby rocks
  66.         newRock (i)
  67.         IF i > rocks& THEN r(i).live = 0
  68.     NEXT
  69.     ship.x = xmax / 2 'avoids explosions top left corner at start
  70.     ship.y = ymax / 2
  71.     ship.live = 1
  72.  
  73.     WHILE ship.live AND _KEYDOWN(27) = 0
  74.  
  75.         'draw everything then process bullets
  76.         _PUTIMAGE , stars&
  77.         S$ = "Lives:" + STR$(lives&) + "  Hits:" + STR$(Hits&) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(Hits& * 100 / bullets)) + "%"
  78.         _PRINTSTRING ((_WIDTH - _PRINTWIDTH(S$)) / 2, ymax / 2), S$
  79.         FOR i = 1 TO nRocks
  80.             IF r(i).live THEN drawRock (i) ' while drawing rocks the ship could be blown up
  81.         NEXT
  82.         IF ship.live THEN
  83.             drawship
  84.  
  85.             WHILE _MOUSEINPUT: WEND 'update ship
  86.             ship.x = _MOUSEX: ship.y = _MOUSEY
  87.             IF lastx <> ship.x OR lasty <> ship.y THEN
  88.                 lastx = ship.x: lasty = ship.y
  89.             ELSE
  90.                 IF _MOUSEBUTTON(1) THEN ship.a = pi 'this is new left and right guns
  91.                 IF _MOUSEBUTTON(2) THEN ship.a = 0
  92.                 IF _KEYDOWN(ASC("w")) THEN ship.a = 1.5 * pi ' well it works but ??
  93.                 IF _KEYDOWN(ASC("z")) THEN ship.a = .5 * pi
  94.             END IF
  95.  
  96.             fire = 0
  97.             IF _KEYDOWN(32) THEN 'fire bullets
  98.                 t = TIMER(.01)
  99.                 IF lastt = 0 OR t - lastt > .2 THEN fire = 1: lastt = t: bullets = bullets + 1
  100.             END IF
  101.  
  102.             FOR i = 0 TO nBullets 'handle bullets
  103.                 IF b(i).live = 0 AND fire = 1 THEN 'have inactive bullet to use
  104.                     b(i).x = ship.x + bSpeed * COS(ship.a)
  105.                     b(i).y = ship.y + bSpeed * SIN(ship.a)
  106.                     b(i).dx = bSpeed * COS(ship.a)
  107.                     b(i).dy = bSpeed * SIN(ship.a)
  108.                     b(i).live = -1
  109.                     fire = 0
  110.                 END IF
  111.  
  112.                 IF b(i).live THEN 'new location
  113.                     b(i).x = b(i).x + b(i).dx
  114.                     b(i).y = b(i).y + b(i).dy
  115.                     IF b(i).x > 0 AND b(i).x < xmax AND b(i).y > 0 AND b(i).y < ymax THEN 'in bounds draw it
  116.                         FOR r = 1 TO nRocks 'check for collision with rock
  117.                             IF r(r).live THEN
  118.                                 IF SQR((r(r).x - b(i).x) ^ 2 + (r(r).y - b(i).y) ^ 2) < r(r).r THEN 'its a hit!
  119.                                     explode r(r).x, r(r).y, r(r).r, r(r).r - r(r).hit
  120.                                     Hits& = Hits& + 1
  121.  
  122.  
  123.                                     '                     for reference
  124.                                     'x AS LONG
  125.                                     'y AS LONG
  126.                                     'r AS LONG 'radius
  127.                                     'ra AS SINGLE 'rotation angle  a = a + spin
  128.                                     'heading AS SINGLE 'heading from which dx, dy are calc with speed
  129.                                     'speed AS SINGLE 'speed
  130.                                     'spin AS SINGLE
  131.                                     'seed AS LONG
  132.                                     'c AS INTEGER 'color   rgb(grey)
  133.                                     'hit AS LONG 'TF or count before or after hit  not sure I need this from explosions
  134.                                     'live AS INTEGER 'need this to track rocks still active like bullets
  135.  
  136.                                     IF r(r).r > 30 THEN '       split rock
  137.                                         '                        new rock
  138.                                         newRockN = freeRock& '                      get inactive rock number
  139.                                         newRock newRockN '                         new identity and activate
  140.  
  141.                                         '_PRINTSTRING (xmax / 2, ymax / 4), "NewRock " + STR$(newRockN)
  142.                                         '_DISPLAY
  143.  
  144.                                         r(newRockN).r = (r(r).r - 10) / 2 '        split in half minus 20% mass
  145.                                         r(newRockN).x = r(r).x + irnd&(-10, 10) ' thrown from parent
  146.                                         r(newRockN).y = r(r).y + irnd&(-10, 10)
  147.                                         r(newRockN).c = r(r).c '                   same color as parent
  148.                                         r(newRockN).heading = rrnd(ship.a, ship.a + pi / 2)
  149.                                         'r(newRockN).live = 1
  150.  
  151.                                         ' remainder of rock carries on smaller and changed
  152.                                         r(r).r = (r(r).r - 10) / 2 '         split in half minus 20% mass
  153.                                         r(r).x = r(r).x + irnd&(-5, 5) '    thrown  a bit
  154.                                         r(r).y = r(r).y + irnd&(-5, 5)
  155.                                         r(r).heading = rrnd(ship.a, ship.a - pi / 2)
  156.                                         r(r).ra = RND * 2 * pi '             twisted
  157.                                         r(r).speed = rrnd(3, 7) '            different
  158.                                         r(r).spin = rrnd(-pi / 10, pi / 10) 'different
  159.                                         'r(r).live = 1
  160.  
  161.                                     ELSE ' not big enough to split
  162.                                         IF r <= rocks& THEN newRock r ELSE r(r).live = 0
  163.                                     END IF ' big enough to split
  164.                                     b(i).live = 0 'kill bullet
  165.                                 END IF ' hit rock
  166.                             END IF 'rock is there
  167.                         NEXT ' rock
  168.                         IF b(i).live THEN fcirc b(i).x, b(i).y, 3, _RGB32(255, 255, 0) 'draws bullet
  169.                     ELSE
  170.                         b(i).live = 0 'out of bounds
  171.                     END IF ' bullet is in bounds
  172.                 END IF ' bullet live
  173.             NEXT ' bullet
  174.         END IF ' if ship still live
  175.         _DISPLAY
  176.         IF ship.live = 0 THEN SLEEP ELSE _LIMIT 30 ' if ship dies let's rest and regroup  before restart next life
  177.     WEND
  178.     lives& = lives& - 1
  180.  
  181. FUNCTION freeRock&
  182.     FOR i& = rocks& + 1 TO nRocks ' look for inactive rock number
  183.         IF r(i&).live = 0 THEN freeRock& = i&: EXIT FUNCTION
  184.     NEXT
  185.     BEEP 'when we can't find a free rock
  187.  
  188. SUB explode (x, y, r, frm)
  189.     maxParticles = r * 10
  190.     FOR i = 1 TO r
  191.         NewDot i, x, y, r
  192.     NEXT
  193.     rounds = r
  194.     FOR loopCount = 0 TO frm
  195.         IF _KEYDOWN(27) THEN END
  196.         FOR i = 1 TO rounds
  197.             dots(i).x = dots(i).x + dots(i).dx
  198.             dots(i).y = dots(i).y + dots(i).dy
  199.             dots(i).dx = dots(i).dx * .9
  200.             dots(i).dy = dots(i).dy * .9
  201.             fcirc dots(i).x, dots(i).y, dots(i).size / 2, dots(i).kolor
  202.         NEXT
  203.         IF rounds < maxParticles THEN
  204.             FOR i = 1 TO r
  205.                 NewDot (rounds + i), x, y, r
  206.             NEXT
  207.             rounds = rounds + r
  208.         END IF
  209.         _LIMIT 300
  210.         _DISPLAY
  211.     NEXT
  213.  
  214. SUB NewDot (i, x, y, r)
  215.     angle = pi * 2 * RND
  216.     rd = RND * 30
  217.     dots(i).x = x + rd * COS(angle)
  218.     dots(i).y = y + rd * SIN(angle)
  219.     dots(i).size = RND * r * .1
  220.     rd = RND 'STxAxTIC recommended for rounder spreads
  221.     dots(i).dx = rd * 7 * (7 - dots(i).size) * COS(angle)
  222.     dots(i).dy = rd * 7 * (7 - dots(i).size) * SIN(angle)
  223.     rd = 20 + RND * 70
  224.     dots(i).kolor = _RGBA32(rd, rd, rd, 40)
  226.  
  227. SUB drawship 'simple red iso triangle pointed towards radianAngle
  228.     'calculate 3 tail points of triangle ship
  229.     x1 = ship.x + 40 * COS(ship.a - pi) '   middle
  230.     y1 = ship.y + 40 * SIN(ship.a - pi) '
  231.     x2 = ship.x + 60 * COS(ship.a + .9 * pi) ' wing
  232.     y2 = ship.y + 60 * SIN(ship.a + .9 * pi)
  233.     x3 = ship.x + 60 * COS(ship.a - .9 * pi) ' other wing
  234.     y3 = ship.y + 60 * SIN(ship.a - .9 * pi)
  235.     ftri ship.x, ship.y, x1, y1, x2, y2, _RGB32(80, 120, 80, 80)
  236.     ftri ship.x, ship.y, x1, y1, x3, y3, _RGB32(60, 100, 60, 80)
  237.     LINE (ship.x, ship.y)-(x1, y1), _RGB32(255, 255, 128)
  238.     LINE (ship.x, ship.y)-(x2, y2), _RGB32(180, 180, 120)
  239.     LINE (ship.x, ship.y)-(x3, y3), _RGB32(180, 180, 120)
  241.  
  242. SUB drawRock (iRock)
  243.     '                     for reference
  244.     'x AS LONG
  245.     'y AS LONG
  246.     'r AS LONG 'radius
  247.     'ra AS SINGLE 'rotation angle  a = a + spin
  248.     'heading AS SINGLE 'heading from which dx, dy are calc with speed
  249.     'speed AS SINGLE 'speed
  250.     'spin AS SINGLE
  251.     'seed AS LONG
  252.     'c AS INTEGER 'color   rgb(grey)
  253.     'hit AS LONG 'TF or count before or after hit  not sure I need this from explosions
  254.     'live AS INTEGER 'need this to track rocks still active like bullets
  255.  
  256.     RANDOMIZE USING r(iRock).seed 'this prevents having to save a particular sequence of random numbers
  257.     dx = r(iRock).speed * COS(r(iRock).heading)
  258.     dy = r(iRock).speed * SIN(r(iRock).heading) 'update location
  259.     r(iRock).ra = r(iRock).ra + r(iRock).spin
  260.     IF r(iRock).x + dx + r(iRock).r < 0 OR r(iRock).x + dx - r(iRock).r > xmax OR r(iRock).y + dy + r(iRock).r < 0 OR r(iRock).y + yx - r(iRock).r > ymax THEN
  261.         IF iRock <= rocks& THEN newRock iRock ELSE r(iRock).live = 0
  262.         EXIT SUB ' ressigned get out of here
  263.     ELSE
  264.         r(iRock).x = r(iRock).x + dx
  265.         r(iRock).y = r(iRock).y + dy
  266.     END IF
  267.     IF ((r(iRock).x - ship.x) ^ 2 + (r(iRock).y - ship.y) ^ 2) ^ .5 < r(iRock).r + 30 THEN 'rock collides with ship?
  268.         FOR rad = 1 TO 200
  269.             fcirc ship.x, ship.y, rad, _RGB32(255 - rad, 255 - 2 * rad, 0)
  270.             _DISPLAY
  271.             _LIMIT 300
  272.         NEXT
  273.         lives& = lives& - 1
  274.         IF iRock <= rocks& THEN newRock iRock ELSE r(iRock).live = 0
  275.         EXIT SUB
  276.     END IF
  277.     FOR j = 10 TO 3 STEP -1 '                  rock drawing (see demo program where developed code)
  278.         rRad = .1 * j * r(iRock).r
  279.         leg = rRad * (RND * .7 + .3)
  280.         x0 = r(iRock).x + leg * COS(r(iRock).ra)
  281.         y0 = r(iRock).y + leg * SIN(r(iRock).ra)
  282.         rc = r(iRock).c + 30 * RND - 15
  283.         c& = _RGB32(rc + 5, rc - 10, rc + 5)
  284.         x1 = x0
  285.         y1 = y0
  286.         xoff = RND * 20 - 10 + r(iRock).x
  287.         yoff = RND * 20 - 10 + r(iRock).y
  288.         FOR i = 1 TO 12
  289.             leg = rRad * (RND * .35 + .65)
  290.             IF i = 12 THEN
  291.                 x2 = x0: y2 = y0
  292.             ELSE
  293.                 x2 = xoff + leg * COS(i * polyAngle + r(iRock).ra)
  294.                 y2 = yoff + leg * SIN(i * polyAngle + r(iRock).ra)
  295.             END IF
  296.             ftri r(iRock).x, r(iRock).y, x1, y1, x2, y2, c&
  297.             x1 = x2: y1 = y2
  298.         NEXT
  299.     NEXT
  301.  
  302. SUB newRock (iRock)
  303.     '                     for reference
  304.     'x AS LONG
  305.     'y AS LONG
  306.     'r AS LONG 'radius
  307.     'ra AS SINGLE 'rotation angle  a = a + spin
  308.     'heading AS SINGLE 'heading from which dx, dy are calc with speed
  309.     'speed AS SINGLE 'speed
  310.     'spin AS SINGLE
  311.     'seed AS LONG
  312.     'c AS INTEGER 'color   rgb(grey)
  313.     'hit AS LONG 'TF or count before or after hit  not sure I need this from explosions
  314.     'live AS INTEGER 'need this to track rocks still active like bullets
  315.  
  316.     RANDOMIZE TIMER * RND 'to avoid making twins
  317.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  318.     SELECT CASE side
  319.         CASE 1
  320.             r(iRock).x = -10
  321.             r(iRock).y = rrnd(20, ymax - 20)
  322.             r(iRock).heading = 3 * pi / 2 + RND * pi
  323.         CASE 2
  324.             r(iRock).x = xmax + 10
  325.             r(iRock).y = rrnd(20, ymax - 20)
  326.             r(iRock).heading = pi / 2 + RND * pi
  327.         CASE 3
  328.             r(iRock).x = rrnd(20, xmax - 20)
  329.             r(iRock).y = -10
  330.             r(iRock).heading = RND * pi
  331.         CASE 4
  332.             r(iRock).x = rrnd(20, xmax - 20)
  333.             r(iRock).y = ymax + 10
  334.             r(iRock).heading = pi + RND * pi
  335.     END SELECT
  336.     r(iRock).speed = rrnd(3, 7) 'speed, rotation angle, radius, gray coloring, spin, seed, hit for explosion
  337.     r(iRock).ra = RND * 2 * pi
  338.     r(iRock).r = irnd&(30, 100)
  339.     r(iRock).c = irnd&(10, 60)
  340.     r(iRock).spin = rrnd(-pi / 10, pi / 10)
  341.     r(iRock).seed = INT(RND * 64000) - 32000
  342.     r(iRock).hit = 0
  343.     r(iRock).live = 1
  345.  
  346. FUNCTION irnd& (n1, n2) 'return an integer between 2 numbers
  347.     DIM l%, h%
  348.     IF n1 > n2 THEN l% = n2: h% = n1 ELSE l% = n1: h% = n2
  349.     irnd& = INT(RND * (h% - l% + 1)) + l%
  351.  
  352. FUNCTION rrnd (n1, n2) 'return real number (_single, double, _float depending on default / define setup)
  353.     rrnd = (n2 - n1) * RND + n1
  355.  
  356. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  357.     DIM D AS LONG
  358.     STATIC a&
  359.     D = _DEST
  360.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  361.     _DEST a&
  362.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
  363.     PSET (0, 0), K
  364.     _BLEND a& '<<<< new 2019-12-16 fix
  365.     _DEST D
  366.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  368.  
  369. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG) 'vince version
  370.     x0 = R: y0 = 0: e = 0
  371.     DO WHILE y0 < x0
  372.         IF e <= 0 THEN
  373.             y0 = y0 + 1
  374.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  375.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  376.             e = e + 2 * y0
  377.         ELSE
  378.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  379.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  380.             x0 = x0 - 1: e = e - 2 * x0
  381.         END IF
  382.     LOOP
  383.     LINE (x - R, y)-(x + R, y), C, BF
  385.  

Same assets as in zip
Title: Re: b+ Asteroids makeover
Post by: bplus on October 29, 2020, 09:23:04 pm
Dah! This is why I think I don't know my left from my right:
Code: QB64: [Select]
  1.             WHILE _MOUSEINPUT: WEND 'update ship
  2.             ship.x = _MOUSEX: ship.y = _MOUSEY
  3.             IF lastx <> ship.x OR lasty <> ship.y THEN
  4.                 lastx = ship.x: lasty = ship.y
  5.             ELSE
  6.                 IF _MOUSEBUTTON(1) THEN ship.a = pi 'this is new left and right guns
  7.                 IF _MOUSEBUTTON(2) THEN ship.a = 0
  8.                 IF _KEYDOWN(ASC("w")) THEN ship.a = 1.5 * pi ' well it works but ??
  9.                 IF _KEYDOWN(ASC("z")) THEN ship.a = .5 * pi
  10.             END IF
  11.  
Remnants of the previous shooter code, get rid of IF stuff!  and lastx, lasty

Code: QB64: [Select]
  1.             WHILE _MOUSEINPUT: WEND 'update ship
  2.             ship.x = _MOUSEX: ship.y = _MOUSEY
  3.             IF _MOUSEBUTTON(1) THEN ship.a = pi 'this is new left and right guns
  4.             IF _MOUSEBUTTON(2) THEN ship.a = 0
  5.             IF _KEYDOWN(ASC("w")) THEN ship.a = 1.5 * pi ' well it works but ??
  6.             IF _KEYDOWN(ASC("z")) THEN ship.a = .5 * pi
  7.  

The option to point the gun up or down is there with w, z key press but I don't like taking my left hand off the space bar and taking my eyes off the screen to look for keys.

And are you noticing the slight delay while a rock hit is exploding, I think I had explode worked out to go several frames, that was what frm was, I think...  hmm... how to work that?
Title: Re: b+ Asteroids makeover
Post by: bplus on October 30, 2020, 02:03:38 am
An update with explosions stretched out over several frames so the action isn't paused, sped up.

Code: QB64: [Select]
  2. _TITLE "b+ Asteroids m2" 'started 2018-07-13"
  3. ' 2020-10-27 remove the alternate subs and get down below 200 LOC almost there now! new shooter action font and background
  4. ' 2020-10-28 another makeover explosions and split asteroids
  5. ' 2020-10-29 fix baby rock management, break between lives
  6. ' 2020-10-29 fix left/right gun, fix explosions over many frames to eliminate pause in action, speed up 60 fps
  7.  
  8. '================================================================================================================
  9.  
  10. '    NOTE: !!!!!!!!!!!!!!!   When there is a pause in action, just hit any key to reset next life.
  11.  
  12. '================================================================================================================
  13.  
  14. CONST xmax = 1200, ymax = 700, pi = _PI, polyAngle = _PI / 6, nRocks = 100, nBullets = 2000, bSpeed = 15
  15.  
  16. TYPE particle
  17.     x AS LONG
  18.     y AS LONG
  19.     dx AS SINGLE
  20.     dy AS SINGLE
  21.     size AS SINGLE
  22.     kolor AS _UNSIGNED LONG
  24.  
  25. TYPE bullet
  26.     x AS LONG
  27.     y AS LONG
  28.     dx AS SINGLE
  29.     dy AS SINGLE
  30.     live AS LONG
  32.  
  33. TYPE shipType
  34.     x AS LONG
  35.     y AS LONG
  36.     live AS LONG
  37.     a AS SINGLE '   rotated position usu gun left or right (mouse button), maybe up press w or down press z
  39.  
  40. TYPE rock
  41.     x AS LONG
  42.     y AS LONG
  43.     r AS LONG '            radius
  44.     ra AS SINGLE '         rotation position   a = a + spin
  45.     heading AS SINGLE '    heading from which dx, dy are calc with speed
  46.     speed AS SINGLE '      speed
  47.     spin AS SINGLE '       rotation direction and amount
  48.     seed AS LONG '         for drawing rocks with RND USING
  49.     c AS LONG '            color   rgb(c, c, c)
  50.     live AS LONG '         need this to track rocks still active like bullets
  51.     explodeFrame AS LONG ' after a rock is hit by bullet, it explodes and in more than one frame
  53.  
  54. DIM SHARED dots(2000) AS particle
  55. DIM SHARED b(nBullets) AS bullet
  56. DIM SHARED ship AS shipType
  57. DIM SHARED r(nRocks) AS rock
  58. DIM SHARED lives&, rocks& '   rocks is the minimum number of parent rocks to have on screen  automatic replace when hit or out of bounds, always live
  59. DIM i AS LONG, bullets AS LONG, fire AS LONG, stars&, fnt&, s$, hits&, t, lastt, r AS LONG, newRockN AS LONG
  60.  
  61. SCREEN _NEWIMAGE(xmax, ymax, 32)
  62. _SCREENMOVE 100, 20
  64.  
  65. stars& = _LOADIMAGE("stars.png", 32)
  66. fnt& = _LOADFONT("ARLRDBD.ttf", 12, "MONOSPACE")
  67. _FONT fnt&
  68. COLOR &HFF00FFFF, &H00000000
  69. rocks& = 6 ' always active rocks
  70. lives& = 100
  72.  
  73. WHILE lives& AND _KEYDOWN(27) = 0 ' init start restart
  74.     FOR i = 1 TO nRocks 'reset rocks mainly clear baby rocks
  75.         newRock (i)
  76.         IF i > rocks& THEN r(i).live = 0
  77.     NEXT
  78.     ship.x = xmax / 2 'avoids explosions top left corner at start, dang still get some!
  79.     ship.y = ymax / 2
  80.     ship.live = 1
  81.     WHILE ship.live AND _KEYDOWN(27) = 0
  82.         'draw everything then process bullets
  83.         _PUTIMAGE , stars&
  84.         s$ = "Lives:" + STR$(lives&) + "  Hits:" + STR$(hits&) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits& * 100 / bullets)) + "%"
  85.         _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  86.         FOR i = 1 TO nRocks
  87.             IF r(i).live THEN drawRock i ' while drawing rocks the ship could be blown up
  88.         NEXT
  89.         FOR i = 1 TO nRocks 'smoke up the place with rock debris fields still flying out from hit frames ago
  90.             IF r(i).explodeFrame THEN
  91.                 r(i).explodeFrame = r(i).explodeFrame + 1
  92.                 IF r(i).explodeFrame > .5 * r(i).r THEN
  93.                     r(i).explodeFrame = 0
  94.                     IF i <= rocks& THEN newRock i ' now replace the rock
  95.                 ELSE
  96.                     explode r(i).x, r(i).y, r(i).r, r(i).explodeFrame
  97.                 END IF
  98.             END IF
  99.         NEXT
  100.         IF ship.live THEN
  101.             drawship
  102.             WHILE _MOUSEINPUT: WEND 'update ship
  103.             ship.x = _MOUSEX: ship.y = _MOUSEY
  104.             IF _MOUSEBUTTON(1) THEN ship.a = pi 'this is new left and right guns
  105.             IF _MOUSEBUTTON(2) THEN ship.a = 0
  106.             IF _KEYDOWN(ASC("w")) THEN ship.a = 1.5 * pi ' well it works but ??
  107.             IF _KEYDOWN(ASC("z")) THEN ship.a = .5 * pi
  108.             fire = 0
  109.             IF _KEYDOWN(32) THEN 'fire bullets
  110.                 t = TIMER(.01)
  111.                 IF lastt = 0 OR t - lastt > .2 THEN fire = 1: lastt = t: bullets = bullets + 1
  112.             END IF
  113.             FOR i = 0 TO nBullets 'handle bullets
  114.                 IF b(i).live = 0 AND fire = 1 THEN 'have inactive bullet to use
  115.                     b(i).x = ship.x + bSpeed * COS(ship.a)
  116.                     b(i).y = ship.y + bSpeed * SIN(ship.a)
  117.                     b(i).dx = bSpeed * COS(ship.a)
  118.                     b(i).dy = bSpeed * SIN(ship.a)
  119.                     b(i).live = -1
  120.                     fire = 0
  121.                 END IF
  122.                 IF b(i).live THEN 'new location
  123.                     b(i).x = b(i).x + b(i).dx
  124.                     b(i).y = b(i).y + b(i).dy
  125.                     IF b(i).x > 0 AND b(i).x < xmax AND b(i).y > 0 AND b(i).y < ymax THEN 'in bounds draw it
  126.                         FOR r = 1 TO nRocks 'check for collision with rock
  127.                             IF r(r).live THEN
  128.                                 IF SQR((r(r).x - b(i).x) ^ 2 + (r(r).y - b(i).y) ^ 2) < r(r).r THEN 'its a hit!
  129.                                     r(r).explodeFrame = 1 'linger with explosion
  130.                                     r(r).live = 0
  131.                                     hits& = hits& + 1
  132.                                     IF r(r).r > 30 THEN '       split rock  into 2 new ones
  133.                                         '                        new rock
  134.                                         newRockN = freeRock& '                      get inactive rock number
  135.                                         newRock newRockN '                         new identity and activate
  136.                                         r(newRockN).r = (r(r).r - 10) / 2 '        split in half minus 20% mass
  137.                                         r(newRockN).x = r(r).x + irnd&(-10, 10) ' thrown from parent
  138.                                         r(newRockN).y = r(r).y + irnd&(-10, -1)
  139.                                         r(newRockN).c = r(r).c '                   same color as parent
  140.                                         r(newRockN).heading = rrnd(ship.a, ship.a + pi / 2)
  141.                                         '                        new rock again
  142.                                         newRockN = freeRock& '                      get inactive rock number
  143.                                         newRock newRockN '                         new identity and activate
  144.                                         r(newRockN).r = (r(r).r - 10) / 2 '        split in half minus 20% mass
  145.                                         r(newRockN).x = r(r).x + irnd&(-10, 10) ' thrown from parent
  146.                                         r(newRockN).y = r(r).y + irnd&(1, 10)
  147.                                         r(newRockN).c = r(r).c '                   same color as parent
  148.                                         r(newRockN).heading = rrnd(ship.a, ship.a - pi / 2)
  149.                                     END IF ' big enough to split
  150.                                     b(i).live = 0 'kill bullet
  151.                                 END IF ' hit rock
  152.                             END IF 'rock is there
  153.                         NEXT ' rock
  154.                         IF b(i).live THEN fcirc b(i).x, b(i).y, 3, _RGB32(255, 255, 0) 'draws bullet
  155.                     ELSE
  156.                         b(i).live = 0 'out of bounds
  157.                     END IF ' bullet is in bounds
  158.                 END IF ' bullet live
  159.             NEXT ' bullet
  160.         END IF ' if ship still live
  161.         _DISPLAY
  162.         IF ship.live = 0 THEN SLEEP ELSE _LIMIT 60 ' if ship dies let's rest and regroup  before restart next life
  163.     WEND
  164.     lives& = lives& - 1
  166.  
  167. FUNCTION freeRock&
  168.     DIM i AS LONG
  169.     FOR i = rocks& + 1 TO nRocks ' look for inactive rock number
  170.         IF r(i).live = 0 AND r(i).explodeFrame = 0 THEN freeRock& = i: EXIT FUNCTION
  171.     NEXT
  173.  
  174. SUB explode (x AS LONG, y AS LONG, r AS LONG, frm AS LONG)
  175.     DIM maxParticles AS LONG, i AS LONG, rounds AS LONG, loopCount AS LONG
  176.     maxParticles = r * 4
  177.     FOR i = 1 TO r
  178.         NewDot i, x, y, r
  179.     NEXT
  180.     rounds = r
  181.     FOR loopCount = 0 TO frm
  182.         IF _KEYDOWN(27) THEN END
  183.         FOR i = 1 TO rounds
  184.             dots(i).x = dots(i).x + dots(i).dx
  185.             dots(i).y = dots(i).y + dots(i).dy
  186.             fcirc dots(i).x, dots(i).y, dots(i).size, dots(i).kolor
  187.         NEXT
  188.         IF rounds < maxParticles THEN
  189.             FOR i = 1 TO r
  190.                 NewDot (rounds + i), x, y, r
  191.             NEXT
  192.             rounds = rounds + r
  193.         END IF
  194.     NEXT
  196.  
  197. SUB NewDot (i AS LONG, x AS LONG, y AS LONG, r AS LONG)
  198.     DIM angle, rd
  199.     angle = pi * 2 * RND
  200.     rd = RND * 30
  201.     dots(i).x = x + rd * COS(angle)
  202.     dots(i).y = y + rd * SIN(angle)
  203.     dots(i).size = RND * r * .05
  204.     rd = RND 'STxAxTIC recommended for rounder spreads
  205.     dots(i).dx = rd * 10 * (10 - 2 * dots(i).size) * COS(angle)
  206.     dots(i).dy = rd * 10 * (10 - 2 * dots(i).size) * SIN(angle)
  207.     rd = 20 + RND * 70
  208.     dots(i).kolor = _RGBA32(rd, rd, rd, 80)
  210.  
  211. SUB drawship 'simple red iso triangle pointed towards radianAngle
  212.     DIM x1 AS LONG, y1 AS LONG, x2 AS LONG, y2 AS LONG, x3 AS LONG, y3 AS LONG
  213.     'calculate 3 tail points of triangle ship
  214.     x1 = ship.x + 40 * COS(ship.a - pi) '   middle
  215.     y1 = ship.y + 40 * SIN(ship.a - pi) '
  216.     x2 = ship.x + 60 * COS(ship.a + .9 * pi) ' wing
  217.     y2 = ship.y + 60 * SIN(ship.a + .9 * pi)
  218.     x3 = ship.x + 60 * COS(ship.a - .9 * pi) ' other wing
  219.     y3 = ship.y + 60 * SIN(ship.a - .9 * pi)
  220.     ftri ship.x, ship.y, x1, y1, x2, y2, _RGB32(80, 120, 80, 80)
  221.     ftri ship.x, ship.y, x1, y1, x3, y3, _RGB32(60, 100, 60, 80)
  222.     LINE (ship.x, ship.y)-(x1, y1), _RGB32(255, 255, 128)
  223.     LINE (ship.x, ship.y)-(x2, y2), _RGB32(180, 180, 120)
  224.     LINE (ship.x, ship.y)-(x3, y3), _RGB32(180, 180, 120)
  226.  
  227. SUB drawRock (iRock)
  228.     RANDOMIZE USING r(iRock).seed 'this prevents having to save a particular sequence of random number
  229.     DIM dx, dy, rad AS LONG, j AS LONG, rRad AS SINGLE, leg AS SINGLE, x0 AS LONG, y0 AS LONG, rc AS LONG, c~&, x1 AS LONG, y1 AS LONG, xoff, yoff, i AS LONG
  230.     DIM x2 AS LONG, y2 AS LONG
  231.     dx = r(iRock).speed * COS(r(iRock).heading)
  232.     dy = r(iRock).speed * SIN(r(iRock).heading) 'update location
  233.     r(iRock).ra = r(iRock).ra + r(iRock).spin
  234.     IF r(iRock).x + dx + r(iRock).r < 0 OR r(iRock).x + dx - r(iRock).r > xmax OR r(iRock).y + dy + r(iRock).r < 0 OR r(iRock).y + dy - r(iRock).r > ymax THEN
  235.         IF iRock <= rocks& THEN newRock iRock ELSE r(iRock).live = 0
  236.         EXIT SUB ' reassigned get out of here
  237.     ELSE
  238.         r(iRock).x = r(iRock).x + dx
  239.         r(iRock).y = r(iRock).y + dy
  240.     END IF
  241.     IF ((r(iRock).x - ship.x) ^ 2 + (r(iRock).y - ship.y) ^ 2) ^ .5 < r(iRock).r + 30 THEN 'rock collides with ship?
  242.         FOR rad = 1 TO 200
  243.             fcirc ship.x, ship.y, rad, _RGB32(255 - rad, 255 - 2 * rad, 0)
  244.             _DISPLAY
  245.             _LIMIT 300
  246.         NEXT
  247.         ship.live = 0
  248.         lives& = lives& - 1
  249.         IF iRock <= rocks& THEN newRock iRock ELSE r(iRock).live = 0
  250.         EXIT SUB
  251.     END IF
  252.     FOR j = 10 TO 3 STEP -1 '                  rock drawing (see demo program where developed code)
  253.         rRad = .1 * j * r(iRock).r
  254.         leg = rRad * (RND * .7 + .3)
  255.         x0 = r(iRock).x + leg * COS(r(iRock).ra)
  256.         y0 = r(iRock).y + leg * SIN(r(iRock).ra)
  257.         rc = r(iRock).c + 30 * RND - 15
  258.         c~& = _RGB32(rc + 5, rc - 10, rc + 5)
  259.         x1 = x0
  260.         y1 = y0
  261.         xoff = RND * 20 - 10 + r(iRock).x
  262.         yoff = RND * 20 - 10 + r(iRock).y
  263.         FOR i = 1 TO 12
  264.             leg = rRad * (RND * .35 + .65)
  265.             IF i = 12 THEN
  266.                 x2 = x0: y2 = y0
  267.             ELSE
  268.                 x2 = xoff + leg * COS(i * polyAngle + r(iRock).ra)
  269.                 y2 = yoff + leg * SIN(i * polyAngle + r(iRock).ra)
  270.             END IF
  271.             ftri r(iRock).x, r(iRock).y, x1, y1, x2, y2, c~&
  272.             x1 = x2: y1 = y2
  273.         NEXT
  274.     NEXT
  276.  
  277. SUB newRock (iRock)
  278.     DIM side AS LONG
  279.     RANDOMIZE TIMER * RND 'to avoid making twins
  280.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  281.     SELECT CASE side
  282.         CASE 1
  283.             r(iRock).x = -10
  284.             r(iRock).y = rrnd(20, ymax - 20)
  285.             r(iRock).heading = 3 * pi / 2 + RND * pi
  286.         CASE 2
  287.             r(iRock).x = xmax + 10
  288.             r(iRock).y = rrnd(20, ymax - 20)
  289.             r(iRock).heading = pi / 2 + RND * pi
  290.         CASE 3
  291.             r(iRock).x = rrnd(20, xmax - 20)
  292.             r(iRock).y = -10
  293.             r(iRock).heading = RND * pi
  294.         CASE 4
  295.             r(iRock).x = rrnd(20, xmax - 20)
  296.             r(iRock).y = ymax + 10
  297.             r(iRock).heading = pi + RND * pi
  298.     END SELECT
  299.     r(iRock).speed = rrnd(2, 5) 'speed, rotation angle, radius, gray coloring, spin, seed, hit for explosion
  300.     r(iRock).ra = RND * 2 * pi
  301.     r(iRock).r = irnd&(30, 100)
  302.     r(iRock).c = irnd&(10, 60)
  303.     r(iRock).spin = rrnd(-pi / 20, pi / 20)
  304.     r(iRock).seed = INT(RND * 64000) - 32000
  305.     r(iRock).explodeFrame = 0
  306.     r(iRock).live = 1
  308.  
  309. FUNCTION irnd& (n1, n2) 'return an integer between 2 numbers
  310.     DIM l%, h%
  311.     IF n1 > n2 THEN l% = n2: h% = n1 ELSE l% = n1: h% = n2
  312.     irnd& = INT(RND * (h% - l% + 1)) + l%
  314.  
  315. FUNCTION rrnd (n1, n2) ' return number (expecting reals =_single, double, _float depending on default / define setup)
  316.     rrnd = (n2 - n1) * RND + n1
  318.  
  319. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  320.     DIM D AS LONG
  321.     STATIC a&
  322.     D = _DEST
  323.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  324.     _DEST a&
  325.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
  326.     PSET (0, 0), K
  327.     _BLEND a& '<<<< new 2019-12-16 fix
  328.     _DEST D
  329.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  331.  
  332. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG) 'vince version
  333.     DIM x0 AS LONG, y0 AS LONG, e AS LONG
  334.     x0 = R: y0 = 0: e = 0
  335.     DO WHILE y0 < x0
  336.         IF e <= 0 THEN
  337.             y0 = y0 + 1
  338.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  339.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  340.             e = e + 2 * y0
  341.         ELSE
  342.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  343.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  344.             x0 = x0 - 1: e = e - 2 * x0
  345.         END IF
  346.     LOOP
  347.     LINE (x - R, y)-(x + R, y), C, BF
  349.  

I have to compare the first post to the current version.

Assets in zip first post.
Title: Re: b+ Asteroids makeover
Post by: SierraKen on October 30, 2020, 02:54:47 pm
AWESOME Explosions! I also really like your physics on the broken up asteroids, great job! The keys are a bit awkward for me though, I can use the mouse buttons and the W and Z keys, but is there any other keys? All of the Asteroids games I've ever played lets you rotate your ship in both directions to fire. But of course different is good too if you like this better. But you are doing an amazing job, better artist than I am on everything. :) 
Title: Re: b+ Asteroids makeover
Post by: FellippeHeitor on October 30, 2020, 03:32:02 pm
Very fun to play, bplus!
Title: Re: b+ Asteroids makeover
Post by: bplus on October 30, 2020, 04:23:27 pm
Quote from: SierraKen on October 30, 2020, 02:54:47 pm
AWESOME Explosions! I also really like your physics on the broken up asteroids, great job! The keys are a bit awkward for me though, I can use the mouse buttons and the W and Z keys, but is there any other keys? All of the Asteroids games I've ever played lets you rotate your ship in both directions to fire. But of course different is good too if you like this better. But you are doing an amazing job, better artist than I am on everything. :)

Ken, check out eRATication 5 here is copy:
https://www.qb64.org/forum/index.php?topic=3164.msg124309#msg124309

The mouse/cheese wedge points in the direction you move the mouse, so the bullets are always headed the same direction you move the mouse. I would go with this method except! the point is so wobbly! too wobbly for any good aim and shoot even machine gun style. Try hitting the smaller rats.

I have not found a way to get rid of the wobbly, plus you have to move the point towards the thing you want to shoot at.

I am kind of liking the shooter here, flip the gun left and right, you know exactly where you're pointing when you shoot.

PS I don't recommend w, z I just put it there for... that WASDZ guy ;-))  I should do the other directions too.

Big fan of left hand space bar = fire!, right hand mouse = flipping gun with mouse buttons and driving the ship.
Title: Re: b+ Asteroids makeover
Post by: bplus on October 30, 2020, 04:29:54 pm
Quote from: FellippeHeitor on October 30, 2020, 03:32:02 pm
Very fun to play, bplus!

Good! that's what I am going for :)

Fun to blow up things. Say, should we try more little rocks?

Oh I was going to work out a points system: Highest Points for smallest, darkest, fastest rocks. Next to no points for giant, light, slow moving elephant like rocks.

And of course we have to invite some aliens over for war games ;-))
Title: Re: b+ Asteroids makeover
Post by: SierraKen on October 30, 2020, 04:40:42 pm
LOL I just tried your eRATication, I see your point about turning too fast. One thing you can try is instead of turning by the movement of your mouse, you can turn by turning your mouse wheel. One direction would go one way and the other direction could go another way. I'm sure you could figure it out. If you need help, get mine or your old clock codes and see how the second hand turns around the clock. If you want. :)
Title: Re: b+ Asteroids makeover
Post by: bplus on October 30, 2020, 04:47:05 pm
Quote from: SierraKen on October 30, 2020, 04:40:42 pm
LOL I just tried your eRATication, I see your point about turning too fast. One thing you can try is instead of turning by the movement of your mouse, you can turn by turning your mouse wheel. One direction would go one way and the other direction could go another way. I'm sure you could figure it out. If you need help, get mine or your old clock codes and see how the second hand turns around the clock. If you want. :)

Oh yeah, let's try that! We can keep Left and Right guns and use wheel to fine tune.
Title: Re: b+ Asteroids makeover
Post by: bplus on October 30, 2020, 06:13:21 pm
w is up, z is down.

Now should it be a / d for left and right and leave s for shooting

or

leave space bar alone for shooting and use a / s for left and right?

I am unfamiliar with this system.

The _MOUSEWHEEL works great! Using pi/8 increments so you have all 90 and 45 degree angles covered plus one in between.
Title: Re: b+ Asteroids makeover
Post by: SierraKen on October 30, 2020, 06:23:20 pm
Sweet! I can't wait to play it. If you want to use the regular WASD keys, they are W = up, S = down, A = left, D = right. Z is really hard on the hands to use on a regular keyboard. X is OK for down if you want to use that, but the farther away the keys, the harder it is. I would use WASD.
Title: Re: b+ Asteroids makeover
Post by: bplus on October 30, 2020, 07:06:39 pm
Oh thanks, guess I was off!

Here Ken, this block is all that's changed at moment:
Code: QB64: [Select]
  1.             WHILE _MOUSEINPUT
  2.                 ship.a = ship.a + _MOUSEWHEEL * pi / 8 ' 22.5  degree changes, Thank Ken for this :)
  3.             WEND 'update ship
  4.             ship.x = _MOUSEX: ship.y = _MOUSEY
  5.             IF _MOUSEBUTTON(1) THEN ship.a = pi 'this is new left and right guns
  6.             IF _MOUSEBUTTON(2) THEN ship.a = 0
  7.             IF _KEYDOWN(ASC("w")) THEN ship.a = 1.5 * pi ' well it works but ??
  8.             IF _KEYDOWN(ASC("a")) THEN ship.a = pi
  9.             IF _KEYDOWN(ASC("s")) THEN ship.a = .5 * pi
  10.             IF _KEYDOWN(ASC("d")) THEN ship.a = 0
  11.  
Title: Re: b+ Asteroids makeover
Post by: SierraKen on October 30, 2020, 07:44:43 pm
LOL I love it! When you are ready to add sound, I would use small .mp3 explosion sounds, since QB64 can't access Windows drumset midi sounds, I wish it could, unless it's a library to access?
And like you said, another set of even smaller asteroids to shoot would be cool too, and the alien ship. :D This is coming out really good. It's like the old 90's games that added Windows behavior to 80's arcade games.
Title: Re: b+ Asteroids makeover
Post by: bplus on October 30, 2020, 11:18:03 pm
OK here are some more changes for today, more rocks potentially when hit a big one, Point system, increase level of difficulty, get stoned ending (speaking literally of course!).

Code: QB64: [Select]
  2. _TITLE "b+ Asteroids m3" 'started 2018-07-13"
  3. ' 2020-10-27 remove the alternate subs and get down below 200 LOC almost there now! new shooter action font and background
  4. ' 2020-10-28 another makeover explosions and split asteroids
  5. ' 2020-10-29 fix baby rock management, break between lives
  6. ' 2020-10-29 fix left/right gun, fix explosions over many frames to eliminate pause in action, speed up 60 fps
  7. ' 2020-10-30 m3 SierraKen's idea to angle shooter with mousewheel also finish WASD options, more rocks, points system
  8. ' points:
  9. ' The higher the speed the better    speed range 2 to 5, diff = 3 * 33.3333 = 100          s - 2 * 33.3333
  10. ' The lower the color the better   color range 10 to 60, diff =      50 * 2 = 100  50 - (c - 10) * 2
  11. ' The smaller the size the better  size range 10 to 100, diff = 90 * 1.1111 = 100  90 - (sz -10) * 1.1111
  12. '        ((speed - 2) * 33.3333 + (50 - (c -10)) * 2 + (90 - (r - 10)) * 1.1111) / 3 = 100 best score per hit
  13. ' 2020-10-30 increase level of difficulty, fix double lives lost, add an ending after all lives spent.
  14.  
  15. '================================================================================================================
  16.  
  17. '    NOTE: !!!!!!!!!!!!!!!   When there is a pause in action, just hit any key to reset next life.
  18.  
  19. '================================================================================================================
  20.  
  21. CONST xmax = 1200, ymax = 700, pi = _PI, polyAngle = _PI / 6, nRocks = 300, nBullets = 2000, bSpeed = 15
  22.  
  23. TYPE particle
  24.     x AS LONG
  25.     y AS LONG
  26.     dx AS SINGLE
  27.     dy AS SINGLE
  28.     size AS SINGLE
  29.     kolor AS _UNSIGNED LONG
  31.  
  32. TYPE bullet
  33.     x AS LONG
  34.     y AS LONG
  35.     dx AS SINGLE
  36.     dy AS SINGLE
  37.     live AS LONG
  39.  
  40. TYPE shipType
  41.     x AS LONG
  42.     y AS LONG
  43.     live AS LONG
  44.     a AS SINGLE '   rotated position usu gun left or right (mouse button), maybe up press w or down press z
  46.  
  47. TYPE rock
  48.     x AS LONG
  49.     y AS LONG
  50.     r AS LONG '            radius
  51.     ra AS SINGLE '         rotation position   a = a + spin
  52.     heading AS SINGLE '    heading from which dx, dy are calc with speed
  53.     speed AS SINGLE '      speed
  54.     spin AS SINGLE '       rotation direction and amount
  55.     seed AS LONG '         for drawing rocks with RND USING
  56.     c AS LONG '            color   rgb(c, c, c)
  57.     live AS LONG '         need this to track rocks still active like bullets
  58.     explodeFrame AS LONG ' after a rock is hit by bullet, it explodes and in more than one frame
  60.  
  61. DIM SHARED dots(2000) AS particle
  62. DIM SHARED b(nBullets) AS bullet
  63. DIM SHARED ship AS shipType
  64. DIM SHARED r(nRocks) AS rock
  65. DIM SHARED lives&, points&, rocks& 'rocks is the minimum number of parent rocks to have on screen  automatic replace when hit or out of bounds
  66. DIM i AS LONG, bullets AS LONG, fire AS LONG, stars&, fnt&, fnt2&, s$, hits&, t, lastt, r AS LONG, newRockN AS LONG, maxBabyRocks AS LONG, br AS LONG
  67.  
  68. SCREEN _NEWIMAGE(xmax, ymax, 32)
  69. _SCREENMOVE 100, 20
  71.  
  72. stars& = _LOADIMAGE("stars.png", 32)
  73. fnt& = _LOADFONT("ARLRDBD.ttf", 16, "MONOSPACE")
  74. fnt2& = _LOADFONT("ARLRDBD.ttf", 40, "MONOSPACE")
  75. _FONT fnt&
  76. COLOR &HFF00FFFF, &H00000000
  77. rocks& = 6 ' always active rocks
  78. lives& = 5
  80.  
  81. WHILE lives& > 0 AND _KEYDOWN(27) = 0 ' init start restart
  82.     FOR i = 1 TO nRocks 'reset rocks mainly clear baby rocks
  83.         newRock (i)
  84.         IF i > rocks& THEN r(i).live = 0
  85.     NEXT
  86.     ship.x = xmax / 2 'avoids explosions top left corner at start, dang still get some!
  87.     ship.y = ymax / 2
  88.     ship.live = 1
  89.     WHILE ship.live AND _KEYDOWN(27) = 0
  90.         'draw everything then process bullets
  91.         _PUTIMAGE , stars&
  92.         _FONT fnt&
  93.         s$ = "Lives:" + STR$(lives&) + "  Hits:" + STR$(hits&) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits& * 100 / bullets)) + "%"
  94.         _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 20), s$
  95.         _FONT fnt2&
  96.         s$ = STR$(points&)
  97.         _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  98.         FOR i = 1 TO nRocks
  99.             IF r(i).live THEN drawRock i ' while drawing rocks the ship could be blown up
  100.         NEXT
  101.         FOR i = 1 TO nRocks 'smoke up the place with rock debris fields still flying out from hit frames ago
  102.             IF r(i).explodeFrame THEN
  103.                 r(i).explodeFrame = r(i).explodeFrame + 1
  104.                 IF r(i).explodeFrame > .5 * r(i).r THEN
  105.                     r(i).explodeFrame = 0
  106.                     IF i <= rocks& THEN newRock i ' now replace the rock
  107.                 ELSE
  108.                     explode r(i).x, r(i).y, r(i).r, r(i).explodeFrame
  109.                 END IF
  110.             END IF
  111.         NEXT
  112.         IF ship.live THEN
  113.             drawship
  114.  
  115.             WHILE _MOUSEINPUT
  116.                 ship.a = ship.a + _MOUSEWHEEL * pi / 8 ' 22.5  degree changes, Thank Ken for this :)
  117.             WEND 'update ship
  118.             ship.x = _MOUSEX: ship.y = _MOUSEY
  119.             IF _MOUSEBUTTON(1) THEN ship.a = pi 'this is new left and right guns
  120.             IF _MOUSEBUTTON(2) THEN ship.a = 0
  121.             IF _KEYDOWN(ASC("w")) THEN ship.a = 1.5 * pi ' well it works but ??
  122.             IF _KEYDOWN(ASC("a")) THEN ship.a = pi
  123.             IF _KEYDOWN(ASC("s")) THEN ship.a = .5 * pi
  124.             IF _KEYDOWN(ASC("d")) THEN ship.a = 0
  125.             fire = 0
  126.             IF _KEYDOWN(32) THEN 'fire bullets
  127.                 t = TIMER(.01)
  128.                 IF lastt = 0 OR t - lastt > .2 THEN fire = 1: lastt = t
  129.             END IF
  130.             FOR i = 0 TO nBullets 'handle bullets
  131.                 IF b(i).live = 0 AND fire = 1 THEN 'have inactive bullet to use
  132.                     b(i).x = ship.x + bSpeed * COS(ship.a)
  133.                     b(i).y = ship.y + bSpeed * SIN(ship.a)
  134.                     b(i).dx = bSpeed * COS(ship.a)
  135.                     b(i).dy = bSpeed * SIN(ship.a)
  136.                     b(i).live = -1
  137.                     bullets = bullets + 1
  138.                     fire = 0
  139.                 END IF
  140.                 IF b(i).live THEN 'new location
  141.                     b(i).x = b(i).x + b(i).dx
  142.                     b(i).y = b(i).y + b(i).dy
  143.                     IF b(i).x > 0 AND b(i).x < xmax AND b(i).y > 0 AND b(i).y < ymax THEN 'in bounds draw it
  144.                         FOR r = 1 TO nRocks 'check for collision with rock
  145.                             IF r(r).live THEN
  146.                                 IF SQR((r(r).x - b(i).x) ^ 2 + (r(r).y - b(i).y) ^ 2) < r(r).r THEN 'its a hit!
  147.                                     r(r).explodeFrame = 1 'linger with explosion
  148.                                     r(r).live = 0
  149.                                     hits& = hits& + 1
  150.                                     points& = points& + ((r(r).speed - 2) * 33.3333 + (50 - (r(r).c - 10)) * 2 + (90 - (r(r).r - 10)) * 1.1111) / 3
  151.                                     IF r(r).r > 30 THEN '       split rock  into ? new ones
  152.                                         maxBabyRocks = INT((r(r).r - 10) / 10)
  153.                                         maxBabyRocks = irnd&(2, maxBabyRocks) ' pick a number of baby Rocks
  154.                                         FOR br = 1 TO maxBabyRocks
  155.                                             '                        new rock
  156.                                             newRockN = freeRock& '                          get inactive rock number
  157.                                             newRock newRockN '                              new identity and activate
  158.                                             r(newRockN).r = (r(r).r - 10) / maxBabyRocks '  split in equal parts minus 20% mass
  159.                                             r(newRockN).x = r(r).x + irnd&(-30, 30) '       thrown from parent
  160.                                             r(newRockN).y = r(r).y + irnd&(-30, 30)
  161.                                             r(newRockN).c = r(r).c '                   same color as parent
  162.                                             r(newRockN).heading = rrnd(ship.a - .75 * pi, ship.a + .75 * pi)
  163.                                         NEXT
  164.                                     END IF ' big enough to split
  165.                                     b(i).live = 0 'kill bullet
  166.                                 END IF ' hit rock
  167.                             END IF 'rock is there
  168.                         NEXT ' rock
  169.                         IF b(i).live THEN fcirc b(i).x, b(i).y, 3, _RGB32(255, 255, 0) 'draws bullet
  170.                     ELSE
  171.                         b(i).live = 0 'out of bounds
  172.                     END IF ' bullet is in bounds
  173.                 END IF ' bullet live
  174.             NEXT ' bullet
  175.         END IF ' if ship still live
  176.         _DISPLAY
  177.         IF ship.live = 0 THEN SLEEP ELSE _LIMIT 60 ' if ship dies let's rest and regroup  before restart next life
  178.     WEND
  179.     lives& = lives& - 1
  180.     rocks& = rocks& + 1
  182. ship.x = -200: ship.y = -200 'get it out of the way
  183. WHILE rocks& < nRocks
  184.     _PUTIMAGE , stars&
  185.     rocks& = rocks& + 1
  186.     newRock rocks&
  187.     FOR r = 1 TO nRocks
  188.         drawRock r
  189.     NEXT
  190.     _FONT fnt&
  191.     s$ = "Lives:" + STR$(lives&) + "  Hits:" + STR$(hits&) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits& * 100 / bullets)) + "%"
  192.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 20), s$
  193.     _FONT fnt2&
  194.     s$ = STR$(points&)
  195.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  196.     _FONT fnt&
  197.     _DISPLAY
  198.     _LIMIT 30
  201.  
  202. FUNCTION freeRock&
  203.     DIM i AS LONG
  204.     FOR i = rocks& + 1 TO nRocks ' look for inactive rock number
  205.         IF r(i).live = 0 AND r(i).explodeFrame = 0 THEN freeRock& = i: EXIT FUNCTION
  206.     NEXT
  208.  
  209. SUB explode (x AS LONG, y AS LONG, r AS LONG, frm AS LONG)
  210.     DIM maxParticles AS LONG, i AS LONG, rounds AS LONG, loopCount AS LONG
  211.     maxParticles = r * 4
  212.     FOR i = 1 TO r
  213.         NewDot i, x, y, r
  214.     NEXT
  215.     rounds = r
  216.     FOR loopCount = 0 TO frm
  217.         IF _KEYDOWN(27) THEN END
  218.         FOR i = 1 TO rounds
  219.             dots(i).x = dots(i).x + dots(i).dx
  220.             dots(i).y = dots(i).y + dots(i).dy
  221.             fcirc dots(i).x, dots(i).y, dots(i).size, dots(i).kolor
  222.         NEXT
  223.         IF rounds < maxParticles THEN
  224.             FOR i = 1 TO r
  225.                 NewDot (rounds + i), x, y, r
  226.             NEXT
  227.             rounds = rounds + r
  228.         END IF
  229.     NEXT
  231.  
  232. SUB NewDot (i AS LONG, x AS LONG, y AS LONG, r AS LONG)
  233.     DIM angle, rd
  234.     angle = pi * 2 * RND
  235.     rd = RND * 30
  236.     dots(i).x = x + rd * COS(angle)
  237.     dots(i).y = y + rd * SIN(angle)
  238.     dots(i).size = RND * r * .05
  239.     rd = RND 'STxAxTIC recommended for rounder spreads
  240.     dots(i).dx = rd * 10 * (10 - 2 * dots(i).size) * COS(angle)
  241.     dots(i).dy = rd * 10 * (10 - 2 * dots(i).size) * SIN(angle)
  242.     rd = 20 + RND * 70
  243.     dots(i).kolor = _RGBA32(rd, rd, rd, 80)
  245.  
  246. SUB drawship 'simple red iso triangle pointed towards radianAngle
  247.     DIM x1 AS LONG, y1 AS LONG, x2 AS LONG, y2 AS LONG, x3 AS LONG, y3 AS LONG
  248.     'calculate 3 tail points of triangle ship
  249.     x1 = ship.x + 40 * COS(ship.a - pi) '   middle
  250.     y1 = ship.y + 40 * SIN(ship.a - pi) '
  251.     x2 = ship.x + 60 * COS(ship.a + .9 * pi) ' wing
  252.     y2 = ship.y + 60 * SIN(ship.a + .9 * pi)
  253.     x3 = ship.x + 60 * COS(ship.a - .9 * pi) ' other wing
  254.     y3 = ship.y + 60 * SIN(ship.a - .9 * pi)
  255.     ftri ship.x, ship.y, x1, y1, x2, y2, _RGB32(80, 120, 80, 80)
  256.     ftri ship.x, ship.y, x1, y1, x3, y3, _RGB32(60, 100, 60, 80)
  257.     LINE (ship.x, ship.y)-(x1, y1), _RGB32(255, 255, 128)
  258.     LINE (ship.x, ship.y)-(x2, y2), _RGB32(180, 180, 120)
  259.     LINE (ship.x, ship.y)-(x3, y3), _RGB32(180, 180, 120)
  261.  
  262. SUB drawRock (iRock)
  263.     RANDOMIZE USING r(iRock).seed 'this prevents having to save a particular sequence of random number
  264.     DIM dx, dy, rad AS LONG, j AS LONG, rRad AS SINGLE, leg AS SINGLE, x0 AS LONG, y0 AS LONG, rc AS LONG, c~&, x1 AS LONG, y1 AS LONG, xoff, yoff, i AS LONG
  265.     DIM x2 AS LONG, y2 AS LONG
  266.     dx = r(iRock).speed * COS(r(iRock).heading)
  267.     dy = r(iRock).speed * SIN(r(iRock).heading) 'update location
  268.     r(iRock).ra = r(iRock).ra + r(iRock).spin
  269.     IF r(iRock).x + dx + r(iRock).r < 0 OR r(iRock).x + dx - r(iRock).r > xmax OR r(iRock).y + dy + r(iRock).r < 0 OR r(iRock).y + dy - r(iRock).r > ymax THEN
  270.         IF iRock <= rocks& THEN newRock iRock ELSE r(iRock).live = 0
  271.         EXIT SUB ' reassigned get out of here
  272.     ELSE
  273.         r(iRock).x = r(iRock).x + dx
  274.         r(iRock).y = r(iRock).y + dy
  275.     END IF
  276.     IF ((r(iRock).x - ship.x) ^ 2 + (r(iRock).y - ship.y) ^ 2) ^ .5 < r(iRock).r + 30 THEN 'rock collides with ship?
  277.         FOR rad = 1 TO 200
  278.             fcirc ship.x, ship.y, rad, _RGB32(255 - rad, 255 - 2 * rad, 0)
  279.             _DISPLAY
  280.             _LIMIT 300
  281.         NEXT
  282.         ship.live = 0
  283.         IF iRock <= rocks& THEN newRock iRock ELSE r(iRock).live = 0
  284.         EXIT SUB
  285.     END IF
  286.     FOR j = 10 TO 3 STEP -1 '                  rock drawing (see demo program where developed code)
  287.         rRad = .1 * j * r(iRock).r
  288.         leg = rRad * (RND * .7 + .3)
  289.         x0 = r(iRock).x + leg * COS(r(iRock).ra)
  290.         y0 = r(iRock).y + leg * SIN(r(iRock).ra)
  291.         rc = r(iRock).c + 30 * RND - 15
  292.         c~& = _RGB32(rc + 5, rc - 10, rc + 5)
  293.         x1 = x0
  294.         y1 = y0
  295.         xoff = RND * 20 - 10 + r(iRock).x
  296.         yoff = RND * 20 - 10 + r(iRock).y
  297.         FOR i = 1 TO 12
  298.             leg = rRad * (RND * .35 + .65)
  299.             IF i = 12 THEN
  300.                 x2 = x0: y2 = y0
  301.             ELSE
  302.                 x2 = xoff + leg * COS(i * polyAngle + r(iRock).ra)
  303.                 y2 = yoff + leg * SIN(i * polyAngle + r(iRock).ra)
  304.             END IF
  305.             ftri r(iRock).x, r(iRock).y, x1, y1, x2, y2, c~&
  306.             x1 = x2: y1 = y2
  307.         NEXT
  308.     NEXT
  310.  
  311. SUB newRock (iRock)
  312.     DIM side AS LONG
  313.     RANDOMIZE TIMER * RND 'to avoid making twins
  314.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  315.     SELECT CASE side
  316.         CASE 1
  317.             r(iRock).x = -10
  318.             r(iRock).y = rrnd(20, ymax - 20)
  319.             r(iRock).heading = 3 * pi / 2 + RND * pi
  320.         CASE 2
  321.             r(iRock).x = xmax + 10
  322.             r(iRock).y = rrnd(20, ymax - 20)
  323.             r(iRock).heading = pi / 2 + RND * pi
  324.         CASE 3
  325.             r(iRock).x = rrnd(20, xmax - 20)
  326.             r(iRock).y = -10
  327.             r(iRock).heading = RND * pi
  328.         CASE 4
  329.             r(iRock).x = rrnd(20, xmax - 20)
  330.             r(iRock).y = ymax + 10
  331.             r(iRock).heading = pi + RND * pi
  332.     END SELECT
  333.     r(iRock).speed = rrnd(2, 5) 'speed, rotation angle, radius, gray coloring, spin, seed, hit for explosion
  334.     r(iRock).ra = RND * 2 * pi
  335.     r(iRock).r = irnd&(30, 100)
  336.     r(iRock).c = irnd&(10, 60)
  337.     r(iRock).spin = rrnd(-pi / 20, pi / 20)
  338.     r(iRock).seed = INT(RND * 64000) - 32000
  339.     r(iRock).explodeFrame = 0
  340.     r(iRock).live = 1
  342.  
  343. FUNCTION irnd& (n1, n2) 'return an integer between 2 numbers
  344.     DIM l%, h%
  345.     IF n1 > n2 THEN l% = n2: h% = n1 ELSE l% = n1: h% = n2
  346.     irnd& = INT(RND * (h% - l% + 1)) + l%
  348.  
  349. FUNCTION rrnd (n1, n2) ' return number (expecting reals =_single, double, _float depending on default / define setup)
  350.     rrnd = (n2 - n1) * RND + n1
  352.  
  353. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  354.     DIM D AS LONG
  355.     STATIC a&
  356.     D = _DEST
  357.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  358.     _DEST a&
  359.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
  360.     PSET (0, 0), K
  361.     _BLEND a& '<<<< new 2019-12-16 fix
  362.     _DEST D
  363.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  365.  
  366. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG) 'vince version
  367.     DIM x0 AS LONG, y0 AS LONG, e AS LONG
  368.     x0 = R: y0 = 0: e = 0
  369.     DO WHILE y0 < x0
  370.         IF e <= 0 THEN
  371.             y0 = y0 + 1
  372.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  373.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  374.             e = e + 2 * y0
  375.         ELSE
  376.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  377.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  378.             x0 = x0 - 1: e = e - 2 * x0
  379.         END IF
  380.     LOOP
  381.     LINE (x - R, y)-(x + R, y), C, BF
  383.  
Title: Re: b+ Asteroids makeover
Post by: SierraKen on October 30, 2020, 11:47:49 pm
Works great! I like the smaller asteroids. I hope others play this too, it's amazing.
Title: Re: b+ Asteroids makeover
Post by: bplus on November 01, 2020, 01:04:20 am
Happy Halloween! The aliens have accepted my invitation to come play war games. One moment they are just another spaceship, the next they are transformed into The Bolder of Death.

Code: QB64: [Select]
  2. _TITLE "b+ Asteroids m4 They are Here" 'started 2018-07-13"
  3. ' 2020-10-27 remove the alternate subs and get down below 200 LOC almost there now! new shooter action font and background
  4. ' 2020-10-28 another makeover explosions and split asteroids
  5. ' 2020-10-29 fix baby rock management, break between lives
  6. ' 2020-10-29 fix left/right gun, fix explosions over many frames to eliminate pause in action, speed up 60 fps
  7. ' 2020-10-30 m3 SierraKen's idea to angle shooter with mousewheel also finish WASD options, more rocks, points system
  8. ' points:
  9. ' The higher the speed the better    speed range 2 to 5, diff = 3 * 33.3333 = 100          s - 2 * 33.3333
  10. ' The lower the color the better   color range 10 to 60, diff =      50 * 2 = 100  50 - (c - 10) * 2
  11. ' The smaller the size the better  size range 10 to 100, diff = 90 * 1.1111 = 100  90 - (sz -10) * 1.1111
  12. '        ((speed - 2) * 33.3333 + (50 - (c -10)) * 2 + (90 - (r - 10)) * 1.1111) / 3 = 100 best score per hit
  13. ' 2020-10-30 increase level of difficulty, fix double lives lost, add an ending after all lives spent.
  14. ' 2020-10-31 M4 They are Here - the aliens have accepted my invitaion for war games don't get caught in their beam.
  15. ' rework ending and variable LONG suffix. Aliens on the attack 100 points before or after transformed into the Bolder of Death.
  16.  
  17. '================================================================================================================
  18.  
  19. '    NOTE: !!!!!!!!!!!!!!!   When there is a pause in action, just hit any key to reset next life.
  20.  
  21. '================================================================================================================
  22.  
  23. CONST xmax = 1200, ymax = 700, pi = _PI, polyAngle = _PI / 6, nRocks = 300, nBullets = 2000, bSpeed = 15
  24.  
  25. TYPE alienType
  26.     x AS SINGLE
  27.     y AS SINGLE
  28.     dx AS SINGLE
  29.     dy AS SINGLE
  30.     live AS LONG
  31.     attackFrame AS LONG
  32.     fireX AS LONG
  33.     fireY AS LONG
  34.     transform AS LONG
  36.  
  37. TYPE particle
  38.     x AS LONG
  39.     y AS LONG
  40.     dx AS SINGLE
  41.     dy AS SINGLE
  42.     size AS SINGLE
  43.     kolor AS _UNSIGNED LONG
  45.  
  46. TYPE bullet
  47.     x AS LONG
  48.     y AS LONG
  49.     dx AS SINGLE
  50.     dy AS SINGLE
  51.     live AS LONG
  53.  
  54. TYPE shipType
  55.     x AS LONG
  56.     y AS LONG
  57.     live AS LONG
  58.     a AS SINGLE '   rotated position usu gun left or right (mouse button), maybe up press w or down press z
  60.  
  61. TYPE rock
  62.     x AS LONG
  63.     y AS LONG
  64.     r AS LONG '            radius
  65.     ra AS SINGLE '         rotation position   a = a + spin
  66.     heading AS SINGLE '    heading from which dx, dy are calc with speed
  67.     speed AS SINGLE '      speed
  68.     spin AS SINGLE '       rotation direction and amount
  69.     seed AS LONG '         for drawing rocks with RND USING
  70.     c AS LONG '            color   rgb(c, c, c)
  71.     live AS LONG '         need this to track rocks still active like bullets
  72.     explodeFrame AS LONG ' after a rock is hit by bullet, it explodes and in more than one frame
  74.  
  75. DIM SHARED aliens AS alienType
  76. DIM SHARED dots(2000) AS particle
  77. DIM SHARED b(nBullets) AS bullet
  78. DIM SHARED ship AS shipType
  79. DIM SHARED r(nRocks) AS rock
  81. DIM SHARED points AS LONG
  82. DIM SHARED rocks AS LONG 'rocks is the minimum number of parent rocks to have on screen  automatic replace when hit or out of bounds
  83.  
  84. DIM stars AS LONG, fnt AS LONG, fnt2 AS LONG ' file LOAD handles
  85. DIM i AS LONG, bullets AS LONG, fire AS LONG ' index and bullets
  86. DIM r AS LONG, newRockN AS LONG, maxBabyRocks AS LONG, br AS LONG, hits AS LONG ' rock stuff
  87. DIM s$, t, lastt ' general string and times
  88.  
  89. SCREEN _NEWIMAGE(xmax, ymax, 32)
  90. _SCREENMOVE 100, 20
  92.  
  93. stars = _LOADIMAGE("stars.png", 32)
  94. fnt = _LOADFONT("ARLRDBD.ttf", 16, "MONOSPACE")
  95. fnt2 = _LOADFONT("ARLRDBD.ttf", 40, "MONOSPACE")
  96. _FONT fnt
  97. COLOR &HFF00FFFF, &H00000000
  99.  
  100. rocks = 3 ' always active rocks
  101. lives = 5
  102. WHILE lives > 0 AND _KEYDOWN(27) = 0 ' init start restart
  103.     newAlien
  104.     FOR i = 1 TO nRocks 'reset rocks mainly clear baby rocks
  105.         newRock (i)
  106.         IF i > rocks THEN r(i).live = 0
  107.     NEXT
  108.     ship.x = xmax / 2 'avoids explosions top left corner at start, dang still get some!
  109.     ship.y = ymax / 2
  110.     ship.live = 1
  111.     WHILE ship.live AND _KEYDOWN(27) = 0
  112.         'draw everything then process bullets
  113.         _PUTIMAGE , stars
  114.         '   CIRCLE (aliens.fireX, aliens.fireY), 10, &HFFFFFFFF   transformtion poimt Bolder of Death
  115.         s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  116.         _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 20), s$
  117.         _FONT fnt2
  118.         s$ = STR$(points)
  119.         _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  120.         _FONT fnt
  121.         drawAliens
  122.         FOR i = 1 TO nRocks
  123.             IF r(i).live THEN drawRock i ' while drawing rocks the ship could be blown up
  124.         NEXT
  125.         FOR i = 1 TO nRocks 'smoke up the place with rock debris fields still flying out from hit frames ago
  126.             IF r(i).explodeFrame THEN
  127.                 r(i).explodeFrame = r(i).explodeFrame + 1
  128.                 IF r(i).explodeFrame > .5 * r(i).r THEN
  129.                     r(i).explodeFrame = 0
  130.                     IF i <= rocks THEN newRock i ' now replace the rock
  131.                 ELSE
  132.                     explode r(i).x, r(i).y, r(i).r, r(i).explodeFrame
  133.                 END IF
  134.             END IF
  135.         NEXT
  136.         IF ship.live THEN
  137.             IF SQR((aliens.x - ship.x) ^ 2 + (aliens.y - ship.y) ^ 2) < 60 THEN 'aliens and ship collisde boom boom
  138.                 FOR br = 1 TO 200
  139.                     fcirc ship.x, ship.y, br, _RGB32(255 - br, 255 - 2 * br, 0)
  140.                     _DISPLAY
  141.                     _LIMIT 300
  142.                 NEXT
  143.                 ship.live = 0
  144.                 _CONTINUE
  145.             ELSE
  146.                 drawship
  147.             END IF
  148.             WHILE _MOUSEINPUT
  149.                 ship.a = ship.a + _MOUSEWHEEL * pi / 8 ' 22.5  degree changes, Thank Ken for this :)
  150.             WEND 'update ship
  151.             ship.x = _MOUSEX: ship.y = _MOUSEY
  152.             IF _MOUSEBUTTON(1) THEN ship.a = pi 'this is new left and right guns
  153.             IF _MOUSEBUTTON(2) THEN ship.a = 0
  154.             IF _KEYDOWN(ASC("w")) THEN ship.a = 1.5 * pi ' well it works but ??
  155.             IF _KEYDOWN(ASC("a")) THEN ship.a = pi
  156.             IF _KEYDOWN(ASC("s")) THEN ship.a = .5 * pi
  157.             IF _KEYDOWN(ASC("d")) THEN ship.a = 0
  158.             fire = 0
  159.             IF _KEYDOWN(32) THEN 'fire bullets
  160.                 t = TIMER(.01)
  161.                 IF lastt = 0 OR t - lastt > .2 THEN fire = 1: lastt = t
  162.             END IF
  163.             FOR i = 0 TO nBullets 'handle bullets
  164.                 IF b(i).live = 0 AND fire = 1 THEN 'have inactive bullet to use
  165.                     b(i).x = ship.x + bSpeed * COS(ship.a)
  166.                     b(i).y = ship.y + bSpeed * SIN(ship.a)
  167.                     b(i).dx = bSpeed * COS(ship.a)
  168.                     b(i).dy = bSpeed * SIN(ship.a)
  169.                     b(i).live = -1
  170.                     bullets = bullets + 1
  171.                     fire = 0
  172.                 END IF
  173.                 IF b(i).live THEN 'new location
  174.                     b(i).x = b(i).x + b(i).dx
  175.                     b(i).y = b(i).y + b(i).dy
  176.                     IF b(i).x > 0 AND b(i).x < xmax AND b(i).y > 0 AND b(i).y < ymax THEN 'in bounds draw it
  177.  
  178.                         'bullet hit aliens?
  179.  
  180.                         IF SQR((aliens.x - b(i).x) ^ 2 + (aliens.y - b(i).y) ^ 2) < 30 THEN
  181.                             FOR br = 1 TO 120
  182.                                 CIRCLE (aliens.x, aliens.y), br / 3, plasma~&(0)
  183.                             NEXT
  184.                             _DISPLAY
  185.                             _DELAY .3
  186.                             aliens.live = 0
  187.                             newAlien
  188.                             points = points + 100
  189.                             b(i).live = 0
  190.                             _CONTINUE
  191.                         END IF
  192.  
  193.                         FOR r = 1 TO nRocks 'check for collision with rock
  194.                             IF r(r).live THEN
  195.                                 IF SQR((r(r).x - b(i).x) ^ 2 + (r(r).y - b(i).y) ^ 2) < r(r).r THEN 'its a hit!
  196.                                     r(r).explodeFrame = 1 'linger with explosion
  197.                                     r(r).live = 0
  198.                                     hits = hits + 1
  199.                                     points = points + ((r(r).speed - 2) * 33.3333 + (50 - (r(r).c - 10)) * 2 + (90 - (r(r).r - 10)) * 1.1111) / 3
  200.                                     IF r(r).r > 30 THEN '       split rock  into ? new ones
  201.                                         maxBabyRocks = INT((r(r).r - 10) / 10)
  202.                                         maxBabyRocks = irnd&(2, maxBabyRocks) ' pick a number of baby Rocks
  203.                                         FOR br = 1 TO maxBabyRocks
  204.                                             '                        new rock
  205.                                             newRockN = freeRock& '                          get inactive rock number
  206.                                             newRock newRockN '                              new identity and activate
  207.                                             r(newRockN).r = (r(r).r - 10) / maxBabyRocks '  split in equal parts minus 20% mass
  208.                                             r(newRockN).x = r(r).x + irnd&(-30, 30) '       thrown from parent
  209.                                             r(newRockN).y = r(r).y + irnd&(-30, 30)
  210.                                             r(newRockN).c = r(r).c '                   same color as parent
  211.                                             r(newRockN).heading = rrnd(ship.a - .75 * pi, ship.a + .75 * pi)
  212.                                         NEXT
  213.                                     END IF ' big enough to split
  214.                                     b(i).live = 0 'kill bullet
  215.                                 END IF ' hit rock
  216.                             END IF 'rock is there
  217.                         NEXT ' rock
  218.                         IF b(i).live THEN fcirc b(i).x, b(i).y, 3, _RGB32(255, 255, 0) 'draws bullet
  219.                     ELSE
  220.                         b(i).live = 0 'out of bounds
  221.                     END IF ' bullet is in bounds
  222.                 END IF ' bullet live
  223.             NEXT ' bullet
  224.         END IF ' if ship still live
  225.         _DISPLAY
  226.         IF ship.live = 0 THEN SLEEP ELSE _LIMIT 60 ' if ship dies let's rest and regroup  before restart next life
  227.     WEND
  228.     lives = lives - 1
  229.     rocks = rocks + 1
  231. ship.x = -200: ship.y = -200 'get it out of the way
  232. i = 0
  233. WHILE _KEYDOWN(ASC("q")) = 0
  234.     _PUTIMAGE , stars
  235.     i = i + 1
  236.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  237.     FOR r = 1 TO nRocks
  238.         IF r(r).live THEN drawRock r
  239.     NEXT
  240.     s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  241.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 20), s$
  242.     _FONT fnt2
  243.     s$ = STR$(points)
  244.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  245.     _FONT fnt
  246.     s$ = "Press q to quit"
  247.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 100), s$
  248.     _DISPLAY
  249.     _LIMIT 60
  251.  
  252. SUB newAlien
  253.     DIM side AS LONG, heading
  254.     RANDOMIZE TIMER * RND 'to avoid making twins
  255.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  256.     aliens.fireX = irnd(10, xmax - 10)
  257.     aliens.fireY = irnd(10, ymax - 10)
  258.     aliens.attackFrame = irnd(5, 30)
  259.     SELECT CASE side
  260.         CASE 1
  261.             aliens.x = -10
  262.             aliens.y = rrnd(20, ymax - 20)
  263.         CASE 2
  264.             aliens.x = xmax + 10
  265.             aliens.y = rrnd(20, ymax - 20)
  266.         CASE 3
  267.             aliens.x = rrnd(20, xmax - 20)
  268.             aliens.y = -10
  269.         CASE 4
  270.             aliens.x = rrnd(20, xmax - 20)
  271.             aliens.y = ymax + 10
  272.     END SELECT
  273.     heading = _ATAN2(aliens.fireY - aliens.y, aliens.fireX - aliens.x)
  274.     aliens.dx = 3.5 * COS(heading)
  275.     aliens.dy = 3.5 * SIN(heading)
  276.     aliens.live = 0
  277.     aliens.transform = 0
  279.  
  280. FUNCTION plasma~& (new AS LONG)
  281.     STATIC r, g, b, cnt, beenHere
  282.     IF beenHere = 0 OR new THEN
  283.         r = RND: g = RND: b = RND: beenHere = 1: cnt = 0
  284.     END IF
  285.     cnt = cnt + .2
  286.     plasma~& = _RGB32(127 + 127 * SIN(r * cnt), 127 + 127 * SIN(g * cnt), 127 + 127 * SIN(b * cnt))
  288.  
  289. SUB drawAliens 'shipType
  290.     STATIC ls AS LONG
  291.     DIM light AS LONG, heading
  292.  
  293.     IF aliens.live THEN
  294.         IF aliens.transform = 0 THEN
  295.             fellipse aliens.x, aliens.y, 6, 15, _RGB32(110, 20, 0)
  296.             fellipse aliens.x, aliens.y, 18, 11, _RGB32(150, 60, 0)
  297.             fellipse aliens.x, aliens.y, 30, 7, _RGB32(190, 100, 20)
  298.             FOR light = 1 TO 12
  299.                 fcirc aliens.x - 35 + 5 * light + ls, aliens.y, 1, _RGB32(ls * 20 + 150, ls * 20 + 150, ls * 20 + 150)
  300.             NEXT
  301.             ls = ls + 1
  302.             IF ls > 5 THEN ls = 0
  303.         ELSE
  304.             fcirc aliens.x, aliens.y, 30, &HFFFFFF00
  305.         END IF
  306.         'time to shoot?
  307.         aliens.x = aliens.x + aliens.dx
  308.         aliens.y = aliens.y + aliens.dy
  309.         IF SQR((aliens.fireX - aliens.x) ^ 2 + (aliens.fireY - aliens.y) ^ 2) < 5 THEN 'transform into the bolder of death
  310.             aliens.transform = 1
  311.             heading = _ATAN2(ship.y - aliens.y, ship.x - aliens.x)
  312.             aliens.dx = 10 * COS(heading)
  313.             aliens.dy = 10 * SIN(heading)
  314.         END IF
  315.         IF aliens.x < -10 OR aliens.x > xmax + 10 THEN
  316.             IF aliens.y < -10 OR aliens.y > ymax + 10 THEN '  out of bounds goodbye bolder of death!
  317.                 aliens.live = 0 'man we dodged a bullet here!!!!
  318.                 newAlien 'reset the trap
  319.             END IF
  320.         END IF
  321.     ELSE
  322.         IF aliens.attackFrame THEN
  323.             aliens.attackFrame = aliens.attackFrame - 1
  324.             IF aliens.attackFrame = 0 THEN
  325.                 aliens.live = 1
  326.             END IF
  327.         END IF
  328.     END IF
  330.  
  331. FUNCTION freeRock&
  332.     DIM i AS LONG
  333.     FOR i = rocks + 1 TO nRocks ' look for inactive rock number
  334.         IF r(i).live = 0 AND r(i).explodeFrame = 0 THEN freeRock& = i: EXIT FUNCTION
  335.     NEXT
  337.  
  338. SUB explode (x AS LONG, y AS LONG, r AS LONG, frm AS LONG)
  339.     DIM maxParticles AS LONG, i AS LONG, rounds AS LONG, loopCount AS LONG
  340.     maxParticles = r * 4
  341.     FOR i = 1 TO r
  342.         NewDot i, x, y, r
  343.     NEXT
  344.     rounds = r
  345.     FOR loopCount = 0 TO frm
  346.         IF _KEYDOWN(27) THEN END
  347.         FOR i = 1 TO rounds
  348.             dots(i).x = dots(i).x + dots(i).dx
  349.             dots(i).y = dots(i).y + dots(i).dy
  350.             fcirc dots(i).x, dots(i).y, dots(i).size, dots(i).kolor
  351.         NEXT
  352.         IF rounds < maxParticles THEN
  353.             FOR i = 1 TO r
  354.                 NewDot (rounds + i), x, y, r
  355.             NEXT
  356.             rounds = rounds + r
  357.         END IF
  358.     NEXT
  360.  
  361. SUB NewDot (i AS LONG, x AS LONG, y AS LONG, r AS LONG)
  362.     DIM angle, rd
  363.     angle = pi * 2 * RND
  364.     rd = RND * 30
  365.     dots(i).x = x + rd * COS(angle)
  366.     dots(i).y = y + rd * SIN(angle)
  367.     dots(i).size = RND * r * .05
  368.     rd = RND 'STxAxTIC recommended for rounder spreads
  369.     dots(i).dx = rd * 10 * (10 - 2 * dots(i).size) * COS(angle)
  370.     dots(i).dy = rd * 10 * (10 - 2 * dots(i).size) * SIN(angle)
  371.     rd = 20 + RND * 70
  372.     dots(i).kolor = _RGBA32(rd, rd, rd, 80)
  374.  
  375. SUB drawship 'simple red iso triangle pointed towards radianAngle
  376.     DIM x1 AS LONG, y1 AS LONG, x2 AS LONG, y2 AS LONG, x3 AS LONG, y3 AS LONG
  377.     'calculate 3 tail points of triangle ship
  378.     x1 = ship.x + 40 * COS(ship.a - pi) '   middle
  379.     y1 = ship.y + 40 * SIN(ship.a - pi) '
  380.     x2 = ship.x + 60 * COS(ship.a + .9 * pi) ' wing
  381.     y2 = ship.y + 60 * SIN(ship.a + .9 * pi)
  382.     x3 = ship.x + 60 * COS(ship.a - .9 * pi) ' other wing
  383.     y3 = ship.y + 60 * SIN(ship.a - .9 * pi)
  384.     ftri ship.x, ship.y, x1, y1, x2, y2, _RGB32(80, 120, 80, 80)
  385.     ftri ship.x, ship.y, x1, y1, x3, y3, _RGB32(60, 100, 60, 80)
  386.     LINE (ship.x, ship.y)-(x1, y1), _RGB32(255, 255, 128)
  387.     LINE (ship.x, ship.y)-(x2, y2), _RGB32(180, 180, 120)
  388.     LINE (ship.x, ship.y)-(x3, y3), _RGB32(180, 180, 120)
  390.  
  391. SUB drawRock (iRock)
  392.     RANDOMIZE USING r(iRock).seed 'this prevents having to save a particular sequence of random number
  393.     DIM dx, dy, rad AS LONG, j AS LONG, rRad AS SINGLE, leg AS SINGLE, x0 AS LONG, y0 AS LONG, rc AS LONG, c~&, x1 AS LONG, y1 AS LONG, xoff, yoff, i AS LONG
  394.     DIM x2 AS LONG, y2 AS LONG
  395.     dx = r(iRock).speed * COS(r(iRock).heading)
  396.     dy = r(iRock).speed * SIN(r(iRock).heading) 'update location
  397.     r(iRock).ra = r(iRock).ra + r(iRock).spin
  398.     IF r(iRock).x + dx + r(iRock).r < 0 OR r(iRock).x + dx - r(iRock).r > xmax OR r(iRock).y + dy + r(iRock).r < 0 OR r(iRock).y + dy - r(iRock).r > ymax THEN
  399.         IF iRock <= rocks THEN newRock iRock ELSE r(iRock).live = 0
  400.         EXIT SUB ' reassigned get out of here
  401.     ELSE
  402.         r(iRock).x = r(iRock).x + dx
  403.         r(iRock).y = r(iRock).y + dy
  404.     END IF
  405.     IF ((r(iRock).x - ship.x) ^ 2 + (r(iRock).y - ship.y) ^ 2) ^ .5 < r(iRock).r + 30 THEN 'rock collides with ship?
  406.         FOR rad = 1 TO 200
  407.             fcirc ship.x, ship.y, rad, _RGB32(255 - rad, 255 - 2 * rad, 0)
  408.             _DISPLAY
  409.             _LIMIT 300
  410.         NEXT
  411.         ship.live = 0
  412.         IF iRock <= rocks THEN newRock iRock ELSE r(iRock).live = 0
  413.         EXIT SUB
  414.     END IF
  415.     FOR j = 10 TO 3 STEP -1 '                  rock drawing (see demo program where developed code)
  416.         rRad = .1 * j * r(iRock).r
  417.         leg = rRad * (RND * .7 + .3)
  418.         x0 = r(iRock).x + leg * COS(r(iRock).ra)
  419.         y0 = r(iRock).y + leg * SIN(r(iRock).ra)
  420.         rc = r(iRock).c + 30 * RND - 15
  421.         c~& = _RGB32(rc + 5, rc - 10, rc + 5)
  422.         x1 = x0
  423.         y1 = y0
  424.         xoff = RND * 20 - 10 + r(iRock).x
  425.         yoff = RND * 20 - 10 + r(iRock).y
  426.         FOR i = 1 TO 12
  427.             leg = rRad * (RND * .35 + .65)
  428.             IF i = 12 THEN
  429.                 x2 = x0: y2 = y0
  430.             ELSE
  431.                 x2 = xoff + leg * COS(i * polyAngle + r(iRock).ra)
  432.                 y2 = yoff + leg * SIN(i * polyAngle + r(iRock).ra)
  433.             END IF
  434.             ftri r(iRock).x, r(iRock).y, x1, y1, x2, y2, c~&
  435.             x1 = x2: y1 = y2
  436.         NEXT
  437.     NEXT
  439.  
  440. SUB newRock (iRock)
  441.     DIM side AS LONG
  442.     RANDOMIZE TIMER * RND 'to avoid making twins
  443.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  444.     SELECT CASE side
  445.         CASE 1
  446.             r(iRock).x = -10
  447.             r(iRock).y = rrnd(20, ymax - 20)
  448.             r(iRock).heading = 3 * pi / 2 + RND * pi
  449.         CASE 2
  450.             r(iRock).x = xmax + 10
  451.             r(iRock).y = rrnd(20, ymax - 20)
  452.             r(iRock).heading = pi / 2 + RND * pi
  453.         CASE 3
  454.             r(iRock).x = rrnd(20, xmax - 20)
  455.             r(iRock).y = -10
  456.             r(iRock).heading = RND * pi
  457.         CASE 4
  458.             r(iRock).x = rrnd(20, xmax - 20)
  459.             r(iRock).y = ymax + 10
  460.             r(iRock).heading = pi + RND * pi
  461.     END SELECT
  462.     r(iRock).speed = rrnd(2, 5) 'speed, rotation angle, radius, gray coloring, spin, seed, hit for explosion
  463.     r(iRock).ra = RND * 2 * pi
  464.     r(iRock).r = irnd&(30, 100)
  465.     r(iRock).c = irnd&(10, 60)
  466.     r(iRock).spin = rrnd(-pi / 20, pi / 20)
  467.     r(iRock).seed = INT(RND * 64000) - 32000
  468.     r(iRock).explodeFrame = 0
  469.     r(iRock).live = 1
  471.  
  472. FUNCTION irnd& (n1, n2) 'return an integer between 2 numbers
  473.     DIM l%, h%
  474.     IF n1 > n2 THEN l% = n2: h% = n1 ELSE l% = n1: h% = n2
  475.     irnd& = INT(RND * (h% - l% + 1)) + l%
  477.  
  478. FUNCTION rrnd (n1, n2) ' return number (expecting reals =_single, double, _float depending on default / define setup)
  479.     rrnd = (n2 - n1) * RND + n1
  481.  
  482. SUB fellipse (CX AS LONG, CY AS LONG, a AS LONG, b AS LONG, C AS _UNSIGNED LONG)
  483.     ' CX = center x coordinate
  484.     ' CY = center y coordinate
  485.     '  a = semimajor axis
  486.     '  b = semiminor axis
  487.     '  C = fill color
  488.     IF a = 0 OR b = 0 THEN EXIT SUB
  489.     DIM h2 AS _INTEGER64
  490.     DIM w2 AS _INTEGER64
  491.     DIM h2w2 AS _INTEGER64
  492.     DIM x AS LONG
  493.     DIM y AS LONG
  494.     w2 = a * a
  495.     h2 = b * b
  496.     h2w2 = h2 * w2
  497.     LINE (CX - a, CY)-(CX + a, CY), C, BF
  498.     DO WHILE y < b
  499.         y = y + 1
  500.         x = SQR((h2w2 - y * y * w2) \ h2)
  501.         LINE (CX - x, CY + y)-(CX + x, CY + y), C, BF
  502.         LINE (CX - x, CY - y)-(CX + x, CY - y), C, BF
  503.     LOOP
  505.  
  506. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  507.     DIM D AS LONG
  508.     STATIC a&
  509.     D = _DEST
  510.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  511.     _DEST a&
  512.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
  513.     PSET (0, 0), K
  514.     _BLEND a& '<<<< new 2019-12-16 fix
  515.     _DEST D
  516.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  518.  
  519. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG) 'vince version
  520.     DIM x0 AS LONG, y0 AS LONG, e AS LONG
  521.     x0 = R: y0 = 0: e = 0
  522.     DO WHILE y0 < x0
  523.         IF e <= 0 THEN
  524.             y0 = y0 + 1
  525.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  526.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  527.             e = e + 2 * y0
  528.         ELSE
  529.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  530.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  531.             x0 = x0 - 1: e = e - 2 * x0
  532.         END IF
  533.     LOOP
  534.     LINE (x - R, y)-(x + R, y), C, BF
  536.  
Title: Re: b+ Asteroids makeover
Post by: johnno56 on November 01, 2020, 01:29:32 am
Those last two versions are pretty cool. 'Explosions' were a nice touch... The introduction of the "alien" was a pure touch of deviousness! Space shooters. Ya gotta love 'em... Well done!!
Title: Re: b+ Asteroids makeover
Post by: bplus on November 01, 2020, 11:50:18 am
What more aliens, and moving through space (for 100% drawn animation)? sure we can do that :)
Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 01, 2020, 03:15:40 pm
LOL awesome saucers! It's getting harder too. Is there a way to keep the game moving when the saucer blows up?
Title: Re: b+ Asteroids makeover
Post by: bplus on November 01, 2020, 05:05:32 pm
Quote from: SierraKen on November 01, 2020, 03:15:40 pm
LOL awesome saucers! It's getting harder too. Is there a way to keep the game moving when the saucer blows up?

I am glad you like the saucers because more are coming your way! hee, hee wait until you see a couple of them double teaming you!

Yeah, as long as you have lives left ie <> 0 then press a button and play the next round. You might as well press the space bar because you don't want to stop shooting for a second! I have now increased lives at start to 10.

Bigger scores because target rich environment! Saucers or Death Bolders are 100 points.

M5 more of what you love in moving space (WIP):
Code: QB64: [Select]
  2. _TITLE "b+ Asteroids m5 They are Here" 'started 2018-07-13"
  3. ' 2020-10-27 remove the alternate subs and get down below 200 LOC almost there now! new shooter action font and background
  4. ' 2020-10-28 another makeover explosions and split asteroids
  5. ' 2020-10-29 fix baby rock management, break between lives
  6. ' 2020-10-29 fix left/right gun, fix explosions over many frames to eliminate pause in action, speed up 60 fps
  7. ' 2020-10-30 m3 SierraKen's idea to angle shooter with mousewheel also finish WASD options, more rocks, points system
  8. ' points:
  9. ' The higher the speed the better    speed range 2 to 5, diff = 3 * 33.3333 = 100          s - 2 * 33.3333
  10. ' The lower the color the better   color range 10 to 60, diff =      50 * 2 = 100  50 - (c - 10) * 2
  11. ' The small        er the size the better  size range 10 to 100, diff = 90 * 1.1111 = 100  90 - (sz -10) * 1.1111
  12. '        ((speed - 2) * 33.3333 + (50 - (c -10)) * 2 + (90 - (r - 10)) * 1.1111) / 3 = 100 best score per hit
  13. ' 2020-10-30 increase level of difficulty, fix double lives lost, add an ending after all lives spent.
  14. ' 2020-10-31 M4 They are Here - the aliens have accepted my invitaion for war games don't get caught in their beam.
  15. ' rework ending and variable LONG suffix. Aliens on the attack 100 points before or after transformed into the Bolder of Death.
  16. ' 2020-11-01 FX Moving through space, Oh yeah, more aliens!
  17.  
  18. '================================================================================================================
  19.  
  20. '    NOTE: !!!!!!!!!!!!!!!   When there is a pause in action, just hit any key to reset next life.
  21.  
  22. '================================================================================================================
  23.  
  24. CONST xmax = 1200, ymax = 700, pi = _PI, polyAngle = _PI / 6, nRocks = 300, nBullets = 2000, bSpeed = 15
  25.  
  26. TYPE alienType
  27.     x AS SINGLE
  28.     y AS SINGLE
  29.     dx AS SINGLE
  30.     dy AS SINGLE
  31.     ls AS LONG ' lights offset
  32.     c AS _UNSIGNED LONG ' color
  33.     live AS LONG
  34.     attackFrame AS LONG
  35.     fireX AS LONG
  36.     fireY AS LONG
  37.     transform AS LONG
  39.  
  40. TYPE particle
  41.     x AS LONG
  42.     y AS LONG
  43.     dx AS SINGLE
  44.     dy AS SINGLE
  45.     size AS SINGLE
  46.     kolor AS _UNSIGNED LONG
  48.  
  49. TYPE bullet
  50.     x AS LONG
  51.     y AS LONG
  52.     dx AS SINGLE
  53.     dy AS SINGLE
  54.     live AS LONG
  56.  
  57. TYPE shipType
  58.     x AS LONG
  59.     y AS LONG
  60.     live AS LONG
  61.     a AS SINGLE '   rotated position usu gun left or right (mouse button), maybe up press w or down press z
  63.  
  64. TYPE rock
  65.     x AS LONG
  66.     y AS LONG
  67.     r AS LONG '            radius
  68.     ra AS SINGLE '         rotation position   a = a + spin
  69.     heading AS SINGLE '    heading from which dx, dy are calc with speed
  70.     speed AS SINGLE '      speed
  71.     spin AS SINGLE '       rotation direction and amount
  72.     seed AS LONG '         for drawing rocks with RND USING
  73.     c AS LONG '            color   rgb(c, c, c)
  74.     live AS LONG '         need this to track rocks still active like bullets
  75.     explodeFrame AS LONG ' after a rock is hit by bullet, it explodes and in more than one frame
  77.  
  78. REDIM SHARED aliens(1 TO 5) AS alienType
  79. DIM SHARED dots(2000) AS particle
  80. DIM SHARED b(nBullets) AS bullet
  81. DIM SHARED ship AS shipType
  82. DIM SHARED r(nRocks) AS rock
  84. DIM SHARED points AS LONG
  85. DIM SHARED rocks AS LONG 'rocks is the minimum number of parent rocks to have on screen  automatic replace when hit or out of bounds
  86.  
  87. DIM fnt AS LONG, fnt2 AS LONG ' file LOAD handles
  88. DIM i AS LONG, bullets AS LONG, fire AS LONG ' index and bullets
  89. DIM r AS LONG, newRockN AS LONG, maxBabyRocks AS LONG, br AS LONG, hits AS LONG ' rock stuff
  90. DIM ai AS LONG, alienN AS LONG ' alien index and number
  91. DIM s$, t, lastt ' general string and times
  92.  
  93. SCREEN _NEWIMAGE(xmax, ymax, 32)
  94. _SCREENMOVE 100, 20
  96.  
  97. fnt = _LOADFONT("ARLRDBD.ttf", 16, "MONOSPACE")
  98. fnt2 = _LOADFONT("ARLRDBD.ttf", 40, "MONOSPACE")
  99. _FONT fnt
  100. COLOR &HFF00FFFF, &H00000000
  102.  
  103. alienN = 1
  104. rocks = 4 ' always active rocks
  105. lives = 10
  106. WHILE lives > 0 AND _KEYDOWN(27) = 0 ' init start restart
  107.     REDIM aliens(1 TO alienN) AS alienType
  108.     FOR ai = 1 TO alienN
  109.         newAlien ai
  110.     NEXT
  111.     FOR i = 1 TO nRocks 'reset rocks mainly clear baby rocks
  112.         newRock (i)
  113.         IF i > rocks THEN r(i).live = 0
  114.     NEXT
  115.     ship.x = xmax / 2 'avoids explosions top left corner at start, dang still get some!
  116.     ship.y = ymax / 2
  117.     ship.live = 1
  118.     WHILE ship.live AND _KEYDOWN(27) = 0
  119.         'draw everything then process bullets
  120.         drawStars 1
  121.         '   CIRCLE (aliens.fireX, aliens.fireY), 10, &HFFFFFFFF   transformtion poimt Bolder of Death
  122.         s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  123.         _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 20), s$
  124.         _FONT fnt2
  125.         s$ = STR$(points)
  126.         _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  127.         _FONT fnt
  128.         FOR ai = 1 TO alienN
  129.             drawAliens ai
  130.         NEXT
  131.  
  132.         FOR i = 1 TO nRocks
  133.             IF r(i).live THEN drawRock i ' while drawing rocks the ship could be blown up
  134.         NEXT
  135.         FOR i = 1 TO nRocks 'smoke up the place with rock debris fields still flying out from hit frames ago
  136.             IF r(i).explodeFrame THEN
  137.                 r(i).explodeFrame = r(i).explodeFrame + 1
  138.                 IF r(i).explodeFrame > .5 * r(i).r THEN
  139.                     r(i).explodeFrame = 0
  140.                     IF i <= rocks THEN newRock i ' now replace the rock
  141.                 ELSE
  142.                     explode r(i).x, r(i).y, r(i).r, r(i).explodeFrame
  143.                 END IF
  144.             END IF
  145.         NEXT
  146.         IF ship.live THEN
  147.             FOR ai = 1 TO alienN
  148.                 IF SQR((aliens(ai).x - ship.x) ^ 2 + (aliens(ai).y - ship.y) ^ 2) < 60 THEN 'aliens and ship collisde boom boom
  149.                     FOR br = 1 TO 200
  150.                         fcirc ship.x, ship.y, br, _RGB32(255 - br, 255 - 2 * br, 0)
  151.                         _DISPLAY
  152.                         _LIMIT 300
  153.                     NEXT
  154.                     ship.live = 0
  155.                     _CONTINUE
  156.                 ELSE
  157.                     drawship
  158.                 END IF
  159.             NEXT
  160.             WHILE _MOUSEINPUT
  161.                 ship.a = ship.a + _MOUSEWHEEL * pi / 8 ' 22.5  degree changes, Thank Ken for this :)
  162.             WEND 'update ship
  163.             ship.x = _MOUSEX: ship.y = _MOUSEY
  164.             IF _MOUSEBUTTON(1) THEN ship.a = pi 'this is new left and right guns
  165.             IF _MOUSEBUTTON(2) THEN ship.a = 0
  166.             IF _KEYDOWN(ASC("w")) THEN ship.a = 1.5 * pi ' well it works but ??
  167.             IF _KEYDOWN(ASC("a")) THEN ship.a = pi
  168.             IF _KEYDOWN(ASC("s")) THEN ship.a = .5 * pi
  169.             IF _KEYDOWN(ASC("d")) THEN ship.a = 0
  170.             fire = 0
  171.             IF _KEYDOWN(32) THEN 'fire bullets
  172.                 t = TIMER(.01)
  173.                 IF lastt = 0 OR t - lastt > .2 THEN fire = 1: lastt = t
  174.             END IF
  175.             FOR i = 0 TO nBullets 'handle bullets
  176.                 IF b(i).live = 0 AND fire = 1 THEN 'have inactive bullet to use
  177.                     b(i).x = ship.x + bSpeed * COS(ship.a)
  178.                     b(i).y = ship.y + bSpeed * SIN(ship.a)
  179.                     b(i).dx = bSpeed * COS(ship.a)
  180.                     b(i).dy = bSpeed * SIN(ship.a)
  181.                     b(i).live = -1
  182.                     bullets = bullets + 1
  183.                     fire = 0
  184.                 END IF
  185.                 IF b(i).live THEN 'new location
  186.                     b(i).x = b(i).x + b(i).dx
  187.                     b(i).y = b(i).y + b(i).dy
  188.                     IF b(i).x > 0 AND b(i).x < xmax AND b(i).y > 0 AND b(i).y < ymax THEN 'in bounds draw it
  189.  
  190.                         'bullet hit aliens?
  191.                         FOR ai = 1 TO alienN
  192.                             IF SQR((aliens(ai).x - b(i).x) ^ 2 + (aliens(ai).y - b(i).y) ^ 2) < 30 THEN
  193.                                 FOR br = 1 TO 120
  194.                                     CIRCLE (aliens(ai).x, aliens(ai).y), br / 3, plasma~&(0)
  195.                                 NEXT
  196.                                 _DISPLAY
  197.                                 _DELAY .05
  198.                                 aliens(ai).live = 0
  199.                                 newAlien ai
  200.                                 points = points + 100
  201.                                 b(i).live = 0
  202.                                 _CONTINUE
  203.                             END IF
  204.                         NEXT
  205.                         FOR r = 1 TO nRocks 'check for collision with rock
  206.                             IF r(r).live THEN
  207.                                 IF SQR((r(r).x - b(i).x) ^ 2 + (r(r).y - b(i).y) ^ 2) < r(r).r THEN 'its a hit!
  208.                                     r(r).explodeFrame = 1 'linger with explosion
  209.                                     r(r).live = 0
  210.                                     hits = hits + 1
  211.                                     points = points + ((r(r).speed - 2) * 33.3333 + (50 - (r(r).c - 10)) * 2 + (90 - (r(r).r - 10)) * 1.1111) / 3
  212.                                     IF r(r).r > 30 THEN '       split rock  into ? new ones
  213.                                         maxBabyRocks = INT((r(r).r - 10) / 10)
  214.                                         maxBabyRocks = irnd&(2, maxBabyRocks) ' pick a number of baby Rocks
  215.                                         FOR br = 1 TO maxBabyRocks
  216.                                             '                        new rock
  217.                                             newRockN = freeRock& '                          get inactive rock number
  218.                                             newRock newRockN '                              new identity and activate
  219.                                             r(newRockN).r = (r(r).r - 10) / maxBabyRocks '  split in equal parts minus 20% mass
  220.                                             r(newRockN).x = r(r).x + irnd&(-30, 30) '       thrown from parent
  221.                                             r(newRockN).y = r(r).y + irnd&(-30, 30)
  222.                                             r(newRockN).c = r(r).c '                   same color as parent
  223.                                             r(newRockN).heading = rrnd(ship.a - .75 * pi, ship.a + .75 * pi)
  224.                                         NEXT
  225.                                     END IF ' big enough to split
  226.                                     b(i).live = 0 'kill bullet
  227.                                 END IF ' hit rock
  228.                             END IF 'rock is there
  229.                         NEXT ' rock
  230.                         IF b(i).live THEN fcirc b(i).x, b(i).y, 3, _RGB32(255, 255, 0) 'draws bullet
  231.                     ELSE
  232.                         b(i).live = 0 'out of bounds
  233.                     END IF ' bullet is in bounds
  234.                 END IF ' bullet live
  235.             NEXT ' bullet
  236.         END IF ' if ship still live
  237.         _DISPLAY
  238.         IF ship.live = 0 THEN SLEEP ELSE _LIMIT 60 ' if ship dies let's rest and regroup  before restart next life
  239.     WEND
  240.     lives = lives - 1
  241.     IF lives MOD 4 = 0 THEN rocks = rocks + 1
  242.     IF lives MOD 4 = 2 THEN alienN = alienN + 1
  244. ship.x = -200: ship.y = -200 'get it out of the way
  245. i = 0
  246. WHILE _KEYDOWN(ASC("q")) = 0
  247.     drawStars 0
  248.     i = i + 1
  249.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  250.     FOR r = 1 TO nRocks
  251.         IF r(r).live THEN drawRock r
  252.     NEXT
  253.     s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  254.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 20), s$
  255.     _FONT fnt2
  256.     s$ = STR$(points)
  257.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  258.     _FONT fnt
  259.     s$ = "Press q to quit"
  260.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 100), s$
  261.     _DISPLAY
  262.     _LIMIT 60
  264.  
  265. SUB drawStars (moving)
  266.     TYPE starType
  267.         x AS SINGLE
  268.         y AS SINGLE
  269.         size AS SINGLE
  270.         c AS INTEGER
  271.     END TYPE
  272.     STATIC beenHere, stars(600) AS starType, cy AS LONG
  273.     DIM i AS LONG
  274.     IF beenHere = 0 THEN 'static part
  275.         FOR i = 0 TO 200
  276.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = 0
  277.             stars(i).c = irnd&(80, 140)
  278.         NEXT
  279.         FOR i = 0 TO 200
  280.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = .3
  281.             stars(i).c = irnd&(80, 140)
  282.         NEXT
  283.  
  284.         FOR i = 1 TO 140
  285.             stars(i + 400).x = RND * xmax: stars(i + 400).y = RND * ymax: stars(i + 100).size = .6
  286.             stars(i).c = irnd&(110, 170)
  287.         NEXT
  288.         FOR i = 1 TO 50
  289.             stars(i + 540).x = RND * xmax: stars(i + 540).y = RND * ymax: stars(i + 170).size = 1.2
  290.             stars(i).c = irnd&(140, 200)
  291.         NEXT
  292.         FOR i = 1 TO 10
  293.             stars(i + 590).x = RND * xmax: stars(i + 590).y = RND * ymax: stars(i + 195).size = 2.4
  294.             stars(i).c = irnd&(170, 235)
  295.         NEXT
  296.         cy = ymax / 2
  297.         beenHere = 1
  298.     END IF
  299.     FOR i = 0 TO cy
  300.         LINE (0, i)-(xmax, i), _RGB32(0, 0, .1 * i + 4)
  301.         LINE (0, ymax - i)-(xmax, ymax - i), _RGB(0, 0, .1 * i + 4)
  302.     NEXT
  303.     FOR i = 0 TO 200
  304.         IF moving THEN
  305.             stars(i).x = stars(i).x + .2 * stars(i).size ^ stars(i).size
  306.             IF stars(i).x > xmax THEN stars(i).x = -1 * RND * 20
  307.         END IF
  308.         fcirc stars(i).x, stars(i).y, stars(i).size, _RGB32(stars(i).c - 10, stars(i).c, stars(i).c + 10)
  309.     NEXT
  311.  
  312. SUB newAlien (i AS LONG)
  313.     DIM side AS LONG, heading
  314.     RANDOMIZE TIMER * RND 'to avoid making twins
  315.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  316.     aliens(i).fireX = irnd(10, xmax - 10)
  317.     aliens(i).fireY = irnd(10, ymax - 10)
  318.      aliens(i).attackFrame = irnd(30, 400)    ' EDIT a tweak to survive a little long before murdered with low lives
  319.     SELECT CASE side
  320.         CASE 1
  321.             aliens(i).x = -10
  322.             aliens(i).y = rrnd(20, ymax - 20)
  323.         CASE 2
  324.             aliens(i).x = xmax + 10
  325.             aliens(i).y = rrnd(20, ymax - 20)
  326.         CASE 3
  327.             aliens(i).x = rrnd(20, xmax - 20)
  328.             aliens(i).y = -10
  329.         CASE 4
  330.             aliens(i).x = rrnd(20, xmax - 20)
  331.             aliens(i).y = ymax + 10
  332.     END SELECT
  333.     heading = _ATAN2(aliens(i).fireY - aliens(i).y, aliens(i).fireX - aliens(i).x)
  334.     aliens(i).dx = 3.5 * COS(heading)
  335.     aliens(i).dy = 3.5 * SIN(heading)
  336.     aliens(i).live = 0
  337.     aliens(i).transform = 0
  338.     aliens(i).c = _RGB32(irnd(128, 255), irnd(0, 255), irnd(0, 255))
  340.  
  341. FUNCTION plasma~& (new AS LONG)
  342.     STATIC r, g, b, cnt, beenHere
  343.     IF beenHere = 0 OR new THEN
  344.         r = RND: g = RND: b = RND: beenHere = 1: cnt = 0
  345.     END IF
  346.     cnt = cnt + .2
  347.     plasma~& = _RGB32(127 + 127 * SIN(r * cnt), 127 + 127 * SIN(g * cnt), 127 + 127 * SIN(b * cnt))
  349.  
  350. SUB drawAliens (i AS LONG) 'shipType
  351.     DIM light AS LONG, heading, r AS LONG, g AS LONG, b AS LONG
  352.     IF aliens(i).live THEN
  353.         IF aliens(i).transform = 0 THEN
  354.             r = _RED32(aliens(i).c): g = _GREEN32(aliens(i).c): b = _BLUE32(aliens(i).c)
  355.             fellipse aliens(i).x, aliens(i).y, 6, 15, _RGB32(r, g - 120, b - 100)
  356.             fellipse aliens(i).x, aliens(i).y, 18, 11, _RGB32(r, g - 60, b - 50)
  357.             fellipse aliens(i).x, aliens(i).y, 30, 7, _RGB32(r, g, b)
  358.             FOR light = 1 TO 12
  359.                 fcirc aliens(i).x - 35 + 5 * light + aliens(i).ls, aliens(i).y, 1, _RGB32(aliens(i).ls * 50, aliens(i).ls * 50, aliens(i).ls * 50)
  360.             NEXT
  361.             aliens(i).ls = aliens(i).ls + 1
  362.             IF aliens(i).ls > 5 THEN aliens(i).ls = 0
  363.         ELSE
  364.             fcirc aliens(i).x, aliens(i).y, 30, aliens(i).c
  365.         END IF
  366.         'time to shoot?
  367.         aliens(i).x = aliens(i).x + aliens(i).dx
  368.         aliens(i).y = aliens(i).y + aliens(i).dy
  369.         IF SQR((aliens(i).fireX - aliens(i).x) ^ 2 + (aliens(i).fireY - aliens(i).y) ^ 2) < 5 THEN 'transform into the bolder of death
  370.             aliens(i).transform = 1
  371.             heading = _ATAN2(ship.y - aliens(i).y, ship.x - aliens(i).x)
  372.             aliens(i).dx = 10 * COS(heading)
  373.             aliens(i).dy = 10 * SIN(heading)
  374.         END IF
  375.         IF aliens(i).x < -10 OR aliens(i).x > xmax + 10 THEN
  376.             IF aliens(i).y < -10 OR aliens(i).y > ymax + 10 THEN '  out of bounds goodbye bolder of death!
  377.                 aliens(i).live = 0 'man we dodged a bullet here!!!!
  378.                 newAlien i 'reset the trap
  379.             END IF
  380.         END IF
  381.     ELSE
  382.         IF aliens(i).attackFrame THEN
  383.             aliens(i).attackFrame = aliens(i).attackFrame - 1
  384.             IF aliens(i).attackFrame = 0 THEN
  385.                 aliens(i).live = 1
  386.             END IF
  387.         END IF
  388.     END IF
  390.  
  391. FUNCTION freeRock&
  392.     DIM i AS LONG
  393.     FOR i = rocks + 1 TO nRocks ' look for inactive rock number
  394.         IF r(i).live = 0 AND r(i).explodeFrame = 0 THEN freeRock& = i: EXIT FUNCTION
  395.     NEXT
  397.  
  398. SUB explode (x AS LONG, y AS LONG, r AS LONG, frm AS LONG)
  399.     DIM maxParticles AS LONG, i AS LONG, rounds AS LONG, loopCount AS LONG
  400.     maxParticles = r * 4
  401.     FOR i = 1 TO r
  402.         NewDot i, x, y, r
  403.     NEXT
  404.     rounds = r
  405.     FOR loopCount = 0 TO frm
  406.         IF _KEYDOWN(27) THEN END
  407.         FOR i = 1 TO rounds
  408.             dots(i).x = dots(i).x + dots(i).dx
  409.             dots(i).y = dots(i).y + dots(i).dy
  410.             fcirc dots(i).x, dots(i).y, dots(i).size, dots(i).kolor
  411.         NEXT
  412.         IF rounds < maxParticles THEN
  413.             FOR i = 1 TO r
  414.                 NewDot (rounds + i), x, y, r
  415.             NEXT
  416.             rounds = rounds + r
  417.         END IF
  418.     NEXT
  420.  
  421. SUB NewDot (i AS LONG, x AS LONG, y AS LONG, r AS LONG)
  422.     DIM angle, rd
  423.     angle = pi * 2 * RND
  424.     rd = RND * 30
  425.     dots(i).x = x + rd * COS(angle)
  426.     dots(i).y = y + rd * SIN(angle)
  427.     dots(i).size = RND * r * .05
  428.     rd = RND 'STxAxTIC recommended for rounder spreads
  429.     dots(i).dx = rd * 10 * (10 - 2 * dots(i).size) * COS(angle)
  430.     dots(i).dy = rd * 10 * (10 - 2 * dots(i).size) * SIN(angle)
  431.     rd = 20 + RND * 70
  432.     dots(i).kolor = _RGBA32(rd, rd, rd, 80)
  434.  
  435. SUB drawship 'simple red iso triangle pointed towards radianAngle
  436.     DIM x1 AS LONG, y1 AS LONG, x2 AS LONG, y2 AS LONG, x3 AS LONG, y3 AS LONG
  437.     'calculate 3 tail points of triangle ship
  438.     x1 = ship.x + 40 * COS(ship.a - pi) '   middle
  439.     y1 = ship.y + 40 * SIN(ship.a - pi) '
  440.     x2 = ship.x + 60 * COS(ship.a + .9 * pi) ' wing
  441.     y2 = ship.y + 60 * SIN(ship.a + .9 * pi)
  442.     x3 = ship.x + 60 * COS(ship.a - .9 * pi) ' other wing
  443.     y3 = ship.y + 60 * SIN(ship.a - .9 * pi)
  444.     ftri ship.x, ship.y, x1, y1, x2, y2, _RGB32(80, 120, 80, 80)
  445.     ftri ship.x, ship.y, x1, y1, x3, y3, _RGB32(60, 100, 60, 80)
  446.     LINE (ship.x, ship.y)-(x1, y1), _RGB32(255, 255, 128)
  447.     LINE (ship.x, ship.y)-(x2, y2), _RGB32(180, 180, 120)
  448.     LINE (ship.x, ship.y)-(x3, y3), _RGB32(180, 180, 120)
  450.  
  451. SUB drawRock (iRock)
  452.     RANDOMIZE USING r(iRock).seed 'this prevents having to save a particular sequence of random number
  453.     DIM dx, dy, rad AS LONG, j AS LONG, rRad AS SINGLE, leg AS SINGLE, x0 AS LONG, y0 AS LONG, rc AS LONG, c~&, x1 AS LONG, y1 AS LONG, xoff, yoff, i AS LONG
  454.     DIM x2 AS LONG, y2 AS LONG
  455.     dx = r(iRock).speed * COS(r(iRock).heading)
  456.     dy = r(iRock).speed * SIN(r(iRock).heading) 'update location
  457.     r(iRock).ra = r(iRock).ra + r(iRock).spin
  458.     IF r(iRock).x + dx + r(iRock).r < 0 OR r(iRock).x + dx - r(iRock).r > xmax OR r(iRock).y + dy + r(iRock).r < 0 OR r(iRock).y + dy - r(iRock).r > ymax THEN
  459.         IF iRock <= rocks THEN newRock iRock ELSE r(iRock).live = 0
  460.         EXIT SUB ' reassigned get out of here
  461.     ELSE
  462.         r(iRock).x = r(iRock).x + dx
  463.         r(iRock).y = r(iRock).y + dy
  464.     END IF
  465.     IF ((r(iRock).x - ship.x) ^ 2 + (r(iRock).y - ship.y) ^ 2) ^ .5 < r(iRock).r + 30 THEN 'rock collides with ship?
  466.         FOR rad = 1 TO 200
  467.             fcirc ship.x, ship.y, rad, _RGB32(255 - rad, 255 - 2 * rad, 0)
  468.             _DISPLAY
  469.             _LIMIT 300
  470.         NEXT
  471.         ship.live = 0
  472.         IF iRock <= rocks THEN newRock iRock ELSE r(iRock).live = 0
  473.         EXIT SUB
  474.     END IF
  475.     FOR j = 10 TO 3 STEP -1 '                  rock drawing (see demo program where developed code)
  476.         rRad = .1 * j * r(iRock).r
  477.         leg = rRad * (RND * .7 + .3)
  478.         x0 = r(iRock).x + leg * COS(r(iRock).ra)
  479.         y0 = r(iRock).y + leg * SIN(r(iRock).ra)
  480.         rc = r(iRock).c + 30 * RND - 15
  481.         c~& = _RGB32(rc + 5, rc - 10, rc + 5)
  482.         x1 = x0
  483.         y1 = y0
  484.         xoff = RND * 20 - 10 + r(iRock).x
  485.         yoff = RND * 20 - 10 + r(iRock).y
  486.         FOR i = 1 TO 12
  487.             leg = rRad * (RND * .35 + .65)
  488.             IF i = 12 THEN
  489.                 x2 = x0: y2 = y0
  490.             ELSE
  491.                 x2 = xoff + leg * COS(i * polyAngle + r(iRock).ra)
  492.                 y2 = yoff + leg * SIN(i * polyAngle + r(iRock).ra)
  493.             END IF
  494.             ftri r(iRock).x, r(iRock).y, x1, y1, x2, y2, c~&
  495.             x1 = x2: y1 = y2
  496.         NEXT
  497.     NEXT
  499.  
  500. SUB newRock (iRock)
  501.     DIM side AS LONG
  502.     RANDOMIZE TIMER * RND 'to avoid making twins
  503.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  504.     SELECT CASE side
  505.         CASE 1
  506.             r(iRock).x = -10
  507.             r(iRock).y = rrnd(20, ymax - 20)
  508.             r(iRock).heading = 3 * pi / 2 + RND * pi
  509.         CASE 2
  510.             r(iRock).x = xmax + 10
  511.             r(iRock).y = rrnd(20, ymax - 20)
  512.             r(iRock).heading = pi / 2 + RND * pi
  513.         CASE 3
  514.             r(iRock).x = rrnd(20, xmax - 20)
  515.             r(iRock).y = -10
  516.             r(iRock).heading = RND * pi
  517.         CASE 4
  518.             r(iRock).x = rrnd(20, xmax - 20)
  519.             r(iRock).y = ymax + 10
  520.             r(iRock).heading = pi + RND * pi
  521.     END SELECT
  522.     r(iRock).speed = rrnd(2, 5) 'speed, rotation angle, radius, gray coloring, spin, seed, hit for explosion
  523.     r(iRock).ra = RND * 2 * pi
  524.     r(iRock).r = irnd&(30, 100)
  525.     r(iRock).c = irnd&(10, 60)
  526.     r(iRock).spin = rrnd(-pi / 20, pi / 20)
  527.     r(iRock).seed = INT(RND * 64000) - 32000
  528.     r(iRock).explodeFrame = 0
  529.     r(iRock).live = 1
  531.  
  532. FUNCTION irnd& (n1, n2) 'return an integer between 2 numbers
  533.     DIM l%, h%
  534.     IF n1 > n2 THEN l% = n2: h% = n1 ELSE l% = n1: h% = n2
  535.     irnd& = INT(RND * (h% - l% + 1)) + l%
  537.  
  538. FUNCTION rrnd (n1, n2) ' return number (expecting reals =_single, double, _float depending on default / define setup)
  539.     rrnd = (n2 - n1) * RND + n1
  541.  
  542. SUB fellipse (CX AS LONG, CY AS LONG, xr AS LONG, yr AS LONG, C AS _UNSIGNED LONG)
  543.     IF xr = 0 OR yr = 0 THEN EXIT SUB
  545.     DIM x AS LONG, y AS LONG
  546.     w2 = xr * xr: h2 = yr * yr: h2w2 = h2 * w2
  547.     LINE (CX - xr, CY)-(CX + xr, CY), C, BF
  548.     DO WHILE y < yr
  549.         y = y + 1
  550.         x = SQR((h2w2 - y * y * w2) \ h2)
  551.         LINE (CX - x, CY + y)-(CX + x, CY + y), C, BF
  552.         LINE (CX - x, CY - y)-(CX + x, CY - y), C, BF
  553.     LOOP
  555.  
  556. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  557.     DIM D AS LONG
  558.     STATIC a&
  559.     D = _DEST
  560.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  561.     _DEST a&
  562.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
  563.     PSET (0, 0), K
  564.     _BLEND a& '<<<< new 2019-12-16 fix
  565.     _DEST D
  566.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  568.  
  569. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG) 'vince version
  570.     DIM x0 AS LONG, y0 AS LONG, e AS LONG
  571.     x0 = R: y0 = 0: e = 0
  572.     DO WHILE y0 < x0
  573.         IF e <= 0 THEN
  574.             y0 = y0 + 1
  575.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  576.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  577.             e = e + 2 * y0
  578.         ELSE
  579.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  580.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  581.             x0 = x0 - 1: e = e - 2 * x0
  582.         END IF
  583.     LOOP
  584.     LINE (x - R, y)-(x + R, y), C, BF
  586.  

You just need the font from the asset file now,
Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 01, 2020, 05:53:18 pm
LOL Great job!!!! I'll put this in my Games folder on my computer. :) Thanks for making it.
Title: Re: b+ Asteroids makeover
Post by: bplus on November 01, 2020, 05:59:45 pm
Quote from: SierraKen on November 01, 2020, 05:53:18 pm
LOL Great job!!!! I'll put this in my Games folder on my computer. :) Thanks for making it.

A little tweak to live longer:
Code: QB64: [Select]
  1. aliens(i).attackFrame = irnd(30, 400)    ' EDIT a tweak to survive a little long before getting murdered with low lives over and over...

Already edited in code above.
Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 01, 2020, 07:45:21 pm
Thanks.
Title: Re: b+ Asteroids makeover
Post by: bplus on November 01, 2020, 09:04:03 pm
M6 Play again option, continuous shoot (save the spacebar!), save High Score:
Code: QB64: [Select]
  2. _TITLE "b+ Asteroids m6 Play Again" 'started 2018-07-13"
  3. ' 2020-10-27 remove the alternate subs and get down below 200 LOC almost there now! new shooter action font and background
  4. ' 2020-10-28 another makeover explosions and split asteroids
  5. ' 2020-10-29 fix baby rock management, break between lives
  6. ' 2020-10-29 fix left/right gun, fix explosions over many frames to eliminate pause in action, speed up 60 fps
  7. ' 2020-10-30 m3 SierraKen's idea to angle shooter with mousewheel also finish WASD options, more rocks, points system
  8. ' points:
  9. ' The higher the speed the better    speed range 2 to 5, diff = 3 * 33.3333 = 100          s - 2 * 33.3333
  10. ' The lower the color the better   color range 10 to 60, diff =      50 * 2 = 100  50 - (c - 10) * 2
  11. ' The small        er the size the better  size range 10 to 100, diff = 90 * 1.1111 = 100  90 - (sz -10) * 1.1111
  12. '        ((speed - 2) * 33.3333 + (50 - (c -10)) * 2 + (90 - (r - 10)) * 1.1111) / 3 = 100 best score per hit
  13. ' 2020-10-30 increase level of difficulty, fix double lives lost, add an ending after all lives spent.
  14. ' 2020-10-31 M4 They are Here - the aliens have accepted my invitaion for war games don't get caught in their beam.
  15. ' rework ending and variable LONG suffix. Aliens on the attack 100 points before or after transformed into the Bolder of Death.
  16. ' 2020-11-01 M5 FX Moving through space, Oh yeah, more aliens!
  17. ' 2020-11-01 M6 add play again and save high game , continuous shoot
  18.  
  19. '================================================================================================================
  20.  
  21. '    NOTE: !!!!!!!!!!!!!!!   When there is a pause in action, just hit any key to reset next life.
  22.  
  23. '================================================================================================================
  24.  
  25. CONST xmax = 1200, ymax = 700, pi = _PI, polyAngle = _PI / 6, nRocks = 300, nBullets = 2000, bSpeed = 15
  26.  
  27. TYPE alienType
  28.     x AS SINGLE
  29.     y AS SINGLE
  30.     dx AS SINGLE
  31.     dy AS SINGLE
  32.     ls AS LONG ' lights offset
  33.     c AS _UNSIGNED LONG ' color
  34.     live AS LONG
  35.     attackFrame AS LONG
  36.     fireX AS LONG
  37.     fireY AS LONG
  38.     transform AS LONG
  40.  
  41. TYPE particle
  42.     x AS LONG
  43.     y AS LONG
  44.     dx AS SINGLE
  45.     dy AS SINGLE
  46.     size AS SINGLE
  47.     kolor AS _UNSIGNED LONG
  49.  
  50. TYPE bullet
  51.     x AS LONG
  52.     y AS LONG
  53.     dx AS SINGLE
  54.     dy AS SINGLE
  55.     live AS LONG
  57.  
  58. TYPE shipType
  59.     x AS LONG
  60.     y AS LONG
  61.     live AS LONG
  62.     a AS SINGLE '   rotated position usu gun left or right (mouse button), maybe up press w or down press z
  64.  
  65. TYPE rock
  66.     x AS LONG
  67.     y AS LONG
  68.     r AS LONG '            radius
  69.     ra AS SINGLE '         rotation position   a = a + spin
  70.     heading AS SINGLE '    heading from which dx, dy are calc with speed
  71.     speed AS SINGLE '      speed
  72.     spin AS SINGLE '       rotation direction and amount
  73.     seed AS LONG '         for drawing rocks with RND USING
  74.     c AS LONG '            color   rgb(c, c, c)
  75.     live AS LONG '         need this to track rocks still active like bullets
  76.     explodeFrame AS LONG ' after a rock is hit by bullet, it explodes and in more than one frame
  78.  
  79. REDIM SHARED aliens(1 TO 5) AS alienType
  80. DIM SHARED dots(2000) AS particle
  81. DIM SHARED b(nBullets) AS bullet
  82. DIM SHARED ship AS shipType
  83. DIM SHARED r(nRocks) AS rock
  85. DIM SHARED points AS LONG
  86. DIM SHARED rocks AS LONG 'rocks is the minimum number of parent rocks to have on screen  automatic replace when hit or out of bounds
  87.  
  88. DIM HS AS LONG, fnt AS LONG, fnt2 AS LONG ' file LOAD handles
  89. DIM i AS LONG, bullets AS LONG, fire AS LONG ' index and bullets
  90. DIM r AS LONG, newRockN AS LONG, maxBabyRocks AS LONG, br AS LONG, hits AS LONG ' rock stuff
  91. DIM ai AS LONG, alienN AS LONG ' alien index and number
  92. DIM hs$, s$, t, lastt ' general string and times
  93.  
  94. SCREEN _NEWIMAGE(xmax, ymax, 32)
  95. _SCREENMOVE 100, 20
  97.  
  98. fnt = _LOADFONT("ARLRDBD.ttf", 16, "MONOSPACE")
  99. fnt2 = _LOADFONT("ARLRDBD.ttf", 40, "MONOSPACE")
  100. _FONT fnt
  101. COLOR &HFF00FFFF, &H00000000
  103.  
  104. restart:
  105. IF _FILEEXISTS("Asteroids High Score.txt") THEN
  106.     OPEN "Asteroids High Score.txt" FOR INPUT AS #1
  107.     INPUT #1, HS
  108.     CLOSE #1
  110. hs$ = "  High Score:" + STR$(HS)
  111. lives = 10: alienN = 1: rocks = 4: ' always active rocks
  112. points = 0: hits = 0: bullets = 0
  113. WHILE lives > 0 AND _KEYDOWN(27) = 0 ' init start restart
  114.     REDIM aliens(1 TO alienN) AS alienType
  115.     FOR ai = 1 TO alienN
  116.         newAlien ai
  117.     NEXT
  118.     FOR i = 1 TO nRocks 'reset rocks mainly clear baby rocks
  119.         newRock (i)
  120.         IF i > rocks THEN r(i).live = 0
  121.     NEXT
  122.     ship.x = xmax / 2 'avoids explosions top left corner at start, dang still get some!
  123.     ship.y = ymax / 2
  124.     ship.live = 1
  125.     WHILE ship.live AND _KEYDOWN(27) = 0
  126.         'draw everything then process bullets
  127.         drawStars 1
  128.         '   CIRCLE (aliens.fireX, aliens.fireY), 10, &HFFFFFFFF   transformtion poimt Bolder of Death
  129.         s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  130.         _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 20), s$
  131.         _FONT fnt2
  132.         s$ = STR$(points) + hs$
  133.         _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  134.         _FONT fnt
  135.         FOR ai = 1 TO alienN
  136.             drawAliens ai
  137.         NEXT
  138.  
  139.         FOR i = 1 TO nRocks
  140.             IF r(i).live THEN drawRock i ' while drawing rocks the ship could be blown up
  141.         NEXT
  142.         FOR i = 1 TO nRocks 'smoke up the place with rock debris fields still flying out from hit frames ago
  143.             IF r(i).explodeFrame THEN
  144.                 r(i).explodeFrame = r(i).explodeFrame + 1
  145.                 IF r(i).explodeFrame > .5 * r(i).r THEN
  146.                     r(i).explodeFrame = 0
  147.                     IF i <= rocks THEN newRock i ' now replace the rock
  148.                 ELSE
  149.                     explode r(i).x, r(i).y, r(i).r, r(i).explodeFrame
  150.                 END IF
  151.             END IF
  152.         NEXT
  153.         IF ship.live THEN
  154.             FOR ai = 1 TO alienN
  155.                 IF SQR((aliens(ai).x - ship.x) ^ 2 + (aliens(ai).y - ship.y) ^ 2) < 60 THEN 'aliens and ship collisde boom boom
  156.                     FOR br = 1 TO 200
  157.                         fcirc ship.x, ship.y, br, _RGB32(255 - br, 255 - 2 * br, 0)
  158.                         _DISPLAY
  159.                         _LIMIT 300
  160.                     NEXT
  161.                     ship.live = 0
  162.                     _CONTINUE
  163.                 ELSE
  164.                     drawship
  165.                 END IF
  166.             NEXT
  167.             WHILE _MOUSEINPUT
  168.                 ship.a = ship.a + _MOUSEWHEEL * pi / 8 ' 22.5  degree changes, Thank Ken for this :)
  169.             WEND 'update ship
  170.             ship.x = _MOUSEX: ship.y = _MOUSEY
  171.             IF _MOUSEBUTTON(1) THEN ship.a = pi 'this is new left and right guns
  172.             IF _MOUSEBUTTON(2) THEN ship.a = 0
  173.             IF _KEYDOWN(ASC("w")) THEN ship.a = 1.5 * pi ' well it works but ??
  174.             IF _KEYDOWN(ASC("a")) THEN ship.a = pi
  175.             IF _KEYDOWN(ASC("s")) THEN ship.a = .5 * pi
  176.             IF _KEYDOWN(ASC("d")) THEN ship.a = 0
  177.             fire = 0
  178.             'IF _KEYDOWN(32) THEN 'fire bullets
  179.             t = TIMER(.01)
  180.             IF lastt = 0 OR t - lastt > .2 THEN fire = 1: lastt = t
  181.             'END IF
  182.             FOR i = 0 TO nBullets 'handle bullets
  183.                 IF b(i).live = 0 AND fire = 1 THEN 'have inactive bullet to use
  184.                     b(i).x = ship.x + bSpeed * COS(ship.a)
  185.                     b(i).y = ship.y + bSpeed * SIN(ship.a)
  186.                     b(i).dx = bSpeed * COS(ship.a)
  187.                     b(i).dy = bSpeed * SIN(ship.a)
  188.                     b(i).live = -1
  189.                     bullets = bullets + 1
  190.                     fire = 0
  191.                 END IF
  192.                 IF b(i).live THEN 'new location
  193.                     b(i).x = b(i).x + b(i).dx
  194.                     b(i).y = b(i).y + b(i).dy
  195.                     IF b(i).x > 0 AND b(i).x < xmax AND b(i).y > 0 AND b(i).y < ymax THEN 'in bounds draw it
  196.  
  197.                         'bullet hit aliens?
  198.                         FOR ai = 1 TO alienN
  199.                             IF SQR((aliens(ai).x - b(i).x) ^ 2 + (aliens(ai).y - b(i).y) ^ 2) < 30 THEN
  200.                                 FOR br = 1 TO 120
  201.                                     CIRCLE (aliens(ai).x, aliens(ai).y), br / 3, plasma~&(0)
  202.                                 NEXT
  203.                                 _DISPLAY
  204.                                 _DELAY .05
  205.                                 aliens(ai).live = 0
  206.                                 newAlien ai
  207.                                 points = points + 100
  208.                                 b(i).live = 0
  209.                                 _CONTINUE
  210.                             END IF
  211.                         NEXT
  212.                         FOR r = 1 TO nRocks 'check for collision with rock
  213.                             IF r(r).live THEN
  214.                                 IF SQR((r(r).x - b(i).x) ^ 2 + (r(r).y - b(i).y) ^ 2) < r(r).r THEN 'its a hit!
  215.                                     r(r).explodeFrame = 1 'linger with explosion
  216.                                     r(r).live = 0
  217.                                     hits = hits + 1
  218.                                     points = points + ((r(r).speed - 2) * 33.3333 + (50 - (r(r).c - 10)) * 2 + (90 - (r(r).r - 10)) * 1.1111) / 3
  219.                                     IF r(r).r > 30 THEN '       split rock  into ? new ones
  220.                                         maxBabyRocks = INT((r(r).r - 10) / 10)
  221.                                         maxBabyRocks = irnd&(2, maxBabyRocks) ' pick a number of baby Rocks
  222.                                         FOR br = 1 TO maxBabyRocks
  223.                                             '                        new rock
  224.                                             newRockN = freeRock& '                          get inactive rock number
  225.                                             newRock newRockN '                              new identity and activate
  226.                                             r(newRockN).r = (r(r).r - 10) / maxBabyRocks '  split in equal parts minus 20% mass
  227.                                             r(newRockN).x = r(r).x + irnd&(-30, 30) '       thrown from parent
  228.                                             r(newRockN).y = r(r).y + irnd&(-30, 30)
  229.                                             r(newRockN).c = r(r).c '                   same color as parent
  230.                                             r(newRockN).heading = rrnd(ship.a - .75 * pi, ship.a + .75 * pi)
  231.                                         NEXT
  232.                                     END IF ' big enough to split
  233.                                     b(i).live = 0 'kill bullet
  234.                                 END IF ' hit rock
  235.                             END IF 'rock is there
  236.                         NEXT ' rock
  237.                         IF b(i).live THEN fcirc b(i).x, b(i).y, 3, _RGB32(255, 255, 0) 'draws bullet
  238.                     ELSE
  239.                         b(i).live = 0 'out of bounds
  240.                     END IF ' bullet is in bounds
  241.                 END IF ' bullet live
  242.             NEXT ' bullet
  243.         END IF ' if ship still live
  244.         _DISPLAY
  245.         IF ship.live = 0 THEN SLEEP ELSE _LIMIT 60 ' if ship dies let's rest and regroup  before restart next life
  246.     WEND
  247.     lives = lives - 1
  248.     IF lives MOD 4 = 0 THEN rocks = rocks + 1
  249.     IF lives MOD 4 = 2 THEN alienN = alienN + 1
  251. IF points > HS THEN
  252.     OPEN "Asteroids High Score.txt" FOR OUTPUT AS #1
  253.     PRINT #1, points
  254.     CLOSE #1
  256. ship.x = -200: ship.y = -200 'get it out of the way
  257. i = 0
  258. DIM k$
  259. WHILE _KEYDOWN(ASC("q")) = 0
  260.     drawStars 0
  261.     i = i + 1
  262.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  263.     FOR r = 1 TO nRocks
  264.         IF r(r).live THEN drawRock r
  265.     NEXT
  266.     s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  267.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 20), s$
  268.     _FONT fnt2
  269.     s$ = STR$(points)
  270.     IF points > HS THEN s$ = s$ + " a New Record!" ELSE s$ = STR$(points) + hs$
  271.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  272.     _FONT fnt
  273.     s$ = "Press q to quit, p or a to Play Again..."
  274.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 100), s$
  275.     IF _KEYDOWN(ASC("a")) OR _KEYDOWN(ASC("p")) THEN GOTO restart
  276.     _DISPLAY
  277.     _LIMIT 60
  279.  
  280. SUB drawStars (moving)
  281.     TYPE starType
  282.         x AS SINGLE
  283.         y AS SINGLE
  284.         size AS SINGLE
  285.         c AS INTEGER
  286.     END TYPE
  287.     STATIC beenHere, stars(600) AS starType, cy AS LONG
  288.     DIM i AS LONG
  289.     IF beenHere = 0 THEN 'static part
  290.         FOR i = 0 TO 200
  291.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = 0
  292.             stars(i).c = irnd&(80, 140)
  293.         NEXT
  294.         FOR i = 0 TO 200
  295.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = .3
  296.             stars(i).c = irnd&(80, 140)
  297.         NEXT
  298.  
  299.         FOR i = 1 TO 140
  300.             stars(i + 400).x = RND * xmax: stars(i + 400).y = RND * ymax: stars(i + 100).size = .6
  301.             stars(i).c = irnd&(110, 170)
  302.         NEXT
  303.         FOR i = 1 TO 50
  304.             stars(i + 540).x = RND * xmax: stars(i + 540).y = RND * ymax: stars(i + 170).size = 1.2
  305.             stars(i).c = irnd&(140, 200)
  306.         NEXT
  307.         FOR i = 1 TO 10
  308.             stars(i + 590).x = RND * xmax: stars(i + 590).y = RND * ymax: stars(i + 195).size = 2.4
  309.             stars(i).c = irnd&(170, 235)
  310.         NEXT
  311.         cy = ymax / 2
  312.         beenHere = 1
  313.     END IF
  314.     FOR i = 0 TO cy
  315.         LINE (0, i)-(xmax, i), _RGB32(0, 0, .1 * i + 4)
  316.         LINE (0, ymax - i)-(xmax, ymax - i), _RGB(0, 0, .1 * i + 4)
  317.     NEXT
  318.     FOR i = 0 TO 200
  319.         IF moving THEN
  320.             stars(i).x = stars(i).x + .2 * stars(i).size ^ stars(i).size
  321.             IF stars(i).x > xmax THEN stars(i).x = -1 * RND * 20
  322.         END IF
  323.         fcirc stars(i).x, stars(i).y, stars(i).size, _RGB32(stars(i).c - 10, stars(i).c, stars(i).c + 10)
  324.     NEXT
  326.  
  327. SUB newAlien (i AS LONG)
  328.     DIM side AS LONG, heading
  329.     RANDOMIZE TIMER * RND 'to avoid making twins
  330.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  331.     aliens(i).fireX = irnd(10, xmax - 10)
  332.     aliens(i).fireY = irnd(10, ymax - 10)
  333.     aliens(i).attackFrame = irnd(30, 400) ' EDIT a tweak to survive a little long before getting murdered with low lives over and over...
  334.     SELECT CASE side
  335.         CASE 1
  336.             aliens(i).x = -10
  337.             aliens(i).y = rrnd(20, ymax - 20)
  338.         CASE 2
  339.             aliens(i).x = xmax + 10
  340.             aliens(i).y = rrnd(20, ymax - 20)
  341.         CASE 3
  342.             aliens(i).x = rrnd(20, xmax - 20)
  343.             aliens(i).y = -10
  344.         CASE 4
  345.             aliens(i).x = rrnd(20, xmax - 20)
  346.             aliens(i).y = ymax + 10
  347.     END SELECT
  348.     heading = _ATAN2(aliens(i).fireY - aliens(i).y, aliens(i).fireX - aliens(i).x)
  349.     aliens(i).dx = 3.5 * COS(heading)
  350.     aliens(i).dy = 3.5 * SIN(heading)
  351.     aliens(i).live = 0
  352.     aliens(i).transform = 0
  353.     aliens(i).c = _RGB32(irnd(128, 255), irnd(0, 255), irnd(0, 255))
  355.  
  356. FUNCTION plasma~& (new AS LONG)
  357.     STATIC r, g, b, cnt, beenHere
  358.     IF beenHere = 0 OR new THEN
  359.         r = RND: g = RND: b = RND: beenHere = 1: cnt = 0
  360.     END IF
  361.     cnt = cnt + .2
  362.     plasma~& = _RGB32(127 + 127 * SIN(r * cnt), 127 + 127 * SIN(g * cnt), 127 + 127 * SIN(b * cnt))
  364.  
  365. SUB drawAliens (i AS LONG) 'shipType
  366.     DIM light AS LONG, heading, r AS LONG, g AS LONG, b AS LONG
  367.     IF aliens(i).live THEN
  368.         IF aliens(i).transform = 0 THEN
  369.             r = _RED32(aliens(i).c): g = _GREEN32(aliens(i).c): b = _BLUE32(aliens(i).c)
  370.             fellipse aliens(i).x, aliens(i).y, 6, 15, _RGB32(r, g - 120, b - 100)
  371.             fellipse aliens(i).x, aliens(i).y, 18, 11, _RGB32(r, g - 60, b - 50)
  372.             fellipse aliens(i).x, aliens(i).y, 30, 7, _RGB32(r, g, b)
  373.             FOR light = 1 TO 12
  374.                 fcirc aliens(i).x - 35 + 5 * light + aliens(i).ls, aliens(i).y, 1, _RGB32(aliens(i).ls * 50, aliens(i).ls * 50, aliens(i).ls * 50)
  375.             NEXT
  376.             aliens(i).ls = aliens(i).ls + 1
  377.             IF aliens(i).ls > 5 THEN aliens(i).ls = 0
  378.         ELSE
  379.             fcirc aliens(i).x, aliens(i).y, 30, aliens(i).c
  380.         END IF
  381.         'time to shoot?
  382.         aliens(i).x = aliens(i).x + aliens(i).dx
  383.         aliens(i).y = aliens(i).y + aliens(i).dy
  384.         IF SQR((aliens(i).fireX - aliens(i).x) ^ 2 + (aliens(i).fireY - aliens(i).y) ^ 2) < 5 THEN 'transform into the bolder of death
  385.             aliens(i).transform = 1
  386.             heading = _ATAN2(ship.y - aliens(i).y, ship.x - aliens(i).x)
  387.             aliens(i).dx = 10 * COS(heading)
  388.             aliens(i).dy = 10 * SIN(heading)
  389.         END IF
  390.         IF aliens(i).x < -10 OR aliens(i).x > xmax + 10 THEN
  391.             IF aliens(i).y < -10 OR aliens(i).y > ymax + 10 THEN '  out of bounds goodbye bolder of death!
  392.                 aliens(i).live = 0 'man we dodged a bullet here!!!!
  393.                 newAlien i 'reset the trap
  394.             END IF
  395.         END IF
  396.     ELSE
  397.         IF aliens(i).attackFrame THEN
  398.             aliens(i).attackFrame = aliens(i).attackFrame - 1
  399.             IF aliens(i).attackFrame = 0 THEN
  400.                 aliens(i).live = 1
  401.             END IF
  402.         END IF
  403.     END IF
  405.  
  406. FUNCTION freeRock&
  407.     DIM i AS LONG
  408.     FOR i = rocks + 1 TO nRocks ' look for inactive rock number
  409.         IF r(i).live = 0 AND r(i).explodeFrame = 0 THEN freeRock& = i: EXIT FUNCTION
  410.     NEXT
  412.  
  413. SUB explode (x AS LONG, y AS LONG, r AS LONG, frm AS LONG)
  414.     DIM maxParticles AS LONG, i AS LONG, rounds AS LONG, loopCount AS LONG
  415.     maxParticles = r * 4
  416.     FOR i = 1 TO r
  417.         NewDot i, x, y, r
  418.     NEXT
  419.     rounds = r
  420.     FOR loopCount = 0 TO frm
  421.         IF _KEYDOWN(27) THEN END
  422.         FOR i = 1 TO rounds
  423.             dots(i).x = dots(i).x + dots(i).dx
  424.             dots(i).y = dots(i).y + dots(i).dy
  425.             fcirc dots(i).x, dots(i).y, dots(i).size, dots(i).kolor
  426.         NEXT
  427.         IF rounds < maxParticles THEN
  428.             FOR i = 1 TO r
  429.                 NewDot (rounds + i), x, y, r
  430.             NEXT
  431.             rounds = rounds + r
  432.         END IF
  433.     NEXT
  435.  
  436. SUB NewDot (i AS LONG, x AS LONG, y AS LONG, r AS LONG)
  437.     DIM angle, rd
  438.     angle = pi * 2 * RND
  439.     rd = RND * 30
  440.     dots(i).x = x + rd * COS(angle)
  441.     dots(i).y = y + rd * SIN(angle)
  442.     dots(i).size = RND * r * .05
  443.     rd = RND 'STxAxTIC recommended for rounder spreads
  444.     dots(i).dx = rd * 10 * (10 - 2 * dots(i).size) * COS(angle)
  445.     dots(i).dy = rd * 10 * (10 - 2 * dots(i).size) * SIN(angle)
  446.     rd = 20 + RND * 70
  447.     dots(i).kolor = _RGBA32(rd, rd, rd, 80)
  449.  
  450. SUB drawship 'simple red iso triangle pointed towards radianAngle
  451.     DIM x1 AS LONG, y1 AS LONG, x2 AS LONG, y2 AS LONG, x3 AS LONG, y3 AS LONG
  452.     'calculate 3 tail points of triangle ship
  453.     x1 = ship.x + 40 * COS(ship.a - pi) '   middle
  454.     y1 = ship.y + 40 * SIN(ship.a - pi) '
  455.     x2 = ship.x + 60 * COS(ship.a + .9 * pi) ' wing
  456.     y2 = ship.y + 60 * SIN(ship.a + .9 * pi)
  457.     x3 = ship.x + 60 * COS(ship.a - .9 * pi) ' other wing
  458.     y3 = ship.y + 60 * SIN(ship.a - .9 * pi)
  459.     ftri ship.x, ship.y, x1, y1, x2, y2, _RGB32(80, 120, 80, 80)
  460.     ftri ship.x, ship.y, x1, y1, x3, y3, _RGB32(60, 100, 60, 80)
  461.     LINE (ship.x, ship.y)-(x1, y1), _RGB32(255, 255, 128)
  462.     LINE (ship.x, ship.y)-(x2, y2), _RGB32(180, 180, 120)
  463.     LINE (ship.x, ship.y)-(x3, y3), _RGB32(180, 180, 120)
  465.  
  466. SUB drawRock (iRock)
  467.     RANDOMIZE USING r(iRock).seed 'this prevents having to save a particular sequence of random number
  468.     DIM dx, dy, rad AS LONG, j AS LONG, rRad AS SINGLE, leg AS SINGLE, x0 AS LONG, y0 AS LONG, rc AS LONG, c~&, x1 AS LONG, y1 AS LONG, xoff, yoff, i AS LONG
  469.     DIM x2 AS LONG, y2 AS LONG
  470.     dx = r(iRock).speed * COS(r(iRock).heading)
  471.     dy = r(iRock).speed * SIN(r(iRock).heading) 'update location
  472.     r(iRock).ra = r(iRock).ra + r(iRock).spin
  473.     IF r(iRock).x + dx + r(iRock).r < 0 OR r(iRock).x + dx - r(iRock).r > xmax OR r(iRock).y + dy + r(iRock).r < 0 OR r(iRock).y + dy - r(iRock).r > ymax THEN
  474.         IF iRock <= rocks THEN newRock iRock ELSE r(iRock).live = 0
  475.         EXIT SUB ' reassigned get out of here
  476.     ELSE
  477.         r(iRock).x = r(iRock).x + dx
  478.         r(iRock).y = r(iRock).y + dy
  479.     END IF
  480.     IF ((r(iRock).x - ship.x) ^ 2 + (r(iRock).y - ship.y) ^ 2) ^ .5 < r(iRock).r + 30 THEN 'rock collides with ship?
  481.         FOR rad = 1 TO 200
  482.             fcirc ship.x, ship.y, rad, _RGB32(255 - rad, 255 - 2 * rad, 0)
  483.             _DISPLAY
  484.             _LIMIT 300
  485.         NEXT
  486.         ship.live = 0
  487.         IF iRock <= rocks THEN newRock iRock ELSE r(iRock).live = 0
  488.         EXIT SUB
  489.     END IF
  490.     FOR j = 10 TO 3 STEP -1 '                  rock drawing (see demo program where developed code)
  491.         rRad = .1 * j * r(iRock).r
  492.         leg = rRad * (RND * .7 + .3)
  493.         x0 = r(iRock).x + leg * COS(r(iRock).ra)
  494.         y0 = r(iRock).y + leg * SIN(r(iRock).ra)
  495.         rc = r(iRock).c + 30 * RND - 15
  496.         c~& = _RGB32(rc + 5, rc - 10, rc + 5)
  497.         x1 = x0
  498.         y1 = y0
  499.         xoff = RND * 20 - 10 + r(iRock).x
  500.         yoff = RND * 20 - 10 + r(iRock).y
  501.         FOR i = 1 TO 12
  502.             leg = rRad * (RND * .35 + .65)
  503.             IF i = 12 THEN
  504.                 x2 = x0: y2 = y0
  505.             ELSE
  506.                 x2 = xoff + leg * COS(i * polyAngle + r(iRock).ra)
  507.                 y2 = yoff + leg * SIN(i * polyAngle + r(iRock).ra)
  508.             END IF
  509.             ftri r(iRock).x, r(iRock).y, x1, y1, x2, y2, c~&
  510.             x1 = x2: y1 = y2
  511.         NEXT
  512.     NEXT
  514.  
  515. SUB newRock (iRock)
  516.     DIM side AS LONG
  517.     RANDOMIZE TIMER * RND 'to avoid making twins
  518.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  519.     SELECT CASE side
  520.         CASE 1
  521.             r(iRock).x = -10
  522.             r(iRock).y = rrnd(20, ymax - 20)
  523.             r(iRock).heading = 3 * pi / 2 + RND * pi
  524.         CASE 2
  525.             r(iRock).x = xmax + 10
  526.             r(iRock).y = rrnd(20, ymax - 20)
  527.             r(iRock).heading = pi / 2 + RND * pi
  528.         CASE 3
  529.             r(iRock).x = rrnd(20, xmax - 20)
  530.             r(iRock).y = -10
  531.             r(iRock).heading = RND * pi
  532.         CASE 4
  533.             r(iRock).x = rrnd(20, xmax - 20)
  534.             r(iRock).y = ymax + 10
  535.             r(iRock).heading = pi + RND * pi
  536.     END SELECT
  537.     r(iRock).speed = rrnd(2, 5) 'speed, rotation angle, radius, gray coloring, spin, seed, hit for explosion
  538.     r(iRock).ra = RND * 2 * pi
  539.     r(iRock).r = irnd&(30, 100)
  540.     r(iRock).c = irnd&(10, 60)
  541.     r(iRock).spin = rrnd(-pi / 20, pi / 20)
  542.     r(iRock).seed = INT(RND * 64000) - 32000
  543.     r(iRock).explodeFrame = 0
  544.     r(iRock).live = 1
  546.  
  547. FUNCTION irnd& (n1, n2) 'return an integer between 2 numbers
  548.     DIM l%, h%
  549.     IF n1 > n2 THEN l% = n2: h% = n1 ELSE l% = n1: h% = n2
  550.     irnd& = INT(RND * (h% - l% + 1)) + l%
  552.  
  553. FUNCTION rrnd (n1, n2) ' return number (expecting reals =_single, double, _float depending on default / define setup)
  554.     rrnd = (n2 - n1) * RND + n1
  556.  
  557. SUB fellipse (CX AS LONG, CY AS LONG, xr AS LONG, yr AS LONG, C AS _UNSIGNED LONG)
  558.     IF xr = 0 OR yr = 0 THEN EXIT SUB
  560.     DIM x AS LONG, y AS LONG
  561.     w2 = xr * xr: h2 = yr * yr: h2w2 = h2 * w2
  562.     LINE (CX - xr, CY)-(CX + xr, CY), C, BF
  563.     DO WHILE y < yr
  564.         y = y + 1
  565.         x = SQR((h2w2 - y * y * w2) \ h2)
  566.         LINE (CX - x, CY + y)-(CX + x, CY + y), C, BF
  567.         LINE (CX - x, CY - y)-(CX + x, CY - y), C, BF
  568.     LOOP
  570.  
  571. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  572.     DIM D AS LONG
  573.     STATIC a&
  574.     D = _DEST
  575.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  576.     _DEST a&
  577.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
  578.     PSET (0, 0), K
  579.     _BLEND a& '<<<< new 2019-12-16 fix
  580.     _DEST D
  581.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  583.  
  584. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG) 'vince version
  585.     DIM x0 AS LONG, y0 AS LONG, e AS LONG
  586.     x0 = R: y0 = 0: e = 0
  587.     DO WHILE y0 < x0
  588.         IF e <= 0 THEN
  589.             y0 = y0 + 1
  590.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  591.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  592.             e = e + 2 * y0
  593.         ELSE
  594.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  595.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  596.             x0 = x0 - 1: e = e - 2 * x0
  597.         END IF
  598.     LOOP
  599.     LINE (x - R, y)-(x + R, y), C, BF
  601.  

Just need font from OP (original post zip)

 
Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 01, 2020, 10:28:49 pm
Wow I like that one better, it's more relaxing to play. You also might want to add a key to press to hide the words and numbers. Then show it when the game is over. Just an idea. :)
Title: Re: b+ Asteroids makeover
Post by: bplus on November 01, 2020, 11:02:11 pm
Quote from: SierraKen on November 01, 2020, 10:28:49 pm
Wow I like that one better, it's more relaxing to play. You also might want to add a key to press to hide the words and numbers. Then show it when the game is over. Just an idea. :)

Yeah! OK. distracting specially with all that other stuff going on. Also I noticed I wasn't counting hits on Aliens or Boulders (dang I've been spelling it wrong) of Death. Plus I want to see the ship collisions. So another update coming.

Update: Oh man! I am looking at these collisions and I need to relocate my x, y for the ship to it's center.
Title: Re: b+ Asteroids makeover
Post by: bplus on November 02, 2020, 02:05:35 am
M7 now with Splash screen and other screen tweaks, much more info when loose ship in collision, redesigned ship to work better for collision detection.

Code: QB64: [Select]
  2. _TITLE "b+ Asteroids m7 Play Again" 'started 2018-07-13"
  3. ' 2020-10-27 remove the alternate subs and get down below 200 LOC almost there now! new shooter action font and background
  4. ' 2020-10-28 another makeover explosions and split asteroids
  5. ' 2020-10-29 fix baby rock management, break between lives
  6. ' 2020-10-29 fix left/right gun, fix explosions over many frames to eliminate pause in action, speed up 60 fps
  7. ' 2020-10-30 m3 SierraKen's idea to angle shooter with mousewheel also finish WASD options, more rocks, points system
  8. ' points:
  9. ' The higher the speed the better    speed range 2 to 5, diff = 3 * 33.3333 = 100          s - 2 * 33.3333
  10. ' The lower the color the better   color range 10 to 60, diff =      50 * 2 = 100  50 - (c - 10) * 2
  11. ' The small        er the size the better  size range 10 to 100, diff = 90 * 1.1111 = 100  90 - (sz -10) * 1.1111
  12. '        ((speed - 2) * 33.3333 + (50 - (c -10)) * 2 + (90 - (r - 10)) * 1.1111) / 3 = 100 best score per hit
  13. ' 2020-10-30 increase level of difficulty, fix double lives lost, add an ending after all lives spent.
  14. ' 2020-10-31 M4 They are Here - the aliens have accepted my invitaion for war games don't get caught in their beam.
  15. ' rework ending and variable LONG suffix. Aliens on the attack 100 points before or after transformed into the Bolder of Death.
  16. ' 2020-11-01 M5 FX Moving through space, Oh yeah, more aliens!
  17. ' 2020-11-01 M6 add play again and save high game , continuous shoot
  18. ' 2020-11-01 M7 fix hits count when hit alien ship or Bolder of Death. Fix lights on aliens ship. I want to see collsions with ship.
  19. ' Ken recommends removing text in middle of screen, yeah, distracting. Makeover ship as with mouse x, y it's center. Add Splash screen.
  20. ' Show mouse in between lives so can be in screen center when press key to start next run.
  21.  
  22. '================================================================================================================
  23.  
  24. '    NOTE: !!!!!!!!!!!!!!!   When there is a pause in action, just hit any key to reset next life.
  25.  
  26. '================================================================================================================
  27.  
  28. CONST xmax = 1200, ymax = 700, pi = _PI, polyAngle = _PI / 6, nRocks = 300, nBullets = 2000, bSpeed = 15
  29.  
  30. TYPE alienType
  31.     x AS SINGLE
  32.     y AS SINGLE
  33.     dx AS SINGLE
  34.     dy AS SINGLE
  35.     ls AS LONG ' lights offset
  36.     c AS _UNSIGNED LONG ' color
  37.     live AS LONG
  38.     attackFrame AS LONG
  39.     fireX AS LONG
  40.     fireY AS LONG
  41.     transform AS LONG
  43.  
  44. TYPE particle
  45.     x AS LONG
  46.     y AS LONG
  47.     dx AS SINGLE
  48.     dy AS SINGLE
  49.     size AS SINGLE
  50.     kolor AS _UNSIGNED LONG
  52.  
  53. TYPE bullet
  54.     x AS LONG
  55.     y AS LONG
  56.     dx AS SINGLE
  57.     dy AS SINGLE
  58.     live AS LONG
  60.  
  61. TYPE shipType
  62.     x AS LONG
  63.     y AS LONG
  64.     live AS LONG
  65.     a AS SINGLE '   rotated position usu gun left or right (mouse button), maybe up press w or down press z
  67.  
  68. TYPE rock
  69.     x AS LONG
  70.     y AS LONG
  71.     r AS LONG '            radius
  72.     ra AS SINGLE '         rotation position   a = a + spin
  73.     heading AS SINGLE '    heading from which dx, dy are calc with speed
  74.     speed AS SINGLE '      speed
  75.     spin AS SINGLE '       rotation direction and amount
  76.     seed AS LONG '         for drawing rocks with RND USING
  77.     c AS LONG '            color   rgb(c, c, c)
  78.     live AS LONG '         need this to track rocks still active like bullets
  79.     explodeFrame AS LONG ' after a rock is hit by bullet, it explodes and in more than one frame
  81.  
  82. REDIM SHARED aliens(1 TO 5) AS alienType
  83. DIM SHARED dots(2000) AS particle
  84. DIM SHARED b(nBullets) AS bullet
  85. DIM SHARED ship AS shipType
  86. DIM SHARED r(nRocks) AS rock
  88. DIM SHARED points AS LONG
  89. DIM SHARED rocks AS LONG 'rocks is the minimum number of parent rocks to have on screen  automatic replace when hit or out of bounds
  90.  
  91. DIM HS AS LONG, fnt AS LONG, fnt2 AS LONG ' file LOAD handles
  92. DIM i AS LONG, bullets AS LONG, fire AS LONG ' index and bullets
  93. DIM r AS LONG, newRockN AS LONG, maxBabyRocks AS LONG, br AS LONG, hits AS LONG ' rock stuff
  94. DIM ai AS LONG, alienN AS LONG ' alien index and number
  95. DIM hs$, s$, t, lastt ' general string and times
  96.  
  97. SCREEN _NEWIMAGE(xmax, ymax, 32)
  98. _SCREENMOVE 100, 20
  100.  
  101. fnt = _LOADFONT("ARLRDBD.ttf", 16, "MONOSPACE")
  102. fnt2 = _LOADFONT("ARLRDBD.ttf", 40, "MONOSPACE")
  103. _FONT fnt2
  104. COLOR &HFF00FFFF, &H00000000
  105.  
  106.  
  107. IF _FILEEXISTS("Asteroids High Score.txt") THEN
  108.     OPEN "Asteroids High Score.txt" FOR INPUT AS #1
  109.     INPUT #1, HS
  110.     CLOSE #1
  112. hs$ = "High Score:" + STR$(HS)
  113.  
  114. 'a little splash screen
  115. rocks = 7: alienN = 3
  116. FOR i = 1 TO nRocks
  117.     newRock i
  118.     IF i > rocks THEN r(i).live = 0
  120. FOR i = 1 TO alienN
  121.     newAlien i
  123. i = 0
  125.     drawStars 0
  126.     i = i + 1
  127.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  128.     FOR r = 1 TO nRocks
  129.         IF r(r).live THEN drawRock r
  130.     NEXT
  131.     FOR i = 1 TO alienN
  132.         drawAliens i
  133.     NEXT
  134.     _FONT fnt2
  135.     s$ = "Welcome to b+ Asteroids"
  136.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 60), s$
  137.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(hs$)) / 2, 140), hs$
  138.     s$ = "To get ready,"
  139.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 220), s$
  140.     s$ = "place mouse pointer"
  141.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 300), s$
  142.     s$ = "in center of screen"
  143.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 380), s$
  144.     s$ = "Press q to Quit,"
  145.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 460), s$
  146.     s$ = "any other to Play"
  147.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 540), s$
  148.     _FONT fnt
  149.     s$ = INKEY$
  150.     IF s$ = "q" THEN SYSTEM
  151.     _DISPLAY
  152.     _LIMIT 60
  154.  
  156. restart:
  157. IF _FILEEXISTS("Asteroids High Score.txt") THEN
  158.     OPEN "Asteroids High Score.txt" FOR INPUT AS #1
  159.     INPUT #1, HS
  160.     CLOSE #1
  162. hs$ = "  High Score:" + STR$(HS)
  163. lives = 10: alienN = 1: rocks = 4: ' always active rocks
  164. points = 0: hits = 0: bullets = 0
  165.  
  166. WHILE lives > 0 AND _KEYDOWN(27) = 0 ' init start restart
  167.     REDIM aliens(1 TO alienN) AS alienType
  168.     FOR ai = 1 TO alienN
  169.         newAlien ai
  170.     NEXT
  171.     FOR i = 1 TO nRocks 'reset rocks mainly clear baby rocks
  172.         newRock (i)
  173.         IF i > rocks THEN r(i).live = 0
  174.     NEXT
  175.     ship.x = xmax / 2 'avoids explosions top left corner at start, dang still get some!
  176.     ship.y = ymax / 2
  177.     ship.live = 1
  179.     WHILE ship.live AND _KEYDOWN(27) = 0
  180.         'draw everything then process bullets
  181.         drawStars 1
  182.  
  183.         FOR ai = 1 TO alienN
  184.             drawAliens ai
  185.         NEXT
  186.         FOR i = 1 TO nRocks
  187.             IF r(i).live THEN drawRock i ' while drawing rocks the ship could be blown up
  188.             IF ((r(i).x - ship.x) ^ 2 + (r(i).y - ship.y) ^ 2) ^ .5 < r(i).r + 30 THEN 'rock collides with ship?
  189.                 FOR br = 1 TO 200 STEP 5
  190.                     CIRCLE ((ship.x + r(i).x) / 2, (ship.y + r(i).y) / 2), br, _RGB32(255 - br, 255 - 2 * br, 0)
  191.                 NEXT
  192.                 drawRock i
  193.                 drawship
  194.                 ship.live = 0
  195.                 IF i <= rocks THEN newRock i ELSE r(i).live = 0
  196.             END IF
  197.         NEXT
  198.         FOR i = 1 TO nRocks 'smoke up the place with rock debris fields still flying out from hit frames ago
  199.             IF r(i).explodeFrame THEN
  200.                 r(i).explodeFrame = r(i).explodeFrame + 1
  201.                 IF r(i).explodeFrame > .5 * r(i).r THEN
  202.                     r(i).explodeFrame = 0
  203.                     IF i <= rocks THEN newRock i ' now replace the rock
  204.                 ELSE
  205.                     explode r(i).x, r(i).y, r(i).r, r(i).explodeFrame
  206.                 END IF
  207.             END IF
  208.         NEXT
  209.         IF ship.live THEN
  210.             FOR ai = 1 TO alienN
  211.                 IF SQR((aliens(ai).x - ship.x) ^ 2 + (aliens(ai).y - ship.y) ^ 2) < 60 THEN 'aliens and ship collisde boom boom
  212.                     FOR br = 1 TO 200 STEP 5
  213.                         CIRCLE ((ship.x + aliens(ai).x) / 2, (ship.y + aliens(ai).y) / 2), br, _RGB32(255 - br, 255 - 2 * br, 0)
  214.                     NEXT
  215.                     drawship
  216.                     ship.live = 0
  217.                     _CONTINUE
  218.                 ELSE
  219.                     drawship
  220.                 END IF
  221.             NEXT
  222.             WHILE _MOUSEINPUT
  223.                 ship.a = ship.a + _MOUSEWHEEL * pi / 8 ' 22.5  degree changes, Thank Ken for this :)
  224.             WEND 'update ship
  225.             ship.x = _MOUSEX: ship.y = _MOUSEY
  226.             IF _MOUSEBUTTON(1) THEN ship.a = pi 'this is new left and right guns
  227.             IF _MOUSEBUTTON(2) THEN ship.a = 0
  228.             IF _KEYDOWN(ASC("w")) THEN ship.a = 1.5 * pi ' well it works but ??
  229.             IF _KEYDOWN(ASC("a")) THEN ship.a = pi
  230.             IF _KEYDOWN(ASC("s")) THEN ship.a = .5 * pi
  231.             IF _KEYDOWN(ASC("d")) THEN ship.a = 0
  232.             fire = 0
  233.             'IF _KEYDOWN(32) THEN 'fire bullets
  234.             t = TIMER(.01)
  235.             IF lastt = 0 OR t - lastt > .2 THEN fire = 1: lastt = t
  236.             'END IF
  237.             FOR i = 0 TO nBullets 'handle bullets
  238.                 IF b(i).live = 0 AND fire = 1 THEN 'have inactive bullet to use
  239.                     b(i).x = ship.x + bSpeed * COS(ship.a)
  240.                     b(i).y = ship.y + bSpeed * SIN(ship.a)
  241.                     b(i).dx = bSpeed * COS(ship.a)
  242.                     b(i).dy = bSpeed * SIN(ship.a)
  243.                     b(i).live = -1
  244.                     bullets = bullets + 1
  245.                     fire = 0
  246.                 END IF
  247.                 IF b(i).live THEN 'new location
  248.                     b(i).x = b(i).x + b(i).dx
  249.                     b(i).y = b(i).y + b(i).dy
  250.                     IF b(i).x > 0 AND b(i).x < xmax AND b(i).y > 0 AND b(i).y < ymax THEN 'in bounds draw it
  251.  
  252.                         'bullet hit aliens?
  253.                         FOR ai = 1 TO alienN
  254.                             IF SQR((aliens(ai).x - b(i).x) ^ 2 + (aliens(ai).y - b(i).y) ^ 2) < 30 THEN
  255.                                 FOR br = 1 TO 120
  256.                                     CIRCLE (aliens(ai).x, aliens(ai).y), br / 3, plasma~&(0)
  257.                                 NEXT
  258.                                 _DISPLAY
  259.                                 _DELAY .05
  260.                                 hits = hits + 1
  261.                                 points = points + 100
  262.                                 aliens(ai).live = 0
  263.                                 newAlien ai
  264.                                 b(i).live = 0
  265.                                 _CONTINUE
  266.                             END IF
  267.                         NEXT
  268.                         FOR r = 1 TO nRocks 'check for collision with rock
  269.                             IF r(r).live THEN
  270.                                 IF SQR((r(r).x - b(i).x) ^ 2 + (r(r).y - b(i).y) ^ 2) < r(r).r THEN 'its a hit!
  271.                                     r(r).explodeFrame = 1 'linger with explosion
  272.                                     r(r).live = 0
  273.                                     hits = hits + 1
  274.                                     points = points + ((r(r).speed - 2) * 33.3333 + (50 - (r(r).c - 10)) * 2 + (90 - (r(r).r - 10)) * 1.1111) / 3
  275.                                     IF r(r).r > 30 THEN '       split rock  into ? new ones
  276.                                         maxBabyRocks = INT((r(r).r - 10) / 10)
  277.                                         maxBabyRocks = irnd&(2, maxBabyRocks) ' pick a number of baby Rocks
  278.                                         FOR br = 1 TO maxBabyRocks
  279.                                             '                        new rock
  280.                                             newRockN = freeRock& '                          get inactive rock number
  281.                                             newRock newRockN '                              new identity and activate
  282.                                             r(newRockN).r = (r(r).r - 10) / maxBabyRocks '  split in equal parts minus 20% mass
  283.                                             r(newRockN).x = r(r).x + irnd&(-30, 30) '       thrown from parent
  284.                                             r(newRockN).y = r(r).y + irnd&(-30, 30)
  285.                                             r(newRockN).c = r(r).c '                   same color as parent
  286.                                             r(newRockN).heading = rrnd(ship.a - .75 * pi, ship.a + .75 * pi)
  287.                                         NEXT
  288.                                     END IF ' big enough to split
  289.                                     b(i).live = 0 'kill bullet
  290.                                 END IF ' hit rock
  291.                             END IF 'rock is there
  292.                         NEXT ' rock
  293.                         IF b(i).live THEN fcirc b(i).x, b(i).y, 3, _RGB32(255, 255, 0) 'draws bullet
  294.                     ELSE
  295.                         b(i).live = 0 'out of bounds
  296.                     END IF ' bullet is in bounds
  297.                 END IF ' bullet live
  298.             NEXT ' bullet
  299.         END IF ' if ship still live
  300.         _DISPLAY
  301.         IF ship.live = 0 THEN
  302.             lives = lives - 1
  303.             IF lives MOD 4 = 0 THEN rocks = rocks + 1
  304.             IF lives MOD 4 = 2 THEN alienN = alienN + 1
  305.             s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  306.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 80), s$
  307.             _FONT fnt2
  308.             s$ = STR$(points) + hs$
  309.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  310.             _FONT fnt
  311.             s$ = "Center mouse and press any"
  312.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 120), s$
  313.             _DISPLAY
  314.             _MOUSESHOW
  315.             SLEEP
  316.         ELSE
  317.             _LIMIT 60 ' if ship dies let's rest and regroup  before restart next life
  318.         END IF
  319.     WEND
  320.     _DISPLAY
  322. IF points > HS THEN
  323.     OPEN "Asteroids High Score.txt" FOR OUTPUT AS #1
  324.     PRINT #1, points
  325.     CLOSE #1
  327. ship.x = -200: ship.y = -200 'get it out of the way
  328. i = 0
  330.     drawStars 0
  331.     i = i + 1
  332.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  333.     FOR r = 1 TO nRocks
  334.         IF r(r).live THEN drawRock r
  335.     NEXT
  336.     s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  337.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 80), s$
  338.     _FONT fnt2
  339.     s$ = STR$(points)
  340.     IF points > HS THEN s$ = s$ + " a New Record!" ELSE s$ = STR$(points) + hs$
  341.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  342.     _FONT fnt
  343.     s$ = "Press q to quit, p or a to Play Again..."
  344.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 120), s$
  345.     IF _KEYDOWN(ASC("a")) OR _KEYDOWN(ASC("p")) THEN GOTO restart
  346.     _DISPLAY
  347.     _LIMIT 60
  350.  
  351. SUB drawStars (moving)
  352.     TYPE starType
  353.         x AS SINGLE
  354.         y AS SINGLE
  355.         size AS SINGLE
  356.         c AS INTEGER
  357.     END TYPE
  358.     STATIC beenHere, stars(600) AS starType, cy AS LONG
  359.     DIM i AS LONG
  360.     IF beenHere = 0 THEN 'static part
  361.         FOR i = 0 TO 200
  362.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = 0
  363.             stars(i).c = irnd&(80, 140)
  364.         NEXT
  365.         FOR i = 0 TO 200
  366.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = .3
  367.             stars(i).c = irnd&(80, 140)
  368.         NEXT
  369.  
  370.         FOR i = 1 TO 140
  371.             stars(i + 400).x = RND * xmax: stars(i + 400).y = RND * ymax: stars(i + 100).size = .6
  372.             stars(i).c = irnd&(110, 170)
  373.         NEXT
  374.         FOR i = 1 TO 50
  375.             stars(i + 540).x = RND * xmax: stars(i + 540).y = RND * ymax: stars(i + 170).size = 1.2
  376.             stars(i).c = irnd&(140, 200)
  377.         NEXT
  378.         FOR i = 1 TO 10
  379.             stars(i + 590).x = RND * xmax: stars(i + 590).y = RND * ymax: stars(i + 195).size = 2.4
  380.             stars(i).c = irnd&(170, 235)
  381.         NEXT
  382.         cy = ymax / 2
  383.         beenHere = 1
  384.     END IF
  385.     FOR i = 0 TO cy
  386.         LINE (0, i)-(xmax, i), _RGB32(0, 0, .1 * i + 4)
  387.         LINE (0, ymax - i)-(xmax, ymax - i), _RGB(0, 0, .1 * i + 4)
  388.     NEXT
  389.     FOR i = 0 TO 200
  390.         IF moving THEN
  391.             stars(i).x = stars(i).x + .2 * stars(i).size ^ stars(i).size
  392.             IF stars(i).x > xmax THEN stars(i).x = -1 * RND * 20
  393.         END IF
  394.         fcirc stars(i).x, stars(i).y, stars(i).size, _RGB32(stars(i).c - 10, stars(i).c, stars(i).c + 10)
  395.     NEXT
  397.  
  398. SUB newAlien (i AS LONG)
  399.     DIM side AS LONG, heading
  400.     RANDOMIZE TIMER * RND 'to avoid making twins
  401.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  402.     aliens(i).fireX = irnd(10, xmax - 10)
  403.     aliens(i).fireY = irnd(10, ymax - 10)
  404.     aliens(i).attackFrame = irnd(30, 400) ' EDIT a tweak to survive a little long before getting murdered with low lives over and over...
  405.     SELECT CASE side
  406.         CASE 1
  407.             aliens(i).x = -10
  408.             aliens(i).y = rrnd(20, ymax - 20)
  409.         CASE 2
  410.             aliens(i).x = xmax + 10
  411.             aliens(i).y = rrnd(20, ymax - 20)
  412.         CASE 3
  413.             aliens(i).x = rrnd(20, xmax - 20)
  414.             aliens(i).y = -10
  415.         CASE 4
  416.             aliens(i).x = rrnd(20, xmax - 20)
  417.             aliens(i).y = ymax + 10
  418.     END SELECT
  419.     heading = _ATAN2(aliens(i).fireY - aliens(i).y, aliens(i).fireX - aliens(i).x)
  420.     aliens(i).dx = 3.5 * COS(heading)
  421.     aliens(i).dy = 3.5 * SIN(heading)
  422.     aliens(i).live = 0
  423.     aliens(i).transform = 0
  424.     aliens(i).c = _RGB32(irnd(128, 255), irnd(0, 255), irnd(0, 255))
  426.  
  427. FUNCTION plasma~& (new AS LONG)
  428.     STATIC r, g, b, cnt, beenHere
  429.     IF beenHere = 0 OR new THEN
  430.         r = RND: g = RND: b = RND: beenHere = 1: cnt = 0
  431.     END IF
  432.     cnt = cnt + .2
  433.     plasma~& = _RGB32(127 + 127 * SIN(r * cnt), 127 + 127 * SIN(g * cnt), 127 + 127 * SIN(b * cnt))
  435.  
  436. SUB drawAliens (i AS LONG) 'shipType
  437.     DIM light AS LONG, heading, r AS LONG, g AS LONG, b AS LONG
  438.     IF aliens(i).live THEN
  439.         IF aliens(i).transform = 0 THEN
  440.             r = _RED32(aliens(i).c): g = _GREEN32(aliens(i).c): b = _BLUE32(aliens(i).c)
  441.             fellipse aliens(i).x, aliens(i).y, 6, 15, _RGB32(r, g - 120, b - 100)
  442.             fellipse aliens(i).x, aliens(i).y, 18, 11, _RGB32(r, g - 60, b - 50)
  443.             fellipse aliens(i).x, aliens(i).y, 30, 7, _RGB32(r, g, b)
  444.             FOR light = 0 TO 5
  445.                 fcirc aliens(i).x - 30 + 11 * light + aliens(i).ls, aliens(i).y, 1, _RGB32(aliens(i).ls * 50, aliens(i).ls * 50, aliens(i).ls * 50)
  446.             NEXT
  447.             aliens(i).ls = aliens(i).ls + 1
  448.             IF aliens(i).ls > 5 THEN aliens(i).ls = 0
  449.         ELSE
  450.             fcirc aliens(i).x, aliens(i).y, 30, aliens(i).c
  451.         END IF
  452.         'time to shoot?
  453.         aliens(i).x = aliens(i).x + aliens(i).dx
  454.         aliens(i).y = aliens(i).y + aliens(i).dy
  455.         IF SQR((aliens(i).fireX - aliens(i).x) ^ 2 + (aliens(i).fireY - aliens(i).y) ^ 2) < 5 THEN 'transform into the bolder of death
  456.             aliens(i).transform = 1
  457.             heading = _ATAN2(ship.y - aliens(i).y, ship.x - aliens(i).x)
  458.             aliens(i).dx = 10 * COS(heading)
  459.             aliens(i).dy = 10 * SIN(heading)
  460.         END IF
  461.         IF aliens(i).x < -10 OR aliens(i).x > xmax + 10 THEN
  462.             IF aliens(i).y < -10 OR aliens(i).y > ymax + 10 THEN '  out of bounds goodbye bolder of death!
  463.                 aliens(i).live = 0 'man we dodged a bullet here!!!!
  464.                 newAlien i 'reset the trap
  465.             END IF
  466.         END IF
  467.     ELSE
  468.         IF aliens(i).attackFrame THEN
  469.             aliens(i).attackFrame = aliens(i).attackFrame - 1
  470.             IF aliens(i).attackFrame = 0 THEN
  471.                 aliens(i).live = 1
  472.             END IF
  473.         END IF
  474.     END IF
  476.  
  477. FUNCTION freeRock&
  478.     DIM i AS LONG
  479.     FOR i = rocks + 1 TO nRocks ' look for inactive rock number
  480.         IF r(i).live = 0 AND r(i).explodeFrame = 0 THEN freeRock& = i: EXIT FUNCTION
  481.     NEXT
  483.  
  484. SUB explode (x AS LONG, y AS LONG, r AS LONG, frm AS LONG)
  485.     DIM maxParticles AS LONG, i AS LONG, rounds AS LONG, loopCount AS LONG
  486.     maxParticles = r * 4
  487.     FOR i = 1 TO r
  488.         NewDot i, x, y, r
  489.     NEXT
  490.     rounds = r
  491.     FOR loopCount = 0 TO frm
  492.         IF _KEYDOWN(27) THEN END
  493.         FOR i = 1 TO rounds
  494.             dots(i).x = dots(i).x + dots(i).dx
  495.             dots(i).y = dots(i).y + dots(i).dy
  496.             fcirc dots(i).x, dots(i).y, dots(i).size, dots(i).kolor
  497.         NEXT
  498.         IF rounds < maxParticles THEN
  499.             FOR i = 1 TO r
  500.                 NewDot (rounds + i), x, y, r
  501.             NEXT
  502.             rounds = rounds + r
  503.         END IF
  504.     NEXT
  506.  
  507. SUB NewDot (i AS LONG, x AS LONG, y AS LONG, r AS LONG)
  508.     DIM angle, rd
  509.     angle = pi * 2 * RND
  510.     rd = RND * 30
  511.     dots(i).x = x + rd * COS(angle)
  512.     dots(i).y = y + rd * SIN(angle)
  513.     dots(i).size = RND * r * .05
  514.     rd = RND 'STxAxTIC recommended for rounder spreads
  515.     dots(i).dx = rd * 10 * (10 - 2 * dots(i).size) * COS(angle)
  516.     dots(i).dy = rd * 10 * (10 - 2 * dots(i).size) * SIN(angle)
  517.     rd = 20 + RND * 70
  518.     dots(i).kolor = _RGBA32(rd, rd, rd, 80)
  520.  
  521. SUB drawship 'simple red iso triangle pointed towards radianAngle
  522.     DIM x1 AS LONG, y1 AS LONG, x2 AS LONG, y2 AS LONG, x3 AS LONG, y3 AS LONG
  523.     'calculate 3 points of triangle ship
  524.     fcirc ship.x, ship.y, 30, &H05FFFFFF
  525.     x1 = ship.x + 30 * COS(ship.a) ' front point
  526.     y1 = ship.y + 30 * SIN(ship.a) '
  527.     x2 = ship.x + 30 * COS(ship.a + .6666 * pi) ' wing
  528.     y2 = ship.y + 30 * SIN(ship.a + .6666 * pi)
  529.     x3 = ship.x + 30 * COS(ship.a - .6666 * pi) ' other wing
  530.     y3 = ship.y + 30 * SIN(ship.a - .6666 * pi)
  531.     ftri ship.x, ship.y, x1, y1, x2, y2, _RGB32(80, 120, 80, 80)
  532.     ftri ship.x, ship.y, x1, y1, x3, y3, _RGB32(60, 100, 60, 80)
  533.     LINE (x1, y1)-(ship.x, ship.y), _RGB32(255, 255, 128)
  534.     LINE (x1, y1)-(x2, y2), _RGB32(180, 180, 120)
  535.     LINE (x1, y1)-(x3, y3), _RGB32(180, 180, 120)
  537.  
  538. SUB drawRock (iRock)
  539.     RANDOMIZE USING r(iRock).seed 'this prevents having to save a particular sequence of random number
  540.     DIM dx, dy, j AS LONG, rRad AS SINGLE, leg AS SINGLE, x0 AS LONG, y0 AS LONG, rc AS LONG, c~&, x1 AS LONG, y1 AS LONG, xoff, yoff, i AS LONG
  541.     DIM x2 AS LONG, y2 AS LONG
  542.     dx = r(iRock).speed * COS(r(iRock).heading)
  543.     dy = r(iRock).speed * SIN(r(iRock).heading) 'update location
  544.     r(iRock).ra = r(iRock).ra + r(iRock).spin
  545.     IF r(iRock).x + dx + r(iRock).r < 0 OR r(iRock).x + dx - r(iRock).r > xmax OR r(iRock).y + dy + r(iRock).r < 0 OR r(iRock).y + dy - r(iRock).r > ymax THEN
  546.         IF iRock <= rocks THEN newRock iRock ELSE r(iRock).live = 0
  547.         EXIT SUB ' reassigned get out of here
  548.     ELSE
  549.         r(iRock).x = r(iRock).x + dx
  550.         r(iRock).y = r(iRock).y + dy
  551.     END IF
  552.     FOR j = 10 TO 3 STEP -1 '                  rock drawing (see demo program where developed code)
  553.         rRad = .1 * j * r(iRock).r
  554.         leg = rRad * (RND * .7 + .3)
  555.         x0 = r(iRock).x + leg * COS(r(iRock).ra)
  556.         y0 = r(iRock).y + leg * SIN(r(iRock).ra)
  557.         rc = r(iRock).c + 30 * RND - 15
  558.         c~& = _RGB32(rc + 5, rc - 10, rc + 5)
  559.         x1 = x0
  560.         y1 = y0
  561.         xoff = RND * 20 - 10 + r(iRock).x
  562.         yoff = RND * 20 - 10 + r(iRock).y
  563.         FOR i = 1 TO 12
  564.             leg = rRad * (RND * .35 + .65)
  565.             IF i = 12 THEN
  566.                 x2 = x0: y2 = y0
  567.             ELSE
  568.                 x2 = xoff + leg * COS(i * polyAngle + r(iRock).ra)
  569.                 y2 = yoff + leg * SIN(i * polyAngle + r(iRock).ra)
  570.             END IF
  571.             ftri r(iRock).x, r(iRock).y, x1, y1, x2, y2, c~&
  572.             x1 = x2: y1 = y2
  573.         NEXT
  574.     NEXT
  576.  
  577. SUB newRock (iRock)
  578.     DIM side AS LONG
  579.     RANDOMIZE TIMER * RND 'to avoid making twins
  580.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  581.     SELECT CASE side
  582.         CASE 1
  583.             r(iRock).x = -10
  584.             r(iRock).y = rrnd(20, ymax - 20)
  585.             r(iRock).heading = 3 * pi / 2 + RND * pi
  586.         CASE 2
  587.             r(iRock).x = xmax + 10
  588.             r(iRock).y = rrnd(20, ymax - 20)
  589.             r(iRock).heading = pi / 2 + RND * pi
  590.         CASE 3
  591.             r(iRock).x = rrnd(20, xmax - 20)
  592.             r(iRock).y = -10
  593.             r(iRock).heading = RND * pi
  594.         CASE 4
  595.             r(iRock).x = rrnd(20, xmax - 20)
  596.             r(iRock).y = ymax + 10
  597.             r(iRock).heading = pi + RND * pi
  598.     END SELECT
  599.     r(iRock).speed = rrnd(2, 5) 'speed, rotation angle, radius, gray coloring, spin, seed, hit for explosion
  600.     r(iRock).ra = RND * 2 * pi
  601.     r(iRock).r = irnd&(30, 100)
  602.     r(iRock).c = irnd&(10, 60)
  603.     r(iRock).spin = rrnd(-pi / 20, pi / 20)
  604.     r(iRock).seed = INT(RND * 64000) - 32000
  605.     r(iRock).explodeFrame = 0
  606.     r(iRock).live = 1
  608.  
  609. FUNCTION irnd& (n1, n2) 'return an integer between 2 numbers
  610.     DIM l%, h%
  611.     IF n1 > n2 THEN l% = n2: h% = n1 ELSE l% = n1: h% = n2
  612.     irnd& = INT(RND * (h% - l% + 1)) + l%
  614.  
  615. FUNCTION rrnd (n1, n2) ' return number (expecting reals =_single, double, _float depending on default / define setup)
  616.     rrnd = (n2 - n1) * RND + n1
  618.  
  619. SUB fellipse (CX AS LONG, CY AS LONG, xr AS LONG, yr AS LONG, C AS _UNSIGNED LONG)
  620.     IF xr = 0 OR yr = 0 THEN EXIT SUB
  622.     DIM x AS LONG, y AS LONG
  623.     w2 = xr * xr: h2 = yr * yr: h2w2 = h2 * w2
  624.     LINE (CX - xr, CY)-(CX + xr, CY), C, BF
  625.     DO WHILE y < yr
  626.         y = y + 1
  627.         x = SQR((h2w2 - y * y * w2) \ h2)
  628.         LINE (CX - x, CY + y)-(CX + x, CY + y), C, BF
  629.         LINE (CX - x, CY - y)-(CX + x, CY - y), C, BF
  630.     LOOP
  632.  
  633. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  634.     DIM D AS LONG
  635.     STATIC a&
  636.     D = _DEST
  637.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  638.     _DEST a&
  639.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
  640.     PSET (0, 0), K
  641.     _BLEND a& '<<<< new 2019-12-16 fix
  642.     _DEST D
  643.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  645.  
  646. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG) 'vince version
  647.     DIM x0 AS LONG, y0 AS LONG, e AS LONG
  648.     x0 = R: y0 = 0: e = 0
  649.     DO WHILE y0 < x0
  650.         IF e <= 0 THEN
  651.             y0 = y0 + 1
  652.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  653.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  654.             e = e + 2 * y0
  655.         ELSE
  656.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  657.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  658.             x0 = x0 - 1: e = e - 2 * x0
  659.         END IF
  660.     LOOP
  661.     LINE (x - R, y)-(x + R, y), C, BF
  663.  

Font from OP is only asset needed.
Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 02, 2020, 02:52:07 pm
That's really cool!! My High Score is 15857. :)
Title: Re: b+ Asteroids makeover
Post by: bplus on November 02, 2020, 04:07:26 pm
Quote from: SierraKen on November 02, 2020, 02:52:07 pm
That's really cool!! My High Score is 15857. :)

Yeah, I haven't been able to get near 38,000 with m7, best is low 20's with this last update.

Last night I was exhausted and poor reaction times... today fresher I tried a couple and can't believe I am not lasting longer with lives 10, 9, 8 always running into some fragment of rock I can't see or I jerk away too far or get caught too close to an edge with new rocks raining in. Man! if you don't make serious points in 10, 9, 8 then you should start over, that is, if you are going for record. I am surprised how long I can last with 1 life left (sometimes)!

Do you like collisions with ship better? (Where now you can see exactly which rock or alien or Boulder of Death did you in.)

Should we save 10 best scores?
Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 02, 2020, 05:12:30 pm
10 Best Scores would be awesome! Yeah I like how I can see what I run into. If you REALLY want to work on this a lot more to get it more like the arcade versions, you can remove the mouse movement, except the scroller wheel, and with the left mouse button fire up the engines and the longer you hold it down, the faster you go. It would be harder to play but that's more like the arcade version. You would have to make some kind of exhaust shooting out the back and adding sound to it would help too. But that's just if you want to work on this a lot more. But your version does have an originality to it for sure and it isn't too hard if you get used to the movement.
Title: Re: b+ Asteroids makeover
Post by: bplus on November 02, 2020, 05:28:59 pm
Did arcades use joy sticks? I can't see maneuvering the ship with key presses, even if did something with numeric keypad. A joystick would be perfect because it wouldn't allow you to jump around.

Yeah I saw the rocket thrust flame in the video and tried again with mouse to angle and change position, it's one or the other so far but never say never... come to think, I did a Lander version with simplified rocket thrusters but I wonder if one could possibly switch directions that fast.

I leave sounds to anyone who wants to contribute. I will add them if not .ogg.
Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 02, 2020, 05:54:48 pm
Cool about sounds. Well, it doesn't change direction automatically, it's all physics like your lander was probably. Like if you were moving 10 mph and turned and blasted the engines, you would still be going that other direction for a short amount of time and then it would stop and go the new movement. I'm not sure if I know how to make that or not. It wouldn't require the keyboard. The arcade version had a joystick I believe but still worked in this manner. If would have to use both X and Y movement at the same time and just subtract or add X and Y with the new movement. I think I'm going to see if I can make that movement or not on a demo and post it here for you. I might not be able to.
Title: Re: b+ Asteroids makeover
Post by: bplus on November 02, 2020, 06:54:54 pm
I will take a look at Lander thrusters and give it a go as well. Why does spellchecker not like thrusters?

https://www.google.com/search?client=opera&q=spell+thruster&sourceid=opera&ie=UTF-8&oe=UTF-8
Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 02, 2020, 07:08:04 pm
Here is a demo I just made for you B+. It's probably a lot like your lander but I wanted to see if I was able to make it myself. If you want to use this code, I'm sure you could make it less code and instead of 4 angles to turn like I have you could make it 8 or as many as you use in your game. Use the scroller wheel (lol spell checker doesn't like "scroller" either) to turn directions and the left mouse button to go. The gun turret shows which direction you are wanting to go. I might turn this into a game. :)
direction2 variable is what angle you are pointing and direction variable is what angle you are actually going.

This isn't like the Asteroids arcade game though. I couldn't figure out how to make it so the physics still makes your guy go one way but slows down as you are wanting to go another way. I thought this would do it but I just noticed it doesn't. But mine does average out the different direction variables so it goes diagonally.

Code: QB64: [Select]
  1. 'Tank Demo using mouse button and mouse scroller wheel.
  2.  
  3. SCREEN _NEWIMAGE(800, 600, 32)
  4. x = 400
  5. y = 300
  6. direction = 1 'North
  7.  
  9.  
  10.     _LIMIT 20
  11.     mouseWheel = 0
  13.         mouseX = _MOUSEX
  14.         mouseY = _MOUSEY
  15.         mouseLeftButton = _MOUSEBUTTON(1)
  16.         mouseRightButton = _MOUSEBUTTON(2)
  17.         mouseMiddleButton = _MOUSEBUTTON(3)
  18.         mouseWheel = mouseWheel + _MOUSEWHEEL
  19.     LOOP
  20.     IF mouseWheel < 0 THEN direction2 = direction2 - 1
  21.     IF mouseWheel > 0 THEN direction2 = direction2 + 1
  22.     IF direction2 > 4 THEN direction2 = 1
  23.     IF direction2 < 1 THEN direction2 = 4
  24.  
  25.     IF direction2 = 1 AND direction = 2 THEN y = y - speed: x = x + speed: amount = amount - 1
  26.     IF direction2 = 1 AND direction = 4 THEN y = y - speed: x = x - speed: amount = amount - 1
  27.     IF direction2 = 1 AND direction = 3 THEN y = y - speed: amount = amount - 1
  28.     IF direction2 = 2 AND direction = 1 THEN x = x + speed: y = y - speed: amount = amount - 1
  29.     IF direction2 = 2 AND direction = 3 THEN x = x + speed: y = y + speed: amount = amount - 1
  30.     IF direction2 = 2 AND direction = 4 THEN x = x + speed: amount = amount - 1
  31.     IF direction2 = 3 AND direction = 2 THEN y = y + speed: x = x + speed: amount = amount - 1
  32.     IF direction2 = 3 AND direction = 4 THEN y = y + speed: x = x - speed: amount = amount - 1
  33.     IF direction2 = 3 AND direction = 1 THEN y = y + speed: amount = amount - 1
  34.     IF direction2 = 4 AND direction = 1 THEN x = x - speed: y = y - speed: amount = amount - 1
  35.     IF direction2 = 4 AND direction = 3 THEN x = x - speed: y = y + speed: amount = amount - 1
  36.     IF direction2 = 4 AND direction = 2 THEN x = x - speed: amount = amount - 1
  37.     IF direction = 1 AND direction2 = 1 THEN y = y - speed: amount = amount - 1
  38.     IF direction = 2 AND direction2 = 2 THEN x = x + speed: amount = amount - 1
  39.     IF direction = 3 AND direction2 = 3 THEN y = y + speed: amount = amount - 1
  40.     IF direction = 4 AND direction2 = 4 THEN x = x - speed: amount = amount - 1
  41.  
  42.     IF direction2 = 1 AND speed = 0 THEN direction = 1
  43.     IF direction2 = 2 AND speed = 0 THEN direction = 2
  44.     IF direction2 = 3 AND speed = 0 THEN direction = 3
  45.     IF direction2 = 4 AND speed = 0 THEN direction = 4
  46.  
  47.     IF mouseLeftButton THEN speed = speed + 5: amount = 100: mouseLeftButton = 0
  48.     IF amount < 50 AND speed > 0 THEN speed = speed - .25
  49.     IF speed < 0 THEN speed = 0: amount = 0
  50.     IF x > 800 THEN x = 0
  51.     IF x < 0 THEN x = 800
  52.     IF y > 600 THEN y = 0
  53.     IF y < 0 THEN y = 600
  54.  
  55.     IF amount = 0 THEN speed = 0: direction = direction2
  56.  
  57.     'Tank
  58.     FOR sz = .25 TO 5 STEP .25
  59.         CIRCLE (x, y), sz, _RGB32(255, 255, 255)
  60.     NEXT sz
  61.  
  62.     'Gun Turrent
  63.     IF direction2 = 1 THEN LINE (x, y)-(x, y - 15), _RGB32(255, 255, 255)
  64.     IF direction2 = 2 THEN LINE (x, y)-(x + 15, y), _RGB32(255, 255, 255)
  65.     IF direction2 = 3 THEN LINE (x, y)-(x, y + 15), _RGB32(255, 255, 255)
  66.     IF direction2 = 4 THEN LINE (x, y)-(x - 15, y), _RGB32(255, 255, 255)
  67.  
  68.     _DISPLAY
  69.     CLS
  70.  
  72.  
  73.  

Title: Re: b+ Asteroids makeover
Post by: Dav on November 02, 2020, 07:49:53 pm
Hey, this is getting better and better! 

- Dav
Title: Re: b+ Asteroids makeover
Post by: bplus on November 02, 2020, 08:36:14 pm
@SierraKen  that's a nice effect and in space you'd never slow down, you'd need reverse thrusters. Still working on my model, I needed a power nap :)

@Dav yeah I like how the aliens turned out, the ship colors, the explosions and of course the Boulders of Death.

Title: Re: b+ Asteroids makeover
Post by: bplus on November 02, 2020, 10:30:05 pm
OK here is my model of flying with rocket thrusters:

up arrow is forward, down reverse thrusters notice wing tips
right arrow is right thrusters notice both tips
left arrow is left thrusters agian notice both wing tips

Code: QB64: [Select]
  1. _TITLE "Thruster Tests" 'b+ 2020-11-02
  2. CONST xmax = 1024, ymax = 700, pi = _PI
  3. SCREEN _NEWIMAGE(xmax, ymax, 32)
  4. _SCREENMOVE 100, 10
  5.  
  6. TYPE shipType
  7.     x AS SINGLE
  8.     y AS SINGLE
  9.     live AS LONG
  10.     speed AS SINGLE
  11.     angle AS SINGLE '   rotated position usu gun left or right (mouse button), maybe up press w or down press z
  12.     thruster AS LONG ' 1 forward, 2 reverse, 3 left , 4 right 0 none for drawing
  14.  
  15. DIM SHARED ship AS shipType
  16. ship.x = xmax / 2: ship.y = ymax / 2: ship.angle = 0
  17. WHILE _KEYDOWN(27) = 0
  18.     CLS
  19.     ship.thruster = 0 'set to zero
  20.     k$ = INKEY$
  21.     IF LEN(k$) = 2 THEN
  22.         SELECT CASE ASC(RIGHT$(k$, 1))
  23.             CASE 72 'up = forward thruster increase speed
  24.                 ship.speed = ship.speed + .1: ship.thruster = 1
  25.             CASE 80 'down = reverse thruster decrease speed yeah will will probably go negative!
  26.                 ship.speed = ship.speed - .1: ship.thruster = 2
  27.             CASE 75 'left = left thruster turn clockwise
  28.                 ship.angle = ship.angle + pi / 6: ship.thruster = 3
  29.             CASE 77 'Right = right thruster turn counter clockwise
  30.                 ship.angle = ship.angle - pi / 6: ship.thruster = 4
  31.         END SELECT
  32.     END IF
  33.     drawship
  34.     _DISPLAY
  35.     _LIMIT 60
  37.  
  38. SUB drawship 'simple red iso triangle pointed towards radianAngle
  39.     DIM x1 AS LONG, y1 AS LONG, x2 AS LONG, y2 AS LONG, x3 AS LONG, y3 AS LONG
  40.     DIM x4 AS LONG, y4 AS LONG, x5 AS LONG, y5 AS LONG, x6 AS LONG, y6 AS LONG
  41.     DIM x7 AS LONG, y7 AS LONG
  42.  
  43.     'locate ship
  44.     ship.x = ship.x + ship.speed * COS(ship.angle)
  45.     ship.y = ship.y + ship.speed * SIN(ship.angle)
  46.     IF ship.x < 0 THEN ship.x = xmax - ABS(ship.x)
  47.     IF ship.x > xmax THEN ship.x = ship.x - xmax
  48.     IF ship.y < 0 THEN ship.y = ymax - ABS(ship.y)
  49.     IF ship.y > ymax THEN ship.y = ship.y - ymax
  50.  
  51.     'calculate 3 points of triangle ship
  52.     fcirc ship.x, ship.y, 30, &H05FFFFFF
  53.     x1 = ship.x + 30 * COS(ship.angle) ' front point
  54.     y1 = ship.y + 30 * SIN(ship.angle) '
  55.     x2 = ship.x + 30 * COS(ship.angle + .6666 * pi) ' wing
  56.     y2 = ship.y + 30 * SIN(ship.angle + .6666 * pi)
  57.     x3 = ship.x + 30 * COS(ship.angle - .6666 * pi) ' other wing
  58.     y3 = ship.y + 30 * SIN(ship.angle - .6666 * pi)
  59.     ftri ship.x, ship.y, x1, y1, x2, y2, _RGB32(80, 120, 80, 80)
  60.     ftri ship.x, ship.y, x1, y1, x3, y3, _RGB32(60, 100, 60, 80)
  61.     LINE (x1, y1)-(ship.x, ship.y), _RGB32(255, 255, 128)
  62.     LINE (x1, y1)-(x2, y2), _RGB32(180, 180, 120)
  63.     LINE (x1, y1)-(x3, y3), _RGB32(180, 180, 120)
  64.  
  65.     SELECT CASE ship.thruster
  66.         CASE 1 'forward apex = ship.x, ship,y  direction = ship.angle + pi
  67.             x4 = ship.x + 25 * COS(ship.angle - 17 / 18 * pi)
  68.             y4 = ship.y + 25 * SIN(ship.angle - 17 / 18 * pi)
  69.             x5 = ship.x + 25 * COS(ship.angle - 19 / 18 * pi)
  70.             y5 = ship.y + 25 * SIN(ship.angle - 19 / 18 * pi)
  71.             ftri ship.x, ship.y, x4, y4, x5, y5, &H99FFFF88
  72.         CASE 2 'reverse apex = x1, y1
  73.             x6 = x2 + 25 * COS(ship.angle + 1 / 18 * pi)
  74.             y6 = y2 + 25 * SIN(ship.angle + 1 / 18 * pi)
  75.             x7 = x2 + 25 * COS(ship.angle - 1 / 18 * pi)
  76.             y7 = y2 + 25 * SIN(ship.angle - 1 / 18 * pi)
  77.             ftri x2, y2, x6, y6, x7, y7, &H99FFFF88
  78.  
  79.             x6 = x3 + 25 * COS(ship.angle + 1 / 18 * pi)
  80.             y6 = y3 + 25 * SIN(ship.angle + 1 / 18 * pi)
  81.             x7 = x3 + 25 * COS(ship.angle - 1 / 18 * pi)
  82.             y7 = y3 + 25 * SIN(ship.angle - 1 / 18 * pi)
  83.             ftri x3, y3, x6, y6, x7, y7, &H99FFFF88
  84.         CASE 3 'left apex = x2, y2
  85.             x6 = x3 + 25 * COS(ship.angle - 17 / 18 * pi)
  86.             y6 = y3 + 25 * SIN(ship.angle - 17 / 18 * pi)
  87.             x7 = x3 + 25 * COS(ship.angle - 19 / 18 * pi)
  88.             y7 = y3 + 25 * SIN(ship.angle - 19 / 18 * pi)
  89.             ftri x3, y3, x6, y6, x7, y7, &H99FFFF88
  90.  
  91.             x6 = x2 + 25 * COS(ship.angle + 1 / 18 * pi)
  92.             y6 = y2 + 25 * SIN(ship.angle + 1 / 18 * pi)
  93.             x7 = x2 + 25 * COS(ship.angle - 1 / 18 * pi)
  94.             y7 = y2 + 25 * SIN(ship.angle - 1 / 18 * pi)
  95.             ftri x2, y2, x6, y6, x7, y7, &H99FFFF88
  96.         CASE 4 'right
  97.             x6 = x2 + 25 * COS(ship.angle - 17 / 18 * pi)
  98.             y6 = y2 + 25 * SIN(ship.angle - 17 / 18 * pi)
  99.             x7 = x2 + 25 * COS(ship.angle - 19 / 18 * pi)
  100.             y7 = y2 + 25 * SIN(ship.angle - 19 / 18 * pi)
  101.             ftri x2, y2, x6, y6, x7, y7, &H99FFFF88
  102.  
  103.             x6 = x3 + 25 * COS(ship.angle + 1 / 18 * pi)
  104.             y6 = y3 + 25 * SIN(ship.angle + 1 / 18 * pi)
  105.             x7 = x3 + 25 * COS(ship.angle - 1 / 18 * pi)
  106.             y7 = y3 + 25 * SIN(ship.angle - 1 / 18 * pi)
  107.             ftri x3, y3, x6, y6, x7, y7, &H99FFFF88
  108.     END SELECT
  110.  
  111. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  112.     DIM D AS LONG
  113.     STATIC a&
  114.     D = _DEST
  115.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  116.     _DEST a&
  117.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
  118.     PSET (0, 0), K
  119.     _BLEND a& '<<<< new 2019-12-16 fix
  120.     _DEST D
  121.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  123.  
  124. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG) 'vince version
  125.     DIM x0 AS LONG, y0 AS LONG, e AS LONG
  126.     x0 = R: y0 = 0: e = 0
  127.     DO WHILE y0 < x0
  128.         IF e <= 0 THEN
  129.             y0 = y0 + 1
  130.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  131.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  132.             e = e + 2 * y0
  133.         ELSE
  134.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  135.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  136.             x0 = x0 - 1: e = e - 2 * x0
  137.         END IF
  138.     LOOP
  139.     LINE (x - R, y)-(x + R, y), C, BF
  141.  

Here is our rocket fuel formula: &H99FFFF88  ;-))


UPDATE: THIS IS WRONG!    Press left arrow, turn left not left thruster, right thruster!
Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 02, 2020, 11:35:32 pm
That is perfect B+! I can't wait to see it in your game!
Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 02, 2020, 11:37:52 pm
You might need to slow down your asteroids though since your spacecraft moves slower now.
Title: Re: b+ Asteroids makeover
Post by: bplus on November 02, 2020, 11:53:58 pm
Quote from: SierraKen on November 02, 2020, 11:37:52 pm
You might need to slow down your asteroids though since your spacecraft moves slower now.

You ain't kidding!!!!  Man I suck at flying rockets!  Spacebar to start next life because you will be pressing arrows when your ship dies. 

WIP m8 Thruster Asteroids Fork:
Code: QB64: [Select]
  2. _TITLE "b+ Asteroids m8 Fork" 'started 2018-07-13"
  3. ' 2020-10-27 remove the alternate subs and get down below 200 LOC almost there now! new shooter action font and background
  4. ' 2020-10-28 another makeover explosions and split asteroids
  5. ' 2020-10-29 fix baby rock management, break between lives
  6. ' 2020-10-29 fix left/right gun, fix explosions over many frames to eliminate pause in action, speed up 60 fps
  7. ' 2020-10-30 m3 SierraKen's idea to angle shooter with mousewheel also finish WASD options, more rocks, points system
  8. ' points:
  9. ' The higher the speed the better    speed range 2 to 5, diff = 3 * 33.3333 = 100          s - 2 * 33.3333
  10. ' The lower the color the better   color range 10 to 60, diff =      50 * 2 = 100  50 - (c - 10) * 2
  11. ' The small        er the size the better  size range 10 to 100, diff = 90 * 1.1111 = 100  90 - (sz -10) * 1.1111
  12. '        ((speed - 2) * 33.3333 + (50 - (c -10)) * 2 + (90 - (r - 10)) * 1.1111) / 3 = 100 best score per hit
  13. ' 2020-10-30 increase level of difficulty, fix double lives lost, add an ending after all lives spent.
  14. ' 2020-10-31 M4 They are Here - the aliens have accepted my invitaion for war games don't get caught in their beam.
  15. ' rework ending and variable LONG suffix. Aliens on the attack 100 points before or after transformed into the Bolder of Death.
  16. ' 2020-11-01 M5 FX Moving through space, Oh yeah, more aliens!
  17. ' 2020-11-01 M6 add play again and save high game , continuous shoot
  18. ' 2020-11-01 M7 fix hits count when hit alien ship or Bolder of Death. Fix lights on aliens ship. I want to see collsions with ship.
  19. ' Ken recommends removing text in middle of screen, yeah, distracting. Makeover ship as with mouse x, y it's center. Add Splash screen.
  20. ' Show mouse in between lives so can be in screen center when press key to start next run.
  21.  
  22. '================================================================================================================
  23.  
  24. '    NOTE: !!!!!!!!!!!!!!!   When there is a pause in action, just hit any key to reset next life.
  25.  
  26. '================================================================================================================
  27.  
  28. CONST xmax = 1200, ymax = 700, pi = _PI, polyAngle = _PI / 6, nRocks = 300, nBullets = 2000, bSpeed = 15
  29.  
  30. TYPE alienType
  31.     x AS SINGLE
  32.     y AS SINGLE
  33.     dx AS SINGLE
  34.     dy AS SINGLE
  35.     ls AS LONG ' lights offset
  36.     c AS _UNSIGNED LONG ' color
  37.     live AS LONG
  38.     attackFrame AS LONG
  39.     fireX AS SINGLE
  40.     fireY AS SINGLE
  41.     transform AS LONG
  43.  
  44. TYPE particle
  45.     x AS SINGLE
  46.     y AS SINGLE
  47.     dx AS SINGLE
  48.     dy AS SINGLE
  49.     size AS SINGLE
  50.     kolor AS _UNSIGNED LONG
  52.  
  53. TYPE bullet
  54.     x AS SINGLE
  55.     y AS SINGLE
  56.     dx AS SINGLE
  57.     dy AS SINGLE
  58.     live AS LONG
  60.  
  61. TYPE shipType
  62.     x AS SINGLE
  63.     y AS SINGLE
  64.     live AS LONG
  65.     speed AS SINGLE
  66.     angle AS SINGLE '   rotated position usu gun left or right (mouse button), maybe up press w or down press z
  67.     thruster AS LONG ' 1 forward, 2 reverse, 3 left , 4 right 0 none for drawing
  69.  
  70. TYPE rock
  71.     x AS SINGLE
  72.     y AS SINGLE
  73.     r AS LONG '            radius
  74.     ra AS SINGLE '         rotation position   a = a + spin
  75.     heading AS SINGLE '    heading from which dx, dy are calc with speed
  76.     speed AS SINGLE '      speed
  77.     spin AS SINGLE '       rotation direction and amount
  78.     seed AS LONG '         for drawing rocks with RND USING
  79.     c AS LONG '            color   rgb(c, c, c)
  80.     live AS LONG '         need this to track rocks still active like bullets
  81.     explodeFrame AS LONG ' after a rock is hit by bullet, it explodes and in more than one frame
  83.  
  84. REDIM SHARED aliens(1 TO 5) AS alienType
  85. DIM SHARED dots(2000) AS particle
  86. DIM SHARED b(nBullets) AS bullet
  87. DIM SHARED ship AS shipType
  88. DIM SHARED r(nRocks) AS rock
  90. DIM SHARED points AS LONG
  91. DIM SHARED rocks AS LONG 'rocks is the minimum number of parent rocks to have on screen  automatic replace when hit or out of bounds
  92.  
  93. DIM HS AS LONG, fnt AS LONG, fnt2 AS LONG ' file LOAD handles
  94. DIM i AS LONG, bullets AS LONG, fire AS LONG ' index and bullets
  95. DIM r AS LONG, newRockN AS LONG, maxBabyRocks AS LONG, br AS LONG, hits AS LONG ' rock stuff
  96. DIM ai AS LONG, alienN AS LONG ' alien index and number
  97. DIM hs$, s$, k$, t, lastt ' general string and times
  98.  
  99. SCREEN _NEWIMAGE(xmax, ymax, 32)
  100. _SCREENMOVE 100, 20
  102.  
  103. fnt = _LOADFONT("ARLRDBD.ttf", 16, "MONOSPACE")
  104. fnt2 = _LOADFONT("ARLRDBD.ttf", 40, "MONOSPACE")
  105. _FONT fnt2
  106. COLOR &HFF00FFFF, &H00000000
  107.  
  108. IF _FILEEXISTS("Asteroids High Score.txt") THEN
  109.     OPEN "Asteroids High Score.txt" FOR INPUT AS #1
  110.     INPUT #1, HS
  111.     CLOSE #1
  113. hs$ = "High Score:" + STR$(HS)
  114.  
  115. 'a little splash screen
  116. rocks = 7: alienN = 3
  117. FOR i = 1 TO nRocks
  118.     newRock i
  119.     IF i > rocks THEN r(i).live = 0
  121. FOR i = 1 TO alienN
  122.     newAlien i
  124. i = 0
  126.     drawStars 0
  127.     i = i + 1
  128.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  129.     FOR r = 1 TO nRocks
  130.         IF r(r).live THEN drawRock r
  131.     NEXT
  132.     FOR i = 1 TO alienN
  133.         drawAliens i
  134.     NEXT
  135.     _FONT fnt2
  136.     s$ = "b+ Thrusters Asteroids"
  137.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 60), s$
  138.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(hs$)) / 2, 140), hs$
  139.     s$ = "Up = forward"
  140.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 220), s$
  141.     s$ = "Down = Reverse"
  142.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 300), s$
  143.     s$ = "Left = Clockwise"
  144.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 380), s$
  145.     s$ = "Right Counter-CW"
  146.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 460), s$
  147.     s$ = "q Quit, space continue"
  148.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 540), s$
  149.     _FONT fnt
  150.     s$ = INKEY$
  151.     IF s$ = "q" THEN SYSTEM
  152.     _DISPLAY
  153.     _LIMIT 60
  155.  
  157. restart:
  158. IF _FILEEXISTS("Asteroids High Score.txt") THEN
  159.     OPEN "Asteroids High Score.txt" FOR INPUT AS #1
  160.     INPUT #1, HS
  161.     CLOSE #1
  163. hs$ = "  High Score:" + STR$(HS)
  164. lives = 10: alienN = 1: rocks = 4: ' always active rocks
  165. points = 0: hits = 0: bullets = 0
  166. WHILE lives > 0 AND _KEYDOWN(27) = 0 ' init start restart
  167.     REDIM aliens(1 TO alienN) AS alienType
  168.     FOR ai = 1 TO alienN
  169.         newAlien ai
  170.     NEXT
  171.     FOR i = 1 TO nRocks 'reset rocks mainly clear baby rocks
  172.         newRock (i)
  173.         IF i > rocks THEN r(i).live = 0
  174.     NEXT
  175.     ship.x = xmax / 2 'avoids explosions top left corner at start, dang still get some!
  176.     ship.y = ymax / 2
  177.     ship.angle = 0
  178.     ship.speed = 0
  179.     ship.live = 1
  181.     WHILE ship.live AND _KEYDOWN(27) = 0
  182.         'draw everything then process bullets
  183.         drawStars 1
  184.  
  185.         FOR ai = 1 TO alienN
  186.             drawAliens ai
  187.         NEXT
  188.         FOR i = 1 TO nRocks
  189.             IF r(i).live THEN drawRock i ' while drawing rocks the ship could be blown up
  190.             IF ((r(i).x - ship.x) ^ 2 + (r(i).y - ship.y) ^ 2) ^ .5 < r(i).r + 30 THEN 'rock collides with ship?
  191.                 FOR br = 1 TO 200 STEP 5
  192.                     CIRCLE ((ship.x + r(i).x) / 2, (ship.y + r(i).y) / 2), br, _RGB32(255 - br, 255 - 2 * br, 0)
  193.                 NEXT
  194.                 drawRock i
  195.                 drawship
  196.                 ship.live = 0
  197.                 IF i <= rocks THEN newRock i ELSE r(i).live = 0
  198.             END IF
  199.         NEXT
  200.         FOR i = 1 TO nRocks 'smoke up the place with rock debris fields still flying out from hit frames ago
  201.             IF r(i).explodeFrame THEN
  202.                 r(i).explodeFrame = r(i).explodeFrame + 1
  203.                 IF r(i).explodeFrame > .5 * r(i).r THEN
  204.                     r(i).explodeFrame = 0
  205.                     IF i <= rocks THEN newRock i ' now replace the rock
  206.                 ELSE
  207.                     explode r(i).x, r(i).y, r(i).r, r(i).explodeFrame
  208.                 END IF
  209.             END IF
  210.         NEXT
  211.         IF ship.live THEN
  212.             FOR ai = 1 TO alienN
  213.                 IF SQR((aliens(ai).x - ship.x) ^ 2 + (aliens(ai).y - ship.y) ^ 2) < 60 THEN 'aliens and ship collisde boom boom
  214.                     FOR br = 1 TO 200 STEP 5
  215.                         CIRCLE ((ship.x + aliens(ai).x) / 2, (ship.y + aliens(ai).y) / 2), br, _RGB32(255 - br, 255 - 2 * br, 0)
  216.                     NEXT
  217.                     drawship
  218.                     ship.live = 0
  219.                     _CONTINUE
  220.                 ELSE
  221.                     drawship
  222.                 END IF
  223.             NEXT
  224.  
  225.             'locate ship
  226.             ship.thruster = 0 'set to zero
  227.             k$ = INKEY$
  228.             IF LEN(k$) = 2 THEN
  229.                 SELECT CASE ASC(RIGHT$(k$, 1))
  230.                     CASE 72 'up = forward thruster increase speed
  231.                         ship.speed = ship.speed + .1: ship.thruster = 1
  232.                     CASE 80 'down = reverse thruster decrease speed yeah will will probably go negative!
  233.                         ship.speed = ship.speed - .1: ship.thruster = 2
  234.                     CASE 75 'left = left thruster turn clockwise
  235.                         ship.angle = ship.angle + pi / 24: ship.thruster = 3
  236.                     CASE 77 'Right = right thruster turn counter clockwise
  237.                         ship.angle = ship.angle - pi / 24: ship.thruster = 4
  238.                 END SELECT
  239.             END IF
  240.  
  241.             ship.x = ship.x + ship.speed * COS(ship.angle)
  242.             ship.y = ship.y + ship.speed * SIN(ship.angle)
  243.             IF ship.x < 0 THEN ship.x = xmax - ABS(ship.x)
  244.             IF ship.x > xmax THEN ship.x = ship.x - xmax
  245.             IF ship.y < 0 THEN ship.y = ymax - ABS(ship.y)
  246.             IF ship.y > ymax THEN ship.y = ship.y - ymax
  247.  
  248.             fire = 0
  249.             t = TIMER(.01)
  250.             IF lastt = 0 OR t - lastt > .2 THEN fire = 1: lastt = t
  251.  
  252.             FOR i = 0 TO nBullets 'handle bullets
  253.                 IF b(i).live = 0 AND fire = 1 THEN 'have inactive bullet to use
  254.                     b(i).x = ship.x + bSpeed * COS(ship.angle)
  255.                     b(i).y = ship.y + bSpeed * SIN(ship.angle)
  256.                     b(i).dx = bSpeed * COS(ship.angle)
  257.                     b(i).dy = bSpeed * SIN(ship.angle)
  258.                     b(i).live = -1
  259.                     bullets = bullets + 1
  260.                     fire = 0
  261.                 END IF
  262.                 IF b(i).live THEN 'new location
  263.                     b(i).x = b(i).x + b(i).dx
  264.                     b(i).y = b(i).y + b(i).dy
  265.                     IF b(i).x > 0 AND b(i).x < xmax AND b(i).y > 0 AND b(i).y < ymax THEN 'in bounds draw it
  266.  
  267.                         'bullet hit aliens?
  268.                         FOR ai = 1 TO alienN
  269.                             IF SQR((aliens(ai).x - b(i).x) ^ 2 + (aliens(ai).y - b(i).y) ^ 2) < 30 THEN
  270.                                 FOR br = 1 TO 120
  271.                                     CIRCLE (aliens(ai).x, aliens(ai).y), br / 3, plasma~&(0)
  272.                                 NEXT
  273.                                 _DISPLAY
  274.                                 _DELAY .05
  275.                                 hits = hits + 1
  276.                                 points = points + 100
  277.                                 aliens(ai).live = 0
  278.                                 newAlien ai
  279.                                 b(i).live = 0
  280.                                 _CONTINUE
  281.                             END IF
  282.                         NEXT
  283.                         FOR r = 1 TO nRocks 'check for collision with rock
  284.                             IF r(r).live THEN
  285.                                 IF SQR((r(r).x - b(i).x) ^ 2 + (r(r).y - b(i).y) ^ 2) < r(r).r THEN 'its a hit!
  286.                                     r(r).explodeFrame = 1 'linger with explosion
  287.                                     r(r).live = 0
  288.                                     hits = hits + 1
  289.                                     points = points + ((r(r).speed - 2) * 33.3333 + (50 - (r(r).c - 10)) * 2 + (90 - (r(r).r - 10)) * 1.1111) / 3
  290.                                     IF r(r).r > 30 THEN '       split rock  into ? new ones
  291.                                         maxBabyRocks = INT((r(r).r - 10) / 10)
  292.                                         maxBabyRocks = irnd&(2, maxBabyRocks) ' pick a number of baby Rocks
  293.                                         FOR br = 1 TO maxBabyRocks
  294.                                             '                        new rock
  295.                                             newRockN = freeRock& '                          get inactive rock number
  296.                                             newRock newRockN '                              new identity and activate
  297.                                             r(newRockN).r = (r(r).r - 10) / maxBabyRocks '  split in equal parts minus 20% mass
  298.                                             r(newRockN).x = r(r).x + irnd&(-30, 30) '       thrown from parent
  299.                                             r(newRockN).y = r(r).y + irnd&(-30, 30)
  300.                                             r(newRockN).c = r(r).c '                   same color as parent
  301.                                             r(newRockN).heading = rrnd(ship.angle - .75 * pi, ship.angle + .75 * pi)
  302.                                         NEXT
  303.                                     END IF ' big enough to split
  304.                                     b(i).live = 0 'kill bullet
  305.                                 END IF ' hit rock
  306.                             END IF 'rock is there
  307.                         NEXT ' rock
  308.                         IF b(i).live THEN fcirc b(i).x, b(i).y, 3, _RGB32(255, 255, 0) 'draws bullet
  309.                     ELSE
  310.                         b(i).live = 0 'out of bounds
  311.                     END IF ' bullet is in bounds
  312.                 END IF ' bullet live
  313.             NEXT ' bullet
  314.         END IF ' if ship still live
  315.         _DISPLAY
  316.         IF ship.live = 0 THEN
  317.             lives = lives - 1
  318.             IF lives MOD 4 = 0 THEN rocks = rocks + 1
  319.             IF lives MOD 4 = 2 THEN alienN = alienN + 1
  320.             s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  321.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 80), s$
  322.             _FONT fnt2
  323.             s$ = STR$(points) + hs$
  324.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  325.             _FONT fnt
  326.             s$ = "Center mouse and press any"
  327.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 120), s$
  328.             _DISPLAY
  329.             _MOUSESHOW
  330.             WHILE _KEYDOWN(32) = 0: WEND 'wait for space bar
  331.         ELSE
  332.             _LIMIT 60 ' if ship dies let's rest and regroup  before restart next life
  333.         END IF
  334.     WEND
  335.     _DISPLAY
  337. IF points > HS THEN
  338.     OPEN "Asteroids High Score.txt" FOR OUTPUT AS #1
  339.     PRINT #1, points
  340.     CLOSE #1
  342. ship.x = -200: ship.y = -200 'get it out of the way
  343. i = 0
  345.     drawStars 0
  346.     i = i + 1
  347.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  348.     FOR r = 1 TO nRocks
  349.         IF r(r).live THEN drawRock r
  350.     NEXT
  351.     s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  352.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 80), s$
  353.     _FONT fnt2
  354.     s$ = STR$(points)
  355.     IF points > HS THEN s$ = s$ + " a New Record!" ELSE s$ = STR$(points) + hs$
  356.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  357.     _FONT fnt
  358.     s$ = "Press q to quit, p or a to Play Again..."
  359.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 120), s$
  360.     IF _KEYDOWN(ASC("a")) OR _KEYDOWN(ASC("p")) THEN GOTO restart
  361.     _DISPLAY
  362.     _LIMIT 60
  365.  
  366. SUB drawStars (moving)
  367.     TYPE starType
  368.         x AS SINGLE
  369.         y AS SINGLE
  370.         size AS SINGLE
  371.         c AS INTEGER
  372.     END TYPE
  373.     STATIC beenHere, stars(600) AS starType, cy AS LONG
  374.     DIM i AS LONG
  375.     IF beenHere = 0 THEN 'static part
  376.         FOR i = 0 TO 200
  377.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = 0
  378.             stars(i).c = irnd&(80, 140)
  379.         NEXT
  380.         FOR i = 0 TO 200
  381.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = .3
  382.             stars(i).c = irnd&(80, 140)
  383.         NEXT
  384.  
  385.         FOR i = 1 TO 140
  386.             stars(i + 400).x = RND * xmax: stars(i + 400).y = RND * ymax: stars(i + 100).size = .6
  387.             stars(i).c = irnd&(110, 170)
  388.         NEXT
  389.         FOR i = 1 TO 50
  390.             stars(i + 540).x = RND * xmax: stars(i + 540).y = RND * ymax: stars(i + 170).size = 1.2
  391.             stars(i).c = irnd&(140, 200)
  392.         NEXT
  393.         FOR i = 1 TO 10
  394.             stars(i + 590).x = RND * xmax: stars(i + 590).y = RND * ymax: stars(i + 195).size = 2.4
  395.             stars(i).c = irnd&(170, 235)
  396.         NEXT
  397.         cy = ymax / 2
  398.         beenHere = 1
  399.     END IF
  400.     FOR i = 0 TO cy
  401.         LINE (0, i)-(xmax, i), _RGB32(0, 0, .1 * i + 4)
  402.         LINE (0, ymax - i)-(xmax, ymax - i), _RGB(0, 0, .1 * i + 4)
  403.     NEXT
  404.     FOR i = 0 TO 200
  405.         IF moving THEN
  406.             stars(i).x = stars(i).x + .2 * stars(i).size ^ stars(i).size
  407.             IF stars(i).x > xmax THEN stars(i).x = -1 * RND * 20
  408.         END IF
  409.         fcirc stars(i).x, stars(i).y, stars(i).size, _RGB32(stars(i).c - 10, stars(i).c, stars(i).c + 10)
  410.     NEXT
  412.  
  413. SUB newAlien (i AS LONG)
  414.     DIM side AS LONG, heading
  415.     RANDOMIZE TIMER * RND 'to avoid making twins
  416.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  417.     aliens(i).fireX = irnd(10, xmax - 10)
  418.     aliens(i).fireY = irnd(10, ymax - 10)
  419.     aliens(i).attackFrame = irnd(30, 400) ' EDIT a tweak to survive a little long before getting murdered with low lives over and over...
  420.     SELECT CASE side
  421.         CASE 1
  422.             aliens(i).x = -10
  423.             aliens(i).y = rrnd(20, ymax - 20)
  424.         CASE 2
  425.             aliens(i).x = xmax + 10
  426.             aliens(i).y = rrnd(20, ymax - 20)
  427.         CASE 3
  428.             aliens(i).x = rrnd(20, xmax - 20)
  429.             aliens(i).y = -10
  430.         CASE 4
  431.             aliens(i).x = rrnd(20, xmax - 20)
  432.             aliens(i).y = ymax + 10
  433.     END SELECT
  434.     heading = _ATAN2(aliens(i).fireY - aliens(i).y, aliens(i).fireX - aliens(i).x)
  435.     aliens(i).dx = .5 * COS(heading)
  436.     aliens(i).dy = .5 * SIN(heading)
  437.     aliens(i).live = 0
  438.     aliens(i).transform = 0
  439.     aliens(i).c = _RGB32(irnd(128, 255), irnd(0, 255), irnd(0, 255))
  441.  
  442. FUNCTION plasma~& (new AS LONG)
  443.     STATIC r, g, b, cnt, beenHere
  444.     IF beenHere = 0 OR new THEN
  445.         r = RND: g = RND: b = RND: beenHere = 1: cnt = 0
  446.     END IF
  447.     cnt = cnt + .2
  448.     plasma~& = _RGB32(127 + 127 * SIN(r * cnt), 127 + 127 * SIN(g * cnt), 127 + 127 * SIN(b * cnt))
  450.  
  451. SUB drawAliens (i AS LONG) 'shipType
  452.     DIM light AS LONG, heading, r AS LONG, g AS LONG, b AS LONG
  453.     IF aliens(i).live THEN
  454.         IF aliens(i).transform = 0 THEN
  455.             r = _RED32(aliens(i).c): g = _GREEN32(aliens(i).c): b = _BLUE32(aliens(i).c)
  456.             fellipse aliens(i).x, aliens(i).y, 6, 15, _RGB32(r, g - 120, b - 100)
  457.             fellipse aliens(i).x, aliens(i).y, 18, 11, _RGB32(r, g - 60, b - 50)
  458.             fellipse aliens(i).x, aliens(i).y, 30, 7, _RGB32(r, g, b)
  459.             FOR light = 0 TO 5
  460.                 fcirc aliens(i).x - 30 + 11 * light + aliens(i).ls, aliens(i).y, 1, _RGB32(aliens(i).ls * 50, aliens(i).ls * 50, aliens(i).ls * 50)
  461.             NEXT
  462.             aliens(i).ls = aliens(i).ls + 1
  463.             IF aliens(i).ls > 5 THEN aliens(i).ls = 0
  464.         ELSE
  465.             fcirc aliens(i).x, aliens(i).y, 30, aliens(i).c
  466.         END IF
  467.         'time to shoot?
  468.         aliens(i).x = aliens(i).x + aliens(i).dx
  469.         aliens(i).y = aliens(i).y + aliens(i).dy
  470.         IF SQR((aliens(i).fireX - aliens(i).x) ^ 2 + (aliens(i).fireY - aliens(i).y) ^ 2) < 5 THEN 'transform into the bolder of death
  471.             aliens(i).transform = 1
  472.             heading = _ATAN2(ship.y - aliens(i).y, ship.x - aliens(i).x)
  473.             aliens(i).dx = 2.5 * COS(heading)
  474.             aliens(i).dy = 2.5 * SIN(heading)
  475.         END IF
  476.         IF aliens(i).x < -10 OR aliens(i).x > xmax + 10 THEN
  477.             IF aliens(i).y < -10 OR aliens(i).y > ymax + 10 THEN '  out of bounds goodbye bolder of death!
  478.                 aliens(i).live = 0 'man we dodged a bullet here!!!!
  479.                 newAlien i 'reset the trap
  480.             END IF
  481.         END IF
  482.     ELSE
  483.         IF aliens(i).attackFrame THEN
  484.             aliens(i).attackFrame = aliens(i).attackFrame - 1
  485.             IF aliens(i).attackFrame = 0 THEN
  486.                 aliens(i).live = 1
  487.             END IF
  488.         END IF
  489.     END IF
  491.  
  492. FUNCTION freeRock&
  493.     DIM i AS LONG
  494.     FOR i = rocks + 1 TO nRocks ' look for inactive rock number
  495.         IF r(i).live = 0 AND r(i).explodeFrame = 0 THEN freeRock& = i: EXIT FUNCTION
  496.     NEXT
  498.  
  499. SUB explode (x AS LONG, y AS LONG, r AS LONG, frm AS LONG)
  500.     DIM maxParticles AS LONG, i AS LONG, rounds AS LONG, loopCount AS LONG
  501.     maxParticles = r * 4
  502.     FOR i = 1 TO r
  503.         NewDot i, x, y, r
  504.     NEXT
  505.     rounds = r
  506.     FOR loopCount = 0 TO frm
  507.         IF _KEYDOWN(27) THEN END
  508.         FOR i = 1 TO rounds
  509.             dots(i).x = dots(i).x + dots(i).dx
  510.             dots(i).y = dots(i).y + dots(i).dy
  511.             fcirc dots(i).x, dots(i).y, dots(i).size, dots(i).kolor
  512.         NEXT
  513.         IF rounds < maxParticles THEN
  514.             FOR i = 1 TO r
  515.                 NewDot (rounds + i), x, y, r
  516.             NEXT
  517.             rounds = rounds + r
  518.         END IF
  519.     NEXT
  521.  
  522. SUB NewDot (i AS LONG, x AS LONG, y AS LONG, r AS LONG)
  523.     DIM angle, rd
  524.     angle = pi * 2 * RND
  525.     rd = RND * 30
  526.     dots(i).x = x + rd * COS(angle)
  527.     dots(i).y = y + rd * SIN(angle)
  528.     dots(i).size = RND * r * .05
  529.     rd = RND 'STxAxTIC recommended for rounder spreads
  530.     dots(i).dx = rd * 10 * (10 - 2 * dots(i).size) * COS(angle)
  531.     dots(i).dy = rd * 10 * (10 - 2 * dots(i).size) * SIN(angle)
  532.     rd = 20 + RND * 70
  533.     dots(i).kolor = _RGBA32(rd, rd, rd, 80)
  535.  
  536. SUB drawship 'simple red iso triangle pointed towards radianAngle
  537.     DIM x1 AS LONG, y1 AS LONG, x2 AS LONG, y2 AS LONG, x3 AS LONG, y3 AS LONG
  538.     DIM x4 AS LONG, y4 AS LONG, x5 AS LONG, y5 AS LONG, x6 AS LONG, y6 AS LONG
  539.     DIM x7 AS LONG, y7 AS LONG
  540.  
  541.  
  542.     'calculate 3 points of triangle ship
  543.     fcirc ship.x, ship.y, 30, &H05FFFFFF
  544.     x1 = ship.x + 30 * COS(ship.angle) ' front point
  545.     y1 = ship.y + 30 * SIN(ship.angle) '
  546.     x2 = ship.x + 30 * COS(ship.angle + .6666 * pi) ' wing
  547.     y2 = ship.y + 30 * SIN(ship.angle + .6666 * pi)
  548.     x3 = ship.x + 30 * COS(ship.angle - .6666 * pi) ' other wing
  549.     y3 = ship.y + 30 * SIN(ship.angle - .6666 * pi)
  550.     ftri ship.x, ship.y, x1, y1, x2, y2, _RGB32(80, 120, 80, 80)
  551.     ftri ship.x, ship.y, x1, y1, x3, y3, _RGB32(60, 100, 60, 80)
  552.     LINE (x1, y1)-(ship.x, ship.y), _RGB32(255, 255, 128)
  553.     LINE (x1, y1)-(x2, y2), _RGB32(180, 180, 120)
  554.     LINE (x1, y1)-(x3, y3), _RGB32(180, 180, 120)
  555.  
  556.     SELECT CASE ship.thruster
  557.         CASE 1 'forward apex = ship.x, ship,y  direction = ship.angle + pi
  558.             x4 = ship.x + 25 * COS(ship.angle - 17 / 18 * pi)
  559.             y4 = ship.y + 25 * SIN(ship.angle - 17 / 18 * pi)
  560.             x5 = ship.x + 25 * COS(ship.angle - 19 / 18 * pi)
  561.             y5 = ship.y + 25 * SIN(ship.angle - 19 / 18 * pi)
  562.             ftri ship.x, ship.y, x4, y4, x5, y5, &H99FFFF88
  563.         CASE 2 'reverse apex = x1, y1
  564.             x6 = x2 + 25 * COS(ship.angle + 1 / 18 * pi)
  565.             y6 = y2 + 25 * SIN(ship.angle + 1 / 18 * pi)
  566.             x7 = x2 + 25 * COS(ship.angle - 1 / 18 * pi)
  567.             y7 = y2 + 25 * SIN(ship.angle - 1 / 18 * pi)
  568.             ftri x2, y2, x6, y6, x7, y7, &H99FFFF88
  569.  
  570.             x6 = x3 + 25 * COS(ship.angle + 1 / 18 * pi)
  571.             y6 = y3 + 25 * SIN(ship.angle + 1 / 18 * pi)
  572.             x7 = x3 + 25 * COS(ship.angle - 1 / 18 * pi)
  573.             y7 = y3 + 25 * SIN(ship.angle - 1 / 18 * pi)
  574.             ftri x3, y3, x6, y6, x7, y7, &H99FFFF88
  575.         CASE 3 'left apex = x2, y2
  576.             x6 = x3 + 25 * COS(ship.angle - 17 / 18 * pi)
  577.             y6 = y3 + 25 * SIN(ship.angle - 17 / 18 * pi)
  578.             x7 = x3 + 25 * COS(ship.angle - 19 / 18 * pi)
  579.             y7 = y3 + 25 * SIN(ship.angle - 19 / 18 * pi)
  580.             ftri x3, y3, x6, y6, x7, y7, &H99FFFF88
  581.  
  582.             x6 = x2 + 25 * COS(ship.angle + 1 / 18 * pi)
  583.             y6 = y2 + 25 * SIN(ship.angle + 1 / 18 * pi)
  584.             x7 = x2 + 25 * COS(ship.angle - 1 / 18 * pi)
  585.             y7 = y2 + 25 * SIN(ship.angle - 1 / 18 * pi)
  586.             ftri x2, y2, x6, y6, x7, y7, &H99FFFF88
  587.         CASE 4 'right
  588.             x6 = x2 + 25 * COS(ship.angle - 17 / 18 * pi)
  589.             y6 = y2 + 25 * SIN(ship.angle - 17 / 18 * pi)
  590.             x7 = x2 + 25 * COS(ship.angle - 19 / 18 * pi)
  591.             y7 = y2 + 25 * SIN(ship.angle - 19 / 18 * pi)
  592.             ftri x2, y2, x6, y6, x7, y7, &H99FFFF88
  593.  
  594.             x6 = x3 + 25 * COS(ship.angle + 1 / 18 * pi)
  595.             y6 = y3 + 25 * SIN(ship.angle + 1 / 18 * pi)
  596.             x7 = x3 + 25 * COS(ship.angle - 1 / 18 * pi)
  597.             y7 = y3 + 25 * SIN(ship.angle - 1 / 18 * pi)
  598.             ftri x3, y3, x6, y6, x7, y7, &H99FFFF88
  599.     END SELECT
  601.  
  602. SUB drawRock (iRock)
  603.     RANDOMIZE USING r(iRock).seed 'this prevents having to save a particular sequence of random number
  604.     DIM dx, dy, j AS LONG, rRad AS SINGLE, leg AS SINGLE, x0 AS LONG, y0 AS LONG, rc AS LONG, c~&, x1 AS LONG, y1 AS LONG, xoff, yoff, i AS LONG
  605.     DIM x2 AS LONG, y2 AS LONG
  606.     dx = r(iRock).speed * COS(r(iRock).heading)
  607.     dy = r(iRock).speed * SIN(r(iRock).heading) 'update location
  608.     r(iRock).ra = r(iRock).ra + r(iRock).spin
  609.     IF r(iRock).x + dx + r(iRock).r < 0 OR r(iRock).x + dx - r(iRock).r > xmax OR r(iRock).y + dy + r(iRock).r < 0 OR r(iRock).y + dy - r(iRock).r > ymax THEN
  610.         IF iRock <= rocks THEN newRock iRock ELSE r(iRock).live = 0
  611.         EXIT SUB ' reassigned get out of here
  612.     ELSE
  613.         r(iRock).x = r(iRock).x + dx
  614.         r(iRock).y = r(iRock).y + dy
  615.     END IF
  616.     FOR j = 10 TO 3 STEP -1 '                  rock drawing (see demo program where developed code)
  617.         rRad = .1 * j * r(iRock).r
  618.         leg = rRad * (RND * .7 + .3)
  619.         x0 = r(iRock).x + leg * COS(r(iRock).ra)
  620.         y0 = r(iRock).y + leg * SIN(r(iRock).ra)
  621.         rc = r(iRock).c + 30 * RND - 15
  622.         c~& = _RGB32(rc + 5, rc - 10, rc + 5)
  623.         x1 = x0
  624.         y1 = y0
  625.         xoff = RND * 20 - 10 + r(iRock).x
  626.         yoff = RND * 20 - 10 + r(iRock).y
  627.         FOR i = 1 TO 12
  628.             leg = rRad * (RND * .35 + .65)
  629.             IF i = 12 THEN
  630.                 x2 = x0: y2 = y0
  631.             ELSE
  632.                 x2 = xoff + leg * COS(i * polyAngle + r(iRock).ra)
  633.                 y2 = yoff + leg * SIN(i * polyAngle + r(iRock).ra)
  634.             END IF
  635.             ftri r(iRock).x, r(iRock).y, x1, y1, x2, y2, c~&
  636.             x1 = x2: y1 = y2
  637.         NEXT
  638.     NEXT
  640.  
  641. SUB newRock (iRock)
  642.     DIM side AS LONG
  643.     RANDOMIZE TIMER * RND 'to avoid making twins
  644.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  645.     SELECT CASE side
  646.         CASE 1
  647.             r(iRock).x = -10
  648.             r(iRock).y = rrnd(20, ymax - 20)
  649.             r(iRock).heading = 3 * pi / 2 + RND * pi
  650.         CASE 2
  651.             r(iRock).x = xmax + 10
  652.             r(iRock).y = rrnd(20, ymax - 20)
  653.             r(iRock).heading = pi / 2 + RND * pi
  654.         CASE 3
  655.             r(iRock).x = rrnd(20, xmax - 20)
  656.             r(iRock).y = -10
  657.             r(iRock).heading = RND * pi
  658.         CASE 4
  659.             r(iRock).x = rrnd(20, xmax - 20)
  660.             r(iRock).y = ymax + 10
  661.             r(iRock).heading = pi + RND * pi
  662.     END SELECT
  663.     r(iRock).speed = rrnd(.2, 1.5) 'speed, rotation angle, radius, gray coloring, spin, seed, hit for explosion
  664.     r(iRock).ra = RND * 2 * pi
  665.     r(iRock).r = irnd&(30, 100)
  666.     r(iRock).c = irnd&(10, 60)
  667.     r(iRock).spin = rrnd(-pi / 20, pi / 20)
  668.     r(iRock).seed = INT(RND * 64000) - 32000
  669.     r(iRock).explodeFrame = 0
  670.     r(iRock).live = 1
  672.  
  673. FUNCTION irnd& (n1, n2) 'return an integer between 2 numbers
  674.     DIM l%, h%
  675.     IF n1 > n2 THEN l% = n2: h% = n1 ELSE l% = n1: h% = n2
  676.     irnd& = INT(RND * (h% - l% + 1)) + l%
  678.  
  679. FUNCTION rrnd (n1, n2) ' return number (expecting reals =_single, double, _float depending on default / define setup)
  680.     rrnd = (n2 - n1) * RND + n1
  682.  
  683. SUB fellipse (CX AS LONG, CY AS LONG, xr AS LONG, yr AS LONG, C AS _UNSIGNED LONG)
  684.     IF xr = 0 OR yr = 0 THEN EXIT SUB
  686.     DIM x AS LONG, y AS LONG
  687.     w2 = xr * xr: h2 = yr * yr: h2w2 = h2 * w2
  688.     LINE (CX - xr, CY)-(CX + xr, CY), C, BF
  689.     DO WHILE y < yr
  690.         y = y + 1
  691.         x = SQR((h2w2 - y * y * w2) \ h2)
  692.         LINE (CX - x, CY + y)-(CX + x, CY + y), C, BF
  693.         LINE (CX - x, CY - y)-(CX + x, CY - y), C, BF
  694.     LOOP
  696.  
  697. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  698.     DIM D AS LONG
  699.     STATIC a&
  700.     D = _DEST
  701.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  702.     _DEST a&
  703.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
  704.     PSET (0, 0), K
  705.     _BLEND a& '<<<< new 2019-12-16 fix
  706.     _DEST D
  707.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  709.  
  710. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG) 'vince version
  711.     DIM x0 AS LONG, y0 AS LONG, e AS LONG
  712.     x0 = R: y0 = 0: e = 0
  713.     DO WHILE y0 < x0
  714.         IF e <= 0 THEN
  715.             y0 = y0 + 1
  716.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  717.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  718.             e = e + 2 * y0
  719.         ELSE
  720.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  721.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  722.             x0 = x0 - 1: e = e - 2 * x0
  723.         END IF
  724.     LOOP
  725.     LINE (x - R, y)-(x + R, y), C, BF
  727.  

I swear this is turning just the wrong way press left arrow...

When I am a bird dipping my wing down left I turn counter clockwise and vice versa.

What do you bird brains think?
Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 03, 2020, 12:31:40 am
This is getting to be more real than the arcade version! I like it! You might want to speed up the moving thruster to get out of the way of asteroids quicker, but just a little bit. The turning does take a little bit getting used to since it's opposite when the ship is facing downward than it was facing upward. But to me that's just the fun of the game. And once someone adds sounds to it, it will even be more fun. I'm not sure of a different way you can make it turn, but you can experiment of course.
Title: Re: b+ Asteroids makeover
Post by: bplus on November 03, 2020, 12:54:09 am
OK try this way of turning, to me it seems better, more natural for flying (plus less rocks now and forward reverse thrusters  increased):

Code: QB64: [Select]
  2. _TITLE "b+ Asteroids m8 Fork" 'started 2018-07-13"
  3. ' 2020-10-27 remove the alternate subs and get down below 200 LOC almost there now! new shooter action font and background
  4. ' 2020-10-28 another makeover explosions and split asteroids
  5. ' 2020-10-29 fix baby rock management, break between lives
  6. ' 2020-10-29 fix left/right gun, fix explosions over many frames to eliminate pause in action, speed up 60 fps
  7. ' 2020-10-30 m3 SierraKen's idea to angle shooter with mousewheel also finish WASD options, more rocks, points system
  8. ' points:
  9. ' The higher the speed the better    speed range 2 to 5, diff = 3 * 33.3333 = 100          s - 2 * 33.3333
  10. ' The lower the color the better   color range 10 to 60, diff =      50 * 2 = 100  50 - (c - 10) * 2
  11. ' The small        er the size the better  size range 10 to 100, diff = 90 * 1.1111 = 100  90 - (sz -10) * 1.1111
  12. '        ((speed - 2) * 33.3333 + (50 - (c -10)) * 2 + (90 - (r - 10)) * 1.1111) / 3 = 100 best score per hit
  13. ' 2020-10-30 increase level of difficulty, fix double lives lost, add an ending after all lives spent.
  14. ' 2020-10-31 M4 They are Here - the aliens have accepted my invitaion for war games don't get caught in their beam.
  15. ' rework ending and variable LONG suffix. Aliens on the attack 100 points before or after transformed into the Bolder of Death.
  16. ' 2020-11-01 M5 FX Moving through space, Oh yeah, more aliens!
  17. ' 2020-11-01 M6 add play again and save high game , continuous shoot
  18. ' 2020-11-01 M7 fix hits count when hit alien ship or Bolder of Death. Fix lights on aliens ship. I want to see collsions with ship.
  19. ' Ken recommends removing text in middle of screen, yeah, distracting. Makeover ship as with mouse x, y it's center. Add Splash screen.
  20. ' Show mouse in between lives so can be in screen center when press key to start next run.
  21.  
  22. '================================================================================================================
  23.  
  24. '    NOTE: !!!!!!!!!!!!!!!   When there is a pause in action, just hit any key to reset next life.
  25.  
  26. '================================================================================================================
  27.  
  28. CONST xmax = 1200, ymax = 700, pi = _PI, polyAngle = _PI / 6, nRocks = 300, nBullets = 2000, bSpeed = 15
  29.  
  30. TYPE alienType
  31.     x AS SINGLE
  32.     y AS SINGLE
  33.     dx AS SINGLE
  34.     dy AS SINGLE
  35.     ls AS LONG ' lights offset
  36.     c AS _UNSIGNED LONG ' color
  37.     live AS LONG
  38.     attackFrame AS LONG
  39.     fireX AS SINGLE
  40.     fireY AS SINGLE
  41.     transform AS LONG
  43.  
  44. TYPE particle
  45.     x AS SINGLE
  46.     y AS SINGLE
  47.     dx AS SINGLE
  48.     dy AS SINGLE
  49.     size AS SINGLE
  50.     kolor AS _UNSIGNED LONG
  52.  
  53. TYPE bullet
  54.     x AS SINGLE
  55.     y AS SINGLE
  56.     dx AS SINGLE
  57.     dy AS SINGLE
  58.     live AS LONG
  60.  
  61. TYPE shipType
  62.     x AS SINGLE
  63.     y AS SINGLE
  64.     live AS LONG
  65.     speed AS SINGLE
  66.     angle AS SINGLE '   rotated position usu gun left or right (mouse button), maybe up press w or down press z
  67.     thruster AS LONG ' 1 forward, 2 reverse, 3 left , 4 right 0 none for drawing
  69.  
  70. TYPE rock
  71.     x AS SINGLE
  72.     y AS SINGLE
  73.     r AS LONG '            radius
  74.     ra AS SINGLE '         rotation position   a = a + spin
  75.     heading AS SINGLE '    heading from which dx, dy are calc with speed
  76.     speed AS SINGLE '      speed
  77.     spin AS SINGLE '       rotation direction and amount
  78.     seed AS LONG '         for drawing rocks with RND USING
  79.     c AS LONG '            color   rgb(c, c, c)
  80.     live AS LONG '         need this to track rocks still active like bullets
  81.     explodeFrame AS LONG ' after a rock is hit by bullet, it explodes and in more than one frame
  83.  
  84. REDIM SHARED aliens(1 TO 5) AS alienType
  85. DIM SHARED dots(2000) AS particle
  86. DIM SHARED b(nBullets) AS bullet
  87. DIM SHARED ship AS shipType
  88. DIM SHARED r(nRocks) AS rock
  90. DIM SHARED points AS LONG
  91. DIM SHARED rocks AS LONG 'rocks is the minimum number of parent rocks to have on screen  automatic replace when hit or out of bounds
  92.  
  93. DIM HS AS LONG, fnt AS LONG, fnt2 AS LONG ' file LOAD handles
  94. DIM i AS LONG, bullets AS LONG, fire AS LONG ' index and bullets
  95. DIM r AS LONG, newRockN AS LONG, maxBabyRocks AS LONG, br AS LONG, hits AS LONG ' rock stuff
  96. DIM ai AS LONG, alienN AS LONG ' alien index and number
  97. DIM hs$, s$, k$, t, lastt ' general string and times
  98.  
  99. SCREEN _NEWIMAGE(xmax, ymax, 32)
  100. _SCREENMOVE 100, 20
  102.  
  103. fnt = _LOADFONT("ARLRDBD.ttf", 16, "MONOSPACE")
  104. fnt2 = _LOADFONT("ARLRDBD.ttf", 40, "MONOSPACE")
  105. _FONT fnt2
  106. COLOR &HFF00FFFF, &H00000000
  107.  
  108. IF _FILEEXISTS("Asteroids High Score.txt") THEN
  109.     OPEN "Asteroids High Score.txt" FOR INPUT AS #1
  110.     INPUT #1, HS
  111.     CLOSE #1
  113. hs$ = "High Score:" + STR$(HS)
  114.  
  115. 'a little splash screen
  116. rocks = 7: alienN = 3
  117. FOR i = 1 TO nRocks
  118.     newRock i
  119.     IF i > rocks THEN r(i).live = 0
  121. FOR i = 1 TO alienN
  122.     newAlien i
  124. i = 0
  126.     drawStars 0
  127.     i = i + 1
  128.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  129.     FOR r = 1 TO nRocks
  130.         IF r(r).live THEN drawRock r
  131.     NEXT
  132.     FOR i = 1 TO alienN
  133.         drawAliens i
  134.     NEXT
  135.     _FONT fnt2
  136.     s$ = "b+ Thrusters Asteroids"
  137.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 60), s$
  138.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(hs$)) / 2, 140), hs$
  139.     s$ = "Up = forward"
  140.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 220), s$
  141.     s$ = "Down = Reverse"
  142.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 300), s$
  143.     s$ = "Right = Clockwise"
  144.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 380), s$
  145.     s$ = "Left Counter-CW"
  146.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 460), s$
  147.     s$ = "q Quit, space continue"
  148.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 540), s$
  149.     _FONT fnt
  150.     s$ = INKEY$
  151.     IF s$ = "q" THEN SYSTEM
  152.     _DISPLAY
  153.     _LIMIT 60
  155.  
  157. restart:
  158. IF _FILEEXISTS("Asteroids High Score.txt") THEN
  159.     OPEN "Asteroids High Score.txt" FOR INPUT AS #1
  160.     INPUT #1, HS
  161.     CLOSE #1
  163. hs$ = "  High Score:" + STR$(HS)
  164. lives = 10: alienN = 1: rocks = 1: ' always active rocks
  165. points = 0: hits = 0: bullets = 0
  166. WHILE lives > 0 AND _KEYDOWN(27) = 0 ' init start restart
  167.     REDIM aliens(1 TO alienN) AS alienType
  168.     FOR ai = 1 TO alienN
  169.         newAlien ai
  170.     NEXT
  171.     FOR i = 1 TO nRocks 'reset rocks mainly clear baby rocks
  172.         newRock (i)
  173.         IF i > rocks THEN r(i).live = 0
  174.     NEXT
  175.     ship.x = xmax / 2 'avoids explosions top left corner at start, dang still get some!
  176.     ship.y = ymax / 2
  177.     ship.angle = 0
  178.     ship.speed = 0
  179.     ship.live = 1
  181.     WHILE ship.live AND _KEYDOWN(27) = 0
  182.         'draw everything then process bullets
  183.         drawStars 1
  184.  
  185.         FOR ai = 1 TO alienN
  186.             drawAliens ai
  187.         NEXT
  188.         FOR i = 1 TO nRocks
  189.             IF r(i).live THEN drawRock i ' while drawing rocks the ship could be blown up
  190.             IF ((r(i).x - ship.x) ^ 2 + (r(i).y - ship.y) ^ 2) ^ .5 < r(i).r + 30 THEN 'rock collides with ship?
  191.                 FOR br = 1 TO 200 STEP 5
  192.                     CIRCLE ((ship.x + r(i).x) / 2, (ship.y + r(i).y) / 2), br, _RGB32(255 - br, 255 - 2 * br, 0)
  193.                 NEXT
  194.                 drawRock i
  195.                 drawship
  196.                 ship.live = 0
  197.                 IF i <= rocks THEN newRock i ELSE r(i).live = 0
  198.             END IF
  199.         NEXT
  200.         FOR i = 1 TO nRocks 'smoke up the place with rock debris fields still flying out from hit frames ago
  201.             IF r(i).explodeFrame THEN
  202.                 r(i).explodeFrame = r(i).explodeFrame + 1
  203.                 IF r(i).explodeFrame > .25 * r(i).r THEN
  204.                     r(i).explodeFrame = 0
  205.                     IF i <= rocks THEN newRock i ' now replace the rock
  206.                 ELSE
  207.                     explode r(i).x, r(i).y, r(i).r, r(i).explodeFrame
  208.                 END IF
  209.             END IF
  210.         NEXT
  211.         IF ship.live THEN
  212.             FOR ai = 1 TO alienN
  213.                 IF SQR((aliens(ai).x - ship.x) ^ 2 + (aliens(ai).y - ship.y) ^ 2) < 60 THEN 'aliens and ship collisde boom boom
  214.                     FOR br = 1 TO 200 STEP 5
  215.                         CIRCLE ((ship.x + aliens(ai).x) / 2, (ship.y + aliens(ai).y) / 2), br, _RGB32(255 - br, 255 - 2 * br, 0)
  216.                     NEXT
  217.                     drawship
  218.                     ship.live = 0
  219.                     _CONTINUE
  220.                 ELSE
  221.                     drawship
  222.                 END IF
  223.             NEXT
  224.  
  225.             'locate ship
  226.             ship.thruster = 0 'set to zero
  227.             k$ = INKEY$
  228.             IF LEN(k$) = 2 THEN
  229.                 SELECT CASE ASC(RIGHT$(k$, 1))
  230.                     CASE 72 'up = forward thruster increase speed
  231.                         ship.speed = ship.speed + .5: ship.thruster = 1
  232.                     CASE 80 'down = reverse thruster decrease speed yeah will will probably go negative!
  233.                         ship.speed = ship.speed - .5: ship.thruster = 2
  234.                     CASE 77 'left = left thruster turn clockwise
  235.                         ship.angle = ship.angle + pi / 24: ship.thruster = 3
  236.                     CASE 75 'Right = right thruster turn counter clockwise
  237.                         ship.angle = ship.angle - pi / 24: ship.thruster = 4
  238.                 END SELECT
  239.             END IF
  240.  
  241.             ship.x = ship.x + ship.speed * COS(ship.angle)
  242.             ship.y = ship.y + ship.speed * SIN(ship.angle)
  243.             IF ship.x < 0 THEN ship.x = xmax - ABS(ship.x)
  244.             IF ship.x > xmax THEN ship.x = ship.x - xmax
  245.             IF ship.y < 0 THEN ship.y = ymax - ABS(ship.y)
  246.             IF ship.y > ymax THEN ship.y = ship.y - ymax
  247.  
  248.             fire = 0
  249.             t = TIMER(.01)
  250.             IF lastt = 0 OR t - lastt > .2 THEN fire = 1: lastt = t
  251.  
  252.             FOR i = 0 TO nBullets 'handle bullets
  253.                 IF b(i).live = 0 AND fire = 1 THEN 'have inactive bullet to use
  254.                     b(i).x = ship.x + bSpeed * COS(ship.angle)
  255.                     b(i).y = ship.y + bSpeed * SIN(ship.angle)
  256.                     b(i).dx = bSpeed * COS(ship.angle)
  257.                     b(i).dy = bSpeed * SIN(ship.angle)
  258.                     b(i).live = -1
  259.                     bullets = bullets + 1
  260.                     fire = 0
  261.                 END IF
  262.                 IF b(i).live THEN 'new location
  263.                     b(i).x = b(i).x + b(i).dx
  264.                     b(i).y = b(i).y + b(i).dy
  265.                     IF b(i).x > 0 AND b(i).x < xmax AND b(i).y > 0 AND b(i).y < ymax THEN 'in bounds draw it
  266.  
  267.                         'bullet hit aliens?
  268.                         FOR ai = 1 TO alienN
  269.                             IF SQR((aliens(ai).x - b(i).x) ^ 2 + (aliens(ai).y - b(i).y) ^ 2) < 30 THEN
  270.                                 FOR br = 1 TO 120
  271.                                     CIRCLE (aliens(ai).x, aliens(ai).y), br / 3, plasma~&(0)
  272.                                 NEXT
  273.                                 _DISPLAY
  274.                                 _DELAY .05
  275.                                 hits = hits + 1
  276.                                 points = points + 100
  277.                                 aliens(ai).live = 0
  278.                                 newAlien ai
  279.                                 b(i).live = 0
  280.                                 _CONTINUE
  281.                             END IF
  282.                         NEXT
  283.                         FOR r = 1 TO nRocks 'check for collision with rock
  284.                             IF r(r).live THEN
  285.                                 IF SQR((r(r).x - b(i).x) ^ 2 + (r(r).y - b(i).y) ^ 2) < r(r).r THEN 'its a hit!
  286.                                     r(r).explodeFrame = 1 'linger with explosion
  287.                                     r(r).live = 0
  288.                                     hits = hits + 1
  289.                                     points = points + ((r(r).speed - 2) * 33.3333 + (50 - (r(r).c - 10)) * 2 + (90 - (r(r).r - 10)) * 1.1111) / 3
  290.                                     IF r(r).r > 30 THEN '       split rock  into ? new ones
  291.                                         maxBabyRocks = INT((r(r).r - 10) / 10)
  292.                                         maxBabyRocks = irnd&(2, maxBabyRocks) ' pick a number of baby Rocks
  293.                                         FOR br = 1 TO maxBabyRocks
  294.                                             '                        new rock
  295.                                             newRockN = freeRock& '                          get inactive rock number
  296.                                             newRock newRockN '                              new identity and activate
  297.                                             r(newRockN).r = (r(r).r - 10) / maxBabyRocks '  split in equal parts minus 20% mass
  298.                                             r(newRockN).x = r(r).x + irnd&(-30, 30) '       thrown from parent
  299.                                             r(newRockN).y = r(r).y + irnd&(-30, 30)
  300.                                             r(newRockN).c = r(r).c '                   same color as parent
  301.                                             r(newRockN).heading = rrnd(ship.angle - .75 * pi, ship.angle + .75 * pi)
  302.                                         NEXT
  303.                                     END IF ' big enough to split
  304.                                     b(i).live = 0 'kill bullet
  305.                                 END IF ' hit rock
  306.                             END IF 'rock is there
  307.                         NEXT ' rock
  308.                         IF b(i).live THEN fcirc b(i).x, b(i).y, 3, _RGB32(255, 255, 0) 'draws bullet
  309.                     ELSE
  310.                         b(i).live = 0 'out of bounds
  311.                     END IF ' bullet is in bounds
  312.                 END IF ' bullet live
  313.             NEXT ' bullet
  314.         END IF ' if ship still live
  315.         _DISPLAY
  316.         IF ship.live = 0 THEN
  317.             lives = lives - 1
  318.             IF lives MOD 4 = 0 THEN rocks = rocks + 1
  319.             IF lives MOD 4 = 2 THEN alienN = alienN + 1
  320.             s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  321.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 80), s$
  322.             _FONT fnt2
  323.             s$ = STR$(points) + hs$
  324.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  325.             _FONT fnt
  326.             s$ = "Center mouse and press any"
  327.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 120), s$
  328.             _DISPLAY
  329.             _MOUSESHOW
  330.             WHILE _KEYDOWN(32) = 0: WEND 'wait for space bar
  331.         ELSE
  332.             _LIMIT 60 ' if ship dies let's rest and regroup  before restart next life
  333.         END IF
  334.     WEND
  335.     _DISPLAY
  337. IF points > HS THEN
  338.     OPEN "Asteroids High Score.txt" FOR OUTPUT AS #1
  339.     PRINT #1, points
  340.     CLOSE #1
  342. ship.x = -200: ship.y = -200 'get it out of the way
  343. i = 0
  345.     drawStars 0
  346.     i = i + 1
  347.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  348.     FOR r = 1 TO nRocks
  349.         IF r(r).live THEN drawRock r
  350.     NEXT
  351.     s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  352.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 80), s$
  353.     _FONT fnt2
  354.     s$ = STR$(points)
  355.     IF points > HS THEN s$ = s$ + " a New Record!" ELSE s$ = STR$(points) + hs$
  356.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  357.     _FONT fnt
  358.     s$ = "Press q to quit, p or a to Play Again..."
  359.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 120), s$
  360.     IF _KEYDOWN(ASC("a")) OR _KEYDOWN(ASC("p")) THEN GOTO restart
  361.     _DISPLAY
  362.     _LIMIT 60
  365.  
  366. SUB drawStars (moving)
  367.     TYPE starType
  368.         x AS SINGLE
  369.         y AS SINGLE
  370.         size AS SINGLE
  371.         c AS INTEGER
  372.     END TYPE
  373.     STATIC beenHere, stars(600) AS starType, cy AS LONG
  374.     DIM i AS LONG
  375.     IF beenHere = 0 THEN 'static part
  376.         FOR i = 0 TO 200
  377.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = 0
  378.             stars(i).c = irnd&(80, 140)
  379.         NEXT
  380.         FOR i = 0 TO 200
  381.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = .3
  382.             stars(i).c = irnd&(80, 140)
  383.         NEXT
  384.  
  385.         FOR i = 1 TO 140
  386.             stars(i + 400).x = RND * xmax: stars(i + 400).y = RND * ymax: stars(i + 100).size = .6
  387.             stars(i).c = irnd&(110, 170)
  388.         NEXT
  389.         FOR i = 1 TO 50
  390.             stars(i + 540).x = RND * xmax: stars(i + 540).y = RND * ymax: stars(i + 170).size = 1.2
  391.             stars(i).c = irnd&(140, 200)
  392.         NEXT
  393.         FOR i = 1 TO 10
  394.             stars(i + 590).x = RND * xmax: stars(i + 590).y = RND * ymax: stars(i + 195).size = 2.4
  395.             stars(i).c = irnd&(170, 235)
  396.         NEXT
  397.         cy = ymax / 2
  398.         beenHere = 1
  399.     END IF
  400.     FOR i = 0 TO cy
  401.         LINE (0, i)-(xmax, i), _RGB32(0, 0, .1 * i + 4)
  402.         LINE (0, ymax - i)-(xmax, ymax - i), _RGB(0, 0, .1 * i + 4)
  403.     NEXT
  404.     FOR i = 0 TO 200
  405.         IF moving THEN
  406.             stars(i).x = stars(i).x + .2 * stars(i).size ^ stars(i).size
  407.             IF stars(i).x > xmax THEN stars(i).x = -1 * RND * 20
  408.         END IF
  409.         fcirc stars(i).x, stars(i).y, stars(i).size, _RGB32(stars(i).c - 10, stars(i).c, stars(i).c + 10)
  410.     NEXT
  412.  
  413. SUB newAlien (i AS LONG)
  414.     DIM side AS LONG, heading
  415.     RANDOMIZE TIMER * RND 'to avoid making twins
  416.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  417.     aliens(i).fireX = irnd(10, xmax - 10)
  418.     aliens(i).fireY = irnd(10, ymax - 10)
  419.     aliens(i).attackFrame = irnd(30, 400) ' EDIT a tweak to survive a little long before getting murdered with low lives over and over...
  420.     SELECT CASE side
  421.         CASE 1
  422.             aliens(i).x = -10
  423.             aliens(i).y = rrnd(20, ymax - 20)
  424.         CASE 2
  425.             aliens(i).x = xmax + 10
  426.             aliens(i).y = rrnd(20, ymax - 20)
  427.         CASE 3
  428.             aliens(i).x = rrnd(20, xmax - 20)
  429.             aliens(i).y = -10
  430.         CASE 4
  431.             aliens(i).x = rrnd(20, xmax - 20)
  432.             aliens(i).y = ymax + 10
  433.     END SELECT
  434.     heading = _ATAN2(aliens(i).fireY - aliens(i).y, aliens(i).fireX - aliens(i).x)
  435.     aliens(i).dx = .5 * COS(heading)
  436.     aliens(i).dy = .5 * SIN(heading)
  437.     aliens(i).live = 0
  438.     aliens(i).transform = 0
  439.     aliens(i).c = _RGB32(irnd(128, 255), irnd(0, 255), irnd(0, 255))
  441.  
  442. FUNCTION plasma~& (new AS LONG)
  443.     STATIC r, g, b, cnt, beenHere
  444.     IF beenHere = 0 OR new THEN
  445.         r = RND: g = RND: b = RND: beenHere = 1: cnt = 0
  446.     END IF
  447.     cnt = cnt + .2
  448.     plasma~& = _RGB32(127 + 127 * SIN(r * cnt), 127 + 127 * SIN(g * cnt), 127 + 127 * SIN(b * cnt))
  450.  
  451. SUB drawAliens (i AS LONG) 'shipType
  452.     DIM light AS LONG, heading, r AS LONG, g AS LONG, b AS LONG
  453.     IF aliens(i).live THEN
  454.         IF aliens(i).transform = 0 THEN
  455.             r = _RED32(aliens(i).c): g = _GREEN32(aliens(i).c): b = _BLUE32(aliens(i).c)
  456.             fellipse aliens(i).x, aliens(i).y, 6, 15, _RGB32(r, g - 120, b - 100)
  457.             fellipse aliens(i).x, aliens(i).y, 18, 11, _RGB32(r, g - 60, b - 50)
  458.             fellipse aliens(i).x, aliens(i).y, 30, 7, _RGB32(r, g, b)
  459.             FOR light = 0 TO 5
  460.                 fcirc aliens(i).x - 30 + 11 * light + aliens(i).ls, aliens(i).y, 1, _RGB32(aliens(i).ls * 50, aliens(i).ls * 50, aliens(i).ls * 50)
  461.             NEXT
  462.             aliens(i).ls = aliens(i).ls + 1
  463.             IF aliens(i).ls > 5 THEN aliens(i).ls = 0
  464.         ELSE
  465.             fcirc aliens(i).x, aliens(i).y, 30, aliens(i).c
  466.         END IF
  467.         'time to shoot?
  468.         aliens(i).x = aliens(i).x + aliens(i).dx
  469.         aliens(i).y = aliens(i).y + aliens(i).dy
  470.         IF SQR((aliens(i).fireX - aliens(i).x) ^ 2 + (aliens(i).fireY - aliens(i).y) ^ 2) < 5 THEN 'transform into the bolder of death
  471.             aliens(i).transform = 1
  472.             heading = _ATAN2(ship.y - aliens(i).y, ship.x - aliens(i).x)
  473.             aliens(i).dx = 2.5 * COS(heading)
  474.             aliens(i).dy = 2.5 * SIN(heading)
  475.         END IF
  476.         IF aliens(i).x < -10 OR aliens(i).x > xmax + 10 THEN
  477.             IF aliens(i).y < -10 OR aliens(i).y > ymax + 10 THEN '  out of bounds goodbye bolder of death!
  478.                 aliens(i).live = 0 'man we dodged a bullet here!!!!
  479.                 newAlien i 'reset the trap
  480.             END IF
  481.         END IF
  482.     ELSE
  483.         IF aliens(i).attackFrame THEN
  484.             aliens(i).attackFrame = aliens(i).attackFrame - 1
  485.             IF aliens(i).attackFrame = 0 THEN
  486.                 aliens(i).live = 1
  487.             END IF
  488.         END IF
  489.     END IF
  491.  
  492. FUNCTION freeRock&
  493.     DIM i AS LONG
  494.     FOR i = rocks + 1 TO nRocks ' look for inactive rock number
  495.         IF r(i).live = 0 AND r(i).explodeFrame = 0 THEN freeRock& = i: EXIT FUNCTION
  496.     NEXT
  498.  
  499. SUB explode (x AS LONG, y AS LONG, r AS LONG, frm AS LONG)
  500.     DIM maxParticles AS LONG, i AS LONG, rounds AS LONG, loopCount AS LONG
  501.     maxParticles = r * 4
  502.     FOR i = 1 TO r
  503.         NewDot i, x, y, r
  504.     NEXT
  505.     rounds = r
  506.     FOR loopCount = 0 TO frm
  507.         IF _KEYDOWN(27) THEN END
  508.         FOR i = 1 TO rounds
  509.             dots(i).x = dots(i).x + dots(i).dx
  510.             dots(i).y = dots(i).y + dots(i).dy
  511.             fcirc dots(i).x, dots(i).y, dots(i).size, dots(i).kolor
  512.         NEXT
  513.         IF rounds < maxParticles THEN
  514.             FOR i = 1 TO r
  515.                 NewDot (rounds + i), x, y, r
  516.             NEXT
  517.             rounds = rounds + r
  518.         END IF
  519.     NEXT
  521.  
  522. SUB NewDot (i AS LONG, x AS LONG, y AS LONG, r AS LONG)
  523.     DIM angle, rd
  524.     angle = pi * 2 * RND
  525.     rd = RND * 30
  526.     dots(i).x = x + rd * COS(angle)
  527.     dots(i).y = y + rd * SIN(angle)
  528.     dots(i).size = RND * r * .05
  529.     rd = RND 'STxAxTIC recommended for rounder spreads
  530.     dots(i).dx = rd * 10 * (10 - 2 * dots(i).size) * COS(angle)
  531.     dots(i).dy = rd * 10 * (10 - 2 * dots(i).size) * SIN(angle)
  532.     rd = 20 + RND * 70
  533.     dots(i).kolor = _RGBA32(rd, rd, rd, 80)
  535.  
  536. SUB drawship 'simple red iso triangle pointed towards radianAngle
  537.     DIM x1 AS LONG, y1 AS LONG, x2 AS LONG, y2 AS LONG, x3 AS LONG, y3 AS LONG
  538.     DIM x4 AS LONG, y4 AS LONG, x5 AS LONG, y5 AS LONG, x6 AS LONG, y6 AS LONG
  539.     DIM x7 AS LONG, y7 AS LONG
  540.  
  541.  
  542.     'calculate 3 points of triangle ship
  543.     fcirc ship.x, ship.y, 30, &H05FFFFFF
  544.     x1 = ship.x + 30 * COS(ship.angle) ' front point
  545.     y1 = ship.y + 30 * SIN(ship.angle) '
  546.     x2 = ship.x + 30 * COS(ship.angle + .6666 * pi) ' wing
  547.     y2 = ship.y + 30 * SIN(ship.angle + .6666 * pi)
  548.     x3 = ship.x + 30 * COS(ship.angle - .6666 * pi) ' other wing
  549.     y3 = ship.y + 30 * SIN(ship.angle - .6666 * pi)
  550.     ftri ship.x, ship.y, x1, y1, x2, y2, _RGB32(80, 120, 80, 80)
  551.     ftri ship.x, ship.y, x1, y1, x3, y3, _RGB32(60, 100, 60, 80)
  552.     LINE (x1, y1)-(ship.x, ship.y), _RGB32(255, 255, 128)
  553.     LINE (x1, y1)-(x2, y2), _RGB32(180, 180, 120)
  554.     LINE (x1, y1)-(x3, y3), _RGB32(180, 180, 120)
  555.  
  556.     SELECT CASE ship.thruster
  557.         CASE 1 'forward apex = ship.x, ship,y  direction = ship.angle + pi
  558.             x4 = ship.x + 25 * COS(ship.angle - 17 / 18 * pi)
  559.             y4 = ship.y + 25 * SIN(ship.angle - 17 / 18 * pi)
  560.             x5 = ship.x + 25 * COS(ship.angle - 19 / 18 * pi)
  561.             y5 = ship.y + 25 * SIN(ship.angle - 19 / 18 * pi)
  562.             ftri ship.x, ship.y, x4, y4, x5, y5, &H99FFFF88
  563.         CASE 2 'reverse apex = x1, y1
  564.             x6 = x2 + 25 * COS(ship.angle + 1 / 18 * pi)
  565.             y6 = y2 + 25 * SIN(ship.angle + 1 / 18 * pi)
  566.             x7 = x2 + 25 * COS(ship.angle - 1 / 18 * pi)
  567.             y7 = y2 + 25 * SIN(ship.angle - 1 / 18 * pi)
  568.             ftri x2, y2, x6, y6, x7, y7, &H99FFFF88
  569.  
  570.             x6 = x3 + 25 * COS(ship.angle + 1 / 18 * pi)
  571.             y6 = y3 + 25 * SIN(ship.angle + 1 / 18 * pi)
  572.             x7 = x3 + 25 * COS(ship.angle - 1 / 18 * pi)
  573.             y7 = y3 + 25 * SIN(ship.angle - 1 / 18 * pi)
  574.             ftri x3, y3, x6, y6, x7, y7, &H99FFFF88
  575.         CASE 3 'left apex = x2, y2
  576.             x6 = x3 + 25 * COS(ship.angle - 17 / 18 * pi)
  577.             y6 = y3 + 25 * SIN(ship.angle - 17 / 18 * pi)
  578.             x7 = x3 + 25 * COS(ship.angle - 19 / 18 * pi)
  579.             y7 = y3 + 25 * SIN(ship.angle - 19 / 18 * pi)
  580.             ftri x3, y3, x6, y6, x7, y7, &H99FFFF88
  581.  
  582.             'x6 = x2 + 25 * COS(ship.angle + 1 / 18 * pi)
  583.             'y6 = y2 + 25 * SIN(ship.angle + 1 / 18 * pi)
  584.             'x7 = x2 + 25 * COS(ship.angle - 1 / 18 * pi)
  585.             'y7 = y2 + 25 * SIN(ship.angle - 1 / 18 * pi)
  586.             'ftri x2, y2, x6, y6, x7, y7, &H99FFFF88
  587.         CASE 4 'right
  588.             x6 = x2 + 25 * COS(ship.angle - 17 / 18 * pi)
  589.             y6 = y2 + 25 * SIN(ship.angle - 17 / 18 * pi)
  590.             x7 = x2 + 25 * COS(ship.angle - 19 / 18 * pi)
  591.             y7 = y2 + 25 * SIN(ship.angle - 19 / 18 * pi)
  592.             ftri x2, y2, x6, y6, x7, y7, &H99FFFF88
  593.  
  594.             'x6 = x3 + 25 * COS(ship.angle + 1 / 18 * pi)
  595.             'y6 = y3 + 25 * SIN(ship.angle + 1 / 18 * pi)
  596.             'x7 = x3 + 25 * COS(ship.angle - 1 / 18 * pi)
  597.             'y7 = y3 + 25 * SIN(ship.angle - 1 / 18 * pi)
  598.             'ftri x3, y3, x6, y6, x7, y7, &H99FFFF88
  599.     END SELECT
  601.  
  602. SUB drawRock (iRock)
  603.     RANDOMIZE USING r(iRock).seed 'this prevents having to save a particular sequence of random number
  604.     DIM dx, dy, j AS LONG, rRad AS SINGLE, leg AS SINGLE, x0 AS LONG, y0 AS LONG, rc AS LONG, c~&, x1 AS LONG, y1 AS LONG, xoff, yoff, i AS LONG
  605.     DIM x2 AS LONG, y2 AS LONG
  606.     dx = r(iRock).speed * COS(r(iRock).heading)
  607.     dy = r(iRock).speed * SIN(r(iRock).heading) 'update location
  608.     r(iRock).ra = r(iRock).ra + r(iRock).spin
  609.     IF r(iRock).x + dx + r(iRock).r < 0 OR r(iRock).x + dx - r(iRock).r > xmax OR r(iRock).y + dy + r(iRock).r < 0 OR r(iRock).y + dy - r(iRock).r > ymax THEN
  610.         IF iRock <= rocks THEN newRock iRock ELSE r(iRock).live = 0
  611.         EXIT SUB ' reassigned get out of here
  612.     ELSE
  613.         r(iRock).x = r(iRock).x + dx
  614.         r(iRock).y = r(iRock).y + dy
  615.     END IF
  616.     FOR j = 10 TO 3 STEP -1 '                  rock drawing (see demo program where developed code)
  617.         rRad = .1 * j * r(iRock).r
  618.         leg = rRad * (RND * .7 + .3)
  619.         x0 = r(iRock).x + leg * COS(r(iRock).ra)
  620.         y0 = r(iRock).y + leg * SIN(r(iRock).ra)
  621.         rc = r(iRock).c + 30 * RND - 15
  622.         c~& = _RGB32(rc + 5, rc - 10, rc + 5)
  623.         x1 = x0
  624.         y1 = y0
  625.         xoff = RND * 20 - 10 + r(iRock).x
  626.         yoff = RND * 20 - 10 + r(iRock).y
  627.         FOR i = 1 TO 12
  628.             leg = rRad * (RND * .35 + .65)
  629.             IF i = 12 THEN
  630.                 x2 = x0: y2 = y0
  631.             ELSE
  632.                 x2 = xoff + leg * COS(i * polyAngle + r(iRock).ra)
  633.                 y2 = yoff + leg * SIN(i * polyAngle + r(iRock).ra)
  634.             END IF
  635.             ftri r(iRock).x, r(iRock).y, x1, y1, x2, y2, c~&
  636.             x1 = x2: y1 = y2
  637.         NEXT
  638.     NEXT
  640.  
  641. SUB newRock (iRock)
  642.     DIM side AS LONG
  643.     RANDOMIZE TIMER * RND 'to avoid making twins
  644.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  645.     SELECT CASE side
  646.         CASE 1
  647.             r(iRock).x = -10
  648.             r(iRock).y = rrnd(20, ymax - 20)
  649.             r(iRock).heading = 3 * pi / 2 + RND * pi
  650.         CASE 2
  651.             r(iRock).x = xmax + 10
  652.             r(iRock).y = rrnd(20, ymax - 20)
  653.             r(iRock).heading = pi / 2 + RND * pi
  654.         CASE 3
  655.             r(iRock).x = rrnd(20, xmax - 20)
  656.             r(iRock).y = -10
  657.             r(iRock).heading = RND * pi
  658.         CASE 4
  659.             r(iRock).x = rrnd(20, xmax - 20)
  660.             r(iRock).y = ymax + 10
  661.             r(iRock).heading = pi + RND * pi
  662.     END SELECT
  663.     r(iRock).speed = rrnd(.2, 1.5) 'speed, rotation angle, radius, gray coloring, spin, seed, hit for explosion
  664.     r(iRock).ra = RND * 2 * pi
  665.     r(iRock).r = irnd&(30, 100)
  666.     r(iRock).c = irnd&(10, 60)
  667.     r(iRock).spin = rrnd(-pi / 20, pi / 20)
  668.     r(iRock).seed = INT(RND * 64000) - 32000
  669.     r(iRock).explodeFrame = 0
  670.     r(iRock).live = 1
  672.  
  673. FUNCTION irnd& (n1, n2) 'return an integer between 2 numbers
  674.     DIM l%, h%
  675.     IF n1 > n2 THEN l% = n2: h% = n1 ELSE l% = n1: h% = n2
  676.     irnd& = INT(RND * (h% - l% + 1)) + l%
  678.  
  679. FUNCTION rrnd (n1, n2) ' return number (expecting reals =_single, double, _float depending on default / define setup)
  680.     rrnd = (n2 - n1) * RND + n1
  682.  
  683. SUB fellipse (CX AS LONG, CY AS LONG, xr AS LONG, yr AS LONG, C AS _UNSIGNED LONG)
  684.     IF xr = 0 OR yr = 0 THEN EXIT SUB
  686.     DIM x AS LONG, y AS LONG
  687.     w2 = xr * xr: h2 = yr * yr: h2w2 = h2 * w2
  688.     LINE (CX - xr, CY)-(CX + xr, CY), C, BF
  689.     DO WHILE y < yr
  690.         y = y + 1
  691.         x = SQR((h2w2 - y * y * w2) \ h2)
  692.         LINE (CX - x, CY + y)-(CX + x, CY + y), C, BF
  693.         LINE (CX - x, CY - y)-(CX + x, CY - y), C, BF
  694.     LOOP
  696.  
  697. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  698.     DIM D AS LONG
  699.     STATIC a&
  700.     D = _DEST
  701.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  702.     _DEST a&
  703.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
  704.     PSET (0, 0), K
  705.     _BLEND a& '<<<< new 2019-12-16 fix
  706.     _DEST D
  707.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  709.  
  710. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG) 'vince version
  711.     DIM x0 AS LONG, y0 AS LONG, e AS LONG
  712.     x0 = R: y0 = 0: e = 0
  713.     DO WHILE y0 < x0
  714.         IF e <= 0 THEN
  715.             y0 = y0 + 1
  716.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  717.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  718.             e = e + 2 * y0
  719.         ELSE
  720.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  721.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  722.             x0 = x0 - 1: e = e - 2 * x0
  723.         END IF
  724.     LOOP
  725.     LINE (x - R, y)-(x + R, y), C, BF
  727.  

What I am saying is if I press down on left it seems natural to pivot on left and my right wing swings way around on outside circle, this is counter clockwise so the thrust really needs to be on right wing to move more. I thought right arrow = right thruster side but no, push down on left and thrust on right to swing around.

Title: Re: b+ Asteroids makeover
Post by: Dav on November 03, 2020, 08:26:12 am
Nice!  I like this one better using arrows to control.  Feels more like asteroids to me now. 

- Dav
Title: Re: b+ Asteroids makeover
Post by: bplus on November 03, 2020, 10:22:22 am
Quote from: Dav on November 03, 2020, 08:26:12 am
Nice!  I like this one better using arrows to control.  Feels more like asteroids to me now. 

- Dav

It's certainly more challenging! 

I am pretty sure I am correct, hit left button to turn left, just like with car or even airplane I imagine.
So to turn left, the right thruster must fire.

So it's not Right Arrow = Right Thruster, right?  ;-) of course not! I wonder if I was doing that with old Lander games?

Also I noticed INKEY$ getting stuck and I am not exactly able to turn on a dime so _KEYDOWN(Arrows)

So life lesson to go forward thrust from behind, to go right thrust from left. Pete might like that :-)
Title: Re: b+ Asteroids makeover
Post by: bplus on November 03, 2020, 02:04:35 pm
I was going to do more with this but have my mind stuck with menu / array displays :)
Checking out new engine and instrument panel response, recalibrating numbers for _Keydown arrow detection as opposed to INKEY$ which seemed to lock up. I noticed I had to pound the right arrow key to get it to turn with the INKEY$ detection method.

Lesson #1 knowing when to stop:

Code: QB64: [Select]
  1. _TITLE "Thruster Tests #2 Flying Lessons" 'b+ 2020-11-03
  2. CONST xmax = 1024, ymax = 700, pi = _PI
  3. SCREEN _NEWIMAGE(xmax, ymax, 32)
  4. _SCREENMOVE 100, 10
  5.  
  6.  
  7. TYPE shipType
  8.     x AS SINGLE
  9.     y AS SINGLE
  10.     live AS LONG
  11.     speed AS SINGLE
  12.     angle AS SINGLE '   rotated position usu gun left or right (mouse button), maybe up press w or down press z
  13.     thruster AS LONG ' 1 forward, 2 reverse, 3 left , 4 right 0 none for drawing
  15.  
  16. DIM SHARED ship AS shipType
  17. ship.x = xmax / 2: ship.y = ymax / 2: ship.angle = 0
  18. WHILE _KEYDOWN(27) = 0
  19.     CLS
  20.     PRINT "The first lesson is seeing how fast you can go without getting close to borders."
  21.     PRINT "In b+ Asteroids borders are where new Asteroids arrive that you can't see coming."
  22.     PRINT "I learn we need a button for full stop! use spacebar?"
  23.     ' Instruments Panel
  24.     ship.thruster = 0 'set to zero   thruster signals drawShip to show exhaust at certain points
  25.  
  26.     ' Imagine ship pointed up for following code
  27.  
  28.     'Up arrow = forward so back thruster
  29.     IF _KEYDOWN(18432) THEN ship.speed = ship.speed + .1: ship.thruster = 1
  30.  
  31.     'Down arrow = reverse thruster decrease speed yeah will will probably go negative!
  32.     IF _KEYDOWN(20480) THEN ship.speed = ship.speed - .1: ship.thruster = 2
  33.  
  34.     'Left Arrow = right thruster turn clockwise  or pivot on left wing tip
  35.     IF _KEYDOWN(19200) THEN ship.angle = ship.angle - pi / 48: ship.thruster = 4
  36.  
  37.     'Right arrow = left thruster turn counter clockwise   or pivot of right wing tip
  38.     IF _KEYDOWN(19712) THEN ship.angle = ship.angle + pi / 48: ship.thruster = 3
  39.  
  40.     IF _KEYDOWN(32) THEN ship.speed = 0
  41.  
  42.     drawship
  43.     _DISPLAY
  44.     _LIMIT 60 ' same as Asteroids Game
  46.  
  47. SUB drawship 'simple red iso triangle pointed towards radianAngle
  48.     DIM x1 AS LONG, y1 AS LONG, x2 AS LONG, y2 AS LONG, x3 AS LONG, y3 AS LONG
  49.     DIM x4 AS LONG, y4 AS LONG, x5 AS LONG, y5 AS LONG, x6 AS LONG, y6 AS LONG
  50.     DIM x7 AS LONG, y7 AS LONG
  51.  
  52.     'locate ship
  53.     ship.x = ship.x + ship.speed * COS(ship.angle)
  54.     ship.y = ship.y + ship.speed * SIN(ship.angle)
  55.     IF ship.x < 0 THEN ship.x = xmax - ABS(ship.x)
  56.     IF ship.x > xmax THEN ship.x = ship.x - xmax
  57.     IF ship.y < 0 THEN ship.y = ymax - ABS(ship.y)
  58.     IF ship.y > ymax THEN ship.y = ship.y - ymax
  59.  
  60.     'calculate 3 points of triangle ship
  61.     fcirc ship.x, ship.y, 30, &H05FFFFFF
  62.     x1 = ship.x + 30 * COS(ship.angle) ' front point
  63.     y1 = ship.y + 30 * SIN(ship.angle) '
  64.     x2 = ship.x + 30 * COS(ship.angle + .6666 * pi) ' wing
  65.     y2 = ship.y + 30 * SIN(ship.angle + .6666 * pi)
  66.     x3 = ship.x + 30 * COS(ship.angle - .6666 * pi) ' other wing
  67.     y3 = ship.y + 30 * SIN(ship.angle - .6666 * pi)
  68.     ftri ship.x, ship.y, x1, y1, x2, y2, _RGB32(80, 120, 80, 80)
  69.     ftri ship.x, ship.y, x1, y1, x3, y3, _RGB32(60, 100, 60, 80)
  70.     LINE (x1, y1)-(ship.x, ship.y), _RGB32(255, 255, 128)
  71.     LINE (x1, y1)-(x2, y2), _RGB32(180, 180, 120)
  72.     LINE (x1, y1)-(x3, y3), _RGB32(180, 180, 120)
  73.  
  74.     SELECT CASE ship.thruster
  75.         CASE 1 'forward apex = ship.x, ship,y  direction = ship.angle + pi
  76.             x4 = ship.x + 25 * COS(ship.angle - 17 / 18 * pi)
  77.             y4 = ship.y + 25 * SIN(ship.angle - 17 / 18 * pi)
  78.             x5 = ship.x + 25 * COS(ship.angle - 19 / 18 * pi)
  79.             y5 = ship.y + 25 * SIN(ship.angle - 19 / 18 * pi)
  80.             ftri ship.x, ship.y, x4, y4, x5, y5, &H99FFFF88
  81.         CASE 2 'reverse apex = x1, y1
  82.             x6 = x2 + 25 * COS(ship.angle + 1 / 18 * pi)
  83.             y6 = y2 + 25 * SIN(ship.angle + 1 / 18 * pi)
  84.             x7 = x2 + 25 * COS(ship.angle - 1 / 18 * pi)
  85.             y7 = y2 + 25 * SIN(ship.angle - 1 / 18 * pi)
  86.             ftri x2, y2, x6, y6, x7, y7, &H99FFFF88
  87.  
  88.             x6 = x3 + 25 * COS(ship.angle + 1 / 18 * pi)
  89.             y6 = y3 + 25 * SIN(ship.angle + 1 / 18 * pi)
  90.             x7 = x3 + 25 * COS(ship.angle - 1 / 18 * pi)
  91.             y7 = y3 + 25 * SIN(ship.angle - 1 / 18 * pi)
  92.             ftri x3, y3, x6, y6, x7, y7, &H99FFFF88
  93.         CASE 3 'left apex = x2, y2
  94.             x6 = x3 + 25 * COS(ship.angle - 17 / 18 * pi)
  95.             y6 = y3 + 25 * SIN(ship.angle - 17 / 18 * pi)
  96.             x7 = x3 + 25 * COS(ship.angle - 19 / 18 * pi)
  97.             y7 = y3 + 25 * SIN(ship.angle - 19 / 18 * pi)
  98.             ftri x3, y3, x6, y6, x7, y7, &H99FFFF88
  99.  
  100.         CASE 4 'right
  101.             x6 = x2 + 25 * COS(ship.angle - 17 / 18 * pi)
  102.             y6 = y2 + 25 * SIN(ship.angle - 17 / 18 * pi)
  103.             x7 = x2 + 25 * COS(ship.angle - 19 / 18 * pi)
  104.             y7 = y2 + 25 * SIN(ship.angle - 19 / 18 * pi)
  105.             ftri x2, y2, x6, y6, x7, y7, &H99FFFF88
  106.     END SELECT
  108.  
  109. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  110.     DIM D AS LONG
  111.     STATIC a&
  112.     D = _DEST
  113.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  114.     _DEST a&
  115.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
  116.     PSET (0, 0), K
  117.     _BLEND a& '<<<< new 2019-12-16 fix
  118.     _DEST D
  119.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  121.  
  122. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG) 'vince version
  123.     DIM x0 AS LONG, y0 AS LONG, e AS LONG
  124.     x0 = R: y0 = 0: e = 0
  125.     DO WHILE y0 < x0
  126.         IF e <= 0 THEN
  127.             y0 = y0 + 1
  128.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  129.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  130.             e = e + 2 * y0
  131.         ELSE
  132.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  133.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  134.             x0 = x0 - 1: e = e - 2 * x0
  135.         END IF
  136.     LOOP
  137.     LINE (x - R, y)-(x + R, y), C, BF
  139.  
  140.  
Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 03, 2020, 04:10:07 pm
I love the new turning on this. Yes, Space Bar would be a nice automatic stop. I was also thinking, this full version above would be a good Beginner or Easy difficulty because I could play this almost for hours on the same game. In the beginning you could have Easy, Medium, or Hard and have this one for Easy and then increase the amount of asteroids for Medium and Hard. I noticed that the hardest part is trying to see the darkest asteroids. I would make the darkest asteroids a little lighter color, but that's just me. Anyway, I don't mean to be so critical on this game though, just some ideas. :)
Title: Re: b+ Asteroids makeover
Post by: bplus on November 03, 2020, 05:28:10 pm
Roger that, next version I will lighten the rocks (I noticed same).

Thanks @SierraKen  comments, ideas, experiences always welcome! :) I specially appreciate experiences from arcades.

 
Title: Re: b+ Asteroids makeover
Post by: Dav on November 03, 2020, 06:30:31 pm
I like the new turning too.  Really smooth now.  Nice to have a stop button.  If I remember the old arcade version right (I should, I spent a lot of money playing it), the only way to stop moving forward and slow down was to turn the ship around and thrust the other way. 

Funny, what I remember most about the original was the repeating sound that got faster and faster as the level advanced and the enemy ufo attacked, which sometimes made me nervous and mess up .  I'd guess the programmer got that idea from the "jaws" movie which had that chromatic suspense music when the shark attacked. Very effective.

- Dav
Title: Re: b+ Asteroids makeover
Post by: bplus on November 03, 2020, 07:23:22 pm
Oh yeah Jaws! that would be great!

But there was no reverse thrusters in Asteroids?  I am going to watch more videos of this game.

You know allot of times at startup of a new life I wished it was already going forward and I didn't have to worry so much about forward speeds so I could concentrate of steering.

They say sharks have to be constantly moving to breath and birds have to be constantly moving to fly, maybe instead of full stop just a return to a slow constant forward speed?
Title: Re: b+ Asteroids makeover
Post by: bplus on November 04, 2020, 11:21:21 am
Update: I did review Asteroids videos and I found someone with restored Atari 1979 or 80's Arcade Game and he went over the entire machine including trivia on coin boxes and outer detailing. Importantly he showed controls and instructions for them off original machine.

No reverse thrusters nor stop, there are 5 buttons. For left hand, two gun spinners left and right located as you would expect. 2 buttons for the right hand, thrust and fire (left to right) and in the middle and lower is Hyperspace jumper for better or worse position, to be used when crash is imminent.

Oh and a cool effect with thruster, it sets ship in motion of where the gun is pointing and drifts that way for awhile but eventually slows to stop unless more pumping of thruster meanwhile while moving/drifting you can spin your gun/ship in any direction to shoot. Which reminds me of action/adventure movies when the hero is sliding across floor or down a zip line with guns blazing in both directions taking out all the baddies.

Anyway, tried to duplicate that set of controls in the Thruster tester code, OK.
Keys A, S are left and right spinners, K =thrust, L =Fire thrust reads direction of guns at moment and sends ship that way for about 100+ pixels coming to stop unless thruster is pumped (then you basically start going out one border and in the opposite side so fast you don't have time to aim at anything.) Spacebar = Hyperspace jump (down from left and right hand buttons/keys and in middle just like controls on arcade machine.

I had difficulties one after the other when installing this set of controls into m8 for version m9 with rocks, aliens and live bullets... getting the guns to spin the right speed fast but also pinpoint shoot. Hit the thruster twice and you are crashed into border rock waiting to be released to screen. And Hyperspace only worked once or twice for some unknown reason I haven't figured out yet.

There is a question of pumping the key or laying on the key for spinning and firing. If you want to lay on the key then you need _KEYDOWN that can do several keys at once. If you want to pump keys for limited burst you need inkey or _KEYHIT...  anyway the Hyperspace problem had me baffled why I couldn't jump again and again if I wanted. I could jump once per life and maybe if waited long enough (for what?) jump again didn't matter if _KEYHIT, INKEY$ or _KEYDOWN it would only jump once. ??? a head scratcher!
Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 04, 2020, 12:24:40 pm
B+, let's see the code, maybe I can find the problem. If it's not a flow problem, then it could be a variable that doesn't change how you need it to. I've noticed in the past that sometimes inkey$ will hold onto its past string amount, which is why I often say a$ = "" after it doesn't need it anymore.
Title: Re: b+ Asteroids makeover
Post by: bplus on November 04, 2020, 01:34:32 pm
Here I've fixed up thrust code for k key, everything is working just right here, now, since last post.

You can pump thrust k key while spin and fire all at once. I think this duplicates the cool effect Asteroids has.

Code: QB64: [Select]
  1. _TITLE "Astroids a s spacebarn k l controls" 'b+ 2020-11-04
  2. CONST xmax = 1024, ymax = 700, pi = _PI
  3. SCREEN _NEWIMAGE(xmax, ymax, 32)
  4. _SCREENMOVE 100, 10
  5.  
  6. ' a turn left
  7. ' s turn right
  8. ' spacebarn  "hyperspace" worm hole  bug out and show up somewhere else
  9. ' k thrust  just a burst in direction you are pointed
  10. ' l fire! owwha, owha, owha...
  11.  
  12.  
  13. TYPE shipType
  14.     x AS SINGLE
  15.     y AS SINGLE
  16.     live AS LONG
  17.     speed AS SINGLE
  18.     thrustAngle AS SINGLE
  19.     angle AS SINGLE '   rotated position usu gun left or right (mouse button), maybe up press w or down press z
  20.     thrust AS LONG ' use thruster as a count down, reset at each thrust change
  22.  
  23. DIM SHARED ship AS shipType
  24. ship.x = xmax / 2: ship.y = ymax / 2: ship.angle = 0: ship.speed = 3.5
  25. WHILE _KEYDOWN(27) = 0
  26.     CLS
  27.     PRINT ship.thrust
  28.  
  29.     ' Instruments Panel
  30.  
  31.     'a left spin
  32.     IF _KEYDOWN(97) THEN ship.angle = ship.angle - pi / 48
  33.  
  34.     's right spin
  35.     IF _KEYDOWN(115) THEN ship.angle = ship.angle + pi / 48
  36.  
  37.     'l is Fire!
  38.     IF _KEYDOWN(108) THEN
  39.         t = TIMER(.001)
  40.         IF lastt = 0 OR t - lastt < .1 THEN fire = 1: SOUND 4088, .1
  41.     END IF
  42.     kh& = _KEYHIT
  43.     SELECT CASE kh&
  44.         CASE 107 'thrust  k key
  45.             ship.thrustAngle = ship.angle: ship.thrust = 120
  46.         CASE 32 ' space = hyperspace jump
  47.             ship.x = (xmax - 200) * RND + 100: ship.y = (ymax - 200) * RND + 100: ship.thrust = 0
  48.     END SELECT
  49.  
  50.     drawship
  51.     _DISPLAY
  52.     _LIMIT 60 ' same as Asteroids Game
  54.  
  55. SUB drawship 'simple red iso triangle pointed towards radianAngle
  56.     DIM x1 AS LONG, y1 AS LONG, x2 AS LONG, y2 AS LONG, x3 AS LONG, y3 AS LONG
  57.     DIM x4 AS LONG, y4 AS LONG, x5 AS LONG, y5 AS LONG
  58.     IF ship.thrust > 0 THEN
  59.         'relocate ship position
  60.         ship.x = ship.x + ship.speed * COS(ship.thrustAngle)
  61.         ship.y = ship.y + ship.speed * SIN(ship.thrustAngle)
  62.         'jump borders
  63.         IF ship.x < 0 THEN ship.x = xmax - ABS(ship.x)
  64.         IF ship.x > xmax THEN ship.x = ship.x - xmax
  65.         IF ship.y < 0 THEN ship.y = ymax - ABS(ship.y)
  66.         IF ship.y > ymax THEN ship.y = ship.y - ymax
  67.         'burn out flame as thruster dies out
  68.         x4 = ship.x + .5 * ship.thrust * COS(ship.angle - 17 / 18 * pi)
  69.         y4 = ship.y + .5 * ship.thrust * SIN(ship.angle - 17 / 18 * pi)
  70.         x5 = ship.x + .5 * ship.thrust * COS(ship.angle - 19 / 18 * pi)
  71.         y5 = ship.y + .5 * ship.thrust * SIN(ship.angle - 19 / 18 * pi)
  72.         ftri ship.x, ship.y, x4, y4, x5, y5, &H99FFFF88
  73.         ship.thrust = ship.thrust - 1
  74.     END IF
  75.     'draw ship dead or alive thrust or not, calculate 3 points of triangle ship
  76.     fcirc ship.x, ship.y, 30, &H05FFFFFF
  77.     x1 = ship.x + 30 * COS(ship.angle) ' front point
  78.     y1 = ship.y + 30 * SIN(ship.angle) '
  79.     x2 = ship.x + 30 * COS(ship.angle + .6666 * pi) ' wing
  80.     y2 = ship.y + 30 * SIN(ship.angle + .6666 * pi)
  81.     x3 = ship.x + 30 * COS(ship.angle - .6666 * pi) ' other wing
  82.     y3 = ship.y + 30 * SIN(ship.angle - .6666 * pi)
  83.     ftri ship.x, ship.y, x1, y1, x2, y2, _RGB32(80, 120, 80, 80)
  84.     ftri ship.x, ship.y, x1, y1, x3, y3, _RGB32(60, 100, 60, 80)
  85.     LINE (x1, y1)-(ship.x, ship.y), _RGB32(255, 255, 128)
  86.     LINE (x1, y1)-(x2, y2), _RGB32(255, 180, 40)
  87.     LINE (x1, y1)-(x3, y3), _RGB32(255, 180, 40)
  89.  
  90. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  91.     DIM D AS LONG
  92.     STATIC a&
  93.     D = _DEST
  94.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  95.     _DEST a&
  96.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
  97.     PSET (0, 0), K
  98.     _BLEND a& '<<<< new 2019-12-16 fix
  99.     _DEST D
  100.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  102.  
  103. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG) 'vince version
  104.     DIM x0 AS LONG, y0 AS LONG, e AS LONG
  105.     x0 = R: y0 = 0: e = 0
  106.     DO WHILE y0 < x0
  107.         IF e <= 0 THEN
  108.             y0 = y0 + 1
  109.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  110.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  111.             e = e + 2 * y0
  112.         ELSE
  113.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  114.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  115.             x0 = x0 - 1: e = e - 2 * x0
  116.         END IF
  117.     LOOP
  118.     LINE (x - R, y)-(x + R, y), C, BF
  120.  
  121.  

Title: Re: b+ Asteroids makeover
Post by: bplus on November 04, 2020, 01:42:44 pm
@SierraKen

Here is defective Hyperspace jump, I'm afraid I've messed up the code worse trying different things ie slowed way down?
But here is state of affairs as of quitting in frustration last night:

Code: QB64: [Select]
  2. _TITLE "b+ Asteroids m9 AS-Space-KL " 'started 2018-07-13"
  4.  
  5. '                                            New Controls
  6. ' key a = turn left
  7. ' key s = turn right
  8. '          spacebar =  "hyperspace" show up somewhere else  better or worse use when collision is imminent
  9. ' key k = thrust  just a burst in direction you are pointed but doesn't last
  10. ' key l = fire! owwha, owha, owha...
  11.  
  12. '=================================================================================================================
  13.  
  14. ' 2020-10-27 remove the alternate subs and get down below 200 LOC almost there now! new shooter action font and background
  15. ' 2020-10-28 another makeover explosions and split asteroids
  16. ' 2020-10-29 fix baby rock management, break between lives
  17. ' 2020-10-29 fix left/right gun, fix explosions over many frames to eliminate pause in action, speed up 60 fps
  18. ' 2020-10-30 m3 SierraKen's idea to angle shooter with mousewheel also finish WASD options, more rocks, points system
  19. ' points:
  20. ' The higher the speed the better    speed range .5 to 2.5, diff = 2 * 50 = 100          s - .5 * 50
  21. ' DELETE The lower the color the better   color range 10 to 60, diff =      50 * 2 = 100  50 - (c - 10) * 2
  22. ' The smaller the size the better  size range 10 to 100, diff = 90 * 1.1111 = 100  90 - (sz -10) * 1.1111
  23. '        ((speed - .5) * 50 + (90 - (r - 10)) * 1.1111) / 2 = 100 best score per hit
  24. ' 2020-10-30 increase level of difficulty, fix double lives lost, add an ending after all lives spent.
  25. ' 2020-10-31 M4 They are Here - the aliens have accepted my invitaion for war games don't get caught in their beam.
  26. ' rework ending and variable LONG suffix. Aliens on the attack 100 points before or after transformed into the Bolder of Death.
  27. ' 2020-11-01 M5 FX Moving through space, Oh yeah, more aliens!
  28. ' 2020-11-01 M6 add play again and save high game , continuous shoot
  29. ' 2020-11-01 M7 fix hits count when hit alien ship or Bolder of Death. Fix lights on aliens ship. I want to see collsions with ship.
  30. ' Ken recommends removing text in middle of screen, yeah, distracting. Makeover ship as with mouse x, y it's center. Add Splash screen.
  31. ' Show mouse in between lives so can be in screen center when press key to start next run.
  32.  
  33. ' 2020-11-03 watching videos on Asteroids, I found a view and description of the control panel, it is:
  34. ' 2 buttons on left and lower button in middle and 2 buttons on right level with 2 on left
  35. ' 2 buttons on left are left and right turns they will be Keys A and S
  36. ' the middle will be spacebar for Hypespace or these days we might call it worm hole, jump to another location better or worse!
  37. ' 2 buttons on right K and L: K will be a thruster of sorts you evetually come to a stop L is the fire button
  38. ' So let's try that. I am impressed by hitting thruster and shooting all around as you dift in direction gun was pionted when hit thruster.
  39. ' Lighten rocks change points without rock color
  40.  
  41. '================================================================================================================
  42.  
  43. '    NOTE: !!!!!!!!!!!!!!!   When there is a pause in action, just hit = enter,  as in enter a new life!
  44.  
  45. '================================================================================================================
  46.  
  47. CONST xmax = 1200, ymax = 700, pi = _PI, polyAngle = _PI / 6, nRocks = 300, nBullets = 2000, bSpeed = 15
  48.  
  49. TYPE alienType
  50.     x AS SINGLE
  51.     y AS SINGLE
  52.     dx AS SINGLE
  53.     dy AS SINGLE
  54.     ls AS LONG ' lights offset
  55.     c AS _UNSIGNED LONG ' color
  56.     live AS LONG
  57.     attackFrame AS LONG
  58.     fireX AS SINGLE
  59.     fireY AS SINGLE
  60.     transform AS LONG
  62.  
  63. TYPE particle
  64.     x AS SINGLE
  65.     y AS SINGLE
  66.     dx AS SINGLE
  67.     dy AS SINGLE
  68.     size AS SINGLE
  69.     kolor AS _UNSIGNED LONG
  71.  
  72. TYPE bullet
  73.     x AS SINGLE
  74.     y AS SINGLE
  75.     dx AS SINGLE
  76.     dy AS SINGLE
  77.     live AS LONG
  79.  
  80. TYPE shipType
  81.     x AS SINGLE
  82.     y AS SINGLE
  83.     live AS LONG
  84.     speed AS SINGLE
  85.     thrustAngle AS SINGLE
  86.     angle AS SINGLE '   rotated position usu gun left or right (mouse button), maybe up press w or down press z
  87.     thruster AS LONG ' 1 forward, 2 reverse, 3 left , 4 right 0 none for drawing
  89.  
  90. TYPE rock
  91.     x AS SINGLE
  92.     y AS SINGLE
  93.     r AS LONG '            radius
  94.     ra AS SINGLE '         rotation position   a = a + spin
  95.     heading AS SINGLE '    heading from which dx, dy are calc with speed
  96.     speed AS SINGLE '      speed
  97.     spin AS SINGLE '       rotation direction and amount
  98.     seed AS LONG '         for drawing rocks with RND USING
  99.     c AS LONG '            color   rgb(c, c, c)
  100.     live AS LONG '         need this to track rocks still active like bullets
  101.     explodeFrame AS LONG ' after a rock is hit by bullet, it explodes and in more than one frame
  103.  
  104. REDIM SHARED aliens(1 TO 5) AS alienType
  105. DIM SHARED dots(2000) AS particle
  106. DIM SHARED b(nBullets) AS bullet
  107. DIM SHARED ship AS shipType
  108. DIM SHARED r(nRocks) AS rock
  110. DIM SHARED points AS LONG
  111. DIM SHARED rocks AS LONG 'rocks is the minimum number of parent rocks to have on screen  automatic replace when hit or out of bounds
  112.  
  113. DIM HS AS LONG, fnt AS LONG, fnt2 AS LONG ' file LOAD handles
  114. DIM i AS LONG, bullets AS LONG, fire AS LONG ' index and bullets
  115. DIM r AS LONG, newRockN AS LONG, maxBabyRocks AS LONG, br AS LONG, hits AS LONG ' rock stuff
  116. DIM ai AS LONG, alienN AS LONG ' alien index and number
  117. DIM hs$, s$, k$, t, lastt 'high score, general string and times for bullets
  118.  
  119. SCREEN _NEWIMAGE(xmax, ymax, 32)
  120. _SCREENMOVE 100, 20
  122.  
  123. fnt = _LOADFONT("ARLRDBD.ttf", 16, "MONOSPACE")
  124. fnt2 = _LOADFONT("ARLRDBD.ttf", 40, "MONOSPACE")
  125. _FONT fnt2
  126. COLOR &HFF00FFFF, &H00000000
  127.  
  128. IF _FILEEXISTS("Asteroids High Score.txt") THEN
  129.     OPEN "Asteroids High Score.txt" FOR INPUT AS #1
  130.     INPUT #1, HS
  131.     CLOSE #1
  133. hs$ = "High Score:" + STR$(HS)
  134.  
  135. 'a little splash screen
  136. rocks = 7: alienN = 3
  137. FOR i = 1 TO nRocks
  138.     newRock i
  139.     IF i > rocks THEN r(i).live = 0
  141. FOR i = 1 TO alienN
  142.     newAlien i
  144. i = 0
  146.     drawStars 0
  147.     i = i + 1
  148.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  149.     FOR r = 1 TO nRocks
  150.         IF r(r).live THEN drawRock r
  151.     NEXT
  152.     FOR i = 1 TO alienN
  153.         drawAliens i
  154.     NEXT
  155.     _FONT fnt2
  156.     s$ = "Asteroids AS-Space-KL"
  157.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 60), s$
  158.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(hs$)) / 2, 140), hs$
  159.     s$ = "A = Left spin"
  160.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 220), s$
  161.     s$ = "S = Right Spin"
  162.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 300), s$
  163.     s$ = "Space = Hyper jump"
  164.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 380), s$
  165.     s$ = "K = Thrust"
  166.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 460), s$
  167.     s$ = "L = Fire!"
  168.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 540), s$
  169.     _FONT fnt
  171.     k$ = INKEY$
  172.  
  173.     _DISPLAY
  174.     _LIMIT 60
  176.  
  178. restart:
  179. IF _FILEEXISTS("Asteroids High Score.txt") THEN
  180.     OPEN "Asteroids High Score.txt" FOR INPUT AS #1
  181.     INPUT #1, HS
  182.     CLOSE #1
  184. hs$ = "  High Score:" + STR$(HS)
  185. lives = 10: alienN = 1: rocks = 1: ' always active rocks
  186. points = 0: hits = 0: bullets = 0
  187. WHILE lives > 0 AND _KEYDOWN(27) = 0 ' init start restart
  188.     REDIM aliens(1 TO alienN) AS alienType
  189.     FOR ai = 1 TO alienN
  190.         newAlien ai
  191.     NEXT
  192.     FOR i = 1 TO nRocks 'reset rocks mainly clear baby rocks
  193.         newRock (i)
  194.         IF i > rocks THEN r(i).live = 0
  195.     NEXT
  196.     ship.x = xmax / 2 'avoids explosions top left corner at start, dang still get some!
  197.     ship.y = ymax / 2
  198.     ship.angle = 0
  199.     ship.thrustAngle = 0
  200.     ship.speed = 0
  201.     ship.live = 1
  203.     WHILE ship.live AND _KEYDOWN(27) = 0
  204.         k$ = INKEY$
  205.         'draw everything then process bullets
  206.         drawStars 1
  207.  
  208.         FOR ai = 1 TO alienN
  209.             drawAliens ai
  210.         NEXT
  211.         FOR i = 1 TO nRocks
  212.             IF r(i).live THEN drawRock i ' while drawing rocks the ship could be blown up
  213.             IF ((r(i).x - ship.x) ^ 2 + (r(i).y - ship.y) ^ 2) ^ .5 < r(i).r + 30 THEN 'rock collides with ship?
  214.                 FOR br = 1 TO 200 STEP 5
  215.                     CIRCLE ((ship.x + r(i).x) / 2, (ship.y + r(i).y) / 2), br, _RGB32(255 - br, 255 - 2 * br, 0)
  216.                 NEXT
  217.                 drawRock i
  218.                 drawship
  219.                 ship.live = 0
  220.                 IF i <= rocks THEN newRock i ELSE r(i).live = 0
  221.             END IF
  222.         NEXT
  223.         FOR i = 1 TO nRocks 'smoke up the place with rock debris fields still flying out from hit frames ago
  224.             IF r(i).explodeFrame THEN
  225.                 r(i).explodeFrame = r(i).explodeFrame + 1
  226.                 IF r(i).explodeFrame > .25 * r(i).r THEN
  227.                     r(i).explodeFrame = 0
  228.                     IF i <= rocks THEN newRock i ' now replace the rock
  229.                 ELSE
  230.                     explode r(i).x, r(i).y, r(i).r, r(i).explodeFrame
  231.                 END IF
  232.             END IF
  233.         NEXT
  234.         IF ship.live THEN
  235.             FOR ai = 1 TO alienN
  236.                 IF SQR((aliens(ai).x - ship.x) ^ 2 + (aliens(ai).y - ship.y) ^ 2) < 60 THEN 'aliens and ship collisde boom boom
  237.                     FOR br = 1 TO 200 STEP 5
  238.                         CIRCLE ((ship.x + aliens(ai).x) / 2, (ship.y + aliens(ai).y) / 2), br, _RGB32(255 - br, 255 - 2 * br, 0)
  239.                     NEXT
  240.                     drawship
  241.                     ship.live = 0
  242.                     _CONTINUE
  243.                 ELSE
  244.                     drawship
  245.                 END IF
  246.             NEXT
  247.  
  248.             ' ship update
  249.             ship.thruster = 0 ' reset
  250.  
  251.  
  252.             IF _KEYDOWN(ASC("a")) THEN ship.angle = ship.angle - pi / 90: ship.thruster = 4
  253.             IF _KEYDOWN(ASC("s")) THEN ship.angle = ship.angle + pi / 90: ship.thruster = 3
  254.             IF k$ = "k" THEN ship.speed = ship.speed + 3: ship.thrustAngle = ship.angle: ship.thruster = 1
  255.             IF k$ = "l" THEN 'l =fire
  256.                 fire = 0
  257.                 t = TIMER(.01)
  258.                 IF lastt = 0 OR t - lastt > .1 THEN fire = 1: lastt = t
  259.             END IF
  260.             IF k$ = " " THEN 'hyperspace
  261.                 ship.x = (xmax - 200) * RND + 100: ship.y = (ymax - 200) * RND + 100: ship.speed = 0
  262.             END IF
  263.  
  264.             'locate ship
  265.             ship.x = ship.x + ship.speed * COS(ship.thrustAngle)
  266.             ship.y = ship.y + ship.speed * SIN(ship.thrustAngle)
  267.             ship.speed = ship.speed - .02
  268.             IF ship.speed < 0 THEN ship.speed = 0
  269.  
  270.  
  271.             IF ship.x < 0 THEN ship.x = xmax - ABS(ship.x)
  272.             IF ship.x > xmax THEN ship.x = ship.x - xmax
  273.             IF ship.y < 0 THEN ship.y = ymax - ABS(ship.y)
  274.             IF ship.y > ymax THEN ship.y = ship.y - ymax
  275.  
  276.  
  277.             FOR i = 0 TO nBullets 'handle bullets
  278.                 IF b(i).live = 0 AND fire = 1 THEN 'have inactive bullet to use
  279.                     b(i).x = ship.x + bSpeed * COS(ship.angle)
  280.                     b(i).y = ship.y + bSpeed * SIN(ship.angle)
  281.                     b(i).dx = bSpeed * COS(ship.angle)
  282.                     b(i).dy = bSpeed * SIN(ship.angle)
  283.                     b(i).live = -1
  284.                     bullets = bullets + 1
  285.                     fire = 0
  286.                 END IF
  287.                 IF b(i).live THEN 'new location
  288.                     b(i).x = b(i).x + b(i).dx
  289.                     b(i).y = b(i).y + b(i).dy
  290.                     IF b(i).x > 0 AND b(i).x < xmax AND b(i).y > 0 AND b(i).y < ymax THEN 'in bounds draw it
  291.  
  292.                         'bullet hit aliens?
  293.                         FOR ai = 1 TO alienN
  294.                             IF SQR((aliens(ai).x - b(i).x) ^ 2 + (aliens(ai).y - b(i).y) ^ 2) < 30 THEN
  295.                                 FOR br = 1 TO 120
  296.                                     CIRCLE (aliens(ai).x, aliens(ai).y), br / 3, plasma~&(0)
  297.                                 NEXT
  298.                                 _DISPLAY
  299.                                 _DELAY .05
  300.                                 hits = hits + 1
  301.                                 points = points + 100
  302.                                 aliens(ai).live = 0
  303.                                 newAlien ai
  304.                                 b(i).live = 0
  305.                                 _CONTINUE
  306.                             END IF
  307.                         NEXT
  308.                         FOR r = 1 TO nRocks 'check for collision with rock
  309.                             IF r(r).live THEN
  310.                                 IF SQR((r(r).x - b(i).x) ^ 2 + (r(r).y - b(i).y) ^ 2) < r(r).r THEN 'its a hit!
  311.                                     r(r).explodeFrame = 1 'linger with explosion
  312.                                     r(r).live = 0
  313.                                     hits = hits + 1
  314.                                     points = points + ((r(r).speed - .5) * 50 + (90 - (r(r).r - 10)) * 1.1111) / 2
  315.                                     IF r(r).r > 30 THEN '       split rock  into ? new ones
  316.                                         maxBabyRocks = INT((r(r).r - 10) / 10)
  317.                                         maxBabyRocks = irnd&(2, maxBabyRocks) ' pick a number of baby Rocks
  318.                                         FOR br = 1 TO maxBabyRocks
  319.                                             '                        new rock
  320.                                             newRockN = freeRock& '                          get inactive rock number
  321.                                             newRock newRockN '                              new identity and activate
  322.                                             r(newRockN).r = (r(r).r - 10) / maxBabyRocks '  split in equal parts minus 20% mass
  323.                                             r(newRockN).x = r(r).x + irnd&(-30, 30) '       thrown from parent
  324.                                             r(newRockN).y = r(r).y + irnd&(-30, 30)
  325.                                             r(newRockN).c = r(r).c '                   same color as parent
  326.                                             r(newRockN).heading = rrnd(ship.angle - .75 * pi, ship.angle + .75 * pi)
  327.                                         NEXT
  328.                                     END IF ' big enough to split
  329.                                     b(i).live = 0 'kill bullet
  330.                                 END IF ' hit rock
  331.                             END IF 'rock is there
  332.                         NEXT ' rock
  333.                         IF b(i).live THEN fcirc b(i).x, b(i).y, 3, _RGB32(255, 255, 0) 'draws bullet
  334.                     ELSE
  335.                         b(i).live = 0 'out of bounds
  336.                     END IF ' bullet is in bounds
  337.                 END IF ' bullet live
  338.             NEXT ' bullet
  339.         END IF ' if ship still live
  340.         _DISPLAY
  341.         IF ship.live = 0 THEN
  342.             lives = lives - 1
  343.             IF lives MOD 4 = 0 THEN rocks = rocks + 1
  344.             IF lives MOD 4 = 2 THEN alienN = alienN + 1
  345.             s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  346.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 80), s$
  347.             _FONT fnt2
  348.             s$ = STR$(points) + hs$
  349.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  350.             _FONT fnt
  351.             s$ = "Press Enter to enter your next life"
  352.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 120), s$
  353.             _DISPLAY
  354.             _MOUSESHOW
  355.             WHILE _KEYDOWN(13) = 0: WEND 'wait for enter key
  356.         ELSE
  357.             _LIMIT 30 ' if ship dies let's rest and regroup  before restart next life
  358.         END IF
  359.     WEND
  360.     _DISPLAY
  362. IF points > HS THEN
  363.     OPEN "Asteroids High Score.txt" FOR OUTPUT AS #1
  364.     PRINT #1, points
  365.     CLOSE #1
  367. ship.x = -200: ship.y = -200 'get it out of the way
  368. i = 0
  370.     drawStars 0
  371.     i = i + 1
  372.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  373.     FOR r = 1 TO nRocks
  374.         IF r(r).live THEN drawRock r
  375.     NEXT
  376.     s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  377.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 80), s$
  378.     _FONT fnt2
  379.     s$ = STR$(points)
  380.     IF points > HS THEN s$ = s$ + " a New Record!" ELSE s$ = STR$(points) + hs$
  381.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  382.     _FONT fnt
  383.     s$ = "Press q to quit, p or a to Play Again..."
  384.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 120), s$
  385.     IF _KEYDOWN(ASC("a")) OR _KEYDOWN(ASC("p")) THEN GOTO restart
  386.     _DISPLAY
  387.     _LIMIT 60
  390.  
  391. SUB drawStars (moving)
  392.     TYPE starType
  393.         x AS SINGLE
  394.         y AS SINGLE
  395.         size AS SINGLE
  396.         c AS INTEGER
  397.     END TYPE
  398.     STATIC beenHere, stars(600) AS starType, cy AS LONG
  399.     DIM i AS LONG
  400.     IF beenHere = 0 THEN 'static part
  401.         FOR i = 0 TO 200
  402.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = 0
  403.             stars(i).c = irnd&(80, 140)
  404.         NEXT
  405.         FOR i = 0 TO 200
  406.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = .3
  407.             stars(i).c = irnd&(80, 140)
  408.         NEXT
  409.  
  410.         FOR i = 1 TO 140
  411.             stars(i + 400).x = RND * xmax: stars(i + 400).y = RND * ymax: stars(i + 100).size = .6
  412.             stars(i).c = irnd&(110, 170)
  413.         NEXT
  414.         FOR i = 1 TO 50
  415.             stars(i + 540).x = RND * xmax: stars(i + 540).y = RND * ymax: stars(i + 170).size = 1.2
  416.             stars(i).c = irnd&(140, 200)
  417.         NEXT
  418.         FOR i = 1 TO 10
  419.             stars(i + 590).x = RND * xmax: stars(i + 590).y = RND * ymax: stars(i + 195).size = 2.4
  420.             stars(i).c = irnd&(170, 235)
  421.         NEXT
  422.         cy = ymax / 2
  423.         beenHere = 1
  424.     END IF
  425.     FOR i = 0 TO cy
  426.         LINE (0, i)-(xmax, i), _RGB32(0, 0, .1 * i + 4)
  427.         LINE (0, ymax - i)-(xmax, ymax - i), _RGB(0, 0, .1 * i + 4)
  428.     NEXT
  429.     FOR i = 0 TO 200
  430.         IF moving THEN
  431.             stars(i).x = stars(i).x + .2 * stars(i).size ^ stars(i).size
  432.             IF stars(i).x > xmax THEN stars(i).x = -1 * RND * 20
  433.         END IF
  434.         fcirc stars(i).x, stars(i).y, stars(i).size, _RGB32(stars(i).c - 10, stars(i).c, stars(i).c + 10)
  435.     NEXT
  437.  
  438. SUB newAlien (i AS LONG)
  439.     DIM side AS LONG, heading
  440.     RANDOMIZE TIMER * RND 'to avoid making twins
  441.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  442.     aliens(i).fireX = irnd(10, xmax - 10)
  443.     aliens(i).fireY = irnd(10, ymax - 10)
  444.     aliens(i).attackFrame = irnd(30, 400) ' EDIT a tweak to survive a little long before getting murdered with low lives over and over...
  445.     SELECT CASE side
  446.         CASE 1
  447.             aliens(i).x = -10
  448.             aliens(i).y = rrnd(20, ymax - 20)
  449.         CASE 2
  450.             aliens(i).x = xmax + 10
  451.             aliens(i).y = rrnd(20, ymax - 20)
  452.         CASE 3
  453.             aliens(i).x = rrnd(20, xmax - 20)
  454.             aliens(i).y = -10
  455.         CASE 4
  456.             aliens(i).x = rrnd(20, xmax - 20)
  457.             aliens(i).y = ymax + 10
  458.     END SELECT
  459.     heading = _ATAN2(aliens(i).fireY - aliens(i).y, aliens(i).fireX - aliens(i).x)
  460.     aliens(i).dx = .5 * COS(heading)
  461.     aliens(i).dy = .5 * SIN(heading)
  462.     aliens(i).live = 0
  463.     aliens(i).transform = 0
  464.     aliens(i).c = _RGB32(irnd(128, 255), irnd(0, 255), irnd(0, 255))
  466.  
  467. FUNCTION plasma~& (new AS LONG)
  468.     STATIC r, g, b, cnt, beenHere
  469.     IF beenHere = 0 OR new THEN
  470.         r = RND: g = RND: b = RND: beenHere = 1: cnt = 0
  471.     END IF
  472.     cnt = cnt + .2
  473.     plasma~& = _RGB32(127 + 127 * SIN(r * cnt), 127 + 127 * SIN(g * cnt), 127 + 127 * SIN(b * cnt))
  475.  
  476. SUB drawAliens (i AS LONG) 'shipType
  477.     DIM light AS LONG, heading, r AS LONG, g AS LONG, b AS LONG
  478.     IF aliens(i).live THEN
  479.         IF aliens(i).transform = 0 THEN
  480.             r = _RED32(aliens(i).c): g = _GREEN32(aliens(i).c): b = _BLUE32(aliens(i).c)
  481.             fellipse aliens(i).x, aliens(i).y, 6, 15, _RGB32(r, g - 120, b - 100)
  482.             fellipse aliens(i).x, aliens(i).y, 18, 11, _RGB32(r, g - 60, b - 50)
  483.             fellipse aliens(i).x, aliens(i).y, 30, 7, _RGB32(r, g, b)
  484.             FOR light = 0 TO 5
  485.                 fcirc aliens(i).x - 30 + 11 * light + aliens(i).ls, aliens(i).y, 1, _RGB32(aliens(i).ls * 50, aliens(i).ls * 50, aliens(i).ls * 50)
  486.             NEXT
  487.             aliens(i).ls = aliens(i).ls + 1
  488.             IF aliens(i).ls > 5 THEN aliens(i).ls = 0
  489.         ELSE
  490.             drawBall aliens(i).x, aliens(i).y, 30, aliens(i).c
  491.         END IF
  492.         'time to shoot?
  493.         aliens(i).x = aliens(i).x + aliens(i).dx
  494.         aliens(i).y = aliens(i).y + aliens(i).dy
  495.         IF SQR((aliens(i).fireX - aliens(i).x) ^ 2 + (aliens(i).fireY - aliens(i).y) ^ 2) < 5 THEN 'transform into the bolder of death
  496.             aliens(i).transform = 1
  497.             heading = _ATAN2(ship.y - aliens(i).y, ship.x - aliens(i).x)
  498.             aliens(i).dx = 2.5 * COS(heading)
  499.             aliens(i).dy = 2.5 * SIN(heading)
  500.         END IF
  501.         IF aliens(i).x < -10 OR aliens(i).x > xmax + 10 THEN
  502.             IF aliens(i).y < -10 OR aliens(i).y > ymax + 10 THEN '  out of bounds goodbye bolder of death!
  503.                 aliens(i).live = 0 'man we dodged a bullet here!!!!
  504.                 newAlien i 'reset the trap
  505.             END IF
  506.         END IF
  507.     ELSE
  508.         IF aliens(i).attackFrame THEN
  509.             aliens(i).attackFrame = aliens(i).attackFrame - 1
  510.             IF aliens(i).attackFrame = 0 THEN
  511.                 aliens(i).live = 1
  512.             END IF
  513.         END IF
  514.     END IF
  516.  
  517. FUNCTION freeRock&
  518.     DIM i AS LONG
  519.     FOR i = rocks + 1 TO nRocks ' look for inactive rock number
  520.         IF r(i).live = 0 AND r(i).explodeFrame = 0 THEN freeRock& = i: EXIT FUNCTION
  521.     NEXT
  523.  
  524. SUB explode (x AS LONG, y AS LONG, r AS LONG, frm AS LONG)
  525.     DIM maxParticles AS LONG, i AS LONG, rounds AS LONG, loopCount AS LONG
  526.     maxParticles = r * 4
  527.     FOR i = 1 TO r
  528.         NewDot i, x, y, r
  529.     NEXT
  530.     rounds = r
  531.     FOR loopCount = 0 TO frm
  532.         IF _KEYDOWN(27) THEN END
  533.         FOR i = 1 TO rounds
  534.             dots(i).x = dots(i).x + dots(i).dx
  535.             dots(i).y = dots(i).y + dots(i).dy
  536.             fcirc dots(i).x, dots(i).y, dots(i).size, dots(i).kolor
  537.         NEXT
  538.         IF rounds < maxParticles THEN
  539.             FOR i = 1 TO r
  540.                 NewDot (rounds + i), x, y, r
  541.             NEXT
  542.             rounds = rounds + r
  543.         END IF
  544.     NEXT
  546.  
  547. SUB NewDot (i AS LONG, x AS LONG, y AS LONG, r AS LONG)
  548.     DIM angle, rd
  549.     angle = pi * 2 * RND
  550.     rd = RND * 30
  551.     dots(i).x = x + rd * COS(angle)
  552.     dots(i).y = y + rd * SIN(angle)
  553.     dots(i).size = RND * r * .05
  554.     rd = RND 'STxAxTIC recommended for rounder spreads
  555.     dots(i).dx = rd * 10 * (10 - 2 * dots(i).size) * COS(angle)
  556.     dots(i).dy = rd * 10 * (10 - 2 * dots(i).size) * SIN(angle)
  557.     rd = 20 + RND * 70
  558.     dots(i).kolor = _RGBA32(rd, rd, rd, 80)
  560.  
  561. SUB drawship 'simple red iso triangle pointed towards radianAngle
  562.     DIM x1 AS LONG, y1 AS LONG, x2 AS LONG, y2 AS LONG, x3 AS LONG, y3 AS LONG
  563.     DIM x4 AS LONG, y4 AS LONG, x5 AS LONG, y5 AS LONG, x6 AS LONG, y6 AS LONG
  564.     DIM x7 AS LONG, y7 AS LONG
  565.  
  566.  
  567.     'calculate 3 points of triangle ship
  568.     fcirc ship.x, ship.y, 30, &H05FFFFFF
  569.     x1 = ship.x + 30 * COS(ship.angle) ' front point
  570.     y1 = ship.y + 30 * SIN(ship.angle) '
  571.     x2 = ship.x + 30 * COS(ship.angle + .6666 * pi) ' wing
  572.     y2 = ship.y + 30 * SIN(ship.angle + .6666 * pi)
  573.     x3 = ship.x + 30 * COS(ship.angle - .6666 * pi) ' other wing
  574.     y3 = ship.y + 30 * SIN(ship.angle - .6666 * pi)
  575.     ftri ship.x, ship.y, x1, y1, x2, y2, _RGB32(80, 120, 80, 80)
  576.     ftri ship.x, ship.y, x1, y1, x3, y3, _RGB32(60, 100, 60, 80)
  577.     LINE (x1, y1)-(ship.x, ship.y), _RGB32(255, 255, 128)
  578.     LINE (x1, y1)-(x2, y2), _RGB32(180, 180, 120)
  579.     LINE (x1, y1)-(x3, y3), _RGB32(180, 180, 120)
  580.  
  581.     SELECT CASE ship.thruster
  582.         CASE 1 'forward apex = ship.x, ship,y  direction = ship.angle + pi
  583.             x4 = ship.x + 25 * COS(ship.angle - 17 / 18 * pi)
  584.             y4 = ship.y + 25 * SIN(ship.angle - 17 / 18 * pi)
  585.             x5 = ship.x + 25 * COS(ship.angle - 19 / 18 * pi)
  586.             y5 = ship.y + 25 * SIN(ship.angle - 19 / 18 * pi)
  587.             ftri ship.x, ship.y, x4, y4, x5, y5, &H99FFFF88
  588.         CASE 2 'reverse apex = x1, y1
  589.             x6 = x2 + 25 * COS(ship.angle + 1 / 18 * pi)
  590.             y6 = y2 + 25 * SIN(ship.angle + 1 / 18 * pi)
  591.             x7 = x2 + 25 * COS(ship.angle - 1 / 18 * pi)
  592.             y7 = y2 + 25 * SIN(ship.angle - 1 / 18 * pi)
  593.             ftri x2, y2, x6, y6, x7, y7, &H99FFFF88
  594.  
  595.             x6 = x3 + 25 * COS(ship.angle + 1 / 18 * pi)
  596.             y6 = y3 + 25 * SIN(ship.angle + 1 / 18 * pi)
  597.             x7 = x3 + 25 * COS(ship.angle - 1 / 18 * pi)
  598.             y7 = y3 + 25 * SIN(ship.angle - 1 / 18 * pi)
  599.             ftri x3, y3, x6, y6, x7, y7, &H99FFFF88
  600.         CASE 3 'left apex = x2, y2
  601.             x6 = x3 + 25 * COS(ship.angle - 17 / 18 * pi)
  602.             y6 = y3 + 25 * SIN(ship.angle - 17 / 18 * pi)
  603.             x7 = x3 + 25 * COS(ship.angle - 19 / 18 * pi)
  604.             y7 = y3 + 25 * SIN(ship.angle - 19 / 18 * pi)
  605.             ftri x3, y3, x6, y6, x7, y7, &H99FFFF88
  606.  
  607.             'x6 = x2 + 25 * COS(ship.angle + 1 / 18 * pi)
  608.             'y6 = y2 + 25 * SIN(ship.angle + 1 / 18 * pi)
  609.             'x7 = x2 + 25 * COS(ship.angle - 1 / 18 * pi)
  610.             'y7 = y2 + 25 * SIN(ship.angle - 1 / 18 * pi)
  611.             'ftri x2, y2, x6, y6, x7, y7, &H99FFFF88
  612.         CASE 4 'right
  613.             x6 = x2 + 25 * COS(ship.angle - 17 / 18 * pi)
  614.             y6 = y2 + 25 * SIN(ship.angle - 17 / 18 * pi)
  615.             x7 = x2 + 25 * COS(ship.angle - 19 / 18 * pi)
  616.             y7 = y2 + 25 * SIN(ship.angle - 19 / 18 * pi)
  617.             ftri x2, y2, x6, y6, x7, y7, &H99FFFF88
  618.  
  619.             'x6 = x3 + 25 * COS(ship.angle + 1 / 18 * pi)
  620.             'y6 = y3 + 25 * SIN(ship.angle + 1 / 18 * pi)
  621.             'x7 = x3 + 25 * COS(ship.angle - 1 / 18 * pi)
  622.             'y7 = y3 + 25 * SIN(ship.angle - 1 / 18 * pi)
  623.             'ftri x3, y3, x6, y6, x7, y7, &H99FFFF88
  624.     END SELECT
  626.  
  627. SUB drawRock (iRock)
  628.     RANDOMIZE USING r(iRock).seed 'this prevents having to save a particular sequence of random number
  629.     DIM dx, dy, j AS LONG, rRad AS SINGLE, leg AS SINGLE, x0 AS LONG, y0 AS LONG, rc AS LONG, c~&, x1 AS LONG, y1 AS LONG, xoff, yoff, i AS LONG
  630.     DIM x2 AS LONG, y2 AS LONG
  631.     dx = r(iRock).speed * COS(r(iRock).heading)
  632.     dy = r(iRock).speed * SIN(r(iRock).heading) 'update location
  633.     r(iRock).ra = r(iRock).ra + r(iRock).spin
  634.     IF r(iRock).x + dx + r(iRock).r < 0 OR r(iRock).x + dx - r(iRock).r > xmax OR r(iRock).y + dy + r(iRock).r < 0 OR r(iRock).y + dy - r(iRock).r > ymax THEN
  635.         IF iRock <= rocks THEN newRock iRock ELSE r(iRock).live = 0
  636.         EXIT SUB ' reassigned get out of here
  637.     ELSE
  638.         r(iRock).x = r(iRock).x + dx
  639.         r(iRock).y = r(iRock).y + dy
  640.     END IF
  641.     FOR j = 10 TO 3 STEP -1 '                  rock drawing (see demo program where developed code)
  642.         rRad = .1 * j * r(iRock).r
  643.         leg = rRad * (RND * .7 + .3)
  644.         x0 = r(iRock).x + leg * COS(r(iRock).ra)
  645.         y0 = r(iRock).y + leg * SIN(r(iRock).ra)
  646.         rc = r(iRock).c + 30 * RND - 15
  647.         c~& = _RGB32(rc + 5, rc - 10, rc + 5)
  648.         x1 = x0
  649.         y1 = y0
  650.         xoff = RND * 20 - 10 + r(iRock).x
  651.         yoff = RND * 20 - 10 + r(iRock).y
  652.         FOR i = 1 TO 12
  653.             leg = rRad * (RND * .35 + .65)
  654.             IF i = 12 THEN
  655.                 x2 = x0: y2 = y0
  656.             ELSE
  657.                 x2 = xoff + leg * COS(i * polyAngle + r(iRock).ra)
  658.                 y2 = yoff + leg * SIN(i * polyAngle + r(iRock).ra)
  659.             END IF
  660.             ftri r(iRock).x, r(iRock).y, x1, y1, x2, y2, c~&
  661.             x1 = x2: y1 = y2
  662.         NEXT
  663.     NEXT
  665.  
  666. SUB newRock (iRock)
  667.     DIM side AS LONG
  668.     RANDOMIZE TIMER * RND 'to avoid making twins
  669.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  670.     SELECT CASE side
  671.         CASE 1
  672.             r(iRock).x = -100
  673.             r(iRock).y = rrnd(20, ymax - 20)
  674.             r(iRock).heading = 3 * pi / 2 + RND * pi
  675.         CASE 2
  676.             r(iRock).x = xmax + 100
  677.             r(iRock).y = rrnd(20, ymax - 20)
  678.             r(iRock).heading = pi / 2 + RND * pi
  679.         CASE 3
  680.             r(iRock).x = rrnd(20, xmax - 20)
  681.             r(iRock).y = -100
  682.             r(iRock).heading = RND * pi
  683.         CASE 4
  684.             r(iRock).x = rrnd(20, xmax - 20)
  685.             r(iRock).y = ymax + 100
  686.             r(iRock).heading = pi + RND * pi
  687.     END SELECT
  688.     r(iRock).speed = rrnd(.5, 2.5) 'speed, rotation angle, radius, gray coloring, spin, seed, hit for explosion
  689.     r(iRock).ra = RND * 2 * pi
  690.     r(iRock).r = irnd&(30, 100)
  691.     r(iRock).c = irnd&(60, 110) ' Ken request increase in rock color
  692.     r(iRock).spin = rrnd(-pi / 20, pi / 20)
  693.     r(iRock).seed = INT(RND * 64000) - 32000
  694.     r(iRock).explodeFrame = 0
  695.     r(iRock).live = 1
  697.  
  698. FUNCTION irnd& (n1, n2) 'return an integer between 2 numbers
  699.     DIM l%, h%
  700.     IF n1 > n2 THEN l% = n2: h% = n1 ELSE l% = n1: h% = n2
  701.     irnd& = INT(RND * (h% - l% + 1)) + l%
  703.  
  704. FUNCTION rrnd (n1, n2) ' return number (expecting reals =_single, double, _float depending on default / define setup)
  705.     rrnd = (n2 - n1) * RND + n1
  707.  
  708. SUB drawBall (x, y, r, c AS _UNSIGNED LONG)
  709.     DIM red AS LONG, grn AS LONG, blu AS LONG, rr AS LONG, f
  710.     red = _RED32(c): grn = _GREEN32(c): blu = _BLUE32(c)
  711.     FOR rr = r TO 0 STEP -1
  712.         f = 1 - rr / r
  713.         fcirc x, y, rr, _RGB32(red * f, grn * f, blu * f)
  714.     NEXT
  716.  
  717. SUB fellipse (CX AS LONG, CY AS LONG, xr AS LONG, yr AS LONG, C AS _UNSIGNED LONG)
  718.     IF xr = 0 OR yr = 0 THEN EXIT SUB
  720.     DIM x AS LONG, y AS LONG
  721.     w2 = xr * xr: h2 = yr * yr: h2w2 = h2 * w2
  722.     LINE (CX - xr, CY)-(CX + xr, CY), C, BF
  723.     DO WHILE y < yr
  724.         y = y + 1
  725.         x = SQR((h2w2 - y * y * w2) \ h2)
  726.         LINE (CX - x, CY + y)-(CX + x, CY + y), C, BF
  727.         LINE (CX - x, CY - y)-(CX + x, CY - y), C, BF
  728.     LOOP
  730.  
  731. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  732.     DIM D AS LONG
  733.     STATIC a&
  734.     D = _DEST
  735.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  736.     _DEST a&
  737.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
  738.     PSET (0, 0), K
  739.     _BLEND a& '<<<< new 2019-12-16 fix
  740.     _DEST D
  741.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  743.  
  744. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG) 'vince version
  745.     DIM x0 AS LONG, y0 AS LONG, e AS LONG
  746.     x0 = R: y0 = 0: e = 0
  747.     DO WHILE y0 < x0
  748.         IF e <= 0 THEN
  749.             y0 = y0 + 1
  750.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  751.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  752.             e = e + 2 * y0
  753.         ELSE
  754.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  755.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  756.             x0 = x0 - 1: e = e - 2 * x0
  757.         END IF
  758.     LOOP
  759.     LINE (x - R, y)-(x + R, y), C, BF
  761.  

Don't knock yourself out with this, I am going to reinstall latest thrust changes I just posted (where ship.speed is constant).

But if you or anyone can solve the mysterious disappearance of Hyperdrive spacebar  after the first use, I probably would be grateful or disgusted by my blunder ha, ha! But live and learn!
Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 04, 2020, 02:33:52 pm
Here you go B+. :) You will hate me when I tell you how I fixed it. It's something you guys have told me not to use more than once in an entire program but it works. I added RANDOMIZE TIMER right before the RND lines. I also changed the INKEY$ to KEYHIT since it seemed to work better, but you can try INKEY$ again if you want. What I found out was that it was actually working every time with KEYHIT (and possibly INKEY$) but it was just going to the same location you started at. For example, if I moved and used it, it went back to where it was before, almost every time. So that meant it was a randomize problem so RANDOMIZE TIMER does the trick. :) For some reason it needed to randomize the timer again probably since it also uses RND in other locations in your program. Oh, as I experimented with different things I also removed XMAX and YMAX and just used your values of it instead to make it easier on the program. That probably doesn't do anything though but I left it there.

Here is the code. It's where I added the '------------------- line, but you know where I'm talking about.

Code: QB64: [Select]
  2. _TITLE "b+ Asteroids m9 AS-Space-KL " 'started 2018-07-13"
  4.  
  5. '                                            New Controls
  6. ' key a = turn left
  7. ' key s = turn right
  8. '          spacebar =  "hyperspace" show up somewhere else  better or worse use when collision is imminent
  9. ' key k = thrust  just a burst in direction you are pointed but doesn't last
  10. ' key l = fire! owwha, owha, owha...
  11.  
  12. '=================================================================================================================
  13.  
  14. ' 2020-10-27 remove the alternate subs and get down below 200 LOC almost there now! new shooter action font and background
  15. ' 2020-10-28 another makeover explosions and split asteroids
  16. ' 2020-10-29 fix baby rock management, break between lives
  17. ' 2020-10-29 fix left/right gun, fix explosions over many frames to eliminate pause in action, speed up 60 fps
  18. ' 2020-10-30 m3 SierraKen's idea to angle shooter with mousewheel also finish WASD options, more rocks, points system
  19. ' points:
  20. ' The higher the speed the better    speed range .5 to 2.5, diff = 2 * 50 = 100          s - .5 * 50
  21. ' DELETE The lower the color the better   color range 10 to 60, diff =      50 * 2 = 100  50 - (c - 10) * 2
  22. ' The smaller the size the better  size range 10 to 100, diff = 90 * 1.1111 = 100  90 - (sz -10) * 1.1111
  23. '        ((speed - .5) * 50 + (90 - (r - 10)) * 1.1111) / 2 = 100 best score per hit
  24. ' 2020-10-30 increase level of difficulty, fix double lives lost, add an ending after all lives spent.
  25. ' 2020-10-31 M4 They are Here - the aliens have accepted my invitaion for war games don't get caught in their beam.
  26. ' rework ending and variable LONG suffix. Aliens on the attack 100 points before or after transformed into the Bolder of Death.
  27. ' 2020-11-01 M5 FX Moving through space, Oh yeah, more aliens!
  28. ' 2020-11-01 M6 add play again and save high game , continuous shoot
  29. ' 2020-11-01 M7 fix hits count when hit alien ship or Bolder of Death. Fix lights on aliens ship. I want to see collsions with ship.
  30. ' Ken recommends removing text in middle of screen, yeah, distracting. Makeover ship as with mouse x, y it's center. Add Splash screen.
  31. ' Show mouse in between lives so can be in screen center when press key to start next run.
  32.  
  33. ' 2020-11-03 watching videos on Asteroids, I found a view and description of the control panel, it is:
  34. ' 2 buttons on left and lower button in middle and 2 buttons on right level with 2 on left
  35. ' 2 buttons on left are left and right turns they will be Keys A and S
  36. ' the middle will be spacebar for Hypespace or these days we might call it worm hole, jump to another location better or worse!
  37. ' 2 buttons on right K and L: K will be a thruster of sorts you evetually come to a stop L is the fire button
  38. ' So let's try that. I am impressed by hitting thruster and shooting all around as you dift in direction gun was pionted when hit thruster.
  39. ' Lighten rocks change points without rock color
  40.  
  41. '================================================================================================================
  42.  
  43. '    NOTE: !!!!!!!!!!!!!!!   When there is a pause in action, just hit = enter,  as in enter a new life!
  44.  
  45. '================================================================================================================
  46.  
  47. CONST xmax = 1200, ymax = 700, pi = _PI, polyAngle = _PI / 6, nRocks = 300, nBullets = 2000, bSpeed = 15
  48.  
  49. TYPE alienType
  50.     x AS SINGLE
  51.     y AS SINGLE
  52.     dx AS SINGLE
  53.     dy AS SINGLE
  54.     ls AS LONG ' lights offset
  55.     c AS _UNSIGNED LONG ' color
  56.     live AS LONG
  57.     attackFrame AS LONG
  58.     fireX AS SINGLE
  59.     fireY AS SINGLE
  60.     transform AS LONG
  62.  
  63. TYPE particle
  64.     x AS SINGLE
  65.     y AS SINGLE
  66.     dx AS SINGLE
  67.     dy AS SINGLE
  68.     size AS SINGLE
  69.     kolor AS _UNSIGNED LONG
  71.  
  72. TYPE bullet
  73.     x AS SINGLE
  74.     y AS SINGLE
  75.     dx AS SINGLE
  76.     dy AS SINGLE
  77.     live AS LONG
  79.  
  80. TYPE shipType
  81.     x AS SINGLE
  82.     y AS SINGLE
  83.     live AS LONG
  84.     speed AS SINGLE
  85.     thrustAngle AS SINGLE
  86.     angle AS SINGLE '   rotated position usu gun left or right (mouse button), maybe up press w or down press z
  87.     thruster AS LONG ' 1 forward, 2 reverse, 3 left , 4 right 0 none for drawing
  89.  
  90. TYPE rock
  91.     x AS SINGLE
  92.     y AS SINGLE
  93.     r AS LONG '            radius
  94.     ra AS SINGLE '         rotation position   a = a + spin
  95.     heading AS SINGLE '    heading from which dx, dy are calc with speed
  96.     speed AS SINGLE '      speed
  97.     spin AS SINGLE '       rotation direction and amount
  98.     seed AS LONG '         for drawing rocks with RND USING
  99.     c AS LONG '            color   rgb(c, c, c)
  100.     live AS LONG '         need this to track rocks still active like bullets
  101.     explodeFrame AS LONG ' after a rock is hit by bullet, it explodes and in more than one frame
  103.  
  104. REDIM SHARED aliens(1 TO 5) AS alienType
  105. DIM SHARED dots(2000) AS particle
  106. DIM SHARED b(nBullets) AS bullet
  107. DIM SHARED ship AS shipType
  108. DIM SHARED r(nRocks) AS rock
  110. DIM SHARED points AS LONG
  111. DIM SHARED rocks AS LONG 'rocks is the minimum number of parent rocks to have on screen  automatic replace when hit or out of bounds
  112.  
  113. DIM HS AS LONG, fnt AS LONG, fnt2 AS LONG ' file LOAD handles
  114. DIM i AS LONG, bullets AS LONG, fire AS LONG ' index and bullets
  115. DIM r AS LONG, newRockN AS LONG, maxBabyRocks AS LONG, br AS LONG, hits AS LONG ' rock stuff
  116. DIM ai AS LONG, alienN AS LONG ' alien index and number
  117. DIM hs$, s$, k$, t, lastt 'high score, general string and times for bullets
  118.  
  119. SCREEN _NEWIMAGE(xmax, ymax, 32)
  120. _SCREENMOVE 100, 20
  122.  
  123. fnt = _LOADFONT("ARLRDBD.ttf", 16, "MONOSPACE")
  124. fnt2 = _LOADFONT("ARLRDBD.ttf", 40, "MONOSPACE")
  125. _FONT fnt2
  126. COLOR &HFF00FFFF, &H00000000
  127.  
  128. IF _FILEEXISTS("Asteroids High Score.txt") THEN
  129.     OPEN "Asteroids High Score.txt" FOR INPUT AS #1
  130.     INPUT #1, HS
  131.     CLOSE #1
  133. hs$ = "High Score:" + STR$(HS)
  134.  
  135. 'a little splash screen
  136. rocks = 7: alienN = 3
  137. FOR i = 1 TO nRocks
  138.     newRock i
  139.     IF i > rocks THEN r(i).live = 0
  141. FOR i = 1 TO alienN
  142.     newAlien i
  144. i = 0
  146.     drawStars 0
  147.     i = i + 1
  148.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  149.     FOR r = 1 TO nRocks
  150.         IF r(r).live THEN drawRock r
  151.     NEXT
  152.     FOR i = 1 TO alienN
  153.         drawAliens i
  154.     NEXT
  155.     _FONT fnt2
  156.     s$ = "Asteroids AS-Space-KL"
  157.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 60), s$
  158.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(hs$)) / 2, 140), hs$
  159.     s$ = "A = Left spin"
  160.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 220), s$
  161.     s$ = "S = Right Spin"
  162.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 300), s$
  163.     s$ = "Space = Hyper jump"
  164.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 380), s$
  165.     s$ = "K = Thrust"
  166.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 460), s$
  167.     s$ = "L = Fire!"
  168.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 540), s$
  169.     _FONT fnt
  171.     k$ = INKEY$
  172.  
  173.     _DISPLAY
  174.     _LIMIT 60
  176.  
  178. restart:
  179. IF _FILEEXISTS("Asteroids High Score.txt") THEN
  180.     OPEN "Asteroids High Score.txt" FOR INPUT AS #1
  181.     INPUT #1, HS
  182.     CLOSE #1
  184. hs$ = "  High Score:" + STR$(HS)
  185. lives = 10: alienN = 1: rocks = 1: ' always active rocks
  186. points = 0: hits = 0: bullets = 0
  187. WHILE lives > 0 AND _KEYDOWN(27) = 0 ' init start restart
  188.     REDIM aliens(1 TO alienN) AS alienType
  189.     FOR ai = 1 TO alienN
  190.         newAlien ai
  191.     NEXT
  192.     FOR i = 1 TO nRocks 'reset rocks mainly clear baby rocks
  193.         newRock (i)
  194.         IF i > rocks THEN r(i).live = 0
  195.     NEXT
  196.     ship.x = xmax / 2 'avoids explosions top left corner at start, dang still get some!
  197.     ship.y = ymax / 2
  198.     ship.angle = 0
  199.     ship.thrustAngle = 0
  200.     ship.speed = 0
  201.     ship.live = 1
  203.     WHILE ship.live AND _KEYDOWN(27) = 0
  204.  
  205.         'draw everything then process bullets
  206.         drawStars 1
  207.  
  208.         FOR ai = 1 TO alienN
  209.             drawAliens ai
  210.         NEXT
  211.         FOR i = 1 TO nRocks
  212.             IF r(i).live THEN drawRock i ' while drawing rocks the ship could be blown up
  213.             IF ((r(i).x - ship.x) ^ 2 + (r(i).y - ship.y) ^ 2) ^ .5 < r(i).r + 30 THEN 'rock collides with ship?
  214.                 FOR br = 1 TO 200 STEP 5
  215.                     CIRCLE ((ship.x + r(i).x) / 2, (ship.y + r(i).y) / 2), br, _RGB32(255 - br, 255 - 2 * br, 0)
  216.                 NEXT
  217.                 drawRock i
  218.                 drawship
  219.                 ship.live = 0
  220.                 IF i <= rocks THEN newRock i ELSE r(i).live = 0
  221.             END IF
  222.         NEXT
  223.         FOR i = 1 TO nRocks 'smoke up the place with rock debris fields still flying out from hit frames ago
  224.             IF r(i).explodeFrame THEN
  225.                 r(i).explodeFrame = r(i).explodeFrame + 1
  226.                 IF r(i).explodeFrame > .25 * r(i).r THEN
  227.                     r(i).explodeFrame = 0
  228.                     IF i <= rocks THEN newRock i ' now replace the rock
  229.                 ELSE
  230.                     explode r(i).x, r(i).y, r(i).r, r(i).explodeFrame
  231.                 END IF
  232.             END IF
  233.         NEXT
  234.         IF ship.live THEN
  235.             FOR ai = 1 TO alienN
  236.                 IF SQR((aliens(ai).x - ship.x) ^ 2 + (aliens(ai).y - ship.y) ^ 2) < 60 THEN 'aliens and ship collisde boom boom
  237.                     FOR br = 1 TO 200 STEP 5
  238.                         CIRCLE ((ship.x + aliens(ai).x) / 2, (ship.y + aliens(ai).y) / 2), br, _RGB32(255 - br, 255 - 2 * br, 0)
  239.                     NEXT
  240.                     drawship
  241.                     ship.live = 0
  242.                     _CONTINUE
  243.                 ELSE
  244.                     drawship
  245.                 END IF
  246.             NEXT
  247.  
  248.             ' ship update
  249.             ship.thruster = 0 ' reset
  250.  
  251.             k$ = INKEY$
  252.             IF _KEYDOWN(ASC("a")) THEN ship.angle = ship.angle - pi / 90: ship.thruster = 4
  253.             IF _KEYDOWN(ASC("s")) THEN ship.angle = ship.angle + pi / 90: ship.thruster = 3
  254.             IF k$ = "k" THEN ship.speed = ship.speed + 3: ship.thrustAngle = ship.angle: ship.thruster = 1
  255.             IF k$ = "l" THEN 'l =fire
  256.                 fire = 0
  257.                 t = TIMER(.01)
  258.                 IF lastt = 0 OR t - lastt > .1 THEN fire = 1: lastt = t
  259.             END IF
  260.             IF _KEYHIT = 32 THEN 'hyperspace
  261.                 RANDOMIZE TIMER
  262.                 ship.x = (1000 * RND) + 100: ship.y = (500 * RND) + 100: ship.speed = 0
  263.             END IF
  264.  
  265.             '-----------------------------------------------
  266.             'locate ship
  267.             ship.x = ship.x + ship.speed * COS(ship.thrustAngle)
  268.             ship.y = ship.y + ship.speed * SIN(ship.thrustAngle)
  269.             ship.speed = ship.speed - .02
  270.             IF ship.speed < 0 THEN ship.speed = 0
  271.             IF ship.x < 0 THEN ship.x = xmax - ABS(ship.x)
  272.             IF ship.x > xmax THEN ship.x = ship.x - xmax
  273.             IF ship.y < 0 THEN ship.y = ymax - ABS(ship.y)
  274.             IF ship.y > ymax THEN ship.y = ship.y - ymax
  275.  
  276.  
  277.             FOR i = 0 TO nBullets 'handle bullets
  278.                 IF b(i).live = 0 AND fire = 1 THEN 'have inactive bullet to use
  279.                     b(i).x = ship.x + bSpeed * COS(ship.angle)
  280.                     b(i).y = ship.y + bSpeed * SIN(ship.angle)
  281.                     b(i).dx = bSpeed * COS(ship.angle)
  282.                     b(i).dy = bSpeed * SIN(ship.angle)
  283.                     b(i).live = -1
  284.                     bullets = bullets + 1
  285.                     fire = 0
  286.                 END IF
  287.                 IF b(i).live THEN 'new location
  288.                     b(i).x = b(i).x + b(i).dx
  289.                     b(i).y = b(i).y + b(i).dy
  290.                     IF b(i).x > 0 AND b(i).x < xmax AND b(i).y > 0 AND b(i).y < ymax THEN 'in bounds draw it
  291.  
  292.                         'bullet hit aliens?
  293.                         FOR ai = 1 TO alienN
  294.                             IF SQR((aliens(ai).x - b(i).x) ^ 2 + (aliens(ai).y - b(i).y) ^ 2) < 30 THEN
  295.                                 FOR br = 1 TO 120
  296.                                     CIRCLE (aliens(ai).x, aliens(ai).y), br / 3, plasma~&(0)
  297.                                 NEXT
  298.                                 _DISPLAY
  299.                                 _DELAY .05
  300.                                 hits = hits + 1
  301.                                 points = points + 100
  302.                                 aliens(ai).live = 0
  303.                                 newAlien ai
  304.                                 b(i).live = 0
  305.                                 _CONTINUE
  306.                             END IF
  307.                         NEXT
  308.                         FOR r = 1 TO nRocks 'check for collision with rock
  309.                             IF r(r).live THEN
  310.                                 IF SQR((r(r).x - b(i).x) ^ 2 + (r(r).y - b(i).y) ^ 2) < r(r).r THEN 'its a hit!
  311.                                     r(r).explodeFrame = 1 'linger with explosion
  312.                                     r(r).live = 0
  313.                                     hits = hits + 1
  314.                                     points = points + ((r(r).speed - .5) * 50 + (90 - (r(r).r - 10)) * 1.1111) / 2
  315.                                     IF r(r).r > 30 THEN '       split rock  into ? new ones
  316.                                         maxBabyRocks = INT((r(r).r - 10) / 10)
  317.                                         maxBabyRocks = irnd&(2, maxBabyRocks) ' pick a number of baby Rocks
  318.                                         FOR br = 1 TO maxBabyRocks
  319.                                             '                        new rock
  320.                                             newRockN = freeRock& '                          get inactive rock number
  321.                                             newRock newRockN '                              new identity and activate
  322.                                             r(newRockN).r = (r(r).r - 10) / maxBabyRocks '  split in equal parts minus 20% mass
  323.                                             r(newRockN).x = r(r).x + irnd&(-30, 30) '       thrown from parent
  324.                                             r(newRockN).y = r(r).y + irnd&(-30, 30)
  325.                                             r(newRockN).c = r(r).c '                   same color as parent
  326.                                             r(newRockN).heading = rrnd(ship.angle - .75 * pi, ship.angle + .75 * pi)
  327.                                         NEXT
  328.                                     END IF ' big enough to split
  329.                                     b(i).live = 0 'kill bullet
  330.                                 END IF ' hit rock
  331.                             END IF 'rock is there
  332.                         NEXT ' rock
  333.                         IF b(i).live THEN fcirc b(i).x, b(i).y, 3, _RGB32(255, 255, 0) 'draws bullet
  334.                     ELSE
  335.                         b(i).live = 0 'out of bounds
  336.                     END IF ' bullet is in bounds
  337.                 END IF ' bullet live
  338.             NEXT ' bullet
  339.         END IF ' if ship still live
  340.         _DISPLAY
  341.         IF ship.live = 0 THEN
  342.             lives = lives - 1
  343.             IF lives MOD 4 = 0 THEN rocks = rocks + 1
  344.             IF lives MOD 4 = 2 THEN alienN = alienN + 1
  345.             s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  346.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 80), s$
  347.             _FONT fnt2
  348.             s$ = STR$(points) + hs$
  349.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  350.             _FONT fnt
  351.             s$ = "Press Enter to enter your next life"
  352.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 120), s$
  353.             _DISPLAY
  354.             _MOUSESHOW
  355.             WHILE _KEYDOWN(13) = 0: WEND 'wait for enter key
  356.         ELSE
  357.             _LIMIT 30 ' if ship dies let's rest and regroup  before restart next life
  358.         END IF
  359.     WEND
  360.     _DISPLAY
  362. IF points > HS THEN
  363.     OPEN "Asteroids High Score.txt" FOR OUTPUT AS #1
  364.     PRINT #1, points
  365.     CLOSE #1
  367. ship.x = -200: ship.y = -200 'get it out of the way
  368. i = 0
  370.     drawStars 0
  371.     i = i + 1
  372.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  373.     FOR r = 1 TO nRocks
  374.         IF r(r).live THEN drawRock r
  375.     NEXT
  376.     s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  377.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 80), s$
  378.     _FONT fnt2
  379.     s$ = STR$(points)
  380.     IF points > HS THEN s$ = s$ + " a New Record!" ELSE s$ = STR$(points) + hs$
  381.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  382.     _FONT fnt
  383.     s$ = "Press q to quit, p or a to Play Again..."
  384.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 120), s$
  385.     IF _KEYDOWN(ASC("a")) OR _KEYDOWN(ASC("p")) THEN GOTO restart
  386.     _DISPLAY
  387.     _LIMIT 60
  390.  
  391. SUB drawStars (moving)
  392.     TYPE starType
  393.         x AS SINGLE
  394.         y AS SINGLE
  395.         size AS SINGLE
  396.         c AS INTEGER
  397.     END TYPE
  398.     STATIC beenHere, stars(600) AS starType, cy AS LONG
  399.     DIM i AS LONG
  400.     IF beenHere = 0 THEN 'static part
  401.         FOR i = 0 TO 200
  402.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = 0
  403.             stars(i).c = irnd&(80, 140)
  404.         NEXT
  405.         FOR i = 0 TO 200
  406.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = .3
  407.             stars(i).c = irnd&(80, 140)
  408.         NEXT
  409.  
  410.         FOR i = 1 TO 140
  411.             stars(i + 400).x = RND * xmax: stars(i + 400).y = RND * ymax: stars(i + 100).size = .6
  412.             stars(i).c = irnd&(110, 170)
  413.         NEXT
  414.         FOR i = 1 TO 50
  415.             stars(i + 540).x = RND * xmax: stars(i + 540).y = RND * ymax: stars(i + 170).size = 1.2
  416.             stars(i).c = irnd&(140, 200)
  417.         NEXT
  418.         FOR i = 1 TO 10
  419.             stars(i + 590).x = RND * xmax: stars(i + 590).y = RND * ymax: stars(i + 195).size = 2.4
  420.             stars(i).c = irnd&(170, 235)
  421.         NEXT
  422.         cy = ymax / 2
  423.         beenHere = 1
  424.     END IF
  425.     FOR i = 0 TO cy
  426.         LINE (0, i)-(xmax, i), _RGB32(0, 0, .1 * i + 4)
  427.         LINE (0, ymax - i)-(xmax, ymax - i), _RGB(0, 0, .1 * i + 4)
  428.     NEXT
  429.     FOR i = 0 TO 200
  430.         IF moving THEN
  431.             stars(i).x = stars(i).x + .2 * stars(i).size ^ stars(i).size
  432.             IF stars(i).x > xmax THEN stars(i).x = -1 * RND * 20
  433.         END IF
  434.         fcirc stars(i).x, stars(i).y, stars(i).size, _RGB32(stars(i).c - 10, stars(i).c, stars(i).c + 10)
  435.     NEXT
  437.  
  438. SUB newAlien (i AS LONG)
  439.     DIM side AS LONG, heading
  440.     RANDOMIZE TIMER * RND 'to avoid making twins
  441.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  442.     aliens(i).fireX = irnd(10, xmax - 10)
  443.     aliens(i).fireY = irnd(10, ymax - 10)
  444.     aliens(i).attackFrame = irnd(30, 400) ' EDIT a tweak to survive a little long before getting murdered with low lives over and over...
  445.     SELECT CASE side
  446.         CASE 1
  447.             aliens(i).x = -10
  448.             aliens(i).y = rrnd(20, ymax - 20)
  449.         CASE 2
  450.             aliens(i).x = xmax + 10
  451.             aliens(i).y = rrnd(20, ymax - 20)
  452.         CASE 3
  453.             aliens(i).x = rrnd(20, xmax - 20)
  454.             aliens(i).y = -10
  455.         CASE 4
  456.             aliens(i).x = rrnd(20, xmax - 20)
  457.             aliens(i).y = ymax + 10
  458.     END SELECT
  459.     heading = _ATAN2(aliens(i).fireY - aliens(i).y, aliens(i).fireX - aliens(i).x)
  460.     aliens(i).dx = .5 * COS(heading)
  461.     aliens(i).dy = .5 * SIN(heading)
  462.     aliens(i).live = 0
  463.     aliens(i).transform = 0
  464.     aliens(i).c = _RGB32(irnd(128, 255), irnd(0, 255), irnd(0, 255))
  466.  
  467. FUNCTION plasma~& (new AS LONG)
  468.     STATIC r, g, b, cnt, beenHere
  469.     IF beenHere = 0 OR new THEN
  470.         r = RND: g = RND: b = RND: beenHere = 1: cnt = 0
  471.     END IF
  472.     cnt = cnt + .2
  473.     plasma~& = _RGB32(127 + 127 * SIN(r * cnt), 127 + 127 * SIN(g * cnt), 127 + 127 * SIN(b * cnt))
  475.  
  476. SUB drawAliens (i AS LONG) 'shipType
  477.     DIM light AS LONG, heading, r AS LONG, g AS LONG, b AS LONG
  478.     IF aliens(i).live THEN
  479.         IF aliens(i).transform = 0 THEN
  480.             r = _RED32(aliens(i).c): g = _GREEN32(aliens(i).c): b = _BLUE32(aliens(i).c)
  481.             fellipse aliens(i).x, aliens(i).y, 6, 15, _RGB32(r, g - 120, b - 100)
  482.             fellipse aliens(i).x, aliens(i).y, 18, 11, _RGB32(r, g - 60, b - 50)
  483.             fellipse aliens(i).x, aliens(i).y, 30, 7, _RGB32(r, g, b)
  484.             FOR light = 0 TO 5
  485.                 fcirc aliens(i).x - 30 + 11 * light + aliens(i).ls, aliens(i).y, 1, _RGB32(aliens(i).ls * 50, aliens(i).ls * 50, aliens(i).ls * 50)
  486.             NEXT
  487.             aliens(i).ls = aliens(i).ls + 1
  488.             IF aliens(i).ls > 5 THEN aliens(i).ls = 0
  489.         ELSE
  490.             drawBall aliens(i).x, aliens(i).y, 30, aliens(i).c
  491.         END IF
  492.         'time to shoot?
  493.         aliens(i).x = aliens(i).x + aliens(i).dx
  494.         aliens(i).y = aliens(i).y + aliens(i).dy
  495.         IF SQR((aliens(i).fireX - aliens(i).x) ^ 2 + (aliens(i).fireY - aliens(i).y) ^ 2) < 5 THEN 'transform into the bolder of death
  496.             aliens(i).transform = 1
  497.             heading = _ATAN2(ship.y - aliens(i).y, ship.x - aliens(i).x)
  498.             aliens(i).dx = 2.5 * COS(heading)
  499.             aliens(i).dy = 2.5 * SIN(heading)
  500.         END IF
  501.         IF aliens(i).x < -10 OR aliens(i).x > xmax + 10 THEN
  502.             IF aliens(i).y < -10 OR aliens(i).y > ymax + 10 THEN '  out of bounds goodbye bolder of death!
  503.                 aliens(i).live = 0 'man we dodged a bullet here!!!!
  504.                 newAlien i 'reset the trap
  505.             END IF
  506.         END IF
  507.     ELSE
  508.         IF aliens(i).attackFrame THEN
  509.             aliens(i).attackFrame = aliens(i).attackFrame - 1
  510.             IF aliens(i).attackFrame = 0 THEN
  511.                 aliens(i).live = 1
  512.             END IF
  513.         END IF
  514.     END IF
  516.  
  517. FUNCTION freeRock&
  518.     DIM i AS LONG
  519.     FOR i = rocks + 1 TO nRocks ' look for inactive rock number
  520.         IF r(i).live = 0 AND r(i).explodeFrame = 0 THEN freeRock& = i: EXIT FUNCTION
  521.     NEXT
  523.  
  524. SUB explode (x AS LONG, y AS LONG, r AS LONG, frm AS LONG)
  525.     DIM maxParticles AS LONG, i AS LONG, rounds AS LONG, loopCount AS LONG
  526.     maxParticles = r * 4
  527.     FOR i = 1 TO r
  528.         NewDot i, x, y, r
  529.     NEXT
  530.     rounds = r
  531.     FOR loopCount = 0 TO frm
  532.         IF _KEYDOWN(27) THEN END
  533.         FOR i = 1 TO rounds
  534.             dots(i).x = dots(i).x + dots(i).dx
  535.             dots(i).y = dots(i).y + dots(i).dy
  536.             fcirc dots(i).x, dots(i).y, dots(i).size, dots(i).kolor
  537.         NEXT
  538.         IF rounds < maxParticles THEN
  539.             FOR i = 1 TO r
  540.                 NewDot (rounds + i), x, y, r
  541.             NEXT
  542.             rounds = rounds + r
  543.         END IF
  544.     NEXT
  546.  
  547. SUB NewDot (i AS LONG, x AS LONG, y AS LONG, r AS LONG)
  548.     DIM angle, rd
  549.     angle = pi * 2 * RND
  550.     rd = RND * 30
  551.     dots(i).x = x + rd * COS(angle)
  552.     dots(i).y = y + rd * SIN(angle)
  553.     dots(i).size = RND * r * .05
  554.     rd = RND 'STxAxTIC recommended for rounder spreads
  555.     dots(i).dx = rd * 10 * (10 - 2 * dots(i).size) * COS(angle)
  556.     dots(i).dy = rd * 10 * (10 - 2 * dots(i).size) * SIN(angle)
  557.     rd = 20 + RND * 70
  558.     dots(i).kolor = _RGBA32(rd, rd, rd, 80)
  560.  
  561. SUB drawship 'simple red iso triangle pointed towards radianAngle
  562.     DIM x1 AS LONG, y1 AS LONG, x2 AS LONG, y2 AS LONG, x3 AS LONG, y3 AS LONG
  563.     DIM x4 AS LONG, y4 AS LONG, x5 AS LONG, y5 AS LONG, x6 AS LONG, y6 AS LONG
  564.     DIM x7 AS LONG, y7 AS LONG
  565.  
  566.  
  567.     'calculate 3 points of triangle ship
  568.     fcirc ship.x, ship.y, 30, &H05FFFFFF
  569.     x1 = ship.x + 30 * COS(ship.angle) ' front point
  570.     y1 = ship.y + 30 * SIN(ship.angle) '
  571.     x2 = ship.x + 30 * COS(ship.angle + .6666 * pi) ' wing
  572.     y2 = ship.y + 30 * SIN(ship.angle + .6666 * pi)
  573.     x3 = ship.x + 30 * COS(ship.angle - .6666 * pi) ' other wing
  574.     y3 = ship.y + 30 * SIN(ship.angle - .6666 * pi)
  575.     ftri ship.x, ship.y, x1, y1, x2, y2, _RGB32(80, 120, 80, 80)
  576.     ftri ship.x, ship.y, x1, y1, x3, y3, _RGB32(60, 100, 60, 80)
  577.     LINE (x1, y1)-(ship.x, ship.y), _RGB32(255, 255, 128)
  578.     LINE (x1, y1)-(x2, y2), _RGB32(180, 180, 120)
  579.     LINE (x1, y1)-(x3, y3), _RGB32(180, 180, 120)
  580.  
  581.     SELECT CASE ship.thruster
  582.         CASE 1 'forward apex = ship.x, ship,y  direction = ship.angle + pi
  583.             x4 = ship.x + 25 * COS(ship.angle - 17 / 18 * pi)
  584.             y4 = ship.y + 25 * SIN(ship.angle - 17 / 18 * pi)
  585.             x5 = ship.x + 25 * COS(ship.angle - 19 / 18 * pi)
  586.             y5 = ship.y + 25 * SIN(ship.angle - 19 / 18 * pi)
  587.             ftri ship.x, ship.y, x4, y4, x5, y5, &H99FFFF88
  588.         CASE 2 'reverse apex = x1, y1
  589.             x6 = x2 + 25 * COS(ship.angle + 1 / 18 * pi)
  590.             y6 = y2 + 25 * SIN(ship.angle + 1 / 18 * pi)
  591.             x7 = x2 + 25 * COS(ship.angle - 1 / 18 * pi)
  592.             y7 = y2 + 25 * SIN(ship.angle - 1 / 18 * pi)
  593.             ftri x2, y2, x6, y6, x7, y7, &H99FFFF88
  594.  
  595.             x6 = x3 + 25 * COS(ship.angle + 1 / 18 * pi)
  596.             y6 = y3 + 25 * SIN(ship.angle + 1 / 18 * pi)
  597.             x7 = x3 + 25 * COS(ship.angle - 1 / 18 * pi)
  598.             y7 = y3 + 25 * SIN(ship.angle - 1 / 18 * pi)
  599.             ftri x3, y3, x6, y6, x7, y7, &H99FFFF88
  600.         CASE 3 'left apex = x2, y2
  601.             x6 = x3 + 25 * COS(ship.angle - 17 / 18 * pi)
  602.             y6 = y3 + 25 * SIN(ship.angle - 17 / 18 * pi)
  603.             x7 = x3 + 25 * COS(ship.angle - 19 / 18 * pi)
  604.             y7 = y3 + 25 * SIN(ship.angle - 19 / 18 * pi)
  605.             ftri x3, y3, x6, y6, x7, y7, &H99FFFF88
  606.  
  607.             'x6 = x2 + 25 * COS(ship.angle + 1 / 18 * pi)
  608.             'y6 = y2 + 25 * SIN(ship.angle + 1 / 18 * pi)
  609.             'x7 = x2 + 25 * COS(ship.angle - 1 / 18 * pi)
  610.             'y7 = y2 + 25 * SIN(ship.angle - 1 / 18 * pi)
  611.             'ftri x2, y2, x6, y6, x7, y7, &H99FFFF88
  612.         CASE 4 'right
  613.             x6 = x2 + 25 * COS(ship.angle - 17 / 18 * pi)
  614.             y6 = y2 + 25 * SIN(ship.angle - 17 / 18 * pi)
  615.             x7 = x2 + 25 * COS(ship.angle - 19 / 18 * pi)
  616.             y7 = y2 + 25 * SIN(ship.angle - 19 / 18 * pi)
  617.             ftri x2, y2, x6, y6, x7, y7, &H99FFFF88
  618.  
  619.             'x6 = x3 + 25 * COS(ship.angle + 1 / 18 * pi)
  620.             'y6 = y3 + 25 * SIN(ship.angle + 1 / 18 * pi)
  621.             'x7 = x3 + 25 * COS(ship.angle - 1 / 18 * pi)
  622.             'y7 = y3 + 25 * SIN(ship.angle - 1 / 18 * pi)
  623.             'ftri x3, y3, x6, y6, x7, y7, &H99FFFF88
  624.     END SELECT
  626.  
  627. SUB drawRock (iRock)
  628.     RANDOMIZE USING r(iRock).seed 'this prevents having to save a particular sequence of random number
  629.     DIM dx, dy, j AS LONG, rRad AS SINGLE, leg AS SINGLE, x0 AS LONG, y0 AS LONG, rc AS LONG, c~&, x1 AS LONG, y1 AS LONG, xoff, yoff, i AS LONG
  630.     DIM x2 AS LONG, y2 AS LONG
  631.     dx = r(iRock).speed * COS(r(iRock).heading)
  632.     dy = r(iRock).speed * SIN(r(iRock).heading) 'update location
  633.     r(iRock).ra = r(iRock).ra + r(iRock).spin
  634.     IF r(iRock).x + dx + r(iRock).r < 0 OR r(iRock).x + dx - r(iRock).r > xmax OR r(iRock).y + dy + r(iRock).r < 0 OR r(iRock).y + dy - r(iRock).r > ymax THEN
  635.         IF iRock <= rocks THEN newRock iRock ELSE r(iRock).live = 0
  636.         EXIT SUB ' reassigned get out of here
  637.     ELSE
  638.         r(iRock).x = r(iRock).x + dx
  639.         r(iRock).y = r(iRock).y + dy
  640.     END IF
  641.     FOR j = 10 TO 3 STEP -1 '                  rock drawing (see demo program where developed code)
  642.         rRad = .1 * j * r(iRock).r
  643.         leg = rRad * (RND * .7 + .3)
  644.         x0 = r(iRock).x + leg * COS(r(iRock).ra)
  645.         y0 = r(iRock).y + leg * SIN(r(iRock).ra)
  646.         rc = r(iRock).c + 30 * RND - 15
  647.         c~& = _RGB32(rc + 5, rc - 10, rc + 5)
  648.         x1 = x0
  649.         y1 = y0
  650.         xoff = RND * 20 - 10 + r(iRock).x
  651.         yoff = RND * 20 - 10 + r(iRock).y
  652.         FOR i = 1 TO 12
  653.             leg = rRad * (RND * .35 + .65)
  654.             IF i = 12 THEN
  655.                 x2 = x0: y2 = y0
  656.             ELSE
  657.                 x2 = xoff + leg * COS(i * polyAngle + r(iRock).ra)
  658.                 y2 = yoff + leg * SIN(i * polyAngle + r(iRock).ra)
  659.             END IF
  660.             ftri r(iRock).x, r(iRock).y, x1, y1, x2, y2, c~&
  661.             x1 = x2: y1 = y2
  662.         NEXT
  663.     NEXT
  665.  
  666. SUB newRock (iRock)
  667.     DIM side AS LONG
  668.     RANDOMIZE TIMER * RND 'to avoid making twins
  669.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  670.     SELECT CASE side
  671.         CASE 1
  672.             r(iRock).x = -100
  673.             r(iRock).y = rrnd(20, ymax - 20)
  674.             r(iRock).heading = 3 * pi / 2 + RND * pi
  675.         CASE 2
  676.             r(iRock).x = xmax + 100
  677.             r(iRock).y = rrnd(20, ymax - 20)
  678.             r(iRock).heading = pi / 2 + RND * pi
  679.         CASE 3
  680.             r(iRock).x = rrnd(20, xmax - 20)
  681.             r(iRock).y = -100
  682.             r(iRock).heading = RND * pi
  683.         CASE 4
  684.             r(iRock).x = rrnd(20, xmax - 20)
  685.             r(iRock).y = ymax + 100
  686.             r(iRock).heading = pi + RND * pi
  687.     END SELECT
  688.     r(iRock).speed = rrnd(.5, 2.5) 'speed, rotation angle, radius, gray coloring, spin, seed, hit for explosion
  689.     r(iRock).ra = RND * 2 * pi
  690.     r(iRock).r = irnd&(30, 100)
  691.     r(iRock).c = irnd&(60, 110) ' Ken request increase in rock color
  692.     r(iRock).spin = rrnd(-pi / 20, pi / 20)
  693.     r(iRock).seed = INT(RND * 64000) - 32000
  694.     r(iRock).explodeFrame = 0
  695.     r(iRock).live = 1
  697.  
  698. FUNCTION irnd& (n1, n2) 'return an integer between 2 numbers
  699.     DIM l%, h%
  700.     IF n1 > n2 THEN l% = n2: h% = n1 ELSE l% = n1: h% = n2
  701.     irnd& = INT(RND * (h% - l% + 1)) + l%
  703.  
  704. FUNCTION rrnd (n1, n2) ' return number (expecting reals =_single, double, _float depending on default / define setup)
  705.     rrnd = (n2 - n1) * RND + n1
  707.  
  708. SUB drawBall (x, y, r, c AS _UNSIGNED LONG)
  709.     DIM red AS LONG, grn AS LONG, blu AS LONG, rr AS LONG, f
  710.     red = _RED32(c): grn = _GREEN32(c): blu = _BLUE32(c)
  711.     FOR rr = r TO 0 STEP -1
  712.         f = 1 - rr / r
  713.         fcirc x, y, rr, _RGB32(red * f, grn * f, blu * f)
  714.     NEXT
  716.  
  717. SUB fellipse (CX AS LONG, CY AS LONG, xr AS LONG, yr AS LONG, C AS _UNSIGNED LONG)
  718.     IF xr = 0 OR yr = 0 THEN EXIT SUB
  720.     DIM x AS LONG, y AS LONG
  721.     w2 = xr * xr: h2 = yr * yr: h2w2 = h2 * w2
  722.     LINE (CX - xr, CY)-(CX + xr, CY), C, BF
  723.     DO WHILE y < yr
  724.         y = y + 1
  725.         x = SQR((h2w2 - y * y * w2) \ h2)
  726.         LINE (CX - x, CY + y)-(CX + x, CY + y), C, BF
  727.         LINE (CX - x, CY - y)-(CX + x, CY - y), C, BF
  728.     LOOP
  730.  
  731. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  732.     DIM D AS LONG
  733.     STATIC a&
  734.     D = _DEST
  735.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  736.     _DEST a&
  737.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
  738.     PSET (0, 0), K
  739.     _BLEND a& '<<<< new 2019-12-16 fix
  740.     _DEST D
  741.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  743.  
  744. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG) 'vince version
  745.     DIM x0 AS LONG, y0 AS LONG, e AS LONG
  746.     x0 = R: y0 = 0: e = 0
  747.     DO WHILE y0 < x0
  748.         IF e <= 0 THEN
  749.             y0 = y0 + 1
  750.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  751.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  752.             e = e + 2 * y0
  753.         ELSE
  754.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  755.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  756.             x0 = x0 - 1: e = e - 2 * x0
  757.         END IF
  758.     LOOP
  759.     LINE (x - R, y)-(x + R, y), C, BF
  761.  
Title: Re: b+ Asteroids makeover
Post by: bplus on November 04, 2020, 03:31:12 pm
Quote
Here you go B+. :) You will hate me when I tell you how I fixed it. It's something you guys have told me not to use more than once in an entire program but it works. I added RANDOMIZE TIMER right before the RND lines. I also changed the INKEY$ to KEYHIT since it seemed to work better, but you can try INKEY$ again if you want. What I found out was that it was actually working every time with KEYHIT (and possibly INKEY$) but it was just going to the same location you started at. For example, if I moved and used it, it went back to where it was before, almost every time. So that meant it was a randomize problem so RANDOMIZE TIMER does the trick. :) For some reason it needed to randomize the timer again probably since it also uses RND in other locations in your program. Oh, as I experimented with different things I also removed XMAX and YMAX and just used your values of it instead to make it easier on the program. That probably doesn't do anything though but I left it there.

@SierraKen

Brilliant! Thankyou, thankyou, thankyou!

I know exactly why you have to RANDOMIZE TIMER because I use RANDOMIZE USING with a seed number to redraw rocks over and over. It is a clever way to save a bunch of random data without saving it, just use same seed number in the same sequence of code. I got caught by that once before.

Yep, so there is at least one occasion when RANDOMIZE TIMER before using RND makes sense.

So you have saved me allot grief today when I install the rest of the controls, one shining gold star for you!
Title: Re: b+ Asteroids makeover
Post by: johnno56 on November 04, 2020, 04:34:15 pm
Suggestion: If the overall "field of view" were larger than the screen image then a 'mini-map' could be added. Resolution of the mini-map could be linked to player health. eg: Full health will show all large and small rocks and ufo's. Poor health only large objects.

Just a thought...

J
Title: Re: b+ Asteroids makeover
Post by: bplus on November 04, 2020, 05:07:06 pm
Thanks @johnno56

I will put your idea on back burner while I try to get Asteroids playing the way I think it should. It may be a proper pilot that we might be waiting for. :)
Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 04, 2020, 06:14:27 pm
You're welcome B+, glad I could help. :)
Title: Re: b+ Asteroids makeover
Post by: bplus on November 04, 2020, 11:05:35 pm
OK here is M9 with the new Thrust control and engine installed, this is working nice! Hyperspace jump handy and you can thrust through one border and come out the other side. Just shoot like a maniac!

Code: QB64: [Select]
  2. _TITLE "b+ Asteroids m9 AS-Space-KL " 'started 2018-07-13
  3. '2020 - Oct and Nov: Special thanks to SierraKen who has been helpful with suggestions, ideas and fixes.
  5.  
  6. ' Far far away in a universe where Newton's 1st Law of Motion is not obeyed...    ;-))
  7.  
  8.  
  9. '                                            New Controls
  10. ' key a = turn left
  11. ' key s = turn right
  12. '          spacebar =  "hyperspace" show up somewhere else  better or worse use when collision is imminent
  13. ' key k = thrust  just a burst in direction you are pointed but doesn't last
  14. ' key l = fire! owwha, owha, owha...
  15.  
  16. '=================================================================================================================
  17.  
  18. ' 2020-10-27 remove the alternate subs and get down below 200 LOC almost there now! new shooter action font and background
  19. ' 2020-10-28 another makeover explosions and split asteroids
  20. ' 2020-10-29 fix baby rock management, break between lives
  21. ' 2020-10-29 fix left/right gun, fix explosions over many frames to eliminate pause in action, speed up 60 fps
  22. ' 2020-10-30 m3 SierraKen's idea to angle shooter with mousewheel also finish WASD options, more rocks, points system
  23. ' points:
  24. ' The higher the speed the better    speed range .5 to 2.5, diff = 2 * 50 = 100          s - .5 * 50
  25. ' DELETE The lower the color the better   color range 10 to 60, diff =      50 * 2 = 100  50 - (c - 10) * 2
  26. ' The smaller the size the better  size range 10 to 100, diff = 90 * 1.1111 = 100  90 - (sz -10) * 1.1111
  27. '        ((speed - .5) * 50 + (90 - (r - 10)) * 1.1111) / 2 = 100 best score per hit
  28. ' 2020-10-30 increase level of difficulty, fix double lives lost, add an ending after all lives spent.
  29. ' 2020-10-31 M4 They are Here - the aliens have accepted my invitaion for war games don't get caught in their beam.
  30. ' rework ending and variable LONG suffix. Aliens on the attack 100 points before or after transformed into the Bolder of Death.
  31. ' 2020-11-01 M5 FX Moving through space, Oh yeah, more aliens!
  32. ' 2020-11-01 M6 add play again and save high game , continuous shoot
  33. ' 2020-11-01 M7 fix hits count when hit alien ship or Bolder of Death. Fix lights on aliens ship. I want to see collsions with ship.
  34. ' Ken recommends removing text in middle of screen, yeah, distracting. Makeover ship as with mouse x, y it's center. Add Splash screen.
  35. ' Show mouse in between lives so can be in screen center when press key to start next run.
  36.  
  37. ' 2020-11-03 M9 watching videos on Asteroids, I found a view and description of the control panel, it is:
  38. ' 2 buttons on left and lower button in middle and 2 buttons on right level with 2 on left.
  39. ' 2 buttons on left are left and right turns they will be Keys A and S
  40. ' The middle will be spacebar for Hypespace or these days we might call it worm hole, jump to another location better or worse!
  41. ' 2 buttons on right K and L: K will be a thruster of sorts you eventually come to a stop (not what Newton would like) L is the fire button.
  42. ' So let's try that. I am impressed by hitting thruster and shooting all around as you dift in direction gun was pointed when hit thruster.
  43. ' Lighten rocks and change points, based now only on size and speed of Asteroids.
  44. ' 2020-11-04 M9 Install new update to thrust control. Thanks to SierraKen for finding out what happened to Hyperspace jump when press
  45. ' spacebar a 2nd time in a life. Oh also Boulders of Death are now more like smooth colored spheres. Ahhhh Fixed the crashing at the borders
  46. ' now fly out one side and come back in on the other! This is getting good! Adding some sound effects.
  47.  
  48. '================================================================================================================
  49.  
  50. '    NOTE: !!!!!!!!!!!!!!!   When there is a pause in action, just press enter,  as in enter a new life!
  51.  
  52. '================================================================================================================
  53.  
  54. CONST xmax = 1200, ymax = 700, pi = _PI, polyAngle = _PI / 6, nRocks = 300, nBullets = 2000, bSpeed = 15
  55.  
  56. TYPE alienType
  57.     x AS SINGLE
  58.     y AS SINGLE
  59.     dx AS SINGLE
  60.     dy AS SINGLE
  61.     ls AS LONG ' lights offset and gray scale
  62.     c AS _UNSIGNED LONG ' color
  63.     live AS LONG
  64.     attackFrame AS LONG
  65.     fireX AS SINGLE
  66.     fireY AS SINGLE
  67.     transform AS LONG
  69.  
  70. TYPE particle
  71.     x AS SINGLE
  72.     y AS SINGLE
  73.     dx AS SINGLE
  74.     dy AS SINGLE
  75.     size AS SINGLE
  76.     kolor AS _UNSIGNED LONG
  78.  
  79. TYPE bullet
  80.     x AS SINGLE
  81.     y AS SINGLE
  82.     dx AS SINGLE
  83.     dy AS SINGLE
  84.     live AS LONG
  86.  
  87. TYPE shipType
  88.     x AS SINGLE
  89.     y AS SINGLE
  90.     live AS LONG
  91.     speed AS SINGLE '       just a constant now when Thrust is applied
  92.     thrustAngle AS SINGLE ' ship/gun angle at moment Thrust is pressed
  93.     angle AS SINGLE '       rotated position ship/gun now A or S keypress or hold down
  94.     thrust AS LONG '        this now tracks how many frames ship will move at speed and thrustAngle
  96.  
  97. TYPE rock
  98.     x AS SINGLE
  99.     y AS SINGLE
  100.     r AS LONG '            radius
  101.     ra AS SINGLE '         rotation position   a = a + spin
  102.     heading AS SINGLE '    heading from which dx, dy are calc with speed
  103.     speed AS SINGLE '      speed
  104.     spin AS SINGLE '       rotation direction and amount
  105.     seed AS LONG '         for drawing rocks with RND USING
  106.     c AS LONG '            color   rgb(c, c, c)
  107.     live AS LONG '         need this to track rocks still active like bullets
  108.     explodeFrame AS LONG ' after a rock is hit by bullet, it explodes and in more than one frame
  110.  
  111. REDIM SHARED aliens(1 TO 5) AS alienType
  112. DIM SHARED dots(2000) AS particle ' explosions
  113. DIM SHARED b(nBullets) AS bullet
  114. DIM SHARED ship AS shipType
  115. DIM SHARED r(nRocks) AS rock
  117. DIM SHARED points AS LONG
  118. DIM SHARED rocks AS LONG 'rocks is the minimum number of parent rocks to have on screen  automatic replace when hit or out of bounds
  119.  
  120. DIM HS AS LONG, fnt AS LONG, fnt2 AS LONG ' file LOAD handles
  121. DIM i AS LONG, bullets AS LONG, fire AS LONG ' index and bullets
  122. DIM r AS LONG, newRockN AS LONG, maxBabyRocks AS LONG, br AS LONG, hits AS LONG ' rock stuff
  123. DIM ai AS LONG, alienN AS LONG ' alien index and number
  124. DIM kh AS LONG 'key hit for ship thruster k or hyperspace jump spacebar
  125. DIM hs$, s$, k$, t, lastt 'high score, general string and times for bullets
  126. ship.speed = 3.5 'this would be a constant but ship has to declared as Ship Type first
  127.  
  128. SCREEN _NEWIMAGE(xmax, ymax, 32)
  129. _SCREENMOVE 100, 20
  131.  
  132. fnt = _LOADFONT("ARLRDBD.ttf", 16, "MONOSPACE")
  133. fnt2 = _LOADFONT("ARLRDBD.ttf", 40, "MONOSPACE")
  134. _FONT fnt2
  135. COLOR &HFF00FFFF, &H00000000
  136.  
  137. IF _FILEEXISTS("Asteroids High Score.txt") THEN
  138.     OPEN "Asteroids High Score.txt" FOR INPUT AS #1
  139.     INPUT #1, HS
  140.     CLOSE #1
  142. hs$ = "High Score:" + STR$(HS)
  143.  
  144. 'a little splash screen
  145. rocks = 7: alienN = 3
  146. FOR i = 1 TO nRocks
  147.     newRock i
  148.     IF i > rocks THEN r(i).live = 0
  150. FOR i = 1 TO alienN
  151.     newAlien i
  153. i = 0
  155.     drawStars 0
  156.     i = i + 1
  157.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  158.     FOR r = 1 TO nRocks
  159.         IF r(r).live THEN drawRock r
  160.     NEXT
  161.     FOR i = 1 TO alienN
  162.         drawAliens i
  163.     NEXT
  164.     _FONT fnt2
  165.     s$ = "Asteroids AS-Space-KL"
  166.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 60), s$
  167.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(hs$)) / 2, 140), hs$
  168.     s$ = "A = Left spin"
  169.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 220), s$
  170.     s$ = "S = Right Spin"
  171.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 300), s$
  172.     s$ = "Space = Hyper jump"
  173.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 380), s$
  174.     s$ = "K = Thrust"
  175.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 460), s$
  176.     s$ = "L = Fire!"
  177.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 540), s$
  178.     _FONT fnt
  180.     k$ = INKEY$
  181.     _DISPLAY
  182.     _LIMIT 60
  184.  
  186. restart:
  187. IF _FILEEXISTS("Asteroids High Score.txt") THEN
  188.     OPEN "Asteroids High Score.txt" FOR INPUT AS #1
  189.     INPUT #1, HS
  190.     CLOSE #1
  192. hs$ = "  High Score:" + STR$(HS)
  193. lives = 10: alienN = 1: rocks = 1: ' always active rocks
  194. points = 0: hits = 0: bullets = 0
  195. WHILE lives > 0 AND _KEYDOWN(27) = 0 ' init start restart
  196.     REDIM aliens(1 TO alienN) AS alienType
  197.     FOR ai = 1 TO alienN
  198.         newAlien ai
  199.     NEXT
  200.     FOR i = 1 TO nRocks 'reset rocks mainly clear baby rocks
  201.         newRock (i)
  202.         IF i > rocks THEN r(i).live = 0
  203.     NEXT
  204.     ship.x = xmax / 2 'avoids explosions top left corner at start, dang still get some!
  205.     ship.y = ymax / 2
  206.     ship.angle = 0
  207.     ship.thrustAngle = 0
  208.     ship.thrust = 0
  209.     ship.live = 1
  210.     WHILE ship.live AND _KEYDOWN(27) = 0
  211.         k$ = INKEY$
  212.         'draw everything then process bullets
  213.         drawStars 1
  214.         FOR ai = 1 TO alienN
  215.             drawAliens ai
  216.         NEXT
  217.         FOR i = 1 TO nRocks
  218.             IF r(i).live THEN 'make sure if we crash into a ship it is a live rock, not one sitting on side waiting to be called up
  219.                 drawRock i ' while drawing rocks the ship could be blown up
  220.                 IF ((r(i).x - ship.x) ^ 2 + (r(i).y - ship.y) ^ 2) ^ .5 < r(i).r + 30 THEN 'rock collides with ship?
  221.                     FOR br = 1 TO 200 STEP 5
  222.                         CIRCLE ((ship.x + r(i).x) / 2, (ship.y + r(i).y) / 2), br, _RGB32(255 - br, 255 - 2 * br, 0)
  223.                     NEXT
  224.                     drawRock i
  225.                     drawship
  226.                     ship.live = 0
  227.                     IF i <= rocks THEN newRock i ELSE r(i).live = 0
  228.                 END IF
  229.             END IF
  230.         NEXT
  231.         FOR i = 1 TO nRocks 'smoke up the place with rock debris fields still flying out from hit frames ago
  232.             IF r(i).explodeFrame THEN
  233.                 r(i).explodeFrame = r(i).explodeFrame + 1
  234.                 IF r(i).explodeFrame > .25 * r(i).r THEN
  235.                     r(i).explodeFrame = 0
  236.                     IF i <= rocks THEN newRock i ' now replace the rock
  237.                 ELSE
  238.                     explode r(i).x, r(i).y, r(i).r, r(i).explodeFrame
  239.                 END IF
  240.             END IF
  241.         NEXT
  242.         IF ship.live THEN
  243.             FOR ai = 1 TO alienN
  244.                 IF SQR((aliens(ai).x - ship.x) ^ 2 + (aliens(ai).y - ship.y) ^ 2) < 60 THEN 'aliens and ship collisde boom boom
  245.                     FOR br = 1 TO 200 STEP 5
  246.                         CIRCLE ((ship.x + aliens(ai).x) / 2, (ship.y + aliens(ai).y) / 2), br, _RGB32(255 - br, 255 - 2 * br, 0)
  247.                     NEXT
  248.                     drawship
  249.                     ship.live = 0
  250.                     _CONTINUE
  251.                 ELSE
  252.                     drawship
  253.                 END IF
  254.             NEXT
  255.  
  256.             '                                                                   ship controls update
  257.             'a left spin
  258.             IF _KEYDOWN(97) THEN ship.angle = ship.angle - pi / 48
  259.  
  260.             's right spin
  261.             IF _KEYDOWN(115) THEN ship.angle = ship.angle + pi / 48
  262.  
  263.             'l is Fire!
  264.             fire = 0
  265.             IF _KEYDOWN(108) THEN
  266.                 t = TIMER(.01)
  267.                 IF lastt = 0 OR t - lastt > .1 THEN fire = 1: SOUND 2088, .03: lastt = t
  268.             END IF
  269.             kh = _KEYHIT
  270.             SELECT CASE kh
  271.                 CASE 107 'thrust  k key
  272.                     SOUND 488, 2
  273.                     ship.thrustAngle = ship.angle: ship.thrust = 120
  274.                 CASE 32 ' space = hyperspace jump
  275.                     RANDOMIZE TIMER
  276.                     ship.x = (xmax - 300) * RND + 150: ship.y = (ymax - 300) * RND + 150: ship.thrust = 0
  277.             END SELECT
  278.  
  279.             '                                                                   locate ship
  280.             IF ship.thrust > 0 THEN
  281.                 'relocate ship position
  282.                 ship.x = ship.x + ship.speed * COS(ship.thrustAngle)
  283.                 ship.y = ship.y + ship.speed * SIN(ship.thrustAngle)
  284.             END IF
  285.             '                                                                    jump borders
  286.             IF ship.x < 0 THEN ship.x = xmax - ABS(ship.x)
  287.             IF ship.x > xmax THEN ship.x = ship.x - xmax
  288.             IF ship.y < 0 THEN ship.y = ymax - ABS(ship.y)
  289.             IF ship.y > ymax THEN ship.y = ship.y - ymax
  290.  
  291.  
  292.             FOR i = 0 TO nBullets '                                               handle bullets
  293.                 IF b(i).live = 0 AND fire = 1 THEN 'have inactive bullet to use
  294.                     b(i).x = ship.x + bSpeed * COS(ship.angle)
  295.                     b(i).y = ship.y + bSpeed * SIN(ship.angle)
  296.                     b(i).dx = bSpeed * COS(ship.angle)
  297.                     b(i).dy = bSpeed * SIN(ship.angle)
  298.                     b(i).live = -1
  299.                     bullets = bullets + 1
  300.                     fire = 0
  301.                 END IF
  302.                 IF b(i).live THEN 'new location
  303.                     b(i).x = b(i).x + b(i).dx
  304.                     b(i).y = b(i).y + b(i).dy
  305.                     IF b(i).x > 0 AND b(i).x < xmax AND b(i).y > 0 AND b(i).y < ymax THEN 'in bounds draw it
  306.  
  307.                         'bullet hit aliens?
  308.                         FOR ai = 1 TO alienN
  309.                             IF SQR((aliens(ai).x - b(i).x) ^ 2 + (aliens(ai).y - b(i).y) ^ 2) < 30 THEN
  310.                                 FOR br = 1 TO 120
  311.                                     CIRCLE (aliens(ai).x, aliens(ai).y), br / 3, plasma~&(0)
  312.                                 NEXT
  313.                                 _DISPLAY
  314.                                 _DELAY .05
  315.                                 hits = hits + 1
  316.                                 points = points + 100
  317.                                 aliens(ai).live = 0
  318.                                 newAlien ai
  319.                                 b(i).live = 0
  320.                                 _CONTINUE
  321.                             END IF
  322.                         NEXT
  323.                         FOR r = 1 TO nRocks 'check for collision with rock
  324.                             IF r(r).live THEN
  325.                                 IF SQR((r(r).x - b(i).x) ^ 2 + (r(r).y - b(i).y) ^ 2) < r(r).r THEN 'its a hit!
  326.                                     r(r).explodeFrame = 1 'linger with explosion
  327.                                     r(r).live = 0
  328.                                     hits = hits + 1
  329.                                     points = points + ((r(r).speed - .5) * 50 + (90 - (r(r).r - 10)) * 1.1111) / 2
  330.                                     IF r(r).r > 30 THEN '       split rock  into ? new ones
  331.                                         maxBabyRocks = INT((r(r).r - 10) / 10)
  332.                                         maxBabyRocks = irnd&(2, maxBabyRocks) ' pick a number of baby Rocks
  333.                                         FOR br = 1 TO maxBabyRocks
  334.                                             '                        new rock
  335.                                             newRockN = freeRock& '                          get inactive rock number
  336.                                             newRock newRockN '                              new identity and activate
  337.                                             r(newRockN).r = (r(r).r - 10) / maxBabyRocks '  split in equal parts minus 20% mass
  338.                                             r(newRockN).x = r(r).x + irnd&(-30, 30) '       thrown from parent
  339.                                             r(newRockN).y = r(r).y + irnd&(-30, 30)
  340.                                             r(newRockN).c = r(r).c '                   same color as parent
  341.                                             r(newRockN).heading = rrnd(ship.angle - .75 * pi, ship.angle + .75 * pi)
  342.                                         NEXT
  343.                                     END IF ' big enough to split
  344.                                     b(i).live = 0 'kill bullet
  345.                                 END IF ' hit rock
  346.                             END IF 'rock is there
  347.                         NEXT ' rock
  348.                         IF b(i).live THEN fcirc b(i).x, b(i).y, 3, _RGB32(255, 255, 0) 'draws bullet
  349.                     ELSE
  350.                         b(i).live = 0 'out of bounds
  351.                     END IF ' bullet is in bounds
  352.                 END IF ' bullet live
  353.             NEXT ' bullet
  354.         END IF ' if ship still live
  355.         _DISPLAY
  356.         IF ship.live = 0 THEN
  357.             lives = lives - 1
  358.             IF lives MOD 4 = 0 THEN rocks = rocks + 1
  359.             IF lives MOD 4 = 2 THEN alienN = alienN + 1
  360.             s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  361.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 80), s$
  362.             _FONT fnt2
  363.             s$ = STR$(points) + hs$
  364.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  365.             _FONT fnt
  366.             s$ = "Press Enter to enter your next life"
  367.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 120), s$
  368.             _DISPLAY
  369.             WHILE _KEYDOWN(13) = 0: WEND 'wait for enter key
  370.         ELSE
  371.             _LIMIT 60 ' if ship dies let's rest and regroup  before restart next life
  372.         END IF
  373.     WEND
  374.     _DISPLAY
  376. IF points > HS THEN
  377.     OPEN "Asteroids High Score.txt" FOR OUTPUT AS #1
  378.     PRINT #1, points
  379.     CLOSE #1
  381. ship.x = -200: ship.y = -200 'get it out of the way
  382. i = 0
  384.     drawStars 0
  385.     i = i + 1
  386.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  387.     FOR r = 1 TO nRocks
  388.         IF r(r).live THEN drawRock r
  389.     NEXT
  390.     s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  391.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 80), s$
  392.     _FONT fnt2
  393.     s$ = STR$(points)
  394.     IF points > HS THEN s$ = s$ + " a New Record!" ELSE s$ = STR$(points) + hs$
  395.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  396.     _FONT fnt
  397.     s$ = "Press q to quit, p or a to Play Again..."
  398.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 120), s$
  399.     IF _KEYDOWN(ASC("a")) OR _KEYDOWN(ASC("p")) THEN GOTO restart
  400.     _DISPLAY
  401.     _LIMIT 60
  404.  
  405. SUB drawStars (moving)
  406.     TYPE starType
  407.         x AS SINGLE
  408.         y AS SINGLE
  409.         size AS SINGLE
  410.         c AS INTEGER
  411.     END TYPE
  412.     STATIC beenHere, stars(600) AS starType, cy AS LONG
  413.     DIM i AS LONG
  414.     IF beenHere = 0 THEN 'static part
  415.         FOR i = 0 TO 200
  416.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = 0
  417.             stars(i).c = irnd&(80, 140)
  418.         NEXT
  419.         FOR i = 0 TO 200
  420.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = .3
  421.             stars(i).c = irnd&(80, 140)
  422.         NEXT
  423.  
  424.         FOR i = 1 TO 140
  425.             stars(i + 400).x = RND * xmax: stars(i + 400).y = RND * ymax: stars(i + 100).size = .6
  426.             stars(i).c = irnd&(110, 170)
  427.         NEXT
  428.         FOR i = 1 TO 50
  429.             stars(i + 540).x = RND * xmax: stars(i + 540).y = RND * ymax: stars(i + 170).size = 1.2
  430.             stars(i).c = irnd&(140, 200)
  431.         NEXT
  432.         FOR i = 1 TO 10
  433.             stars(i + 590).x = RND * xmax: stars(i + 590).y = RND * ymax: stars(i + 195).size = 2.4
  434.             stars(i).c = irnd&(170, 235)
  435.         NEXT
  436.         cy = ymax / 2
  437.         beenHere = 1
  438.     END IF
  439.     FOR i = 0 TO cy
  440.         LINE (0, i)-(xmax, i), _RGB32(0, 0, .1 * i + 4)
  441.         LINE (0, ymax - i)-(xmax, ymax - i), _RGB(0, 0, .1 * i + 4)
  442.     NEXT
  443.     FOR i = 0 TO 200
  444.         IF moving THEN
  445.             stars(i).x = stars(i).x + .2 * stars(i).size ^ stars(i).size
  446.             IF stars(i).x > xmax THEN stars(i).x = -1 * RND * 20
  447.         END IF
  448.         fcirc stars(i).x, stars(i).y, stars(i).size, _RGB32(stars(i).c - 10, stars(i).c, stars(i).c + 10)
  449.     NEXT
  451.  
  452. SUB newAlien (i AS LONG)
  453.     DIM side AS LONG, heading
  454.     RANDOMIZE TIMER * RND 'to avoid making twins
  455.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  456.     aliens(i).fireX = irnd(10, xmax - 10)
  457.     aliens(i).fireY = irnd(10, ymax - 10)
  458.     aliens(i).attackFrame = irnd(30, 400) ' EDIT a tweak to survive a little long before getting murdered with low lives over and over...
  459.     SELECT CASE side
  460.         CASE 1
  461.             aliens(i).x = -10
  462.             aliens(i).y = rrnd(20, ymax - 20)
  463.         CASE 2
  464.             aliens(i).x = xmax + 10
  465.             aliens(i).y = rrnd(20, ymax - 20)
  466.         CASE 3
  467.             aliens(i).x = rrnd(20, xmax - 20)
  468.             aliens(i).y = -10
  469.         CASE 4
  470.             aliens(i).x = rrnd(20, xmax - 20)
  471.             aliens(i).y = ymax + 10
  472.     END SELECT
  473.     heading = _ATAN2(aliens(i).fireY - aliens(i).y, aliens(i).fireX - aliens(i).x)
  474.     aliens(i).dx = .5 * COS(heading)
  475.     aliens(i).dy = .5 * SIN(heading)
  476.     aliens(i).live = 0
  477.     aliens(i).transform = 0
  478.     aliens(i).c = _RGB32(irnd(128, 255), irnd(0, 255), irnd(0, 255))
  480.  
  481. FUNCTION plasma~& (new AS LONG)
  482.     STATIC r, g, b, cnt, beenHere
  483.     IF beenHere = 0 OR new THEN
  484.         r = RND: g = RND: b = RND: beenHere = 1: cnt = 0
  485.     END IF
  486.     cnt = cnt + .2
  487.     plasma~& = _RGB32(127 + 127 * SIN(r * cnt), 127 + 127 * SIN(g * cnt), 127 + 127 * SIN(b * cnt))
  489.  
  490. SUB drawAliens (i AS LONG) 'shipType
  491.     DIM light AS LONG, heading, r AS LONG, g AS LONG, b AS LONG
  492.     IF aliens(i).live THEN
  493.         SOUND 6000 + i * 200, .03
  494.         IF aliens(i).transform = 0 THEN
  495.             r = _RED32(aliens(i).c): g = _GREEN32(aliens(i).c): b = _BLUE32(aliens(i).c)
  496.             fellipse aliens(i).x, aliens(i).y, 6, 15, _RGB32(r, g - 120, b - 100)
  497.             fellipse aliens(i).x, aliens(i).y, 18, 11, _RGB32(r, g - 60, b - 50)
  498.             fellipse aliens(i).x, aliens(i).y, 30, 7, _RGB32(r, g, b)
  499.             FOR light = 0 TO 5
  500.                 fcirc aliens(i).x - 30 + 11 * light + aliens(i).ls, aliens(i).y, 1, _RGB32(aliens(i).ls * 50, aliens(i).ls * 50, aliens(i).ls * 50)
  501.             NEXT
  502.             aliens(i).ls = aliens(i).ls + 1
  503.             IF aliens(i).ls > 5 THEN aliens(i).ls = 0
  504.         ELSE
  505.             drawBall aliens(i).x, aliens(i).y, 30, aliens(i).c
  506.         END IF
  507.         'time to shoot?
  508.         aliens(i).x = aliens(i).x + aliens(i).dx
  509.         aliens(i).y = aliens(i).y + aliens(i).dy
  510.         IF SQR((aliens(i).fireX - aliens(i).x) ^ 2 + (aliens(i).fireY - aliens(i).y) ^ 2) < 5 THEN 'transform into the bolder of death
  511.             aliens(i).transform = 1
  512.             heading = _ATAN2(ship.y - aliens(i).y, ship.x - aliens(i).x)
  513.             aliens(i).dx = 2.5 * COS(heading)
  514.             aliens(i).dy = 2.5 * SIN(heading)
  515.         END IF
  516.         IF aliens(i).x < -10 OR aliens(i).x > xmax + 10 THEN
  517.             IF aliens(i).y < -10 OR aliens(i).y > ymax + 10 THEN '  out of bounds goodbye bolder of death!
  518.                 aliens(i).live = 0 'man we dodged a bullet here!!!!
  519.                 newAlien i 'reset the trap
  520.             END IF
  521.         END IF
  522.     ELSE
  523.         IF aliens(i).attackFrame THEN
  524.             aliens(i).attackFrame = aliens(i).attackFrame - 1
  525.             IF aliens(i).attackFrame = 0 THEN
  526.                 aliens(i).live = 1
  527.             END IF
  528.         END IF
  529.     END IF
  531.  
  532. FUNCTION freeRock&
  533.     DIM i AS LONG
  534.     FOR i = rocks + 1 TO nRocks ' look for inactive rock number
  535.         IF r(i).live = 0 AND r(i).explodeFrame = 0 THEN freeRock& = i: EXIT FUNCTION
  536.     NEXT
  538.  
  539. SUB explode (x AS LONG, y AS LONG, r AS LONG, frm AS LONG)
  540.     DIM maxParticles AS LONG, i AS LONG, rounds AS LONG, loopCount AS LONG
  541.     maxParticles = r * 4
  542.     FOR i = 1 TO r
  543.         NewDot i, x, y, r
  544.     NEXT
  545.     rounds = r
  546.     FOR loopCount = 0 TO frm
  547.         IF _KEYDOWN(27) THEN END
  548.         FOR i = 1 TO rounds
  549.             dots(i).x = dots(i).x + dots(i).dx
  550.             dots(i).y = dots(i).y + dots(i).dy
  551.             fcirc dots(i).x, dots(i).y, dots(i).size, dots(i).kolor
  552.         NEXT
  553.         IF rounds < maxParticles THEN
  554.             FOR i = 1 TO r
  555.                 NewDot (rounds + i), x, y, r
  556.             NEXT
  557.             rounds = rounds + r
  558.         END IF
  559.     NEXT
  561.  
  562. SUB NewDot (i AS LONG, x AS LONG, y AS LONG, r AS LONG)
  563.     DIM angle, rd
  564.     angle = pi * 2 * RND
  565.     rd = RND * 30
  566.     dots(i).x = x + rd * COS(angle)
  567.     dots(i).y = y + rd * SIN(angle)
  568.     dots(i).size = RND * r * .05
  569.     rd = RND 'STxAxTIC recommended for rounder spreads
  570.     dots(i).dx = rd * 10 * (10 - 2 * dots(i).size) * COS(angle)
  571.     dots(i).dy = rd * 10 * (10 - 2 * dots(i).size) * SIN(angle)
  572.     rd = 20 + RND * 70
  573.     dots(i).kolor = _RGBA32(rd, rd, rd, 80)
  575.  
  576. SUB drawship 'simple red iso triangle pointed towards radianAngle
  577.     DIM x1 AS LONG, y1 AS LONG, x2 AS LONG, y2 AS LONG, x3 AS LONG, y3 AS LONG
  578.     DIM x4 AS LONG, y4 AS LONG, x5 AS LONG, y5 AS LONG
  579.     IF ship.thrust > 0 THEN
  580.         'burn out flame as thruster dies out
  581.         x4 = ship.x + .5 * ship.thrust * COS(ship.angle - 17 / 18 * pi)
  582.         y4 = ship.y + .5 * ship.thrust * SIN(ship.angle - 17 / 18 * pi)
  583.         x5 = ship.x + .5 * ship.thrust * COS(ship.angle - 19 / 18 * pi)
  584.         y5 = ship.y + .5 * ship.thrust * SIN(ship.angle - 19 / 18 * pi)
  585.         ftri ship.x, ship.y, x4, y4, x5, y5, &H99FFFF88
  586.         ship.thrust = ship.thrust - 1
  587.     END IF
  588.     'draw ship dead or alive thrust or not, calculate 3 points of triangle ship
  589.     fcirc ship.x, ship.y, 30, &H05FFFFFF
  590.     x1 = ship.x + 30 * COS(ship.angle) ' front point
  591.     y1 = ship.y + 30 * SIN(ship.angle) '
  592.     x2 = ship.x + 30 * COS(ship.angle + .6666 * pi) ' wing
  593.     y2 = ship.y + 30 * SIN(ship.angle + .6666 * pi)
  594.     x3 = ship.x + 30 * COS(ship.angle - .6666 * pi) ' other wing
  595.     y3 = ship.y + 30 * SIN(ship.angle - .6666 * pi)
  596.     ftri ship.x, ship.y, x1, y1, x2, y2, _RGB32(80, 120, 80, 80)
  597.     ftri ship.x, ship.y, x1, y1, x3, y3, _RGB32(60, 100, 60, 80)
  598.     LINE (x1, y1)-(ship.x, ship.y), _RGB32(255, 255, 128)
  599.     LINE (x1, y1)-(x2, y2), _RGB32(255, 180, 40)
  600.     LINE (x1, y1)-(x3, y3), _RGB32(255, 180, 40)
  602.  
  603. SUB drawRock (iRock)
  604.     RANDOMIZE USING r(iRock).seed 'this prevents having to save a particular sequence of random number
  605.     DIM dx, dy, j AS LONG, rRad AS SINGLE, leg AS SINGLE, x0 AS LONG, y0 AS LONG, rc AS LONG, c~&, x1 AS LONG, y1 AS LONG, xoff, yoff, i AS LONG
  606.     DIM x2 AS LONG, y2 AS LONG
  607.     dx = r(iRock).speed * COS(r(iRock).heading)
  608.     dy = r(iRock).speed * SIN(r(iRock).heading) 'update location
  609.     r(iRock).ra = r(iRock).ra + r(iRock).spin
  610.     IF r(iRock).x + dx + r(iRock).r < 0 OR r(iRock).x + dx - r(iRock).r > xmax OR r(iRock).y + dy + r(iRock).r < 0 OR r(iRock).y + dy - r(iRock).r > ymax THEN
  611.         IF iRock <= rocks THEN newRock iRock ELSE r(iRock).live = 0
  612.         EXIT SUB ' reassigned get out of here
  613.     ELSE
  614.         r(iRock).x = r(iRock).x + dx
  615.         r(iRock).y = r(iRock).y + dy
  616.     END IF
  617.     FOR j = 10 TO 3 STEP -1 '                  rock drawing (see demo program where developed code)
  618.         rRad = .1 * j * r(iRock).r
  619.         leg = rRad * (RND * .7 + .3)
  620.         x0 = r(iRock).x + leg * COS(r(iRock).ra)
  621.         y0 = r(iRock).y + leg * SIN(r(iRock).ra)
  622.         rc = r(iRock).c + 30 * RND - 15
  623.         c~& = _RGB32(rc + 5, rc - 10, rc + 5)
  624.         x1 = x0
  625.         y1 = y0
  626.         xoff = RND * 20 - 10 + r(iRock).x
  627.         yoff = RND * 20 - 10 + r(iRock).y
  628.         FOR i = 1 TO 12
  629.             leg = rRad * (RND * .35 + .65)
  630.             IF i = 12 THEN
  631.                 x2 = x0: y2 = y0
  632.             ELSE
  633.                 x2 = xoff + leg * COS(i * polyAngle + r(iRock).ra)
  634.                 y2 = yoff + leg * SIN(i * polyAngle + r(iRock).ra)
  635.             END IF
  636.             ftri r(iRock).x, r(iRock).y, x1, y1, x2, y2, c~&
  637.             x1 = x2: y1 = y2
  638.         NEXT
  639.     NEXT
  641.  
  642. SUB newRock (iRock)
  643.     DIM side AS LONG
  644.     RANDOMIZE TIMER * RND 'to avoid making twins
  645.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  646.     SELECT CASE side
  647.         CASE 1
  648.             r(iRock).x = -100
  649.             r(iRock).y = rrnd(20, ymax - 20)
  650.             r(iRock).heading = 3 * pi / 2 + RND * pi
  651.         CASE 2
  652.             r(iRock).x = xmax + 100
  653.             r(iRock).y = rrnd(20, ymax - 20)
  654.             r(iRock).heading = pi / 2 + RND * pi
  655.         CASE 3
  656.             r(iRock).x = rrnd(20, xmax - 20)
  657.             r(iRock).y = -100
  658.             r(iRock).heading = RND * pi
  659.         CASE 4
  660.             r(iRock).x = rrnd(20, xmax - 20)
  661.             r(iRock).y = ymax + 100
  662.             r(iRock).heading = pi + RND * pi
  663.     END SELECT
  664.     r(iRock).speed = rrnd(.5, 2.5) 'speed, rotation angle, radius, gray coloring, spin, seed, hit for explosion
  665.     r(iRock).ra = RND * 2 * pi
  666.     r(iRock).r = irnd&(30, 100)
  667.     r(iRock).c = irnd&(60, 110) ' Ken request increase in rock color
  668.     r(iRock).spin = rrnd(-pi / 20, pi / 20)
  669.     r(iRock).seed = INT(RND * 64000) - 32000
  670.     r(iRock).explodeFrame = 0
  671.     r(iRock).live = 1
  673.  
  674. FUNCTION irnd& (n1, n2) 'return an integer between 2 numbers
  675.     DIM l%, h%
  676.     IF n1 > n2 THEN l% = n2: h% = n1 ELSE l% = n1: h% = n2
  677.     irnd& = INT(RND * (h% - l% + 1)) + l%
  679.  
  680. FUNCTION rrnd (n1, n2) ' return number (expecting reals =_single, double, _float depending on default / define setup)
  681.     rrnd = (n2 - n1) * RND + n1
  683.  
  684. SUB drawBall (x, y, r, c AS _UNSIGNED LONG)
  685.     DIM red AS LONG, grn AS LONG, blu AS LONG, rr AS LONG, f
  686.     red = _RED32(c): grn = _GREEN32(c): blu = _BLUE32(c)
  687.     FOR rr = r TO 0 STEP -1
  688.         f = 1 - rr / r
  689.         fcirc x, y, rr, _RGB32(red * f, grn * f, blu * f)
  690.     NEXT
  692.  
  693. SUB fellipse (CX AS LONG, CY AS LONG, xr AS LONG, yr AS LONG, C AS _UNSIGNED LONG)
  694.     IF xr = 0 OR yr = 0 THEN EXIT SUB
  696.     DIM x AS LONG, y AS LONG
  697.     w2 = xr * xr: h2 = yr * yr: h2w2 = h2 * w2
  698.     LINE (CX - xr, CY)-(CX + xr, CY), C, BF
  699.     DO WHILE y < yr
  700.         y = y + 1
  701.         x = SQR((h2w2 - y * y * w2) \ h2)
  702.         LINE (CX - x, CY + y)-(CX + x, CY + y), C, BF
  703.         LINE (CX - x, CY - y)-(CX + x, CY - y), C, BF
  704.     LOOP
  706.  
  707. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  708.     DIM D AS LONG
  709.     STATIC a&
  710.     D = _DEST
  711.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  712.     _DEST a&
  713.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
  714.     PSET (0, 0), K
  715.     _BLEND a& '<<<< new 2019-12-16 fix
  716.     _DEST D
  717.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  719.  
  720. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG) 'vince version
  721.     DIM x0 AS LONG, y0 AS LONG, e AS LONG
  722.     x0 = R: y0 = 0: e = 0
  723.     DO WHILE y0 < x0
  724.         IF e <= 0 THEN
  725.             y0 = y0 + 1
  726.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  727.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  728.             e = e + 2 * y0
  729.         ELSE
  730.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  731.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  732.             x0 = x0 - 1: e = e - 2 * x0
  733.         END IF
  734.     LOOP
  735.     LINE (x - R, y)-(x + R, y), C, BF
  737.  

If you have Windows, I don't think you even need the Font file in the zip in the Original Post.

Hey 2nd time out with M9 and this!
 
Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 04, 2020, 11:59:51 pm
Awesome job! I like the new sounds. I didn't know the SOUND command could have such a high frequency and low time on them. I have one suggestion though if you want to keep working on this. Use the player's score to either speed things up or add asteroids and saucers to them. For example, every 5,000 the speed could increase by a certain amount or another asteroid or saucer is added on the screen. But that's all I will say because this is really good!
Title: Re: b+ Asteroids makeover
Post by: bplus on November 05, 2020, 10:02:46 am
My last post from late last night is missing. Come to think the forum became inaccessible just after but the post was made?

Anyway I had new high score over 84,000.

Quote
I have one suggestion though if you want to keep working on this. Use the player's score to either speed things up or add asteroids and saucers to them.

Every other new life does get harder adding one more parent rock or alien to the game. I think I did slow down the speeds and lowered number of rocks from the mouse shooter versions so people can get use to the A&S turns and K&L thrust and fire buttons.

Number of rocks are started after first main loop handling lives, rocks are reset just before entering the main life loop you can increase them back to 5 or 6 to start and they will increase from there with lives left.

Under newRock and newAlien speeds are set by random number between an upper and lower bound, points for hitting rocks are based on speed and size so try to keep... oh I better set the range as variables that you can adjust or can be adjusted in game code because points are based on max/min speeds.

Title: Re: b+ Asteroids makeover
Post by: Dav on November 05, 2020, 10:24:26 am
Good work!  Fun.  I did change the keys to fit my laptop keyboard layout more comfortably (L/R arrows for control, UP for thrust, space for fire, enter for hyperspace).  After that, it's an enjoyable play here.  I'm going to see how high a score I can get now.  My wife is gone this morning, so I can play away!

EDIT:  How about adding a current score & high score display during game play?  I stuck in a LOCATE 1, 32: PRINT points; " / "; HS; before the _DISPLAY call at the bottom of the IF ship.live area, and before the _DISPLAY call after the ufo explodes.  It doesn't seem to slow anything down here, and adds a visual goal to reach.  I also put in a pause game key here for taking a break.

Game is getting fun to waste time with, and it doesn't cost me .25 cents to play. Thanks.

- Dav 
Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 05, 2020, 11:58:46 am
Thanks B+, I might tinker around with it later today. Really cool game! Hopefully the final version of this game goes into the Games section of the forum.
Title: Re: b+ Asteroids makeover
Post by: bplus on November 05, 2020, 04:33:16 pm
M10 mods based on latest comments, have it both ways: arrows or AS and K. Fire is continuous why beat the keyboard up? A little score board in top left corner, I've been wondering about rocks being hit PUS score for round PLUS lives update. Constants added for tinkering with speeds and sizes.

Code: QB64: [Select]
  2. _TITLE "b+QB64 Asteroids M10" 'started 2018-07-13
  3. '2020 - Oct and Nov: Special thanks to SierraKen who has been helpful with suggestions, ideas and fixes.
  5.  
  6. ' Far far away in a universe where Newton's 1st Law of Motion is not obeyed...    ;-))
  7.  
  8.  
  9. '                                            New Controls
  10. ' key a or left arrow = turn left
  11. ' key s or right arrow = turn right
  12. ' enter or spacebar =  "hyperspace" show up somewhere else  better or worse use when collision is imminent
  13. ' key k or up arrow = thrust  just a burst in direction you are pointed but doesn't last
  14. ' fire! owwha, owha, owha...  is now continuous
  15.  
  16. '=================================================================================================================
  17.  
  18. ' 2020-10-27 remove the alternate subs and get down below 200 LOC almost there now! new shooter action font and background
  19. ' 2020-10-28 another makeover explosions and split asteroids
  20. ' 2020-10-29 fix baby rock management, break between lives
  21. ' 2020-10-29 fix left/right gun, fix explosions over many frames to eliminate pause in action, speed up 60 fps
  22. ' 2020-10-30 m3 SierraKen's idea to angle shooter with mousewheel also finish WASD options, more rocks, points system
  23. ' points:
  24. ' The higher the speed the better    speed range .5 to 2.5, diff = 2 * 50 = 100          s - .5 * 50
  25. ' DELETE The lower the color the better   color range 10 to 60, diff =      50 * 2 = 100  50 - (c - 10) * 2
  26. ' The smaller the size the better  size range 10 to 100, diff = 90 * 1.1111 = 100  90 - (sz -10) * 1.1111
  27. '        ((speed - .5) * 50 + (90 - (r - 10)) * 1.1111) / 2 = 100 best score per hit
  28. ' 2020-10-30 increase level of difficulty, fix double lives lost, add an ending after all lives spent.
  29. ' 2020-10-31 M4 They are Here - the aliens have accepted my invitaion for war games don't get caught in their beam.
  30. ' rework ending and variable LONG suffix. Aliens on the attack 100 points before or after transformed into the Bolder of Death.
  31. ' 2020-11-01 M5 FX Moving through space, Oh yeah, more aliens!
  32. ' 2020-11-01 M6 add play again and save high game , continuous shoot
  33. ' 2020-11-01 M7 fix hits count when hit alien ship or Bolder of Death. Fix lights on aliens ship. I want to see collsions with ship.
  34. ' Ken recommends removing text in middle of screen, yeah, distracting. Makeover ship as with mouse x, y it's center. Add Splash screen.
  35. ' Show mouse in between lives so can be in screen center when press key to start next run.
  36.  
  37. ' 2020-11-03 M9 watching videos on Asteroids, I found a view and description of the control panel, it is:
  38. ' 2 buttons on left and lower button in middle and 2 buttons on right level with 2 on left.
  39. ' 2 buttons on left are left and right turns they will be Keys A and S
  40. ' The middle will be spacebar for Hypespace or these days we might call it worm hole, jump to another location better or worse!
  41. ' 2 buttons on right K and L: K will be a thruster of sorts you eventually come to a stop (not what Newton would like) L is the fire button.
  42. ' So let's try that. I am impressed by hitting thruster and shooting all around as you dift in direction gun was pointed when hit thruster.
  43. ' Lighten rocks and change points, based now only on size and speed of Asteroids.
  44. ' 2020-11-04 M9 Install new update to thrust control. Thanks to SierraKen for finding out what happened to Hyperspace jump when press
  45. ' spacebar a 2nd time in a life. Oh also Boulders of Death are now more like smooth colored spheres. Ahhhh Fixed the crashing at the borders
  46. ' now fly out one side and come back in on the other! This is getting good! Adding some sound effects.
  47. ' 2020-11-05 M10 set some constants for starting game so can just change them to level of play desired.
  48. ' speed points =  50 * (rockSpeed - minRockSpeed)/rockSpeedRange > fastest rock gets 50 points
  49. ' size points = 50 * (rockSizeRange - (rockSize - minRockSize))/rockSizeRange  > smallest rock gets 50 points
  50. ' points = points +  50 * ( (rockSpeed - minRockSpeed)/rockSpeedRange +  (rockSizeRange - (rockSize - minRockSize))/rockSizeRange )
  51. ' Dav's comments: Add arrow keys for left right turns and up for thrust, continuous fire now! A little score board in top left corner.
  52. ' Dav I am keeping spacebar for Hyperspace but also Enter, don't need fire button now.
  53. ' Try the A for left and the right arrow for right turns.
  54.  
  55. '================================================================================================================
  56.  
  57. '    NOTE: !!!!!!!!!!!!!!!   When there is a pause in action, just press enter,  as in enter a new life!
  58.  
  59. '================================================================================================================
  60.  
  61. CONST xmax = 1200, ymax = 700, pi = _PI, polyAngle = _PI / 6, nRocks = 300, nBullets = 2000, bSpeed = 15
  62. CONST startRocks = 2, minRockSpeed = 0.5000, maxRockSpeed = 2.5000, minRockSize = 10, maxRockSize = 100
  63. CONST rockSpeedRange = maxRockSpeed - minRockSpeed, rockSizeRange = maxRockSize - minRockSize
  64. CONST alienSpeed = rockSpeedRange / 2 + minRockSpeed ' average rock speed
  65.  
  66. TYPE alienType
  67.     x AS SINGLE
  68.     y AS SINGLE
  69.     dx AS SINGLE
  70.     dy AS SINGLE
  71.     ls AS LONG ' lights offset and gray scale
  72.     c AS _UNSIGNED LONG ' color
  73.     live AS LONG
  74.     attackFrame AS LONG
  75.     fireX AS SINGLE
  76.     fireY AS SINGLE
  77.     transform AS LONG
  79.  
  80. TYPE particle
  81.     x AS SINGLE
  82.     y AS SINGLE
  83.     dx AS SINGLE
  84.     dy AS SINGLE
  85.     size AS SINGLE
  86.     kolor AS _UNSIGNED LONG
  88.  
  89. TYPE bullet
  90.     x AS SINGLE
  91.     y AS SINGLE
  92.     dx AS SINGLE
  93.     dy AS SINGLE
  94.     live AS LONG
  96.  
  97. TYPE shipType
  98.     x AS SINGLE
  99.     y AS SINGLE
  100.     live AS LONG
  101.     speed AS SINGLE '       just a constant now when Thrust is applied
  102.     thrustAngle AS SINGLE ' ship/gun angle at moment Thrust is pressed
  103.     angle AS SINGLE '       rotated position ship/gun now A or S keypress or hold down
  104.     thrust AS LONG '        this now tracks how many frames ship will move at speed and thrustAngle
  106.  
  107. TYPE rock
  108.     x AS SINGLE
  109.     y AS SINGLE
  110.     r AS LONG '            radius
  111.     ra AS SINGLE '         rotation position   a = a + spin
  112.     heading AS SINGLE '    heading from which dx, dy are calc with speed
  113.     speed AS SINGLE '      speed
  114.     spin AS SINGLE '       rotation direction and amount
  115.     seed AS LONG '         for drawing rocks with RND USING
  116.     c AS LONG '            color   rgb(c, c, c)
  117.     live AS LONG '         need this to track rocks still active like bullets
  118.     explodeFrame AS LONG ' after a rock is hit by bullet, it explodes and in more than one frame
  120.  
  121. REDIM SHARED aliens(1 TO 5) AS alienType
  122. DIM SHARED dots(2000) AS particle ' explosions
  123. DIM SHARED b(nBullets) AS bullet
  124. DIM SHARED ship AS shipType
  125. DIM SHARED r(nRocks) AS rock
  127. DIM SHARED points AS LONG
  128. DIM SHARED rocks AS LONG 'rocks is the minimum number of parent rocks to have on screen  automatic replace when hit or out of bounds
  129.  
  130. DIM HS AS LONG, fnt AS LONG, fnt2 AS LONG ' file LOAD handles
  131. DIM i AS LONG, bullets AS LONG, fire AS LONG ' index and bullets
  132. DIM r AS LONG, newRockN AS LONG, maxBabyRocks AS LONG, br AS LONG, hits AS LONG ' rock stuff
  133. DIM ai AS LONG, alienN AS LONG ' alien index and number
  134. DIM kh AS LONG 'key hit for ship thrust k or up arrow or hyperspace jump spacebar
  135. DIM hs$, s$, k$, t, lastt 'high score, general string and times for bullets
  136. DIM rockPoints AS LONG, roundPoints AS LONG ' various points scores
  137. ship.speed = 3.5 'this would be a constant but ship has to declared as Ship Type first, Hyperspace jump
  138.  
  139. SCREEN _NEWIMAGE(xmax, ymax, 32)
  140. _SCREENMOVE 100, 20
  142.  
  143. fnt = _LOADFONT("ARLRDBD.ttf", 16, "MONOSPACE")
  144. fnt2 = _LOADFONT("ARLRDBD.ttf", 40, "MONOSPACE")
  145. _FONT fnt2
  146. COLOR &HFF00FFFF, &H00000000
  147.  
  148. IF _FILEEXISTS("Asteroids High Score.txt") THEN
  149.     OPEN "Asteroids High Score.txt" FOR INPUT AS #1
  150.     INPUT #1, HS
  151.     CLOSE #1
  153. hs$ = "High Score:" + STR$(HS)
  154.  
  155. 'a little splash screen
  156. rocks = 7: alienN = 3
  157. FOR i = 1 TO nRocks
  158.     newRock i
  159.     IF i > rocks THEN r(i).live = 0
  161. FOR i = 1 TO alienN
  162.     newAlien i
  164. i = 0
  166.     drawStars 0
  167.     i = i + 1
  168.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  169.     FOR r = 1 TO nRocks
  170.         IF r(r).live THEN drawRock r
  171.     NEXT
  172.     FOR i = 1 TO alienN
  173.         drawAliens i
  174.     NEXT
  175.     _FONT fnt2
  176.     s$ = "*** b+QB64 Asteroids ***"
  177.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 60), s$
  178.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(hs$)) / 2, 140), hs$
  179.     s$ = "A or arrow = Left spin"
  180.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 220), s$
  181.     s$ = "S or arrow = Right Spin"
  182.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 300), s$
  183.     s$ = "Space or Enter = Hyper jump"
  184.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 380), s$
  185.     s$ = "K or up arrow = Thrust"
  186.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 460), s$
  187.     s$ = "Escape quit, any plays"
  188.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 540), s$
  189.     _FONT fnt
  191.     k$ = INKEY$
  192.     _DISPLAY
  193.     _LIMIT 60
  195.  
  197. restart:
  198. IF _FILEEXISTS("Asteroids High Score.txt") THEN
  199.     OPEN "Asteroids High Score.txt" FOR INPUT AS #1
  200.     INPUT #1, HS
  201.     CLOSE #1
  203. hs$ = "  High Score:" + STR$(HS)
  204. lives = 10: alienN = 1: rocks = startRocks: ' always active rocks
  205. points = 0: hits = 0: bullets = 0
  206. WHILE lives > 0 AND _KEYDOWN(27) = 0 ' init start restart
  207.     REDIM aliens(1 TO alienN) AS alienType
  208.     FOR ai = 1 TO alienN
  209.         newAlien ai
  210.     NEXT
  211.     FOR i = 1 TO nRocks 'reset rocks mainly clear baby rocks
  212.         newRock (i)
  213.         IF i > rocks THEN r(i).live = 0
  214.     NEXT
  215.     ship.x = xmax / 2 'avoids explosions top left corner at start, dang still get some!
  216.     ship.y = ymax / 2
  217.     ship.angle = 0
  218.     ship.thrustAngle = 0
  219.     ship.thrust = 0
  220.     ship.live = 1
  221.     rockPoints = 0
  222.     roundPoints = 0
  223.     WHILE ship.live AND _KEYDOWN(27) = 0
  224.  
  225.         _KEYCLEAR 'clear all previous INKEY$ or _KEYHIT and variables  so ship should always start in middle of sceen pointed east
  226.         kh = 0
  227.  
  228.         'draw everything then process bullets
  229.         drawStars 1
  230.         LOCATE 1, 1: PRINT "Lives:"; lives
  231.         LOCATE 2, 1: PRINT "Last Rock:"; STR$(rockPoints)
  232.         LOCATE 3, 1: PRINT "Round:;"; STR$(roundPoints)
  233.         LOCATE 4, 1: PRINT "Points:"; STR$(points)
  234.         LOCATE 5, 1: PRINT "High Score:"; STR$(HS)
  235.         FOR ai = 1 TO alienN
  236.             drawAliens ai
  237.         NEXT
  238.         FOR i = 1 TO nRocks
  239.             IF r(i).live THEN 'make sure if we crash into a ship it is a live rock, not one sitting on side waiting to be called up
  240.                 drawRock i ' while drawing rocks the ship could be blown up
  241.                 IF ((r(i).x - ship.x) ^ 2 + (r(i).y - ship.y) ^ 2) ^ .5 < r(i).r + 30 THEN 'rock collides with ship?
  242.                     FOR br = 1 TO 200 STEP 5
  243.                         CIRCLE ((ship.x + r(i).x) / 2, (ship.y + r(i).y) / 2), br, _RGB32(255 - br, 255 - 2 * br, 0)
  244.                     NEXT
  245.                     drawRock i
  246.                     drawship
  247.                     ship.live = 0
  248.                     IF i <= rocks THEN newRock i ELSE r(i).live = 0
  249.                 END IF
  250.             END IF
  251.         NEXT
  252.         FOR i = 1 TO nRocks 'smoke up the place with rock debris fields still flying out from hit frames ago
  253.             IF r(i).explodeFrame THEN
  254.                 r(i).explodeFrame = r(i).explodeFrame + 1
  255.                 IF r(i).explodeFrame > .25 * r(i).r THEN
  256.                     r(i).explodeFrame = 0
  257.                     IF i <= rocks THEN newRock i ' now replace the rock
  258.                 ELSE
  259.                     explode r(i).x, r(i).y, r(i).r, r(i).explodeFrame
  260.                 END IF
  261.             END IF
  262.         NEXT
  263.         IF ship.live THEN
  264.             FOR ai = 1 TO alienN
  265.                 IF SQR((aliens(ai).x - ship.x) ^ 2 + (aliens(ai).y - ship.y) ^ 2) < 60 THEN 'aliens and ship collisde boom boom
  266.                     FOR br = 1 TO 200 STEP 5
  267.                         CIRCLE ((ship.x + aliens(ai).x) / 2, (ship.y + aliens(ai).y) / 2), br, _RGB32(255 - br, 255 - 2 * br, 0)
  268.                     NEXT
  269.                     drawship
  270.                     ship.live = 0
  271.                     _CONTINUE
  272.                 ELSE
  273.                     drawship
  274.                 END IF
  275.             NEXT
  276.  
  277.             '                                                                   ship controls update
  278.             'a key or left arrow = left spin
  279.             IF _KEYDOWN(97) OR _KEYDOWN(19200) THEN ship.angle = ship.angle - pi / 48
  280.  
  281.             's key or right arrow = right spin
  282.             IF _KEYDOWN(115) OR _KEYDOWN(19712) THEN ship.angle = ship.angle + pi / 48
  283.  
  284.             'l is Fire!  JUST CONTINUOUS FIRE
  285.             fire = 0
  286.             'IF _KEYDOWN(108) THEN
  287.             t = TIMER(.01)
  288.             IF lastt = 0 OR t - lastt > .15 THEN fire = 1: SOUND 2088, .01: lastt = t
  289.             'END IF
  290.  
  291.             kh = _KEYHIT
  292.             SELECT CASE kh
  293.                 CASE 107, 18432 'thrust  k key or up arrow
  294.                     SOUND 488, .01
  295.                     ship.thrustAngle = ship.angle: ship.thrust = 120
  296.                 CASE 13, 32 ' space = hyperspace jump
  297.                     RANDOMIZE TIMER
  298.                     ship.x = (xmax - 300) * RND + 150: ship.y = (ymax - 300) * RND + 150: ship.thrust = 0
  299.             END SELECT
  300.  
  301.             '                                                                   locate ship
  302.             IF ship.thrust > 0 THEN
  303.                 'relocate ship position
  304.                 ship.x = ship.x + ship.speed * COS(ship.thrustAngle)
  305.                 ship.y = ship.y + ship.speed * SIN(ship.thrustAngle)
  306.             END IF
  307.             '                                                                    jump borders
  308.             IF ship.x < 0 THEN ship.x = xmax - ABS(ship.x)
  309.             IF ship.x > xmax THEN ship.x = ship.x - xmax
  310.             IF ship.y < 0 THEN ship.y = ymax - ABS(ship.y)
  311.             IF ship.y > ymax THEN ship.y = ship.y - ymax
  312.  
  313.  
  314.             FOR i = 0 TO nBullets '                                               handle bullets
  315.                 IF b(i).live = 0 AND fire = 1 THEN 'have inactive bullet to use
  316.                     b(i).x = ship.x + bSpeed * COS(ship.angle)
  317.                     b(i).y = ship.y + bSpeed * SIN(ship.angle)
  318.                     b(i).dx = bSpeed * COS(ship.angle)
  319.                     b(i).dy = bSpeed * SIN(ship.angle)
  320.                     b(i).live = -1
  321.                     bullets = bullets + 1
  322.                     fire = 0
  323.                 END IF
  324.                 IF b(i).live THEN 'new location
  325.                     b(i).x = b(i).x + b(i).dx
  326.                     b(i).y = b(i).y + b(i).dy
  327.                     IF b(i).x > 0 AND b(i).x < xmax AND b(i).y > 0 AND b(i).y < ymax THEN 'in bounds draw it
  328.  
  329.                         'bullet hit aliens?
  330.                         FOR ai = 1 TO alienN
  331.                             IF SQR((aliens(ai).x - b(i).x) ^ 2 + (aliens(ai).y - b(i).y) ^ 2) < 30 THEN
  332.                                 FOR br = 1 TO 120
  333.                                     CIRCLE (aliens(ai).x, aliens(ai).y), br / 3, plasma~&(0)
  334.                                 NEXT
  335.                                 _DISPLAY
  336.                                 _DELAY .05
  337.                                 hits = hits + 1
  338.                                 roundPoints = roundPoints + 100
  339.                                 points = points + 100
  340.                                 aliens(ai).live = 0
  341.                                 newAlien ai
  342.                                 b(i).live = 0
  343.                                 _CONTINUE
  344.                             END IF
  345.                         NEXT
  346.                         FOR r = 1 TO nRocks 'check for collision with rock
  347.                             IF r(r).live THEN
  348.                                 IF SQR((r(r).x - b(i).x) ^ 2 + (r(r).y - b(i).y) ^ 2) < r(r).r THEN 'its a hit!
  349.                                     r(r).explodeFrame = 1 'linger with explosion
  350.                                     r(r).live = 0
  351.                                     hits = hits + 1
  352.                                     rockPoints = 50 * ((r(r).speed - minRockSpeed) / rockSpeedRange + (rockSizeRange - (r(r).r - minRockSize)) / rockSizeRange)
  353.                                     roundPoints = roundPoints + rockPoints
  354.                                     points = points + rockPoints
  355.                                     IF r(r).r > 30 THEN '       split rock  into ? new ones
  356.                                         maxBabyRocks = INT((r(r).r - 10) / 10)
  357.                                         maxBabyRocks = irnd&(2, maxBabyRocks) ' pick a number of baby Rocks
  358.                                         FOR br = 1 TO maxBabyRocks
  359.                                             '                        new rock
  360.                                             newRockN = freeRock& '                          get inactive rock number
  361.                                             newRock newRockN '                              new identity and activate
  362.                                             r(newRockN).r = (r(r).r - 10) / maxBabyRocks '  split in equal parts minus 20% mass
  363.                                             r(newRockN).x = r(r).x + irnd&(-30, 30) '       thrown from parent
  364.                                             r(newRockN).y = r(r).y + irnd&(-30, 30)
  365.                                             r(newRockN).c = r(r).c '                   same color as parent
  366.                                             r(newRockN).heading = rrnd(ship.angle - .75 * pi, ship.angle + .75 * pi)
  367.                                         NEXT
  368.                                     END IF ' big enough to split
  369.                                     b(i).live = 0 'kill bullet
  370.                                 END IF ' hit rock
  371.                             END IF 'rock is there
  372.                         NEXT ' rock
  373.                         IF b(i).live THEN fcirc b(i).x, b(i).y, 3, _RGB32(255, 255, 0) 'draws bullet
  374.                     ELSE
  375.                         b(i).live = 0 'out of bounds
  376.                     END IF ' bullet is in bounds
  377.                 END IF ' bullet live
  378.             NEXT ' bullet
  379.         END IF ' if ship still live
  380.         _DISPLAY
  381.         IF ship.live = 0 THEN
  382.             lives = lives - 1
  383.             IF lives MOD 4 = 0 THEN rocks = rocks + 1
  384.             IF lives MOD 4 = 2 THEN alienN = alienN + 1
  385.             s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  386.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 80), s$
  387.             _FONT fnt2
  388.             s$ = STR$(points) + hs$
  389.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  390.             _FONT fnt
  391.             s$ = "Press enter to enter next life."
  392.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 120), s$
  393.             _DISPLAY
  394.             kh = 0
  395.             WHILE kh <> 13
  396.                 kh = _KEYHIT
  397.             WEND 'wait for enter key
  398.         ELSE
  399.             _LIMIT 60 ' if ship dies let's rest and regroup  before restart next life
  400.         END IF
  401.     WEND
  402.     _DISPLAY
  404. IF points > HS THEN
  405.     OPEN "Asteroids High Score.txt" FOR OUTPUT AS #1
  406.     PRINT #1, points
  407.     CLOSE #1
  409. ship.x = -200: ship.y = -200 'get it out of the way
  410. i = 0
  412.     drawStars 0
  413.     i = i + 1
  414.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  415.     FOR r = 1 TO nRocks
  416.         IF r(r).live THEN drawRock r
  417.     NEXT
  418.     s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  419.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 80), s$
  420.     _FONT fnt2
  421.     s$ = STR$(points)
  422.     IF points > HS THEN s$ = s$ + " a New Record!" ELSE s$ = STR$(points) + hs$
  423.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  424.     _FONT fnt
  425.     s$ = "Press q to quit, p or a to Play Again..."
  426.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 120), s$
  427.     IF _KEYDOWN(ASC("a")) OR _KEYDOWN(ASC("p")) THEN GOTO restart
  428.     _DISPLAY
  429.     _LIMIT 60
  432.  
  433. SUB drawStars (moving)
  434.     TYPE starType
  435.         x AS SINGLE
  436.         y AS SINGLE
  437.         size AS SINGLE
  438.         c AS INTEGER
  439.     END TYPE
  440.     STATIC beenHere, stars(600) AS starType, cy AS LONG
  441.     DIM i AS LONG
  442.     IF beenHere = 0 THEN 'static part
  443.         FOR i = 0 TO 200
  444.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = 0
  445.             stars(i).c = irnd&(80, 140)
  446.         NEXT
  447.         FOR i = 0 TO 200
  448.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = .3
  449.             stars(i).c = irnd&(80, 140)
  450.         NEXT
  451.  
  452.         FOR i = 1 TO 140
  453.             stars(i + 400).x = RND * xmax: stars(i + 400).y = RND * ymax: stars(i + 100).size = .6
  454.             stars(i).c = irnd&(110, 170)
  455.         NEXT
  456.         FOR i = 1 TO 50
  457.             stars(i + 540).x = RND * xmax: stars(i + 540).y = RND * ymax: stars(i + 170).size = 1.2
  458.             stars(i).c = irnd&(140, 200)
  459.         NEXT
  460.         FOR i = 1 TO 10
  461.             stars(i + 590).x = RND * xmax: stars(i + 590).y = RND * ymax: stars(i + 195).size = 2.4
  462.             stars(i).c = irnd&(170, 235)
  463.         NEXT
  464.         cy = ymax / 2
  465.         beenHere = 1
  466.     END IF
  467.     FOR i = 0 TO cy
  468.         LINE (0, i)-(xmax, i), _RGB32(0, 0, .1 * i + 4)
  469.         LINE (0, ymax - i)-(xmax, ymax - i), _RGB(0, 0, .1 * i + 4)
  470.     NEXT
  471.     FOR i = 0 TO 200
  472.         IF moving THEN
  473.             stars(i).x = stars(i).x + .2 * stars(i).size ^ stars(i).size
  474.             IF stars(i).x > xmax THEN stars(i).x = -1 * RND * 20
  475.         END IF
  476.         fcirc stars(i).x, stars(i).y, stars(i).size, _RGB32(stars(i).c - 10, stars(i).c, stars(i).c + 10)
  477.     NEXT
  479.  
  480. SUB newAlien (i AS LONG)
  481.     DIM side AS LONG, heading
  482.     RANDOMIZE TIMER * RND 'to avoid making twins
  483.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  484.     aliens(i).fireX = irnd(10, xmax - 10)
  485.     aliens(i).fireY = irnd(10, ymax - 10)
  486.     aliens(i).attackFrame = irnd(30, 400) ' EDIT a tweak to survive a little long before getting murdered with low lives over and over...
  487.     SELECT CASE side
  488.         CASE 1
  489.             aliens(i).x = -10
  490.             aliens(i).y = rrnd(20, ymax - 20)
  491.         CASE 2
  492.             aliens(i).x = xmax + 10
  493.             aliens(i).y = rrnd(20, ymax - 20)
  494.         CASE 3
  495.             aliens(i).x = rrnd(20, xmax - 20)
  496.             aliens(i).y = -10
  497.         CASE 4
  498.             aliens(i).x = rrnd(20, xmax - 20)
  499.             aliens(i).y = ymax + 10
  500.     END SELECT
  501.     heading = _ATAN2(aliens(i).fireY - aliens(i).y, aliens(i).fireX - aliens(i).x)
  502.     aliens(i).dx = alienSpeed * COS(heading)
  503.     aliens(i).dy = alienSpeed * SIN(heading)
  504.     aliens(i).live = 0
  505.     aliens(i).transform = 0
  506.     aliens(i).c = _RGB32(irnd(128, 255), irnd(0, 255), irnd(0, 255))
  508.  
  509. FUNCTION plasma~& (new AS LONG)
  510.     STATIC r, g, b, cnt, beenHere
  511.     IF beenHere = 0 OR new THEN
  512.         r = RND: g = RND: b = RND: beenHere = 1: cnt = 0
  513.     END IF
  514.     cnt = cnt + .2
  515.     plasma~& = _RGB32(127 + 127 * SIN(r * cnt), 127 + 127 * SIN(g * cnt), 127 + 127 * SIN(b * cnt))
  517.  
  518. SUB drawAliens (i AS LONG) 'shipType
  519.     DIM light AS LONG, heading, r AS LONG, g AS LONG, b AS LONG
  520.     IF aliens(i).live THEN
  521.         SOUND 6000 + i * 200, .07
  522.         IF aliens(i).transform = 0 THEN
  523.             r = _RED32(aliens(i).c): g = _GREEN32(aliens(i).c): b = _BLUE32(aliens(i).c)
  524.             fellipse aliens(i).x, aliens(i).y, 6, 15, _RGB32(r, g - 120, b - 100)
  525.             fellipse aliens(i).x, aliens(i).y, 18, 11, _RGB32(r, g - 60, b - 50)
  526.             fellipse aliens(i).x, aliens(i).y, 30, 7, _RGB32(r, g, b)
  527.             FOR light = 0 TO 5
  528.                 fcirc aliens(i).x - 30 + 11 * light + aliens(i).ls, aliens(i).y, 1, _RGB32(aliens(i).ls * 50, aliens(i).ls * 50, aliens(i).ls * 50)
  529.             NEXT
  530.             aliens(i).ls = aliens(i).ls + 1
  531.             IF aliens(i).ls > 5 THEN aliens(i).ls = 0
  532.         ELSE
  533.             drawBall aliens(i).x, aliens(i).y, 30, aliens(i).c
  534.         END IF
  535.         'time to shoot?
  536.         aliens(i).x = aliens(i).x + aliens(i).dx
  537.         aliens(i).y = aliens(i).y + aliens(i).dy
  538.         IF SQR((aliens(i).fireX - aliens(i).x) ^ 2 + (aliens(i).fireY - aliens(i).y) ^ 2) < 5 THEN 'transform into the bolder of death
  539.             aliens(i).transform = 1
  540.             heading = _ATAN2(ship.y - aliens(i).y, ship.x - aliens(i).x)
  541.             aliens(i).dx = 2.5 * COS(heading)
  542.             aliens(i).dy = 2.5 * SIN(heading)
  543.         END IF
  544.         IF aliens(i).x < -10 OR aliens(i).x > xmax + 10 THEN
  545.             IF aliens(i).y < -10 OR aliens(i).y > ymax + 10 THEN '  out of bounds goodbye bolder of death!
  546.                 aliens(i).live = 0 'man we dodged a bullet here!!!!
  547.                 newAlien i 'reset the trap
  548.             END IF
  549.         END IF
  550.     ELSE
  551.         IF aliens(i).attackFrame THEN
  552.             aliens(i).attackFrame = aliens(i).attackFrame - 1
  553.             IF aliens(i).attackFrame = 0 THEN
  554.                 aliens(i).live = 1
  555.             END IF
  556.         END IF
  557.     END IF
  559.  
  560. FUNCTION freeRock&
  561.     DIM i AS LONG
  562.     FOR i = rocks + 1 TO nRocks ' look for inactive rock number
  563.         IF r(i).live = 0 AND r(i).explodeFrame = 0 THEN freeRock& = i: EXIT FUNCTION
  564.     NEXT
  566.  
  567. SUB explode (x AS LONG, y AS LONG, r AS LONG, frm AS LONG)
  568.     DIM maxParticles AS LONG, i AS LONG, rounds AS LONG, loopCount AS LONG
  569.     maxParticles = r * 4
  570.     FOR i = 1 TO r
  571.         NewDot i, x, y, r
  572.     NEXT
  573.     rounds = r
  574.     FOR loopCount = 0 TO frm
  575.         IF _KEYDOWN(27) THEN END
  576.         FOR i = 1 TO rounds
  577.             dots(i).x = dots(i).x + dots(i).dx
  578.             dots(i).y = dots(i).y + dots(i).dy
  579.             fcirc dots(i).x, dots(i).y, dots(i).size, dots(i).kolor
  580.         NEXT
  581.         IF rounds < maxParticles THEN
  582.             FOR i = 1 TO r
  583.                 NewDot (rounds + i), x, y, r
  584.             NEXT
  585.             rounds = rounds + r
  586.         END IF
  587.     NEXT
  589.  
  590. SUB NewDot (i AS LONG, x AS LONG, y AS LONG, r AS LONG)
  591.     DIM angle, rd
  592.     angle = pi * 2 * RND
  593.     rd = RND * 30
  594.     dots(i).x = x + rd * COS(angle)
  595.     dots(i).y = y + rd * SIN(angle)
  596.     dots(i).size = RND * r * .05
  597.     rd = RND 'STxAxTIC recommended for rounder spreads
  598.     dots(i).dx = rd * 10 * (10 - 2 * dots(i).size) * COS(angle)
  599.     dots(i).dy = rd * 10 * (10 - 2 * dots(i).size) * SIN(angle)
  600.     rd = 20 + RND * 70
  601.     dots(i).kolor = _RGBA32(rd, rd, rd, 80)
  603.  
  604. SUB drawship 'simple red iso triangle pointed towards radianAngle
  605.     DIM x1 AS LONG, y1 AS LONG, x2 AS LONG, y2 AS LONG, x3 AS LONG, y3 AS LONG
  606.     DIM x4 AS LONG, y4 AS LONG, x5 AS LONG, y5 AS LONG
  607.     IF ship.thrust > 0 THEN
  608.         'burn out flame as thruster dies out
  609.         x4 = ship.x + .5 * ship.thrust * COS(ship.angle - 17 / 18 * pi)
  610.         y4 = ship.y + .5 * ship.thrust * SIN(ship.angle - 17 / 18 * pi)
  611.         x5 = ship.x + .5 * ship.thrust * COS(ship.angle - 19 / 18 * pi)
  612.         y5 = ship.y + .5 * ship.thrust * SIN(ship.angle - 19 / 18 * pi)
  613.         ftri ship.x, ship.y, x4, y4, x5, y5, &H99FFFF88
  614.         ship.thrust = ship.thrust - 1
  615.     END IF
  616.     'draw ship dead or alive thrust or not, calculate 3 points of triangle ship
  617.     fcirc ship.x, ship.y, 30, &H05FFFFFF
  618.     x1 = ship.x + 30 * COS(ship.angle) ' front point
  619.     y1 = ship.y + 30 * SIN(ship.angle) '
  620.     x2 = ship.x + 30 * COS(ship.angle + .6666 * pi) ' wing
  621.     y2 = ship.y + 30 * SIN(ship.angle + .6666 * pi)
  622.     x3 = ship.x + 30 * COS(ship.angle - .6666 * pi) ' other wing
  623.     y3 = ship.y + 30 * SIN(ship.angle - .6666 * pi)
  624.     ftri ship.x, ship.y, x1, y1, x2, y2, _RGB32(80, 120, 80, 80)
  625.     ftri ship.x, ship.y, x1, y1, x3, y3, _RGB32(60, 100, 60, 80)
  626.     LINE (x1, y1)-(ship.x, ship.y), _RGB32(255, 255, 128)
  627.     LINE (x1, y1)-(x2, y2), _RGB32(255, 180, 40)
  628.     LINE (x1, y1)-(x3, y3), _RGB32(255, 180, 40)
  630.  
  631. SUB drawRock (iRock)
  632.     RANDOMIZE USING r(iRock).seed 'this prevents having to save a particular sequence of random number
  633.     DIM dx, dy, j AS LONG, rRad AS SINGLE, leg AS SINGLE, x0 AS LONG, y0 AS LONG, rc AS LONG, c~&, x1 AS LONG, y1 AS LONG, xoff, yoff, i AS LONG
  634.     DIM x2 AS LONG, y2 AS LONG
  635.     dx = r(iRock).speed * COS(r(iRock).heading)
  636.     dy = r(iRock).speed * SIN(r(iRock).heading) 'update location
  637.     r(iRock).ra = r(iRock).ra + r(iRock).spin
  638.     IF r(iRock).x + dx + r(iRock).r < 0 OR r(iRock).x + dx - r(iRock).r > xmax OR r(iRock).y + dy + r(iRock).r < 0 OR r(iRock).y + dy - r(iRock).r > ymax THEN
  639.         IF iRock <= rocks THEN newRock iRock ELSE r(iRock).live = 0
  640.         EXIT SUB ' reassigned get out of here
  641.     ELSE
  642.         r(iRock).x = r(iRock).x + dx
  643.         r(iRock).y = r(iRock).y + dy
  644.     END IF
  645.     FOR j = 10 TO 3 STEP -1 '                  rock drawing (see demo program where developed code)
  646.         rRad = .1 * j * r(iRock).r
  647.         leg = rRad * (RND * .7 + .3)
  648.         x0 = r(iRock).x + leg * COS(r(iRock).ra)
  649.         y0 = r(iRock).y + leg * SIN(r(iRock).ra)
  650.         rc = r(iRock).c + 30 * RND - 15
  651.         c~& = _RGB32(rc + 5, rc - 10, rc + 5)
  652.         x1 = x0
  653.         y1 = y0
  654.         xoff = RND * 20 - 10 + r(iRock).x
  655.         yoff = RND * 20 - 10 + r(iRock).y
  656.         FOR i = 1 TO 12
  657.             leg = rRad * (RND * .35 + .65)
  658.             IF i = 12 THEN
  659.                 x2 = x0: y2 = y0
  660.             ELSE
  661.                 x2 = xoff + leg * COS(i * polyAngle + r(iRock).ra)
  662.                 y2 = yoff + leg * SIN(i * polyAngle + r(iRock).ra)
  663.             END IF
  664.             ftri r(iRock).x, r(iRock).y, x1, y1, x2, y2, c~&
  665.             x1 = x2: y1 = y2
  666.         NEXT
  667.     NEXT
  669.  
  670. SUB newRock (iRock)
  671.     DIM side AS LONG
  672.     RANDOMIZE TIMER * RND 'to avoid making twins
  673.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  674.     SELECT CASE side
  675.         CASE 1
  676.             r(iRock).x = -100
  677.             r(iRock).y = rrnd(20, ymax - 20)
  678.             r(iRock).heading = 3 * pi / 2 + RND * pi
  679.         CASE 2
  680.             r(iRock).x = xmax + 100
  681.             r(iRock).y = rrnd(20, ymax - 20)
  682.             r(iRock).heading = pi / 2 + RND * pi
  683.         CASE 3
  684.             r(iRock).x = rrnd(20, xmax - 20)
  685.             r(iRock).y = -100
  686.             r(iRock).heading = RND * pi
  687.         CASE 4
  688.             r(iRock).x = rrnd(20, xmax - 20)
  689.             r(iRock).y = ymax + 100
  690.             r(iRock).heading = pi + RND * pi
  691.     END SELECT
  692.     r(iRock).speed = rrnd(minRockSpeed, maxRockSpeed) 'speed, rotation angle, radius, gray coloring, spin, seed, hit for explosion
  693.     r(iRock).ra = RND * 2 * pi
  694.     r(iRock).r = irnd&(minRockSize * 3, maxRockSize) 'every parent rock can be split up into at least 2 - 10 size rocks
  695.     r(iRock).c = irnd&(60, 110) ' Ken request increase in rock color
  696.     r(iRock).spin = rrnd(-pi / 20, pi / 20)
  697.     r(iRock).seed = INT(RND * 64000) - 32000
  698.     r(iRock).explodeFrame = 0
  699.     r(iRock).live = 1
  701.  
  702. FUNCTION irnd& (n1, n2) 'return an integer between 2 numbers
  703.     DIM l%, h%
  704.     IF n1 > n2 THEN l% = n2: h% = n1 ELSE l% = n1: h% = n2
  705.     irnd& = INT(RND * (h% - l% + 1)) + l%
  707.  
  708. FUNCTION rrnd (n1, n2) ' return number (expecting reals =_single, double, _float depending on default / define setup)
  709.     rrnd = (n2 - n1) * RND + n1
  711.  
  712. SUB drawBall (x, y, r, c AS _UNSIGNED LONG)
  713.     DIM red AS LONG, grn AS LONG, blu AS LONG, rr AS LONG, f
  714.     red = _RED32(c): grn = _GREEN32(c): blu = _BLUE32(c)
  715.     FOR rr = r TO 0 STEP -1
  716.         f = 1 - rr / r
  717.         fcirc x, y, rr, _RGB32(red * f, grn * f, blu * f)
  718.     NEXT
  720.  
  721. SUB fellipse (CX AS LONG, CY AS LONG, xr AS LONG, yr AS LONG, C AS _UNSIGNED LONG)
  722.     IF xr = 0 OR yr = 0 THEN EXIT SUB
  724.     DIM x AS LONG, y AS LONG
  725.     w2 = xr * xr: h2 = yr * yr: h2w2 = h2 * w2
  726.     LINE (CX - xr, CY)-(CX + xr, CY), C, BF
  727.     DO WHILE y < yr
  728.         y = y + 1
  729.         x = SQR((h2w2 - y * y * w2) \ h2)
  730.         LINE (CX - x, CY + y)-(CX + x, CY + y), C, BF
  731.         LINE (CX - x, CY - y)-(CX + x, CY - y), C, BF
  732.     LOOP
  734.  
  735. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  736.     DIM D AS LONG
  737.     STATIC a&
  738.     D = _DEST
  739.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  740.     _DEST a&
  741.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
  742.     PSET (0, 0), K
  743.     _BLEND a& '<<<< new 2019-12-16 fix
  744.     _DEST D
  745.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  747.  
  748. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG) 'vince version
  749.     DIM x0 AS LONG, y0 AS LONG, e AS LONG
  750.     x0 = R: y0 = 0: e = 0
  751.     DO WHILE y0 < x0
  752.         IF e <= 0 THEN
  753.             y0 = y0 + 1
  754.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  755.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  756.             e = e + 2 * y0
  757.         ELSE
  758.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  759.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  760.             x0 = x0 - 1: e = e - 2 * x0
  761.         END IF
  762.     LOOP
  763.     LINE (x - R, y)-(x + R, y), C, BF
  765.  
Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 05, 2020, 05:52:12 pm
WHEW! I just played and got 230,962 on the default speed and rocks. I got to where 3 saucers were coming at me at once. LOL My hand was starting to wear out. Here is a picture I took with my camera.

Title: Re: b+ Asteroids makeover
Post by: johnno56 on November 05, 2020, 06:07:02 pm
Aw man! I was just about to post my new high score, that topped BPlus's 84,000, with my 85,932... When I saw Ken's posting... Ouch! Well done, Ken... (grumble.. grumble..)
Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 05, 2020, 06:52:30 pm
LOL Thanks Johno. I guess I've always been good at Asteroids. LOL
Title: Re: b+ Asteroids makeover
Post by: bplus on November 05, 2020, 07:47:27 pm
Holy cow, Ken! Wow, and that's after I put more start rocks back in and increased speeds a bit!

How long did that take? Do you use thrust much? Isn't Hyperspace jump a life saver? ;-)

Title: Re: b+ Asteroids makeover
Post by: bplus on November 05, 2020, 10:54:58 pm
The long awaited p button (98,000+):
Code: QB64: [Select]
  2. _TITLE "b+QB64 Asteroids M10" 'started 2018-07-13
  3. '2020 - Oct and Nov: Special thanks to SierraKen who has been helpful with suggestions, ideas and fixes.
  5.  
  6. ' Far far away in a universe where Newton's 1st Law of Motion is not obeyed...    ;-))
  7.  
  8.  
  9. '                                            New Controls
  10. ' key a or left arrow = turn left
  11. ' key s or right arrow = turn right
  12. ' enter or spacebar =  "hyperspace" show up somewhere else  better or worse use when collision is imminent
  13. ' key k or up arrow = thrust  just a burst in direction you are pointed but doesn't last
  14. ' fire! owwha, owha, owha...  is now continuous
  15.  
  16. '=================================================================================================================
  17.  
  18. ' 2020-10-27 remove the alternate subs and get down below 200 LOC almost there now! new shooter action font and background
  19. ' 2020-10-28 another makeover explosions and split asteroids
  20. ' 2020-10-29 fix baby rock management, break between lives
  21. ' 2020-10-29 fix left/right gun, fix explosions over many frames to eliminate pause in action, speed up 60 fps
  22. ' 2020-10-30 m3 SierraKen's idea to angle shooter with mousewheel also finish WASD options, more rocks, points system
  23. ' points:
  24. ' The higher the speed the better    speed range .5 to 2.5, diff = 2 * 50 = 100          s - .5 * 50
  25. ' DELETE The lower the color the better   color range 10 to 60, diff =      50 * 2 = 100  50 - (c - 10) * 2
  26. ' The smaller the size the better  size range 10 to 100, diff = 90 * 1.1111 = 100  90 - (sz -10) * 1.1111
  27. '        ((speed - .5) * 50 + (90 - (r - 10)) * 1.1111) / 2 = 100 best score per hit
  28. ' 2020-10-30 increase level of difficulty, fix double lives lost, add an ending after all lives spent.
  29. ' 2020-10-31 M4 They are Here - the aliens have accepted my invitaion for war games don't get caught in their beam.
  30. ' rework ending and variable LONG suffix. Aliens on the attack 100 points before or after transformed into the Bolder of Death.
  31. ' 2020-11-01 M5 FX Moving through space, Oh yeah, more aliens!
  32. ' 2020-11-01 M6 add play again and save high game , continuous shoot
  33. ' 2020-11-01 M7 fix hits count when hit alien ship or Bolder of Death. Fix lights on aliens ship. I want to see collsions with ship.
  34. ' Ken recommends removing text in middle of screen, yeah, distracting. Makeover ship as with mouse x, y it's center. Add Splash screen.
  35. ' Show mouse in between lives so can be in screen center when press key to start next run.
  36.  
  37. ' 2020-11-03 M9 watching videos on Asteroids, I found a view and description of the control panel, it is:
  38. ' 2 buttons on left and lower button in middle and 2 buttons on right level with 2 on left.
  39. ' 2 buttons on left are left and right turns they will be Keys A and S
  40. ' The middle will be spacebar for Hypespace or these days we might call it worm hole, jump to another location better or worse!
  41. ' 2 buttons on right K and L: K will be a thruster of sorts you eventually come to a stop (not what Newton would like) L is the fire button.
  42. ' So let's try that. I am impressed by hitting thruster and shooting all around as you dift in direction gun was pointed when hit thruster.
  43. ' Lighten rocks and change points, based now only on size and speed of Asteroids.
  44. ' 2020-11-04 M9 Install new update to thrust control. Thanks to SierraKen for finding out what happened to Hyperspace jump when press
  45. ' spacebar a 2nd time in a life. Oh also Boulders of Death are now more like smooth colored spheres. Ahhhh Fixed the crashing at the borders
  46. ' now fly out one side and come back in on the other! This is getting good! Adding some sound effects.
  47. ' 2020-11-05 M10 set some constants for starting game so can just change them to level of play desired.
  48. ' speed points =  50 * (rockSpeed - minRockSpeed)/rockSpeedRange > fastest rock gets 50 points
  49. ' size points = 50 * (rockSizeRange - (rockSize - minRockSize))/rockSizeRange  > smallest rock gets 50 points
  50. ' points = points +  50 * ( (rockSpeed - minRockSpeed)/rockSpeedRange +  (rockSizeRange - (rockSize - minRockSize))/rockSizeRange )
  51. ' Dav's comments: Add arrow keys for left right turns and up for thrust, continuous fire now! A little score board in top left corner.
  52. ' Dav I am keeping spacebar for Hyperspace but also Enter, don't need fire button now.
  53. ' Try the A for left and the right arrow for right turns.
  54. ' 2020-11-05 p is for pause
  55.  
  56. '================================================================================================================
  57.  
  58. '    NOTE: !!!!!!!!!!!!!!!   When there is a pause in action, just press enter,  as in enter a new life!
  59.  
  60. '================================================================================================================
  61.  
  62. CONST xmax = 1200, ymax = 700, pi = _PI, polyAngle = _PI / 6, nRocks = 300, nBullets = 2000, bSpeed = 15
  63. CONST startRocks = 2, minRockSpeed = 0.5000, maxRockSpeed = 2.5000, minRockSize = 10, maxRockSize = 100
  64. CONST rockSpeedRange = maxRockSpeed - minRockSpeed, rockSizeRange = maxRockSize - minRockSize
  65. CONST alienSpeed = rockSpeedRange / 2 + minRockSpeed ' average rock speed
  66.  
  67. TYPE alienType
  68.     x AS SINGLE
  69.     y AS SINGLE
  70.     dx AS SINGLE
  71.     dy AS SINGLE
  72.     ls AS LONG ' lights offset and gray scale
  73.     c AS _UNSIGNED LONG ' color
  74.     live AS LONG
  75.     attackFrame AS LONG
  76.     fireX AS SINGLE
  77.     fireY AS SINGLE
  78.     transform AS LONG
  80.  
  81. TYPE particle
  82.     x AS SINGLE
  83.     y AS SINGLE
  84.     dx AS SINGLE
  85.     dy AS SINGLE
  86.     size AS SINGLE
  87.     kolor AS _UNSIGNED LONG
  89.  
  90. TYPE bullet
  91.     x AS SINGLE
  92.     y AS SINGLE
  93.     dx AS SINGLE
  94.     dy AS SINGLE
  95.     live AS LONG
  97.  
  98. TYPE shipType
  99.     x AS SINGLE
  100.     y AS SINGLE
  101.     live AS LONG
  102.     speed AS SINGLE '       just a constant now when Thrust is applied
  103.     thrustAngle AS SINGLE ' ship/gun angle at moment Thrust is pressed
  104.     angle AS SINGLE '       rotated position ship/gun now A or S keypress or hold down
  105.     thrust AS LONG '        this now tracks how many frames ship will move at speed and thrustAngle
  107.  
  108. TYPE rock
  109.     x AS SINGLE
  110.     y AS SINGLE
  111.     r AS LONG '            radius
  112.     ra AS SINGLE '         rotation position   a = a + spin
  113.     heading AS SINGLE '    heading from which dx, dy are calc with speed
  114.     speed AS SINGLE '      speed
  115.     spin AS SINGLE '       rotation direction and amount
  116.     seed AS LONG '         for drawing rocks with RND USING
  117.     c AS LONG '            color   rgb(c, c, c)
  118.     live AS LONG '         need this to track rocks still active like bullets
  119.     explodeFrame AS LONG ' after a rock is hit by bullet, it explodes and in more than one frame
  121.  
  122. REDIM SHARED aliens(1 TO 5) AS alienType
  123. DIM SHARED dots(2000) AS particle ' explosions
  124. DIM SHARED b(nBullets) AS bullet
  125. DIM SHARED ship AS shipType
  126. DIM SHARED r(nRocks) AS rock
  128. DIM SHARED points AS LONG
  129. DIM SHARED rocks AS LONG 'rocks is the minimum number of parent rocks to have on screen  automatic replace when hit or out of bounds
  130.  
  131. DIM HS AS LONG, fnt AS LONG, fnt2 AS LONG ' file LOAD handles
  132. DIM i AS LONG, bullets AS LONG, fire AS LONG ' index and bullets
  133. DIM r AS LONG, newRockN AS LONG, maxBabyRocks AS LONG, br AS LONG, hits AS LONG ' rock stuff
  134. DIM ai AS LONG, alienN AS LONG ' alien index and number
  135. DIM kh AS LONG 'key hit for ship thrust k or up arrow or hyperspace jump spacebar
  136. DIM hs$, s$, k$, t, lastt 'high score, general string and times for bullets
  137. DIM rockPoints AS LONG, roundPoints AS LONG ' various points scores
  138. ship.speed = 3.5 'this would be a constant but ship has to declared as Ship Type first, Hyperspace jump
  139.  
  140. SCREEN _NEWIMAGE(xmax, ymax, 32)
  141. _SCREENMOVE 100, 20
  143.  
  144. fnt = _LOADFONT("ARLRDBD.ttf", 16, "MONOSPACE")
  145. fnt2 = _LOADFONT("ARLRDBD.ttf", 40, "MONOSPACE")
  146. _FONT fnt2
  147. COLOR &HFF00FFFF, &H00000000
  148.  
  149. IF _FILEEXISTS("Asteroids High Score.txt") THEN
  150.     OPEN "Asteroids High Score.txt" FOR INPUT AS #1
  151.     INPUT #1, HS
  152.     CLOSE #1
  154. hs$ = "High Score:" + STR$(HS)
  155.  
  156. 'a little splash screen
  157. rocks = 7: alienN = 3
  158. FOR i = 1 TO nRocks
  159.     newRock i
  160.     IF i > rocks THEN r(i).live = 0
  162. FOR i = 1 TO alienN
  163.     newAlien i
  165. i = 0
  167.     drawStars 0
  168.     i = i + 1
  169.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  170.     FOR r = 1 TO nRocks
  171.         IF r(r).live THEN drawRock r
  172.     NEXT
  173.     FOR i = 1 TO alienN
  174.         drawAliens i
  175.     NEXT
  176.     _FONT fnt2
  177.     s$ = "*** b+QB64 Asteroids ***"
  178.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 60), s$
  179.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(hs$)) / 2, 140), hs$
  180.     s$ = "A or arrow = Left spin"
  181.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 220), s$
  182.     s$ = "S or arrow = Right Spin"
  183.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 300), s$
  184.     s$ = "Space or Enter = Hyper jump"
  185.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 380), s$
  186.     s$ = "K or up arrow = Thrust"
  187.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 460), s$
  188.     s$ = "Escape quit, any plays"
  189.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 540), s$
  190.     _FONT fnt
  192.     k$ = INKEY$
  193.     _DISPLAY
  194.     _LIMIT 60
  196.  
  198. restart:
  199. IF _FILEEXISTS("Asteroids High Score.txt") THEN
  200.     OPEN "Asteroids High Score.txt" FOR INPUT AS #1
  201.     INPUT #1, HS
  202.     CLOSE #1
  204. hs$ = "  High Score:" + STR$(HS)
  205. lives = 10: alienN = 1: rocks = startRocks: ' always active rocks
  206. points = 0: hits = 0: bullets = 0
  207. WHILE lives > 0 AND _KEYDOWN(27) = 0 ' init start restart
  208.     REDIM aliens(1 TO alienN) AS alienType
  209.     FOR ai = 1 TO alienN
  210.         newAlien ai
  211.     NEXT
  212.     FOR i = 1 TO nRocks 'reset rocks mainly clear baby rocks
  213.         newRock (i)
  214.         IF i > rocks THEN r(i).live = 0
  215.     NEXT
  216.     ship.x = xmax / 2 'avoids explosions top left corner at start, dang still get some!
  217.     ship.y = ymax / 2
  218.     ship.angle = 0
  219.     ship.thrustAngle = 0
  220.     ship.thrust = 0
  221.     ship.live = 1
  222.     rockPoints = 0
  223.     roundPoints = 0
  224.     WHILE ship.live AND _KEYDOWN(27) = 0
  225.  
  226.         _KEYCLEAR 'clear all previous INKEY$ or _KEYHIT and variables  so ship should always start in middle of sceen pointed east
  227.         kh = 0
  228.  
  229.         'draw everything then process bullets
  230.         drawStars 1
  231.         LOCATE 1, 1: PRINT "Lives:"; lives
  232.         LOCATE 2, 1: PRINT "Last Rock:"; STR$(rockPoints)
  233.         LOCATE 3, 1: PRINT "Round:;"; STR$(roundPoints)
  234.         LOCATE 4, 1: PRINT "Points:"; STR$(points)
  235.         LOCATE 5, 1: PRINT "High Score:"; STR$(HS)
  236.         FOR ai = 1 TO alienN
  237.             drawAliens ai
  238.         NEXT
  239.         FOR i = 1 TO nRocks
  240.             IF r(i).live THEN 'make sure if we crash into a ship it is a live rock, not one sitting on side waiting to be called up
  241.                 drawRock i ' while drawing rocks the ship could be blown up
  242.                 IF ((r(i).x - ship.x) ^ 2 + (r(i).y - ship.y) ^ 2) ^ .5 < r(i).r + 25 THEN 'rock collides with ship?
  243.                     FOR br = 1 TO 200 STEP 5
  244.                         CIRCLE ((ship.x + r(i).x) / 2, (ship.y + r(i).y) / 2), br, _RGB32(255 - br, 255 - 2 * br, 0)
  245.                     NEXT
  246.                     drawRock i
  247.                     drawship
  248.                     ship.live = 0
  249.                     IF i <= rocks THEN newRock i ELSE r(i).live = 0
  250.                 END IF
  251.             END IF
  252.         NEXT
  253.         FOR i = 1 TO nRocks 'smoke up the place with rock debris fields still flying out from hit frames ago
  254.             IF r(i).explodeFrame THEN
  255.                 r(i).explodeFrame = r(i).explodeFrame + 1
  256.                 IF r(i).explodeFrame > .25 * r(i).r THEN
  257.                     r(i).explodeFrame = 0
  258.                     IF i <= rocks THEN newRock i ' now replace the rock
  259.                 ELSE
  260.                     explode r(i).x, r(i).y, r(i).r, r(i).explodeFrame
  261.                 END IF
  262.             END IF
  263.         NEXT
  264.         IF ship.live THEN
  265.             FOR ai = 1 TO alienN
  266.                 IF SQR((aliens(ai).x - ship.x) ^ 2 + (aliens(ai).y - ship.y) ^ 2) < 60 THEN 'aliens and ship collisde boom boom
  267.                     FOR br = 1 TO 200 STEP 5
  268.                         CIRCLE ((ship.x + aliens(ai).x) / 2, (ship.y + aliens(ai).y) / 2), br, _RGB32(255 - br, 255 - 2 * br, 0)
  269.                     NEXT
  270.                     drawship
  271.                     ship.live = 0
  272.                     _CONTINUE
  273.                 ELSE
  274.                     drawship
  275.                 END IF
  276.             NEXT
  277.  
  278.             '                                                                   ship controls update
  279.             'a key or left arrow = left spin
  280.             IF _KEYDOWN(97) OR _KEYDOWN(19200) THEN ship.angle = ship.angle - pi / 48
  281.  
  282.             's key or right arrow = right spin
  283.             IF _KEYDOWN(115) OR _KEYDOWN(19712) THEN ship.angle = ship.angle + pi / 48
  284.  
  285.             'l is Fire!  JUST CONTINUOUS FIRE
  286.             fire = 0
  287.             'IF _KEYDOWN(108) THEN
  288.             t = TIMER(.01)
  289.             IF lastt = 0 OR t - lastt > .15 THEN fire = 1: SOUND 2088, .01: lastt = t
  290.             'END IF
  291.  
  292.             kh = _KEYHIT
  293.             SELECT CASE kh
  294.                 CASE 112
  295.                     kh = 0
  296.                     WHILE _KEYHIT <> 112: _LIMIT 60: WEND
  297.                 CASE 107, 18432 'thrust  k key or up arrow
  298.                     SOUND 488, .01
  299.                     ship.thrustAngle = ship.angle: ship.thrust = 120
  300.                 CASE 13, 32 ' space = hyperspace jump
  301.                     RANDOMIZE TIMER
  302.                     ship.x = (xmax - 300) * RND + 150: ship.y = (ymax - 300) * RND + 150: ship.thrust = 0
  303.             END SELECT
  304.  
  305.             '                                                                   locate ship
  306.             IF ship.thrust > 0 THEN
  307.                 'relocate ship position
  308.                 ship.x = ship.x + ship.speed * COS(ship.thrustAngle)
  309.                 ship.y = ship.y + ship.speed * SIN(ship.thrustAngle)
  310.             END IF
  311.             '                                                                    jump borders
  312.             IF ship.x < 0 THEN ship.x = xmax - ABS(ship.x)
  313.             IF ship.x > xmax THEN ship.x = ship.x - xmax
  314.             IF ship.y < 0 THEN ship.y = ymax - ABS(ship.y)
  315.             IF ship.y > ymax THEN ship.y = ship.y - ymax
  316.  
  317.  
  318.             FOR i = 0 TO nBullets '                                               handle bullets
  319.                 IF b(i).live = 0 AND fire = 1 THEN 'have inactive bullet to use
  320.                     b(i).x = ship.x + bSpeed * COS(ship.angle)
  321.                     b(i).y = ship.y + bSpeed * SIN(ship.angle)
  322.                     b(i).dx = bSpeed * COS(ship.angle)
  323.                     b(i).dy = bSpeed * SIN(ship.angle)
  324.                     b(i).live = -1
  325.                     bullets = bullets + 1
  326.                     fire = 0
  327.                 END IF
  328.                 IF b(i).live THEN 'new location
  329.                     b(i).x = b(i).x + b(i).dx
  330.                     b(i).y = b(i).y + b(i).dy
  331.                     IF b(i).x > 0 AND b(i).x < xmax AND b(i).y > 0 AND b(i).y < ymax THEN 'in bounds draw it
  332.  
  333.                         'bullet hit aliens?
  334.                         FOR ai = 1 TO alienN
  335.                             IF SQR((aliens(ai).x - b(i).x) ^ 2 + (aliens(ai).y - b(i).y) ^ 2) < 30 THEN
  336.                                 FOR br = 1 TO 120
  337.                                     CIRCLE (aliens(ai).x, aliens(ai).y), br / 3, plasma~&(0)
  338.                                 NEXT
  339.                                 _DISPLAY
  340.                                 _DELAY .05
  341.                                 hits = hits + 1
  342.                                 roundPoints = roundPoints + 100
  343.                                 points = points + 100
  344.                                 aliens(ai).live = 0
  345.                                 newAlien ai
  346.                                 b(i).live = 0
  347.                                 _CONTINUE
  348.                             END IF
  349.                         NEXT
  350.                         FOR r = 1 TO nRocks 'check for collision with rock
  351.                             IF r(r).live THEN
  352.                                 IF SQR((r(r).x - b(i).x) ^ 2 + (r(r).y - b(i).y) ^ 2) < r(r).r THEN 'its a hit!
  353.                                     r(r).explodeFrame = 1 'linger with explosion
  354.                                     r(r).live = 0
  355.                                     hits = hits + 1
  356.                                     rockPoints = 50 * ((r(r).speed - minRockSpeed) / rockSpeedRange + (rockSizeRange - (r(r).r - minRockSize)) / rockSizeRange)
  357.                                     roundPoints = roundPoints + rockPoints
  358.                                     points = points + rockPoints
  359.                                     IF r(r).r > 30 THEN '       split rock  into ? new ones
  360.                                         maxBabyRocks = INT((r(r).r - 10) / 10)
  361.                                         maxBabyRocks = irnd&(2, maxBabyRocks) ' pick a number of baby Rocks
  362.                                         FOR br = 1 TO maxBabyRocks
  363.                                             '                        new rock
  364.                                             newRockN = freeRock& '                          get inactive rock number
  365.                                             newRock newRockN '                              new identity and activate
  366.                                             r(newRockN).r = (r(r).r - 10) / maxBabyRocks '  split in equal parts minus 20% mass
  367.                                             r(newRockN).x = r(r).x + irnd&(-30, 30) '       thrown from parent
  368.                                             r(newRockN).y = r(r).y + irnd&(-30, 30)
  369.                                             r(newRockN).c = r(r).c '                   same color as parent
  370.                                             r(newRockN).heading = rrnd(ship.angle - .75 * pi, ship.angle + .75 * pi)
  371.                                         NEXT
  372.                                     END IF ' big enough to split
  373.                                     b(i).live = 0 'kill bullet
  374.                                 END IF ' hit rock
  375.                             END IF 'rock is there
  376.                         NEXT ' rock
  377.                         IF b(i).live THEN fcirc b(i).x, b(i).y, 3, _RGB32(255, 255, 0) 'draws bullet
  378.                     ELSE
  379.                         b(i).live = 0 'out of bounds
  380.                     END IF ' bullet is in bounds
  381.                 END IF ' bullet live
  382.             NEXT ' bullet
  383.         END IF ' if ship still live
  384.         _DISPLAY
  385.         IF ship.live = 0 THEN
  386.             lives = lives - 1
  387.             IF lives MOD 4 = 0 THEN rocks = rocks + 1
  388.             IF lives MOD 4 = 2 THEN alienN = alienN + 1
  389.             s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  390.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 80), s$
  391.             _FONT fnt2
  392.             s$ = STR$(points) + hs$
  393.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  394.             _FONT fnt
  395.             s$ = "Press enter to enter next life."
  396.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 120), s$
  397.             _DISPLAY
  398.             kh = 0
  399.             WHILE kh <> 13
  400.                 kh = _KEYHIT
  401.             WEND 'wait for enter key
  402.         ELSE
  403.             _LIMIT 60 ' if ship dies let's rest and regroup  before restart next life
  404.         END IF
  405.     WEND
  406.     _DISPLAY
  408. IF points > HS THEN
  409.     OPEN "Asteroids High Score.txt" FOR OUTPUT AS #1
  410.     PRINT #1, points
  411.     CLOSE #1
  413. ship.x = -200: ship.y = -200 'get it out of the way
  414. i = 0
  416.     drawStars 0
  417.     i = i + 1
  418.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  419.     FOR r = 1 TO nRocks
  420.         IF r(r).live THEN drawRock r
  421.     NEXT
  422.     s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  423.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 80), s$
  424.     _FONT fnt2
  425.     s$ = STR$(points)
  426.     IF points > HS THEN s$ = s$ + " a New Record!" ELSE s$ = STR$(points) + hs$
  427.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  428.     _FONT fnt
  429.     s$ = "Press q to quit, p or a to Play Again..."
  430.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 120), s$
  431.     IF _KEYDOWN(ASC("a")) OR _KEYDOWN(ASC("p")) THEN GOTO restart
  432.     _DISPLAY
  433.     _LIMIT 60
  436.  
  437. SUB drawStars (moving)
  438.     TYPE starType
  439.         x AS SINGLE
  440.         y AS SINGLE
  441.         size AS SINGLE
  442.         c AS INTEGER
  443.     END TYPE
  444.     STATIC beenHere, stars(600) AS starType, cy AS LONG
  445.     DIM i AS LONG
  446.     IF beenHere = 0 THEN 'static part
  447.         FOR i = 0 TO 200
  448.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = 0
  449.             stars(i).c = irnd&(80, 140)
  450.         NEXT
  451.         FOR i = 0 TO 200
  452.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = .3
  453.             stars(i).c = irnd&(80, 140)
  454.         NEXT
  455.  
  456.         FOR i = 1 TO 140
  457.             stars(i + 400).x = RND * xmax: stars(i + 400).y = RND * ymax: stars(i + 100).size = .6
  458.             stars(i).c = irnd&(110, 170)
  459.         NEXT
  460.         FOR i = 1 TO 50
  461.             stars(i + 540).x = RND * xmax: stars(i + 540).y = RND * ymax: stars(i + 170).size = 1.2
  462.             stars(i).c = irnd&(140, 200)
  463.         NEXT
  464.         FOR i = 1 TO 10
  465.             stars(i + 590).x = RND * xmax: stars(i + 590).y = RND * ymax: stars(i + 195).size = 2.4
  466.             stars(i).c = irnd&(170, 235)
  467.         NEXT
  468.         cy = ymax / 2
  469.         beenHere = 1
  470.     END IF
  471.     FOR i = 0 TO cy
  472.         LINE (0, i)-(xmax, i), _RGB32(0, 0, .1 * i + 4)
  473.         LINE (0, ymax - i)-(xmax, ymax - i), _RGB(0, 0, .1 * i + 4)
  474.     NEXT
  475.     FOR i = 0 TO 200
  476.         IF moving THEN
  477.             stars(i).x = stars(i).x + .2 * stars(i).size ^ stars(i).size
  478.             IF stars(i).x > xmax THEN stars(i).x = -1 * RND * 20
  479.         END IF
  480.         fcirc stars(i).x, stars(i).y, stars(i).size, _RGB32(stars(i).c - 10, stars(i).c, stars(i).c + 10)
  481.     NEXT
  483.  
  484. SUB newAlien (i AS LONG)
  485.     DIM side AS LONG, heading
  486.     RANDOMIZE TIMER * RND 'to avoid making twins
  487.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  488.     aliens(i).fireX = irnd(10, xmax - 10)
  489.     aliens(i).fireY = irnd(10, ymax - 10)
  490.     aliens(i).attackFrame = irnd(30, 400) ' EDIT a tweak to survive a little long before getting murdered with low lives over and over...
  491.     SELECT CASE side
  492.         CASE 1
  493.             aliens(i).x = -10
  494.             aliens(i).y = rrnd(20, ymax - 20)
  495.         CASE 2
  496.             aliens(i).x = xmax + 10
  497.             aliens(i).y = rrnd(20, ymax - 20)
  498.         CASE 3
  499.             aliens(i).x = rrnd(20, xmax - 20)
  500.             aliens(i).y = -10
  501.         CASE 4
  502.             aliens(i).x = rrnd(20, xmax - 20)
  503.             aliens(i).y = ymax + 10
  504.     END SELECT
  505.     heading = _ATAN2(aliens(i).fireY - aliens(i).y, aliens(i).fireX - aliens(i).x)
  506.     aliens(i).dx = alienSpeed * COS(heading)
  507.     aliens(i).dy = alienSpeed * SIN(heading)
  508.     aliens(i).live = 0
  509.     aliens(i).transform = 0
  510.     aliens(i).c = _RGB32(irnd(128, 255), irnd(0, 255), irnd(0, 255))
  512.  
  513. FUNCTION plasma~& (new AS LONG)
  514.     STATIC r, g, b, cnt, beenHere
  515.     IF beenHere = 0 OR new THEN
  516.         r = RND: g = RND: b = RND: beenHere = 1: cnt = 0
  517.     END IF
  518.     cnt = cnt + .2
  519.     plasma~& = _RGB32(127 + 127 * SIN(r * cnt), 127 + 127 * SIN(g * cnt), 127 + 127 * SIN(b * cnt))
  521.  
  522. SUB drawAliens (i AS LONG) 'shipType
  523.     DIM light AS LONG, heading, r AS LONG, g AS LONG, b AS LONG
  524.     IF aliens(i).live THEN
  525.         SOUND 6000 + i * 200, .07
  526.         IF aliens(i).transform = 0 THEN
  527.             r = _RED32(aliens(i).c): g = _GREEN32(aliens(i).c): b = _BLUE32(aliens(i).c)
  528.             fellipse aliens(i).x, aliens(i).y, 6, 15, _RGB32(r, g - 120, b - 100)
  529.             fellipse aliens(i).x, aliens(i).y, 18, 11, _RGB32(r, g - 60, b - 50)
  530.             fellipse aliens(i).x, aliens(i).y, 30, 7, _RGB32(r, g, b)
  531.             FOR light = 0 TO 5
  532.                 fcirc aliens(i).x - 30 + 11 * light + aliens(i).ls, aliens(i).y, 1, _RGB32(aliens(i).ls * 50, aliens(i).ls * 50, aliens(i).ls * 50)
  533.             NEXT
  534.             aliens(i).ls = aliens(i).ls + 1
  535.             IF aliens(i).ls > 5 THEN aliens(i).ls = 0
  536.         ELSE
  537.             drawBall aliens(i).x, aliens(i).y, 30, aliens(i).c
  538.         END IF
  539.         'time to shoot?
  540.         aliens(i).x = aliens(i).x + aliens(i).dx
  541.         aliens(i).y = aliens(i).y + aliens(i).dy
  542.         IF SQR((aliens(i).fireX - aliens(i).x) ^ 2 + (aliens(i).fireY - aliens(i).y) ^ 2) < 5 THEN 'transform into the bolder of death
  543.             aliens(i).transform = 1
  544.             heading = _ATAN2(ship.y - aliens(i).y, ship.x - aliens(i).x)
  545.             aliens(i).dx = 2.5 * COS(heading)
  546.             aliens(i).dy = 2.5 * SIN(heading)
  547.         END IF
  548.         IF aliens(i).x < -10 OR aliens(i).x > xmax + 10 THEN
  549.             IF aliens(i).y < -10 OR aliens(i).y > ymax + 10 THEN '  out of bounds goodbye bolder of death!
  550.                 aliens(i).live = 0 'man we dodged a bullet here!!!!
  551.                 newAlien i 'reset the trap
  552.             END IF
  553.         END IF
  554.     ELSE
  555.         IF aliens(i).attackFrame THEN
  556.             aliens(i).attackFrame = aliens(i).attackFrame - 1
  557.             IF aliens(i).attackFrame = 0 THEN
  558.                 aliens(i).live = 1
  559.             END IF
  560.         END IF
  561.     END IF
  563.  
  564. FUNCTION freeRock&
  565.     DIM i AS LONG
  566.     FOR i = rocks + 1 TO nRocks ' look for inactive rock number
  567.         IF r(i).live = 0 AND r(i).explodeFrame = 0 THEN freeRock& = i: EXIT FUNCTION
  568.     NEXT
  570.  
  571. SUB explode (x AS LONG, y AS LONG, r AS LONG, frm AS LONG)
  572.     DIM maxParticles AS LONG, i AS LONG, rounds AS LONG, loopCount AS LONG
  573.     maxParticles = r * 4
  574.     FOR i = 1 TO r
  575.         NewDot i, x, y, r
  576.     NEXT
  577.     rounds = r
  578.     FOR loopCount = 0 TO frm
  579.         IF _KEYDOWN(27) THEN END
  580.         FOR i = 1 TO rounds
  581.             dots(i).x = dots(i).x + dots(i).dx
  582.             dots(i).y = dots(i).y + dots(i).dy
  583.             fcirc dots(i).x, dots(i).y, dots(i).size, dots(i).kolor
  584.         NEXT
  585.         IF rounds < maxParticles THEN
  586.             FOR i = 1 TO r
  587.                 NewDot (rounds + i), x, y, r
  588.             NEXT
  589.             rounds = rounds + r
  590.         END IF
  591.     NEXT
  593.  
  594. SUB NewDot (i AS LONG, x AS LONG, y AS LONG, r AS LONG)
  595.     DIM angle, rd
  596.     angle = pi * 2 * RND
  597.     rd = RND * 30
  598.     dots(i).x = x + rd * COS(angle)
  599.     dots(i).y = y + rd * SIN(angle)
  600.     dots(i).size = RND * r * .05
  601.     rd = RND 'STxAxTIC recommended for rounder spreads
  602.     dots(i).dx = rd * 10 * (10 - 2 * dots(i).size) * COS(angle)
  603.     dots(i).dy = rd * 10 * (10 - 2 * dots(i).size) * SIN(angle)
  604.     rd = 20 + RND * 70
  605.     dots(i).kolor = _RGBA32(rd, rd, rd, 80)
  607.  
  608. SUB drawship 'simple red iso triangle pointed towards radianAngle
  609.     DIM x1 AS LONG, y1 AS LONG, x2 AS LONG, y2 AS LONG, x3 AS LONG, y3 AS LONG
  610.     DIM x4 AS LONG, y4 AS LONG, x5 AS LONG, y5 AS LONG
  611.     IF ship.thrust > 0 THEN
  612.         'burn out flame as thruster dies out
  613.         x4 = ship.x + .5 * ship.thrust * COS(ship.angle - 17 / 18 * pi)
  614.         y4 = ship.y + .5 * ship.thrust * SIN(ship.angle - 17 / 18 * pi)
  615.         x5 = ship.x + .5 * ship.thrust * COS(ship.angle - 19 / 18 * pi)
  616.         y5 = ship.y + .5 * ship.thrust * SIN(ship.angle - 19 / 18 * pi)
  617.         ftri ship.x, ship.y, x4, y4, x5, y5, &H99FFFF88
  618.         ship.thrust = ship.thrust - 1
  619.     END IF
  620.     'draw ship dead or alive thrust or not, calculate 3 points of triangle ship
  621.     fcirc ship.x, ship.y, 30, &H05FFFFFF
  622.     x1 = ship.x + 30 * COS(ship.angle) ' front point
  623.     y1 = ship.y + 30 * SIN(ship.angle) '
  624.     x2 = ship.x + 30 * COS(ship.angle + .6666 * pi) ' wing
  625.     y2 = ship.y + 30 * SIN(ship.angle + .6666 * pi)
  626.     x3 = ship.x + 30 * COS(ship.angle - .6666 * pi) ' other wing
  627.     y3 = ship.y + 30 * SIN(ship.angle - .6666 * pi)
  628.     ftri ship.x, ship.y, x1, y1, x2, y2, _RGB32(80, 120, 80, 80)
  629.     ftri ship.x, ship.y, x1, y1, x3, y3, _RGB32(60, 100, 60, 80)
  630.     LINE (x1, y1)-(ship.x, ship.y), _RGB32(255, 255, 128)
  631.     LINE (x1, y1)-(x2, y2), _RGB32(255, 180, 40)
  632.     LINE (x1, y1)-(x3, y3), _RGB32(255, 180, 40)
  634.  
  635. SUB drawRock (iRock)
  636.     RANDOMIZE USING r(iRock).seed 'this prevents having to save a particular sequence of random number
  637.     DIM dx, dy, j AS LONG, rRad AS SINGLE, leg AS SINGLE, x0 AS LONG, y0 AS LONG, rc AS LONG, c~&, x1 AS LONG, y1 AS LONG, xoff, yoff, i AS LONG
  638.     DIM x2 AS LONG, y2 AS LONG
  639.     dx = r(iRock).speed * COS(r(iRock).heading)
  640.     dy = r(iRock).speed * SIN(r(iRock).heading) 'update location
  641.     r(iRock).ra = r(iRock).ra + r(iRock).spin
  642.     IF r(iRock).x + dx + r(iRock).r < 0 OR r(iRock).x + dx - r(iRock).r > xmax OR r(iRock).y + dy + r(iRock).r < 0 OR r(iRock).y + dy - r(iRock).r > ymax THEN
  643.         IF iRock <= rocks THEN newRock iRock ELSE r(iRock).live = 0
  644.         EXIT SUB ' reassigned get out of here
  645.     ELSE
  646.         r(iRock).x = r(iRock).x + dx
  647.         r(iRock).y = r(iRock).y + dy
  648.     END IF
  649.     FOR j = 10 TO 3 STEP -1 '                  rock drawing (see demo program where developed code)
  650.         rRad = .1 * j * r(iRock).r
  651.         leg = rRad * (RND * .7 + .3)
  652.         x0 = r(iRock).x + leg * COS(r(iRock).ra)
  653.         y0 = r(iRock).y + leg * SIN(r(iRock).ra)
  654.         rc = r(iRock).c + 30 * RND - 15
  655.         c~& = _RGB32(rc + 5, rc - 10, rc + 5)
  656.         x1 = x0
  657.         y1 = y0
  658.         xoff = RND * 20 - 10 + r(iRock).x
  659.         yoff = RND * 20 - 10 + r(iRock).y
  660.         FOR i = 1 TO 12
  661.             leg = rRad * (RND * .35 + .65)
  662.             IF i = 12 THEN
  663.                 x2 = x0: y2 = y0
  664.             ELSE
  665.                 x2 = xoff + leg * COS(i * polyAngle + r(iRock).ra)
  666.                 y2 = yoff + leg * SIN(i * polyAngle + r(iRock).ra)
  667.             END IF
  668.             ftri r(iRock).x, r(iRock).y, x1, y1, x2, y2, c~&
  669.             x1 = x2: y1 = y2
  670.         NEXT
  671.     NEXT
  673.  
  674. SUB newRock (iRock)
  675.     DIM side AS LONG
  676.     RANDOMIZE TIMER * RND 'to avoid making twins
  677.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  678.     SELECT CASE side
  679.         CASE 1
  680.             r(iRock).x = -100
  681.             r(iRock).y = rrnd(20, ymax - 20)
  682.             r(iRock).heading = 3 * pi / 2 + RND * pi
  683.         CASE 2
  684.             r(iRock).x = xmax + 100
  685.             r(iRock).y = rrnd(20, ymax - 20)
  686.             r(iRock).heading = pi / 2 + RND * pi
  687.         CASE 3
  688.             r(iRock).x = rrnd(20, xmax - 20)
  689.             r(iRock).y = -100
  690.             r(iRock).heading = RND * pi
  691.         CASE 4
  692.             r(iRock).x = rrnd(20, xmax - 20)
  693.             r(iRock).y = ymax + 100
  694.             r(iRock).heading = pi + RND * pi
  695.     END SELECT
  696.     r(iRock).speed = rrnd(minRockSpeed, maxRockSpeed) 'speed, rotation angle, radius, gray coloring, spin, seed, hit for explosion
  697.     r(iRock).ra = RND * 2 * pi
  698.     r(iRock).r = irnd&(minRockSize * 3, maxRockSize) 'every parent rock can be split up into at least 2 - 10 size rocks
  699.     r(iRock).c = irnd&(60, 110) ' Ken request increase in rock color
  700.     r(iRock).spin = rrnd(-pi / 20, pi / 20)
  701.     r(iRock).seed = INT(RND * 64000) - 32000
  702.     r(iRock).explodeFrame = 0
  703.     r(iRock).live = 1
  705.  
  706. FUNCTION irnd& (n1, n2) 'return an integer between 2 numbers
  707.     DIM l%, h%
  708.     IF n1 > n2 THEN l% = n2: h% = n1 ELSE l% = n1: h% = n2
  709.     irnd& = INT(RND * (h% - l% + 1)) + l%
  711.  
  712. FUNCTION rrnd (n1, n2) ' return number (expecting reals =_single, double, _float depending on default / define setup)
  713.     rrnd = (n2 - n1) * RND + n1
  715.  
  716. SUB drawBall (x, y, r, c AS _UNSIGNED LONG)
  717.     DIM red AS LONG, grn AS LONG, blu AS LONG, rr AS LONG, f
  718.     red = _RED32(c): grn = _GREEN32(c): blu = _BLUE32(c)
  719.     FOR rr = r TO 0 STEP -1
  720.         f = 1 - rr / r
  721.         fcirc x, y, rr, _RGB32(red * f, grn * f, blu * f)
  722.     NEXT
  724.  
  725. SUB fellipse (CX AS LONG, CY AS LONG, xr AS LONG, yr AS LONG, C AS _UNSIGNED LONG)
  726.     IF xr = 0 OR yr = 0 THEN EXIT SUB
  728.     DIM x AS LONG, y AS LONG
  729.     w2 = xr * xr: h2 = yr * yr: h2w2 = h2 * w2
  730.     LINE (CX - xr, CY)-(CX + xr, CY), C, BF
  731.     DO WHILE y < yr
  732.         y = y + 1
  733.         x = SQR((h2w2 - y * y * w2) \ h2)
  734.         LINE (CX - x, CY + y)-(CX + x, CY + y), C, BF
  735.         LINE (CX - x, CY - y)-(CX + x, CY - y), C, BF
  736.     LOOP
  738.  
  739. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  740.     DIM D AS LONG
  741.     STATIC a&
  742.     D = _DEST
  743.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  744.     _DEST a&
  745.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
  746.     PSET (0, 0), K
  747.     _BLEND a& '<<<< new 2019-12-16 fix
  748.     _DEST D
  749.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  751.  
  752. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG) 'vince version
  753.     DIM x0 AS LONG, y0 AS LONG, e AS LONG
  754.     x0 = R: y0 = 0: e = 0
  755.     DO WHILE y0 < x0
  756.         IF e <= 0 THEN
  757.             y0 = y0 + 1
  758.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  759.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  760.             e = e + 2 * y0
  761.         ELSE
  762.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  763.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  764.             x0 = x0 - 1: e = e - 2 * x0
  765.         END IF
  766.     LOOP
  767.     LINE (x - R, y)-(x + R, y), C, BF
  769.  
Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 05, 2020, 11:41:31 pm
To be honest B+, I didn't use thrust until it was almost over because I was getting tired. I'm not sure how long that game was, maybe 30 minutes or so. I also didn't use Hyperspace because I was just doing the same thing pretty much the whole time, turning to each rock and saucer and shooting, that was all I did. lol
Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 05, 2020, 11:46:12 pm
Ah, (P)ause! Very nice! :))
Title: Re: b+ Asteroids makeover
Post by: bplus on November 05, 2020, 11:48:33 pm
Quote from: SierraKen on November 05, 2020, 11:41:31 pm
To be honest B+, I didn't use thrust until it was almost over because I was getting tired. I'm not sure how long that game was, maybe 30 minutes or so. I also didn't use Hyperspace because I was just doing the same thing pretty much the whole time, turning to each rock and saucer and shooting, that was all I did. lol

That's funny! My first version here was just turning! (though we were using mouse to point the way) Then someone said we should be able to move the ship, who was that? ;-))  Well I for one am glad we tried more things.
Title: Re: b+ Asteroids makeover
Post by: Dav on November 06, 2020, 07:04:20 am
Since it fires automaticaly now, I thought I'd sit my flashlight on the arrow key a while and see how well it could play.  It played a pretty good game - without batteries even...

- Dav

  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: b+ Asteroids makeover
Post by: johnno56 on November 06, 2020, 07:41:23 am
Cool... Now you know how to set it for 'auto-pilot' if you need to take a toilet or coffee break....
Title: Re: b+ Asteroids makeover
Post by: bplus on November 06, 2020, 11:37:55 am
Quote from: Dav on November 06, 2020, 07:04:20 am
Since it fires automaticaly now, I thought I'd sit my flashlight on the arrow key a while and see how well it could play.  It played a pretty good game - without batteries even...

- Dav

 


Well something tells me this game is too easy ;-))

Quote from: johnno56 on November 06, 2020, 07:41:23 am

Cool... Now you know how to set it for 'auto-pilot' if you need to take a toilet or coffee break....

Speaking of auto-pilot, I made one for Snake Game and one for Lunar Lander in JB, hmm....

Well first, we need to make the game a little more challanging hee, hee...
Title: Re: b+ Asteroids makeover
Post by: Dav on November 06, 2020, 01:09:19 pm
It's playing really well.   For more challenge, how about make the ufo shoot back, or when some rocks explode, a few small pieces head towards the ship?

- Dav
Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 06, 2020, 02:23:37 pm
Yeah more little rocks heading toward the ship would be good. Then people might have to dodge them. :) I would also speed the game up a little faster than it does, maybe cut the time in half on how often it speeds up.
Title: Re: b+ Asteroids makeover
Post by: bplus on November 06, 2020, 05:04:49 pm
Does this fix your wagon? ;-))

A little faster rocks and therefore aliens and more rock fragments heading your way along with alien ship paths and they are all starting a little closer to the center, if you like to hang out there be warned...

I also tweaked some other things like tightened the gap between ship and collision object, sort of like to see rock or alien touching ship during collision, closer but not perfect. The flashlight strategy still is a pretty good survival technique.

Code: QB64: [Select]
  2. _TITLE "b+QB64 Asteroids M10" 'started 2018-07-13
  3. '2020 - Oct and Nov: Special thanks to SierraKen who has been helpful with suggestions, ideas and fixes.
  5.  
  6. ' Far far away in a universe where Newton's 1st Law of Motion is not obeyed...    ;-))
  7.  
  8.  
  9. '                                            New Controls
  10. ' key a or left arrow = turn left
  11. ' key s or right arrow = turn right
  12. ' enter or spacebar =  "hyperspace" show up somewhere else  better or worse use when collision is imminent
  13. ' key k or up arrow = thrust  just a burst in direction you are pointed but doesn't last
  14. ' fire! owwha, owha, owha...  is now continuous
  15.  
  16. '=================================================================================================================
  17.  
  18. ' 2020-10-27 remove the alternate subs and get down below 200 LOC almost there now! new shooter action font and background
  19. ' 2020-10-28 another makeover explosions and split asteroids
  20. ' 2020-10-29 fix baby rock management, break between lives
  21. ' 2020-10-29 fix left/right gun, fix explosions over many frames to eliminate pause in action, speed up 60 fps
  22. ' 2020-10-30 m3 SierraKen's idea to angle shooter with mousewheel also finish WASD options, more rocks, points system
  23. ' points:
  24. ' The higher the speed the better    speed range .5 to 2.5, diff = 2 * 50 = 100          s - .5 * 50
  25. ' DELETE The lower the color the better   color range 10 to 60, diff =      50 * 2 = 100  50 - (c - 10) * 2
  26. ' The smaller the size the better  size range 10 to 100, diff = 90 * 1.1111 = 100  90 - (sz -10) * 1.1111
  27. '        ((speed - .5) * 50 + (90 - (r - 10)) * 1.1111) / 2 = 100 best score per hit
  28. ' 2020-10-30 increase level of difficulty, fix double lives lost, add an ending after all lives spent.
  29. ' 2020-10-31 M4 They are Here - the aliens have accepted my invitaion for war games don't get caught in their beam.
  30. ' rework ending and variable LONG suffix. Aliens on the attack 100 points before or after transformed into the Bolder of Death.
  31. ' 2020-11-01 M5 FX Moving through space, Oh yeah, more aliens!
  32. ' 2020-11-01 M6 add play again and save high game , continuous shoot
  33. ' 2020-11-01 M7 fix hits count when hit alien ship or Bolder of Death. Fix lights on aliens ship. I want to see collsions with ship.
  34. ' Ken recommends removing text in middle of screen, yeah, distracting. Makeover ship as with mouse x, y it's center. Add Splash screen.
  35. ' Show mouse in between lives so can be in screen center when press key to start next run.
  36.  
  37. ' 2020-11-03 M9 watching videos on Asteroids, I found a view and description of the control panel, it is:
  38. ' 2 buttons on left and lower button in middle and 2 buttons on right level with 2 on left.
  39. ' 2 buttons on left are left and right turns they will be Keys A and S
  40. ' The middle will be spacebar for Hypespace or these days we might call it worm hole, jump to another location better or worse!
  41. ' 2 buttons on right K and L: K will be a thruster of sorts you eventually come to a stop (not what Newton would like) L is the fire button.
  42. ' So let's try that. I am impressed by hitting thruster and shooting all around as you dift in direction gun was pointed when hit thruster.
  43. ' Lighten rocks and change points, based now only on size and speed of Asteroids.
  44. ' 2020-11-04 M9 Install new update to thrust control. Thanks to SierraKen for finding out what happened to Hyperspace jump when press
  45. ' spacebar a 2nd time in a life. Oh also Boulders of Death are now more like smooth colored spheres. Ahhhh Fixed the crashing at the borders
  46. ' now fly out one side and come back in on the other! This is getting good! Adding some sound effects.
  47. ' 2020-11-05 M10 set some constants for starting game so can just change them to level of play desired.
  48. ' speed points =  50 * (rockSpeed - minRockSpeed)/rockSpeedRange > fastest rock gets 50 points
  49. ' size points = 50 * (rockSizeRange - (rockSize - minRockSize))/rockSizeRange  > smallest rock gets 50 points
  50. ' points = points +  50 * ( (rockSpeed - minRockSpeed)/rockSpeedRange +  (rockSizeRange - (rockSize - minRockSize))/rockSizeRange )
  51. ' Dav's comments: Add arrow keys for left right turns and up for thrust, continuous fire now! A little score board in top left corner.
  52. ' Dav I am keeping spacebar for Hyperspace but also Enter, don't need fire button now.
  53. ' Try the A for left and the right arrow for right turns.
  54. ' 2020-11-05 p is for pause
  55. ' 2020-11-06 Move it or lose it!
  56.  
  57. '================================================================================================================
  58.  
  59. '    NOTE: !!!!!!!!!!!!!!!   When there is a pause in action, just press enter,  as in enter a new life!
  60.  
  61. '================================================================================================================
  62.  
  63. CONST xmax = 1200, ymax = 700, pi = _PI, polyAngle = _PI / 6, nRocks = 300, nBullets = 2000, bSpeed = 15
  64. CONST startRocks = 2, minRockSpeed = 0.7500, maxRockSpeed = 3.2500, minRockSize = 10, maxRockSize = 100
  65. CONST rockSpeedRange = maxRockSpeed - minRockSpeed, rockSizeRange = maxRockSize - minRockSize
  66. CONST alienSpeed = rockSpeedRange / 2 + minRockSpeed ' average rock speed
  67.  
  68. TYPE alienType
  69.     x AS SINGLE
  70.     y AS SINGLE
  71.     dx AS SINGLE
  72.     dy AS SINGLE
  73.     ls AS LONG ' lights offset and gray scale
  74.     c AS _UNSIGNED LONG ' color
  75.     live AS LONG
  76.     attackFrame AS LONG
  77.     fireX AS SINGLE
  78.     fireY AS SINGLE
  79.     transform AS LONG
  81.  
  82. TYPE particle
  83.     x AS SINGLE
  84.     y AS SINGLE
  85.     dx AS SINGLE
  86.     dy AS SINGLE
  87.     size AS SINGLE
  88.     kolor AS _UNSIGNED LONG
  90.  
  91. TYPE bullet
  92.     x AS SINGLE
  93.     y AS SINGLE
  94.     dx AS SINGLE
  95.     dy AS SINGLE
  96.     live AS LONG
  98.  
  99. TYPE shipType
  100.     x AS SINGLE
  101.     y AS SINGLE
  102.     live AS LONG
  103.     speed AS SINGLE '       just a constant now when Thrust is applied
  104.     thrustAngle AS SINGLE ' ship/gun angle at moment Thrust is pressed
  105.     angle AS SINGLE '       rotated position ship/gun now A or S keypress or hold down
  106.     thrust AS LONG '        this now tracks how many frames ship will move at speed and thrustAngle
  108.  
  109. TYPE rock
  110.     x AS SINGLE
  111.     y AS SINGLE
  112.     r AS LONG '            radius
  113.     ra AS SINGLE '         rotation position   a = a + spin
  114.     heading AS SINGLE '    heading from which dx, dy are calc with speed
  115.     speed AS SINGLE '      speed
  116.     spin AS SINGLE '       rotation direction and amount
  117.     seed AS LONG '         for drawing rocks with RND USING
  118.     c AS LONG '            color   rgb(c, c, c)
  119.     live AS LONG '         need this to track rocks still active like bullets
  120.     explodeFrame AS LONG ' after a rock is hit by bullet, it explodes and in more than one frame
  122.  
  123. REDIM SHARED aliens(1 TO 5) AS alienType
  124. DIM SHARED dots(2000) AS particle ' explosions
  125. DIM SHARED b(nBullets) AS bullet
  126. DIM SHARED ship AS shipType
  127. DIM SHARED r(nRocks) AS rock
  129. DIM SHARED points AS LONG
  130. DIM SHARED rocks AS LONG 'rocks is the minimum number of parent rocks to have on screen  automatic replace when hit or out of bounds
  131.  
  132. DIM HS AS LONG, fnt AS LONG, fnt2 AS LONG ' file LOAD handles
  133. DIM i AS LONG, bullets AS LONG, fire AS LONG ' index and bullets
  134. DIM r AS LONG, newRockN AS LONG, maxBabyRocks AS LONG, br AS LONG, hits AS LONG ' rock stuff
  135. DIM ai AS LONG, alienN AS LONG ' alien index and number
  136. DIM kh AS LONG 'key hit for ship thrust k or up arrow or hyperspace jump spacebar
  137. DIM hs$, s$, k$, t, lastt 'high score, general string and times for bullets
  138. DIM rockPoints AS LONG, roundPoints AS LONG ' various points scores
  139. ship.speed = 3.5 'this would be a constant but ship has to declared as Ship Type first, Hyperspace jump
  140.  
  141. SCREEN _NEWIMAGE(xmax, ymax, 32)
  142. _SCREENMOVE 100, 20
  144.  
  145. fnt = _LOADFONT("ARLRDBD.ttf", 16, "MONOSPACE")
  146. fnt2 = _LOADFONT("ARLRDBD.ttf", 40, "MONOSPACE")
  147. _FONT fnt2
  148. COLOR &HFF00FFFF, &H00000000
  149.  
  150. IF _FILEEXISTS("Asteroids High Score.txt") THEN
  151.     OPEN "Asteroids High Score.txt" FOR INPUT AS #1
  152.     INPUT #1, HS
  153.     CLOSE #1
  155. hs$ = "High Score:" + STR$(HS)
  156.  
  157. 'a little splash screen
  158. rocks = 7: alienN = 3
  159. FOR i = 1 TO nRocks
  160.     newRock i
  161.     IF i > rocks THEN r(i).live = 0
  163. FOR i = 1 TO alienN
  164.     newAlien i
  166. i = 0
  168.     drawStars 0
  169.     i = i + 1
  170.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  171.     FOR r = 1 TO nRocks
  172.         IF r(r).live THEN drawRock r
  173.     NEXT
  174.     FOR i = 1 TO alienN
  175.         drawAliens i
  176.     NEXT
  177.     _FONT fnt2
  178.     s$ = "*** b+QB64 Asteroids ***"
  179.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 60), s$
  180.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(hs$)) / 2, 140), hs$
  181.     s$ = "A or arrow = Left spin"
  182.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 220), s$
  183.     s$ = "S or arrow = Right Spin"
  184.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 300), s$
  185.     s$ = "Space or Enter = Hyper jump"
  186.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 380), s$
  187.     s$ = "K or up arrow = Thrust"
  188.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 460), s$
  189.     s$ = "Escape quit, any plays"
  190.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 540), s$
  191.     _FONT fnt
  193.     k$ = INKEY$
  194.     _DISPLAY
  195.     _LIMIT 60
  197.  
  199. restart:
  200. IF _FILEEXISTS("Asteroids High Score.txt") THEN
  201.     OPEN "Asteroids High Score.txt" FOR INPUT AS #1
  202.     INPUT #1, HS
  203.     CLOSE #1
  205. hs$ = "  High Score:" + STR$(HS)
  206. lives = 10: alienN = 1: rocks = startRocks: ' always active rocks
  207. points = 0: hits = 0: bullets = 0
  208. WHILE lives > 0 AND _KEYDOWN(27) = 0 ' init start restart
  209.     REDIM aliens(1 TO alienN) AS alienType
  210.     FOR ai = 1 TO alienN
  211.         newAlien ai
  212.     NEXT
  213.     FOR i = 1 TO nRocks 'reset rocks mainly clear baby rocks
  214.         newRock (i)
  215.         IF i > rocks THEN r(i).live = 0
  216.     NEXT
  217.     ship.x = xmax / 2 'avoids explosions top left corner at start, dang still get some!
  218.     ship.y = ymax / 2
  219.     ship.angle = 0
  220.     ship.thrustAngle = 0
  221.     ship.thrust = 0
  222.     ship.live = 1
  223.     rockPoints = 0
  224.     roundPoints = 0
  225.     WHILE ship.live AND _KEYDOWN(27) = 0
  226.  
  227.         _KEYCLEAR 'clear all previous INKEY$ or _KEYHIT and variables  so ship should always start in middle of sceen pointed east
  228.         kh = 0
  229.  
  230.         'draw everything then process bullets
  231.         drawStars 1
  232.         LOCATE 1, 1: PRINT "Lives:"; lives
  233.         LOCATE 2, 1: PRINT "Last Rock:"; STR$(rockPoints)
  234.         LOCATE 3, 1: PRINT "Round:;"; STR$(roundPoints)
  235.         LOCATE 4, 1: PRINT "Points:"; STR$(points)
  236.         LOCATE 5, 1: PRINT "High Score:"; STR$(HS)
  237.         FOR ai = 1 TO alienN
  238.             drawAliens ai
  239.         NEXT
  240.         FOR i = 1 TO nRocks
  241.             IF r(i).live THEN 'make sure if we crash into a ship it is a live rock, not one sitting on side waiting to be called up
  242.                 drawRock i ' while drawing rocks the ship could be blown up
  243.                 IF ((r(i).x - ship.x) ^ 2 + (r(i).y - ship.y) ^ 2) ^ .5 < r(i).r + 20 THEN 'rock collides with ship?
  244.                     FOR br = 1 TO 200 STEP 5
  245.                         CIRCLE ((ship.x + r(i).x) / 2, (ship.y + r(i).y) / 2), br, _RGB32(255 - br, 255 - 2 * br, 0)
  246.                     NEXT
  247.                     drawRock i
  248.                     drawship
  249.                     ship.live = 0
  250.                     IF i <= rocks THEN newRock i ELSE r(i).live = 0
  251.                 END IF
  252.             END IF
  253.         NEXT
  254.         FOR i = 1 TO nRocks 'smoke up the place with rock debris fields still flying out from hit frames ago
  255.             IF r(i).explodeFrame THEN
  256.                 r(i).explodeFrame = r(i).explodeFrame + 1
  257.                 IF r(i).explodeFrame > .25 * r(i).r THEN
  258.                     r(i).explodeFrame = 0
  259.                     IF i <= rocks THEN newRock i ' now replace the rock
  260.                 ELSE
  261.                     explode r(i).x, r(i).y, r(i).r, r(i).explodeFrame
  262.                 END IF
  263.             END IF
  264.         NEXT
  265.         IF ship.live THEN
  266.             FOR ai = 1 TO alienN
  267.                 IF SQR((aliens(ai).x - ship.x) ^ 2 + (aliens(ai).y - ship.y) ^ 2) < 55 THEN 'aliens and ship collisde boom boom
  268.                     FOR br = 1 TO 200 STEP 5
  269.                         CIRCLE ((ship.x + aliens(ai).x) / 2, (ship.y + aliens(ai).y) / 2), br, _RGB32(255 - br, 255 - 2 * br, 0)
  270.                     NEXT
  271.                     drawship
  272.                     ship.live = 0
  273.                     _CONTINUE
  274.                 ELSE
  275.                     drawship
  276.                 END IF
  277.             NEXT
  278.  
  279.             '                                                                   ship controls update
  280.             'a key or left arrow = left spin
  281.             IF _KEYDOWN(97) OR _KEYDOWN(19200) THEN ship.angle = ship.angle - pi / 48
  282.  
  283.             's key or right arrow = right spin
  284.             IF _KEYDOWN(115) OR _KEYDOWN(19712) THEN ship.angle = ship.angle + pi / 48
  285.  
  286.             'l is Fire!  JUST CONTINUOUS FIRE
  287.             fire = 0
  288.             'IF _KEYDOWN(108) THEN
  289.             t = TIMER(.01)
  290.             IF lastt = 0 OR t - lastt > .15 THEN fire = 1: SOUND 2088, .01: lastt = t
  291.             'END IF
  292.  
  293.             kh = _KEYHIT
  294.             SELECT CASE kh
  295.                 CASE 112
  296.                     kh = 0
  297.                     WHILE _KEYHIT <> 112: _LIMIT 60: WEND
  298.                 CASE 107, 18432 'thrust  k key or up arrow
  299.                     SOUND 488, .01
  300.                     ship.thrustAngle = ship.angle: ship.thrust = 120
  301.                 CASE 13, 32 ' space = hyperspace jump
  302.                     RANDOMIZE TIMER
  303.                     ship.x = (xmax - 300) * RND + 150: ship.y = (ymax - 300) * RND + 150: ship.thrust = 0
  304.             END SELECT
  305.  
  306.             '                                                                   locate ship
  307.             IF ship.thrust > 0 THEN
  308.                 'relocate ship position
  309.                 ship.x = ship.x + ship.speed * COS(ship.thrustAngle)
  310.                 ship.y = ship.y + ship.speed * SIN(ship.thrustAngle)
  311.             END IF
  312.             '                                                                    jump borders
  313.             IF ship.x < 0 THEN ship.x = xmax - ABS(ship.x)
  314.             IF ship.x > xmax THEN ship.x = ship.x - xmax
  315.             IF ship.y < 0 THEN ship.y = ymax - ABS(ship.y)
  316.             IF ship.y > ymax THEN ship.y = ship.y - ymax
  317.  
  318.  
  319.             FOR i = 0 TO nBullets '                                               handle bullets
  320.                 IF b(i).live = 0 AND fire = 1 THEN 'have inactive bullet to use
  321.                     b(i).x = ship.x + 2 * bSpeed * COS(ship.angle)
  322.                     b(i).y = ship.y + 2 * bSpeed * SIN(ship.angle)
  323.                     b(i).dx = bSpeed * COS(ship.angle)
  324.                     b(i).dy = bSpeed * SIN(ship.angle)
  325.                     b(i).live = -1
  326.                     bullets = bullets + 1
  327.                     fire = 0
  328.                 END IF
  329.                 IF b(i).live THEN 'new location
  330.                     b(i).x = b(i).x + b(i).dx
  331.                     b(i).y = b(i).y + b(i).dy
  332.                     IF b(i).x > 0 AND b(i).x < xmax AND b(i).y > 0 AND b(i).y < ymax THEN 'in bounds draw it
  333.  
  334.                         'bullet hit aliens?
  335.                         FOR ai = 1 TO alienN
  336.                             IF SQR((aliens(ai).x - b(i).x) ^ 2 + (aliens(ai).y - b(i).y) ^ 2) < 30 THEN
  337.                                 FOR br = 1 TO 120
  338.                                     CIRCLE (aliens(ai).x, aliens(ai).y), br / 3, plasma~&(0)
  339.                                 NEXT
  340.                                 _DISPLAY
  341.                                 _DELAY .05
  342.                                 hits = hits + 1
  343.                                 roundPoints = roundPoints + 100
  344.                                 points = points + 100
  345.                                 aliens(ai).live = 0
  346.                                 newAlien ai
  347.                                 b(i).live = 0
  348.                                 _CONTINUE
  349.                             END IF
  350.                         NEXT
  351.                         FOR r = 1 TO nRocks 'check for collision with rock
  352.                             IF r(r).live THEN
  353.                                 IF SQR((r(r).x - b(i).x) ^ 2 + (r(r).y - b(i).y) ^ 2) < r(r).r THEN 'its a hit!
  354.                                     r(r).explodeFrame = 1 'linger with explosion
  355.                                     r(r).live = 0
  356.                                     hits = hits + 1
  357.                                     rockPoints = 50 * ((r(r).speed - minRockSpeed) / rockSpeedRange + (rockSizeRange - (r(r).r - minRockSize)) / rockSizeRange)
  358.                                     roundPoints = roundPoints + rockPoints
  359.                                     points = points + rockPoints
  360.                                     IF r(r).r > 30 THEN '       split rock  into ? new ones
  361.                                         maxBabyRocks = INT((r(r).r - 10) / 10)
  362.                                         maxBabyRocks = irnd&(2, maxBabyRocks) ' pick a number of baby Rocks
  363.                                         FOR br = 1 TO maxBabyRocks
  364.                                             '                        new rock
  365.                                             newRockN = freeRock& '                          get inactive rock number
  366.                                             newRock newRockN '                              new identity and activate
  367.                                             r(newRockN).r = (r(r).r - 10) / maxBabyRocks '  split in equal parts minus 20% mass
  368.                                             r(newRockN).x = r(r).x + irnd&(-30, 30) '       thrown from parent
  369.                                             r(newRockN).y = r(r).y + irnd&(-30, 30)
  370.                                             r(newRockN).c = r(r).c '                   same color as parent
  371.                                             r(newRockN).heading = rrnd(ship.angle - .75 * pi, ship.angle + .75 * pi)
  372.                                         NEXT
  373.                                     END IF ' big enough to split
  374.                                     b(i).live = 0 'kill bullet
  375.                                 END IF ' hit rock
  376.                             END IF 'rock is there
  377.                         NEXT ' rock
  378.                         IF b(i).live THEN fcirc b(i).x, b(i).y, 3, _RGB32(255, 255, 0) 'draws bullet
  379.                     ELSE
  380.                         b(i).live = 0 'out of bounds
  381.                     END IF ' bullet is in bounds
  382.                 END IF ' bullet live
  383.             NEXT ' bullet
  384.         END IF ' if ship still live
  385.         _DISPLAY
  386.         IF ship.live = 0 THEN
  387.             lives = lives - 1
  388.             IF lives MOD 4 = 0 THEN rocks = rocks + 1
  389.             IF lives MOD 4 = 2 THEN alienN = alienN + 1
  390.             s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  391.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 80), s$
  392.             _FONT fnt2
  393.             s$ = STR$(points) + hs$
  394.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  395.             _FONT fnt
  396.             s$ = "Press enter to enter next life."
  397.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 120), s$
  398.             _DISPLAY
  399.             kh = 0
  400.             WHILE kh <> 13
  401.                 kh = _KEYHIT
  402.             WEND 'wait for enter key
  403.         ELSE
  404.             _LIMIT 60 ' if ship dies let's rest and regroup  before restart next life
  405.         END IF
  406.     WEND
  407.     _DISPLAY
  409. IF points > HS THEN
  410.     OPEN "Asteroids High Score.txt" FOR OUTPUT AS #1
  411.     PRINT #1, points
  412.     CLOSE #1
  414. ship.x = -200: ship.y = -200 'get it out of the way
  415. i = 0
  417.     drawStars 0
  418.     i = i + 1
  419.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  420.     FOR r = 1 TO nRocks
  421.         IF r(r).live THEN drawRock r
  422.     NEXT
  423.     s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  424.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 80), s$
  425.     _FONT fnt2
  426.     s$ = STR$(points)
  427.     IF points > HS THEN s$ = s$ + " a New Record!" ELSE s$ = STR$(points) + hs$
  428.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  429.     _FONT fnt
  430.     s$ = "Press q to quit, p or a to Play Again..."
  431.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 120), s$
  432.     IF _KEYDOWN(ASC("a")) OR _KEYDOWN(ASC("p")) THEN GOTO restart
  433.     _DISPLAY
  434.     _LIMIT 60
  437.  
  438. SUB drawStars (moving)
  439.     TYPE starType
  440.         x AS SINGLE
  441.         y AS SINGLE
  442.         size AS SINGLE
  443.         c AS INTEGER
  444.     END TYPE
  445.     STATIC beenHere, stars(600) AS starType, cy AS LONG
  446.     DIM i AS LONG
  447.     IF beenHere = 0 THEN 'static part
  448.         FOR i = 0 TO 200
  449.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = 0
  450.             stars(i).c = irnd&(80, 140)
  451.         NEXT
  452.         FOR i = 0 TO 200
  453.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = .3
  454.             stars(i).c = irnd&(80, 140)
  455.         NEXT
  456.  
  457.         FOR i = 1 TO 140
  458.             stars(i + 400).x = RND * xmax: stars(i + 400).y = RND * ymax: stars(i + 100).size = .6
  459.             stars(i).c = irnd&(110, 170)
  460.         NEXT
  461.         FOR i = 1 TO 50
  462.             stars(i + 540).x = RND * xmax: stars(i + 540).y = RND * ymax: stars(i + 170).size = 1.2
  463.             stars(i).c = irnd&(140, 200)
  464.         NEXT
  465.         FOR i = 1 TO 10
  466.             stars(i + 590).x = RND * xmax: stars(i + 590).y = RND * ymax: stars(i + 195).size = 2.4
  467.             stars(i).c = irnd&(170, 235)
  468.         NEXT
  469.         cy = ymax / 2
  470.         beenHere = 1
  471.     END IF
  472.     FOR i = 0 TO cy
  473.         LINE (0, i)-(xmax, i), _RGB32(0, 0, .1 * i + 4)
  474.         LINE (0, ymax - i)-(xmax, ymax - i), _RGB(0, 0, .1 * i + 4)
  475.     NEXT
  476.     FOR i = 0 TO 200
  477.         IF moving THEN
  478.             stars(i).x = stars(i).x + .2 * stars(i).size ^ stars(i).size
  479.             IF stars(i).x > xmax THEN stars(i).x = -1 * RND * 20
  480.         END IF
  481.         fcirc stars(i).x, stars(i).y, stars(i).size, _RGB32(stars(i).c - 10, stars(i).c, stars(i).c + 10)
  482.     NEXT
  484.  
  485. SUB newAlien (i AS LONG)
  486.     DIM side AS LONG, heading
  487.     RANDOMIZE TIMER * RND 'to avoid making twins
  488.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  489.     IF RND < .6 THEN
  490.         aliens(i).fireX = ship.x: aliens(i).fireY = ship.y
  491.     ELSE
  492.         aliens(i).fireX = irnd(10, xmax - 10): aliens(i).fireY = irnd(10, ymax - 10)
  493.     END IF
  494.     aliens(i).attackFrame = irnd(50, 400) ' EDIT a tweak to survive a little long before getting murdered with low lives over and over...
  495.     SELECT CASE side
  496.         CASE 1
  497.             aliens(i).x = -10
  498.             aliens(i).y = rrnd(80, ymax - 80)
  499.         CASE 2
  500.             aliens(i).x = xmax + 10
  501.             aliens(i).y = rrnd(80, ymax - 80)
  502.         CASE 3
  503.             aliens(i).x = rrnd(80, xmax - 80)
  504.             aliens(i).y = -10
  505.         CASE 4
  506.             aliens(i).x = rrnd(80, xmax - 80)
  507.             aliens(i).y = ymax + 10
  508.     END SELECT
  509.     heading = _ATAN2(aliens(i).fireY - aliens(i).y, aliens(i).fireX - aliens(i).x)
  510.     aliens(i).dx = alienSpeed * COS(heading)
  511.     aliens(i).dy = alienSpeed * SIN(heading)
  512.     aliens(i).live = 0
  513.     aliens(i).transform = 0
  514.     aliens(i).c = _RGB32(irnd(128, 255), irnd(0, 255), irnd(0, 255))
  516.  
  517. FUNCTION plasma~& (new AS LONG)
  518.     STATIC r, g, b, cnt, beenHere
  519.     IF beenHere = 0 OR new THEN
  520.         r = RND: g = RND: b = RND: beenHere = 1: cnt = 0
  521.     END IF
  522.     cnt = cnt + .2
  523.     plasma~& = _RGB32(127 + 127 * SIN(r * cnt), 127 + 127 * SIN(g * cnt), 127 + 127 * SIN(b * cnt))
  525.  
  526. SUB drawAliens (i AS LONG) 'shipType
  527.     DIM light AS LONG, heading, r AS LONG, g AS LONG, b AS LONG
  528.     IF aliens(i).live THEN
  529.         SOUND 6000 + i * 200, .07
  530.         IF aliens(i).transform = 0 THEN
  531.             r = _RED32(aliens(i).c): g = _GREEN32(aliens(i).c): b = _BLUE32(aliens(i).c)
  532.             fellipse aliens(i).x, aliens(i).y, 6, 15, _RGB32(r, g - 120, b - 100)
  533.             fellipse aliens(i).x, aliens(i).y, 18, 11, _RGB32(r, g - 60, b - 50)
  534.             fellipse aliens(i).x, aliens(i).y, 30, 7, _RGB32(r, g, b)
  535.             FOR light = 0 TO 5
  536.                 fcirc aliens(i).x - 30 + 11 * light + aliens(i).ls, aliens(i).y, 1, _RGB32(aliens(i).ls * 50, aliens(i).ls * 50, aliens(i).ls * 50)
  537.             NEXT
  538.             aliens(i).ls = aliens(i).ls + 1
  539.             IF aliens(i).ls > 5 THEN aliens(i).ls = 0
  540.         ELSE
  541.             drawBall aliens(i).x, aliens(i).y, 30, aliens(i).c
  542.         END IF
  543.         'time to shoot?
  544.         aliens(i).x = aliens(i).x + aliens(i).dx
  545.         aliens(i).y = aliens(i).y + aliens(i).dy
  546.         IF SQR((aliens(i).fireX - aliens(i).x) ^ 2 + (aliens(i).fireY - aliens(i).y) ^ 2) < 5 THEN 'transform into the bolder of death
  547.             aliens(i).transform = 1
  548.             heading = _ATAN2(ship.y - aliens(i).y, ship.x - aliens(i).x)
  549.             aliens(i).dx = 2.5 * COS(heading)
  550.             aliens(i).dy = 2.5 * SIN(heading)
  551.         END IF
  552.         IF aliens(i).x < -10 OR aliens(i).x > xmax + 10 THEN
  553.             IF aliens(i).y < -10 OR aliens(i).y > ymax + 10 THEN '  out of bounds goodbye bolder of death!
  554.                 aliens(i).live = 0 'man we dodged a bullet here!!!!
  555.                 newAlien i 'reset the trap
  556.             END IF
  557.         END IF
  558.     ELSE
  559.         IF aliens(i).attackFrame THEN
  560.             aliens(i).attackFrame = aliens(i).attackFrame - 1
  561.             IF aliens(i).attackFrame = 0 THEN
  562.                 aliens(i).live = 1
  563.             END IF
  564.         END IF
  565.     END IF
  567.  
  568. FUNCTION freeRock&
  569.     DIM i AS LONG
  570.     FOR i = rocks + 1 TO nRocks ' look for inactive rock number
  571.         IF r(i).live = 0 AND r(i).explodeFrame = 0 THEN freeRock& = i: EXIT FUNCTION
  572.     NEXT
  574.  
  575. SUB explode (x AS LONG, y AS LONG, r AS LONG, frm AS LONG)
  576.     DIM maxParticles AS LONG, i AS LONG, rounds AS LONG, loopCount AS LONG
  577.     maxParticles = r * 4
  578.     FOR i = 1 TO r
  579.         NewDot i, x, y, r
  580.     NEXT
  581.     rounds = r
  582.     FOR loopCount = 0 TO frm
  583.         IF _KEYDOWN(27) THEN END
  584.         FOR i = 1 TO rounds
  585.             dots(i).x = dots(i).x + dots(i).dx
  586.             dots(i).y = dots(i).y + dots(i).dy
  587.             fcirc dots(i).x, dots(i).y, dots(i).size, dots(i).kolor
  588.         NEXT
  589.         IF rounds < maxParticles THEN
  590.             FOR i = 1 TO r
  591.                 NewDot (rounds + i), x, y, r
  592.             NEXT
  593.             rounds = rounds + r
  594.         END IF
  595.     NEXT
  597.  
  598. SUB NewDot (i AS LONG, x AS LONG, y AS LONG, r AS LONG)
  599.     DIM angle, rd
  600.     angle = pi * 2 * RND
  601.     rd = RND * 30
  602.     dots(i).x = x + rd * COS(angle)
  603.     dots(i).y = y + rd * SIN(angle)
  604.     dots(i).size = RND * r * .05
  605.     rd = RND 'STxAxTIC recommended for rounder spreads
  606.     dots(i).dx = rd * 10 * (10 - 2 * dots(i).size) * COS(angle)
  607.     dots(i).dy = rd * 10 * (10 - 2 * dots(i).size) * SIN(angle)
  608.     rd = 20 + RND * 70
  609.     dots(i).kolor = _RGBA32(rd, rd, rd, 80)
  611.  
  612. SUB drawship 'simple red iso triangle pointed towards radianAngle
  613.     DIM x1 AS LONG, y1 AS LONG, x2 AS LONG, y2 AS LONG, x3 AS LONG, y3 AS LONG
  614.     DIM x4 AS LONG, y4 AS LONG, x5 AS LONG, y5 AS LONG
  615.     IF ship.thrust > 0 THEN
  616.         'burn out flame as thruster dies out
  617.         x4 = ship.x + .5 * ship.thrust * COS(ship.angle - 17 / 18 * pi)
  618.         y4 = ship.y + .5 * ship.thrust * SIN(ship.angle - 17 / 18 * pi)
  619.         x5 = ship.x + .5 * ship.thrust * COS(ship.angle - 19 / 18 * pi)
  620.         y5 = ship.y + .5 * ship.thrust * SIN(ship.angle - 19 / 18 * pi)
  621.         ftri ship.x, ship.y, x4, y4, x5, y5, &H99FFFF88
  622.         ship.thrust = ship.thrust - 1
  623.     END IF
  624.     'draw ship dead or alive thrust or not, calculate 3 points of triangle ship
  625.     fcirc ship.x, ship.y, 30, &H05FFFFFF
  626.     x1 = ship.x + 30 * COS(ship.angle) ' front point
  627.     y1 = ship.y + 30 * SIN(ship.angle) '
  628.     x2 = ship.x + 30 * COS(ship.angle + .6666 * pi) ' wing
  629.     y2 = ship.y + 30 * SIN(ship.angle + .6666 * pi)
  630.     x3 = ship.x + 30 * COS(ship.angle - .6666 * pi) ' other wing
  631.     y3 = ship.y + 30 * SIN(ship.angle - .6666 * pi)
  632.     ftri ship.x, ship.y, x1, y1, x2, y2, _RGB32(80, 120, 80, 80)
  633.     ftri ship.x, ship.y, x1, y1, x3, y3, _RGB32(60, 100, 60, 80)
  634.     LINE (x1, y1)-(ship.x, ship.y), _RGB32(255, 255, 128)
  635.     LINE (x1, y1)-(x2, y2), _RGB32(255, 180, 40)
  636.     LINE (x1, y1)-(x3, y3), _RGB32(255, 180, 40)
  638.  
  639. SUB drawRock (iRock)
  640.     RANDOMIZE USING r(iRock).seed 'this prevents having to save a particular sequence of random number
  641.     DIM dx, dy, j AS LONG, rRad AS SINGLE, leg AS SINGLE, x0 AS LONG, y0 AS LONG, rc AS LONG, c~&, x1 AS LONG, y1 AS LONG, xoff, yoff, i AS LONG
  642.     DIM x2 AS LONG, y2 AS LONG
  643.     dx = r(iRock).speed * COS(r(iRock).heading)
  644.     dy = r(iRock).speed * SIN(r(iRock).heading) 'update location
  645.     r(iRock).ra = r(iRock).ra + r(iRock).spin
  646.     IF r(iRock).x + dx + r(iRock).r < 0 OR r(iRock).x + dx - r(iRock).r > xmax OR r(iRock).y + dy + r(iRock).r < 0 OR r(iRock).y + dy - r(iRock).r > ymax THEN
  647.         IF iRock <= rocks THEN newRock iRock ELSE r(iRock).live = 0
  648.         EXIT SUB ' reassigned get out of here
  649.     ELSE
  650.         r(iRock).x = r(iRock).x + dx
  651.         r(iRock).y = r(iRock).y + dy
  652.     END IF
  653.     FOR j = 10 TO 3 STEP -1 '                  rock drawing (see demo program where developed code)
  654.         rRad = .1 * j * r(iRock).r
  655.         leg = rRad * (RND * .7 + .3)
  656.         x0 = r(iRock).x + leg * COS(r(iRock).ra)
  657.         y0 = r(iRock).y + leg * SIN(r(iRock).ra)
  658.         rc = r(iRock).c + 30 * RND - 15
  659.         c~& = _RGB32(rc + 5, rc - 10, rc + 5)
  660.         x1 = x0
  661.         y1 = y0
  662.         xoff = RND * 20 - 10 + r(iRock).x
  663.         yoff = RND * 20 - 10 + r(iRock).y
  664.         FOR i = 1 TO 12
  665.             leg = rRad * (RND * .35 + .65)
  666.             IF i = 12 THEN
  667.                 x2 = x0: y2 = y0
  668.             ELSE
  669.                 x2 = xoff + leg * COS(i * polyAngle + r(iRock).ra)
  670.                 y2 = yoff + leg * SIN(i * polyAngle + r(iRock).ra)
  671.             END IF
  672.             ftri r(iRock).x, r(iRock).y, x1, y1, x2, y2, c~&
  673.             x1 = x2: y1 = y2
  674.         NEXT
  675.     NEXT
  677.  
  678. SUB newRock (iRock)
  679.     DIM side AS LONG
  680.     RANDOMIZE TIMER * RND 'to avoid making twins
  681.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  682.     SELECT CASE side
  683.         CASE 1
  684.             r(iRock).x = -100
  685.             r(iRock).y = rrnd(80, ymax - 80)
  686.             IF RND < .25 THEN r(iRock).heading = _ATAN2(ship.y - r(iRock).y, ship.x - r(iRock).x) ELSE r(iRock).heading = 3 * pi / 2 + RND * pi
  687.         CASE 2
  688.             r(iRock).x = xmax + 100
  689.             r(iRock).y = rrnd(80, ymax - 80)
  690.             IF RND < .25 THEN r(iRock).heading = _ATAN2(ship.y - r(iRock).y, ship.x - r(iRock).x) ELSE r(iRock).heading = pi / 2 + RND * pi
  691.         CASE 3
  692.             r(iRock).x = rrnd(80, xmax - 80)
  693.             r(iRock).y = -100
  694.             IF RND < .25 THEN r(iRock).heading = _ATAN2(ship.y - r(iRock).y, ship.x - r(iRock).x) ELSE r(iRock).heading = RND * pi
  695.         CASE 4
  696.             r(iRock).x = rrnd(80, xmax - 80)
  697.             r(iRock).y = ymax + 100
  698.             IF RND < .25 THEN r(iRock).heading = _ATAN2(ship.y - r(iRock).y, ship.x - r(iRock).x) ELSE r(iRock).heading = pi + RND * pi
  699.     END SELECT
  700.     r(iRock).speed = rrnd(minRockSpeed, maxRockSpeed) 'speed, rotation angle, radius, gray coloring, spin, seed, hit for explosion
  701.     r(iRock).ra = RND * 2 * pi
  702.     r(iRock).r = irnd&(minRockSize * 3, maxRockSize) 'every parent rock can be split up into at least 2 - 10 size rocks
  703.     r(iRock).c = irnd&(60, 110) ' Ken request increase in rock color
  704.     r(iRock).spin = rrnd(-pi / 20, pi / 20)
  705.     r(iRock).seed = INT(RND * 64000) - 32000
  706.     r(iRock).explodeFrame = 0
  707.     r(iRock).live = 1
  709.  
  710. FUNCTION irnd& (n1, n2) 'return an integer between 2 numbers
  711.     DIM l%, h%
  712.     IF n1 > n2 THEN l% = n2: h% = n1 ELSE l% = n1: h% = n2
  713.     irnd& = INT(RND * (h% - l% + 1)) + l%
  715.  
  716. FUNCTION rrnd (n1, n2) ' return number (expecting reals =_single, double, _float depending on default / define setup)
  717.     rrnd = (n2 - n1) * RND + n1
  719.  
  720. SUB drawBall (x, y, r, c AS _UNSIGNED LONG)
  721.     DIM red AS LONG, grn AS LONG, blu AS LONG, rr AS LONG, f
  722.     red = _RED32(c): grn = _GREEN32(c): blu = _BLUE32(c)
  723.     FOR rr = r TO 0 STEP -1
  724.         f = 1 - rr / r
  725.         fcirc x, y, rr, _RGB32(red * f, grn * f, blu * f)
  726.     NEXT
  728.  
  729. SUB fellipse (CX AS LONG, CY AS LONG, xr AS LONG, yr AS LONG, C AS _UNSIGNED LONG)
  730.     IF xr = 0 OR yr = 0 THEN EXIT SUB
  732.     DIM x AS LONG, y AS LONG
  733.     w2 = xr * xr: h2 = yr * yr: h2w2 = h2 * w2
  734.     LINE (CX - xr, CY)-(CX + xr, CY), C, BF
  735.     DO WHILE y < yr
  736.         y = y + 1
  737.         x = SQR((h2w2 - y * y * w2) \ h2)
  738.         LINE (CX - x, CY + y)-(CX + x, CY + y), C, BF
  739.         LINE (CX - x, CY - y)-(CX + x, CY - y), C, BF
  740.     LOOP
  742.  
  743. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  744.     DIM D AS LONG
  745.     STATIC a&
  746.     D = _DEST
  747.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  748.     _DEST a&
  749.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
  750.     PSET (0, 0), K
  751.     _BLEND a& '<<<< new 2019-12-16 fix
  752.     _DEST D
  753.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  755.  
  756. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG) 'vince version
  757.     DIM x0 AS LONG, y0 AS LONG, e AS LONG
  758.     x0 = R: y0 = 0: e = 0
  759.     DO WHILE y0 < x0
  760.         IF e <= 0 THEN
  761.             y0 = y0 + 1
  762.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  763.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  764.             e = e + 2 * y0
  765.         ELSE
  766.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  767.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  768.             x0 = x0 - 1: e = e - 2 * x0
  769.         END IF
  770.     LOOP
  771.     LINE (x - R, y)-(x + R, y), C, BF
  773.  
  774.  

Title: Re: b+ Asteroids makeover
Post by: SierraKen on November 06, 2020, 08:29:45 pm
I love it B+! I had to dodge the rocks before I got to a 5,000 score this time and since so many more objects are coming out at once now the score goes up faster too! I can't think of anything better. :))) Congratulations!! I also deleted my High Score from the text file so I can start over. :)
Title: Re: b+ Asteroids makeover
Post by: bplus on November 06, 2020, 10:47:33 pm
Quote from: SierraKen on November 06, 2020, 08:29:45 pm
I love it B+! I had to dodge the rocks before I got to a 5,000 score this time and since so many more objects are coming out at once now the score goes up faster too! I can't think of anything better. :))) Congratulations!! I also deleted my High Score from the text file so I can start over. :)

Well I got to say it's too much for me. I can't get any where with it now. I can once again blame the crappy arrow keys on my keyboard for part of problem the other is I am too slow :(

BTW I found slightly flawed code in drawStars. I DIM'd the array for 600 stars but use only 200 but why do they look right? Different sizes are moving at different speeds, the stars being replaced correct as they exit stage right and reenter stage left. Because I failed to change the original 200 size and color, just changed x, y to do 600 stars.

So anyway drawStars sub should be this, without the wasted 400 extra stars:
Code: QB64: [Select]
  1. SUB drawStars (moving)
  2.     TYPE starType
  3.         x AS SINGLE
  4.         y AS SINGLE
  5.         size AS SINGLE
  6.         c AS INTEGER
  7.     END TYPE
  8.     STATIC beenHere, stars(200) AS starType, cy AS LONG
  9.     DIM i AS LONG
  10.     IF beenHere = 0 THEN 'static part
  11.         FOR i = 0 TO 100
  12.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = .3
  13.             stars(i).c = irnd&(80, 140)
  14.         NEXT
  15.         FOR i = 101 TO 150
  16.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = .6
  17.             stars(i).c = irnd&(110, 170)
  18.         NEXT
  19.         FOR i = 151 TO 195
  20.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = 1.2
  21.             stars(i).c = irnd&(140, 200)
  22.         NEXT
  23.         FOR i = 196 TO 200
  24.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = 2.4
  25.             stars(i).c = irnd&(170, 235)
  26.         NEXT
  27.         cy = ymax / 2
  28.         beenHere = 1
  29.     END IF
  30.     FOR i = 0 TO cy
  31.         LINE (0, i)-(xmax, i), _RGB32(0, 0, .1 * i + 4)
  32.         LINE (0, ymax - i)-(xmax, ymax - i), _RGB(0, 0, .1 * i + 4)
  33.     NEXT
  34.     FOR i = 0 TO 200
  35.         IF moving THEN
  36.             stars(i).x = stars(i).x + .2 * stars(i).size ^ stars(i).size
  37.             IF stars(i).x > xmax THEN stars(i).x = -1 * RND * 20
  38.         END IF
  39.         fcirc stars(i).x, stars(i).y, stars(i).size, _RGB32(stars(i).c - 10, stars(i).c, stars(i).c + 10)
  40.     NEXT
  42.  
Title: Re: b+ Asteroids makeover
Post by: bplus on November 06, 2020, 11:32:29 pm
Press m for mouse action when you see the starting splash screen (otherwise you will bored to death using the mouse).
Code: QB64: [Select]
  2. _TITLE "b+QB64 Asteroids M10" 'started 2018-07-13
  3. '2020 - Oct and Nov: Special thanks to SierraKen who has been helpful with suggestions, ideas and fixes.
  5.  
  6. ' Far far away in a universe where Newton's 1st Law of Motion is not obeyed...    ;-))
  7.  
  8.  
  9. '                                            New Controls
  10. ' key a or left arrow = turn left
  11. ' key s or right arrow = turn right
  12. ' enter or spacebar =  "hyperspace" show up somewhere else  better or worse use when collision is imminent
  13. ' key k or up arrow = thrust  just a burst in direction you are pointed but doesn't last
  14. ' fire! owwha, owha, owha...  is now continuous
  15.  
  16. '=================================================================================================================
  17.  
  18. ' 2020-10-27 remove the alternate subs and get down below 200 LOC almost there now! new shooter action font and background
  19. ' 2020-10-28 another makeover explosions and split asteroids
  20. ' 2020-10-29 fix baby rock management, break between lives
  21. ' 2020-10-29 fix left/right gun, fix explosions over many frames to eliminate pause in action, speed up 60 fps
  22. ' 2020-10-30 m3 SierraKen's idea to angle shooter with mousewheel also finish WASD options, more rocks, points system
  23. ' points:
  24. ' The higher the speed the better    speed range .5 to 2.5, diff = 2 * 50 = 100          s - .5 * 50
  25. ' DELETE The lower the color the better   color range 10 to 60, diff =      50 * 2 = 100  50 - (c - 10) * 2
  26. ' The smaller the size the better  size range 10 to 100, diff = 90 * 1.1111 = 100  90 - (sz -10) * 1.1111
  27. '        ((speed - .5) * 50 + (90 - (r - 10)) * 1.1111) / 2 = 100 best score per hit
  28. ' 2020-10-30 increase level of difficulty, fix double lives lost, add an ending after all lives spent.
  29. ' 2020-10-31 M4 They are Here - the aliens have accepted my invitaion for war games don't get caught in their beam.
  30. ' rework ending and variable LONG suffix. Aliens on the attack 100 points before or after transformed into the Bolder of Death.
  31. ' 2020-11-01 M5 FX Moving through space, Oh yeah, more aliens!
  32. ' 2020-11-01 M6 add play again and save high game , continuous shoot
  33. ' 2020-11-01 M7 fix hits count when hit alien ship or Bolder of Death. Fix lights on aliens ship. I want to see collsions with ship.
  34. ' Ken recommends removing text in middle of screen, yeah, distracting. Makeover ship as with mouse x, y it's center. Add Splash screen.
  35. ' Show mouse in between lives so can be in screen center when press key to start next run.
  36.  
  37. ' 2020-11-03 M9 watching videos on Asteroids, I found a view and description of the control panel, it is:
  38. ' 2 buttons on left and lower button in middle and 2 buttons on right level with 2 on left.
  39. ' 2 buttons on left are left and right turns they will be Keys A and S
  40. ' The middle will be spacebar for Hypespace or these days we might call it worm hole, jump to another location better or worse!
  41. ' 2 buttons on right K and L: K will be a thruster of sorts you eventually come to a stop (not what Newton would like) L is the fire button.
  42. ' So let's try that. I am impressed by hitting thruster and shooting all around as you dift in direction gun was pointed when hit thruster.
  43. ' Lighten rocks and change points, based now only on size and speed of Asteroids.
  44. ' 2020-11-04 M9 Install new update to thrust control. Thanks to SierraKen for finding out what happened to Hyperspace jump when press
  45. ' spacebar a 2nd time in a life. Oh also Boulders of Death are now more like smooth colored spheres. Ahhhh Fixed the crashing at the borders
  46. ' now fly out one side and come back in on the other! This is getting good! Adding some sound effects.
  47. ' 2020-11-05 M10 set some constants for starting game so can just change them to level of play desired.
  48. ' speed points =  50 * (rockSpeed - minRockSpeed)/rockSpeedRange > fastest rock gets 50 points
  49. ' size points = 50 * (rockSizeRange - (rockSize - minRockSize))/rockSizeRange  > smallest rock gets 50 points
  50. ' points = points +  50 * ( (rockSpeed - minRockSpeed)/rockSpeedRange +  (rockSizeRange - (rockSize - minRockSize))/rockSizeRange )
  51. ' Dav's comments: Add arrow keys for left right turns and up for thrust, continuous fire now! A little score board in top left corner.
  52. ' Dav I am keeping spacebar for Hyperspace but also Enter, don't need fire button now.
  53. ' Try the A for left and the right arrow for right turns.
  54. ' 2020-11-05 p is for pause
  55. ' 2020-11-06 Move it or lose it!
  56. ' 2020-11-06 Put the dang mouse back in!  Press m for mouse target rich environment! Use left and right mouse buttons to aim guns,
  57. ' 2020-11-08 add mouse mode you can enter at splash screen,
  58. '================================================================================================================
  59.  
  60. '    NOTE: !!!!!!!!!!!!!!!   When there is a pause in action, just press enter,  as in enter a new life!
  61.  
  62. '================================================================================================================
  63.  
  64. CONST xmax = 1200, ymax = 700, pi = _PI, polyAngle = _PI / 6, nRocks = 300, nBullets = 2000, bSpeed = 15
  65. CONST startRocks = 2, minRockSpeed = 0.7500, maxRockSpeed = 3.2500, minRockSize = 10, maxRockSize = 100
  66. CONST rockSpeedRange = maxRockSpeed - minRockSpeed, rockSizeRange = maxRockSize - minRockSize
  67. CONST alienSpeed = rockSpeedRange / 2 + minRockSpeed ' average rock speed
  68.  
  69. TYPE alienType
  70.     x AS SINGLE
  71.     y AS SINGLE
  72.     dx AS SINGLE
  73.     dy AS SINGLE
  74.     ls AS LONG ' lights offset and gray scale
  75.     c AS _UNSIGNED LONG ' color
  76.     live AS LONG
  77.     attackFrame AS LONG
  78.     fireX AS SINGLE
  79.     fireY AS SINGLE
  80.     transform AS LONG
  82.  
  83. TYPE particle
  84.     x AS SINGLE
  85.     y AS SINGLE
  86.     dx AS SINGLE
  87.     dy AS SINGLE
  88.     size AS SINGLE
  89.     kolor AS _UNSIGNED LONG
  91.  
  92. TYPE bullet
  93.     x AS SINGLE
  94.     y AS SINGLE
  95.     dx AS SINGLE
  96.     dy AS SINGLE
  97.     live AS LONG
  99.  
  100. TYPE shipType
  101.     x AS SINGLE
  102.     y AS SINGLE
  103.     live AS LONG
  104.     speed AS SINGLE '       just a constant now when Thrust is applied
  105.     thrustAngle AS SINGLE ' ship/gun angle at moment Thrust is pressed
  106.     angle AS SINGLE '       rotated position ship/gun now A or S keypress or hold down
  107.     thrust AS LONG '        this now tracks how many frames ship will move at speed and thrustAngle
  109.  
  110. TYPE rock
  111.     x AS SINGLE
  112.     y AS SINGLE
  113.     r AS LONG '            radius
  114.     ra AS SINGLE '         rotation position   a = a + spin
  115.     heading AS SINGLE '    heading from which dx, dy are calc with speed
  116.     speed AS SINGLE '      speed
  117.     spin AS SINGLE '       rotation direction and amount
  118.     seed AS LONG '         for drawing rocks with RND USING
  119.     c AS LONG '            color   rgb(c, c, c)
  120.     live AS LONG '         need this to track rocks still active like bullets
  121.     explodeFrame AS LONG ' after a rock is hit by bullet, it explodes and in more than one frame
  123.  
  124. REDIM SHARED aliens(1 TO 5) AS alienType
  125. DIM SHARED dots(2000) AS particle ' explosions
  126. DIM SHARED b(nBullets) AS bullet
  127. DIM SHARED ship AS shipType
  128. DIM SHARED r(nRocks) AS rock
  130. DIM SHARED points AS LONG
  131. DIM SHARED rocks AS LONG 'rocks is the minimum number of parent rocks to have on screen  automatic replace when hit or out of bounds
  132.  
  133. DIM HS AS LONG, fnt AS LONG, fnt2 AS LONG ' file LOAD handles
  134. DIM i AS LONG, bullets AS LONG, fire AS LONG ' index and bullets
  135. DIM r AS LONG, newRockN AS LONG, maxBabyRocks AS LONG, br AS LONG, hits AS LONG ' rock stuff
  136. DIM ai AS LONG, alienN AS LONG ' alien index and number
  137. DIM kh AS LONG 'key hit for ship thrust k or up arrow or hyperspace jump spacebar
  138. DIM hs$, s$, k$, t, lastt 'high score, general string and times for bullets
  139. DIM rockPoints AS LONG, roundPoints AS LONG ' various points scores
  140. DIM mouseMode AS LONG 'either key press hyperdrive and thrust or mouse moves
  141. ship.speed = 3.5 'this would be a constant but ship has to declared as Ship Type first, Hyperspace jump
  142.  
  143. SCREEN _NEWIMAGE(xmax, ymax, 32)
  144. _SCREENMOVE 100, 20
  146.  
  147. fnt = _LOADFONT("ARLRDBD.ttf", 16, "MONOSPACE")
  148. fnt2 = _LOADFONT("ARLRDBD.ttf", 40, "MONOSPACE")
  149. _FONT fnt2
  150. COLOR &HFF00FFFF, &H00000000
  151.  
  152. IF _FILEEXISTS("Asteroids High Score.txt") THEN
  153.     OPEN "Asteroids High Score.txt" FOR INPUT AS #1
  154.     INPUT #1, HS
  155.     CLOSE #1
  157. hs$ = "High Score:" + STR$(HS)
  158.  
  159. 'a little splash screen
  160. rocks = 7: alienN = 3
  161. FOR i = 1 TO nRocks
  162.     newRock i
  163.     IF i > rocks THEN r(i).live = 0
  165. FOR i = 1 TO alienN
  166.     newAlien i
  168. i = 0
  170.     drawStars 0
  171.     i = i + 1
  172.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  173.     FOR r = 1 TO nRocks
  174.         IF r(r).live THEN drawRock r
  175.     NEXT
  176.     FOR i = 1 TO alienN
  177.         drawAliens i
  178.     NEXT
  179.     _FONT fnt2
  180.     s$ = "*** b+QB64 Asteroids ***"
  181.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 60), s$
  182.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(hs$)) / 2, 140), hs$
  183.     s$ = "A or arrow = Left spin"
  184.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 220), s$
  185.     s$ = "S or arrow = Right Spin"
  186.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 300), s$
  187.     s$ = "Space or Enter = Hyper jump"
  188.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 380), s$
  189.     s$ = "K or up arrow = Thrust"
  190.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 460), s$
  191.     s$ = "M for Mouse Only Moving"
  192.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, 540), s$
  193.     _FONT fnt
  195.     k$ = INKEY$
  196.     _DISPLAY
  197.     _LIMIT 60
  199.  
  201. restart:
  202. IF _FILEEXISTS("Asteroids High Score.txt") THEN
  203.     OPEN "Asteroids High Score.txt" FOR INPUT AS #1
  204.     INPUT #1, HS
  205.     CLOSE #1
  207. hs$ = "  High Score:" + STR$(HS)
  208. lives = 10: alienN = 1: rocks = startRocks ' always active rocks
  209. points = 0: hits = 0: bullets = 0
  210.  
  211. IF k$ = "m" THEN ' undocumented use of mouse
  212.     mouseMode = -1: alienN = 3: rocks = 5
  214.  
  215. WHILE lives > 0 AND _KEYDOWN(27) = 0 ' init start restart
  216.     REDIM aliens(1 TO alienN) AS alienType
  217.     FOR ai = 1 TO alienN
  218.         newAlien ai
  219.     NEXT
  220.     FOR i = 1 TO nRocks 'reset rocks mainly clear baby rocks
  221.         newRock (i)
  222.         IF i > rocks THEN r(i).live = 0
  223.     NEXT
  224.     ship.x = xmax / 2 'avoids explosions top left corner at start, dang still get some!
  225.     ship.y = ymax / 2
  226.     ship.angle = 0
  227.     ship.thrustAngle = 0
  228.     ship.thrust = 0
  229.     ship.live = 1
  230.     rockPoints = 0
  231.     roundPoints = 0
  232.     WHILE ship.live AND _KEYDOWN(27) = 0
  233.  
  234.         'draw everything then process bullets
  235.         drawStars 1
  236.         LOCATE 1, 1: PRINT "Lives:"; lives
  237.         LOCATE 2, 1: PRINT "Last Rock:"; STR$(rockPoints)
  238.         LOCATE 3, 1: PRINT "Round:;"; STR$(roundPoints)
  239.         LOCATE 4, 1: PRINT "Points:"; STR$(points)
  240.         LOCATE 5, 1: PRINT "High Score:"; STR$(HS)
  241.         FOR ai = 1 TO alienN
  242.             drawAliens ai
  243.         NEXT
  244.         FOR i = 1 TO nRocks
  245.             IF r(i).live THEN 'make sure if we crash into a ship it is a live rock, not one sitting on side waiting to be called up
  246.                 drawRock i ' while drawing rocks the ship could be blown up
  247.                 IF ((r(i).x - ship.x) ^ 2 + (r(i).y - ship.y) ^ 2) ^ .5 < r(i).r + 20 THEN 'rock collides with ship?
  248.                     FOR br = 1 TO 200 STEP 5
  249.                         CIRCLE ((ship.x + r(i).x) / 2, (ship.y + r(i).y) / 2), br, _RGB32(255 - br, 255 - 2 * br, 0)
  250.                     NEXT
  251.                     drawRock i
  252.                     drawship
  253.                     ship.live = 0
  254.                     IF i <= rocks THEN newRock i ELSE r(i).live = 0
  255.                 END IF
  256.             END IF
  257.         NEXT
  258.         FOR i = 1 TO nRocks 'smoke up the place with rock debris fields still flying out from hit frames ago
  259.             IF r(i).explodeFrame THEN
  260.                 r(i).explodeFrame = r(i).explodeFrame + 1
  261.                 IF r(i).explodeFrame > .25 * r(i).r THEN
  262.                     r(i).explodeFrame = 0
  263.                     IF i <= rocks THEN newRock i ' now replace the rock
  264.                 ELSE
  265.                     explode r(i).x, r(i).y, r(i).r, r(i).explodeFrame
  266.                 END IF
  267.             END IF
  268.         NEXT
  269.         IF ship.live THEN
  270.             FOR ai = 1 TO alienN
  271.                 IF SQR((aliens(ai).x - ship.x) ^ 2 + (aliens(ai).y - ship.y) ^ 2) < 55 THEN 'aliens and ship collisde boom boom
  272.                     FOR br = 1 TO 200 STEP 5
  273.                         CIRCLE ((ship.x + aliens(ai).x) / 2, (ship.y + aliens(ai).y) / 2), br, _RGB32(255 - br, 255 - 2 * br, 0)
  274.                     NEXT
  275.                     drawship
  276.                     ship.live = 0
  277.                     _CONTINUE
  278.                 ELSE
  279.                     drawship
  280.                 END IF
  281.             NEXT
  282.             IF mouseMode THEN
  283.                 WHILE _MOUSEINPUT: WEND
  284.                 ship.x = _MOUSEX: ship.y = _MOUSEY
  285.                 IF _MOUSEBUTTON(1) THEN ship.angle = pi
  286.                 IF _MOUSEBUTTON(2) THEN ship.angle = 0
  287.             END IF
  288.             '                                                                   ship controls update
  289.             'a key or left arrow = left spin
  290.             IF _KEYDOWN(97) OR _KEYDOWN(19200) THEN ship.angle = ship.angle - pi / 48
  291.  
  292.             's key or right arrow = right spin
  293.             IF _KEYDOWN(115) OR _KEYDOWN(19712) THEN ship.angle = ship.angle + pi / 48
  294.  
  295.             'l is Fire!  JUST CONTINUOUS FIRE
  296.             fire = 0
  297.             'IF _KEYDOWN(108) THEN
  298.             t = TIMER(.01)
  299.             IF lastt = 0 OR t - lastt > .15 THEN fire = 1: SOUND 2088, .01: lastt = t
  300.             'END IF
  301.  
  302.             kh = _KEYHIT
  303.             SELECT CASE kh
  304.                 CASE 112 ' p for pause
  305.                     kh = 0
  306.                     WHILE _KEYHIT <> 112: _LIMIT 60: WEND
  307.                 CASE 107, 18432 'thrust  k key or up arrow
  308.                     IF mouseMode = 0 THEN
  309.                         SOUND 488, .01
  310.                         ship.thrustAngle = ship.angle: ship.thrust = 120
  311.                     END IF
  312.                 CASE 13, 32 ' space = hyperspace jump
  313.                     IF mouseMode = 0 THEN
  314.                         RANDOMIZE TIMER
  315.                         ship.x = (xmax - 300) * RND + 150: ship.y = (ymax - 300) * RND + 150: ship.thrust = 0
  316.                     END IF
  317.             END SELECT
  318.  
  319.             '                                                                   locate ship
  320.             IF ship.thrust > 0 THEN
  321.                 'relocate ship position
  322.                 ship.x = ship.x + ship.speed * COS(ship.thrustAngle)
  323.                 ship.y = ship.y + ship.speed * SIN(ship.thrustAngle)
  324.             END IF
  325.             '                                                                    jump borders
  326.             IF ship.x < 0 THEN ship.x = xmax - ABS(ship.x)
  327.             IF ship.x > xmax THEN ship.x = ship.x - xmax
  328.             IF ship.y < 0 THEN ship.y = ymax - ABS(ship.y)
  329.             IF ship.y > ymax THEN ship.y = ship.y - ymax
  330.  
  331.  
  332.             FOR i = 0 TO nBullets '                                               handle bullets
  333.                 IF b(i).live = 0 AND fire = 1 THEN 'have inactive bullet to use
  334.                     b(i).x = ship.x + 2 * bSpeed * COS(ship.angle)
  335.                     b(i).y = ship.y + 2 * bSpeed * SIN(ship.angle)
  336.                     b(i).dx = bSpeed * COS(ship.angle)
  337.                     b(i).dy = bSpeed * SIN(ship.angle)
  338.                     b(i).live = -1
  339.                     bullets = bullets + 1
  340.                     fire = 0
  341.                 END IF
  342.                 IF b(i).live THEN 'new location
  343.                     b(i).x = b(i).x + b(i).dx
  344.                     b(i).y = b(i).y + b(i).dy
  345.                     IF b(i).x > 0 AND b(i).x < xmax AND b(i).y > 0 AND b(i).y < ymax THEN 'in bounds draw it
  346.  
  347.                         'bullet hit aliens?
  348.                         FOR ai = 1 TO alienN
  349.                             IF SQR((aliens(ai).x - b(i).x) ^ 2 + (aliens(ai).y - b(i).y) ^ 2) < 30 THEN
  350.                                 FOR br = 1 TO 120
  351.                                     CIRCLE (aliens(ai).x, aliens(ai).y), br / 3, plasma~&(0)
  352.                                 NEXT
  353.                                 _DISPLAY
  354.                                 _DELAY .05
  355.                                 hits = hits + 1
  356.                                 roundPoints = roundPoints + 100
  357.                                 points = points + 100
  358.                                 aliens(ai).live = 0
  359.                                 newAlien ai
  360.                                 b(i).live = 0
  361.                                 _CONTINUE
  362.                             END IF
  363.                         NEXT
  364.                         FOR r = 1 TO nRocks 'check for collision with rock
  365.                             IF r(r).live THEN
  366.                                 IF SQR((r(r).x - b(i).x) ^ 2 + (r(r).y - b(i).y) ^ 2) < r(r).r THEN 'its a hit!
  367.                                     r(r).explodeFrame = 1 'linger with explosion
  368.                                     r(r).live = 0
  369.                                     hits = hits + 1
  370.                                     rockPoints = 50 * ((r(r).speed - minRockSpeed) / rockSpeedRange + (rockSizeRange - (r(r).r - minRockSize)) / rockSizeRange)
  371.                                     roundPoints = roundPoints + rockPoints
  372.                                     points = points + rockPoints
  373.                                     IF r(r).r > 30 THEN '       split rock  into ? new ones
  374.                                         maxBabyRocks = INT((r(r).r - 10) / 10)
  375.                                         maxBabyRocks = irnd&(2, maxBabyRocks) ' pick a number of baby Rocks
  376.                                         FOR br = 1 TO maxBabyRocks
  377.                                             '                        new rock
  378.                                             newRockN = freeRock& '                          get inactive rock number
  379.                                             newRock newRockN '                              new identity and activate
  380.                                             r(newRockN).r = (r(r).r - 10) / maxBabyRocks '  split in equal parts minus 20% mass
  381.                                             r(newRockN).x = r(r).x + irnd&(-30, 30) '       thrown from parent
  382.                                             r(newRockN).y = r(r).y + irnd&(-30, 30)
  383.                                             r(newRockN).c = r(r).c '                   same color as parent
  384.                                             r(newRockN).heading = rrnd(ship.angle - .75 * pi, ship.angle + .75 * pi)
  385.                                         NEXT
  386.                                     END IF ' big enough to split
  387.                                     b(i).live = 0 'kill bullet
  388.                                 END IF ' hit rock
  389.                             END IF 'rock is there
  390.                         NEXT ' rock
  391.                         IF b(i).live THEN fcirc b(i).x, b(i).y, 3, _RGB32(255, 255, 0) 'draws bullet
  392.                     ELSE
  393.                         b(i).live = 0 'out of bounds
  394.                     END IF ' bullet is in bounds
  395.                 END IF ' bullet live
  396.             NEXT ' bullet
  397.         END IF ' if ship still live
  398.         _DISPLAY
  399.         IF ship.live = 0 THEN
  400.             lives = lives - 1
  401.             IF lives MOD 4 = 0 THEN rocks = rocks + 1
  402.             IF lives MOD 4 = 2 THEN alienN = alienN + 1
  403.             s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  404.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 80), s$
  405.             _FONT fnt2
  406.             s$ = STR$(points) + hs$
  407.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  408.             _FONT fnt
  409.             s$ = "Press enter to enter next life."
  410.             _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 120), s$
  411.             _DISPLAY
  412.             kh = 0
  413.             WHILE kh <> 13
  414.                 kh = _KEYHIT
  415.             WEND 'wait for enter key
  416.         ELSE
  417.             _LIMIT 60 ' if ship dies let's rest and regroup  before restart next life
  418.         END IF
  419.     WEND
  420.     _DISPLAY
  422. IF points > HS THEN
  423.     OPEN "Asteroids High Score.txt" FOR OUTPUT AS #1
  424.     PRINT #1, points
  425.     CLOSE #1
  427. ship.x = -200: ship.y = -200 'get it out of the way
  428. i = 0
  430.     drawStars 0
  431.     i = i + 1
  432.     IF i MOD 30 = 29 AND rocks < nRocks THEN rocks = rocks + 1: r(rocks).live = 1
  433.     FOR r = 1 TO nRocks
  434.         IF r(r).live THEN drawRock r
  435.     NEXT
  436.     s$ = "Lives:" + STR$(lives) + "  Hits:" + STR$(hits) + "  Bullets:" + STR$(bullets) + "  Shooting:" + STR$(INT(hits * 100 / bullets)) + "%"
  437.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 - 80), s$
  438.     _FONT fnt2
  439.     s$ = STR$(points)
  440.     IF points > HS THEN s$ = s$ + " a New Record!" ELSE s$ = STR$(points) + hs$
  441.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2), s$
  442.     _FONT fnt
  443.     s$ = "Press q to quit, p or a to Play Again..."
  444.     _PRINTSTRING ((_WIDTH - _PRINTWIDTH(s$)) / 2, ymax / 2 + 120), s$
  445.     IF _KEYDOWN(ASC("a")) OR _KEYDOWN(ASC("p")) THEN GOTO restart
  446.     _DISPLAY
  447.     _LIMIT 60
  450.  
  451. SUB drawStars (moving)
  452.     TYPE starType
  453.         x AS SINGLE
  454.         y AS SINGLE
  455.         size AS SINGLE
  456.         c AS INTEGER
  457.     END TYPE
  458.     STATIC beenHere, stars(200) AS starType, cy AS LONG
  459.     DIM i AS LONG
  460.     IF beenHere = 0 THEN 'static part
  461.         FOR i = 0 TO 100
  462.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = .3
  463.             stars(i).c = irnd&(80, 140)
  464.         NEXT
  465.         FOR i = 101 TO 150
  466.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = .6
  467.             stars(i).c = irnd&(110, 170)
  468.         NEXT
  469.         FOR i = 151 TO 195
  470.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = 1.2
  471.             stars(i).c = irnd&(140, 200)
  472.         NEXT
  473.         FOR i = 196 TO 200
  474.             stars(i).x = RND * xmax: stars(i).y = RND * ymax: stars(i).size = 2.4
  475.             stars(i).c = irnd&(170, 235)
  476.         NEXT
  477.         cy = ymax / 2
  478.         beenHere = 1
  479.     END IF
  480.     FOR i = 0 TO cy
  481.         LINE (0, i)-(xmax, i), _RGB32(0, 0, .1 * i + 4)
  482.         LINE (0, ymax - i)-(xmax, ymax - i), _RGB(0, 0, .1 * i + 4)
  483.     NEXT
  484.     FOR i = 0 TO 200
  485.         IF moving THEN
  486.             stars(i).x = stars(i).x + .2 * stars(i).size ^ stars(i).size
  487.             IF stars(i).x > xmax THEN stars(i).x = -1 * RND * 20
  488.         END IF
  489.         fcirc stars(i).x, stars(i).y, stars(i).size, _RGB32(stars(i).c - 10, stars(i).c, stars(i).c + 10)
  490.     NEXT
  492.  
  493. SUB newAlien (i AS LONG)
  494.     DIM side AS LONG, heading
  495.     RANDOMIZE TIMER * RND 'to avoid making twins
  496.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  497.     IF RND < .6 THEN
  498.         aliens(i).fireX = ship.x: aliens(i).fireY = ship.y
  499.     ELSE
  500.         aliens(i).fireX = irnd(10, xmax - 10): aliens(i).fireY = irnd(10, ymax - 10)
  501.     END IF
  502.     aliens(i).attackFrame = irnd(50, 400) ' EDIT a tweak to survive a little long before getting murdered with low lives over and over...
  503.     SELECT CASE side
  504.         CASE 1
  505.             aliens(i).x = -10
  506.             aliens(i).y = rrnd(80, ymax - 80)
  507.         CASE 2
  508.             aliens(i).x = xmax + 10
  509.             aliens(i).y = rrnd(80, ymax - 80)
  510.         CASE 3
  511.             aliens(i).x = rrnd(80, xmax - 80)
  512.             aliens(i).y = -10
  513.         CASE 4
  514.             aliens(i).x = rrnd(80, xmax - 80)
  515.             aliens(i).y = ymax + 10
  516.     END SELECT
  517.     heading = _ATAN2(aliens(i).fireY - aliens(i).y, aliens(i).fireX - aliens(i).x)
  518.     aliens(i).dx = alienSpeed * COS(heading)
  519.     aliens(i).dy = alienSpeed * SIN(heading)
  520.     aliens(i).live = 0
  521.     aliens(i).transform = 0
  522.     aliens(i).c = _RGB32(irnd(128, 255), irnd(0, 255), irnd(0, 255))
  524.  
  525. FUNCTION plasma~& (new AS LONG)
  526.     STATIC r, g, b, cnt, beenHere
  527.     IF beenHere = 0 OR new THEN
  528.         r = RND: g = RND: b = RND: beenHere = 1: cnt = 0
  529.     END IF
  530.     cnt = cnt + .2
  531.     plasma~& = _RGB32(127 + 127 * SIN(r * cnt), 127 + 127 * SIN(g * cnt), 127 + 127 * SIN(b * cnt))
  533.  
  534. SUB drawAliens (i AS LONG) 'shipType
  535.     DIM light AS LONG, heading, r AS LONG, g AS LONG, b AS LONG
  536.     IF aliens(i).live THEN
  537.         SOUND 6000 + i * 200, .07
  538.         IF aliens(i).transform = 0 THEN
  539.             r = _RED32(aliens(i).c): g = _GREEN32(aliens(i).c): b = _BLUE32(aliens(i).c)
  540.             fellipse aliens(i).x, aliens(i).y, 6, 15, _RGB32(r, g - 120, b - 100)
  541.             fellipse aliens(i).x, aliens(i).y, 18, 11, _RGB32(r, g - 60, b - 50)
  542.             fellipse aliens(i).x, aliens(i).y, 30, 7, _RGB32(r, g, b)
  543.             FOR light = 0 TO 5
  544.                 fcirc aliens(i).x - 30 + 11 * light + aliens(i).ls, aliens(i).y, 1, _RGB32(aliens(i).ls * 50, aliens(i).ls * 50, aliens(i).ls * 50)
  545.             NEXT
  546.             aliens(i).ls = aliens(i).ls + 1
  547.             IF aliens(i).ls > 5 THEN aliens(i).ls = 0
  548.         ELSE
  549.             drawBall aliens(i).x, aliens(i).y, 30, aliens(i).c
  550.         END IF
  551.         'time to shoot?
  552.         aliens(i).x = aliens(i).x + aliens(i).dx
  553.         aliens(i).y = aliens(i).y + aliens(i).dy
  554.         IF SQR((aliens(i).fireX - aliens(i).x) ^ 2 + (aliens(i).fireY - aliens(i).y) ^ 2) < 5 THEN 'transform into the bolder of death
  555.             aliens(i).transform = 1
  556.             heading = _ATAN2(ship.y - aliens(i).y, ship.x - aliens(i).x)
  557.             aliens(i).dx = 2.5 * COS(heading)
  558.             aliens(i).dy = 2.5 * SIN(heading)
  559.         END IF
  560.         IF aliens(i).x < -10 OR aliens(i).x > xmax + 10 THEN
  561.             IF aliens(i).y < -10 OR aliens(i).y > ymax + 10 THEN '  out of bounds goodbye bolder of death!
  562.                 aliens(i).live = 0 'man we dodged a bullet here!!!!
  563.                 newAlien i 'reset the trap
  564.             END IF
  565.         END IF
  566.     ELSE
  567.         IF aliens(i).attackFrame THEN
  568.             aliens(i).attackFrame = aliens(i).attackFrame - 1
  569.             IF aliens(i).attackFrame = 0 THEN
  570.                 aliens(i).live = 1
  571.             END IF
  572.         END IF
  573.     END IF
  575.  
  576. FUNCTION freeRock&
  577.     DIM i AS LONG
  578.     FOR i = rocks + 1 TO nRocks ' look for inactive rock number
  579.         IF r(i).live = 0 AND r(i).explodeFrame = 0 THEN freeRock& = i: EXIT FUNCTION
  580.     NEXT
  582.  
  583. SUB explode (x AS LONG, y AS LONG, r AS LONG, frm AS LONG)
  584.     DIM maxParticles AS LONG, i AS LONG, rounds AS LONG, loopCount AS LONG
  585.     maxParticles = r * 4
  586.     FOR i = 1 TO r
  587.         NewDot i, x, y, r
  588.     NEXT
  589.     rounds = r
  590.     FOR loopCount = 0 TO frm
  591.         IF _KEYDOWN(27) THEN END
  592.         FOR i = 1 TO rounds
  593.             dots(i).x = dots(i).x + dots(i).dx
  594.             dots(i).y = dots(i).y + dots(i).dy
  595.             fcirc dots(i).x, dots(i).y, dots(i).size, dots(i).kolor
  596.         NEXT
  597.         IF rounds < maxParticles THEN
  598.             FOR i = 1 TO r
  599.                 NewDot (rounds + i), x, y, r
  600.             NEXT
  601.             rounds = rounds + r
  602.         END IF
  603.     NEXT
  605.  
  606. SUB NewDot (i AS LONG, x AS LONG, y AS LONG, r AS LONG)
  607.     DIM angle, rd
  608.     angle = pi * 2 * RND
  609.     rd = RND * 30
  610.     dots(i).x = x + rd * COS(angle)
  611.     dots(i).y = y + rd * SIN(angle)
  612.     dots(i).size = RND * r * .05
  613.     rd = RND 'STxAxTIC recommended for rounder spreads
  614.     dots(i).dx = rd * 10 * (10 - 2 * dots(i).size) * COS(angle)
  615.     dots(i).dy = rd * 10 * (10 - 2 * dots(i).size) * SIN(angle)
  616.     rd = 20 + RND * 70
  617.     dots(i).kolor = _RGBA32(rd, rd, rd, 80)
  619.  
  620. SUB drawship 'simple red iso triangle pointed towards radianAngle
  621.     DIM x1 AS LONG, y1 AS LONG, x2 AS LONG, y2 AS LONG, x3 AS LONG, y3 AS LONG
  622.     DIM x4 AS LONG, y4 AS LONG, x5 AS LONG, y5 AS LONG
  623.     IF ship.thrust > 0 THEN
  624.         'burn out flame as thruster dies out
  625.         x4 = ship.x + .5 * ship.thrust * COS(ship.angle - 17 / 18 * pi)
  626.         y4 = ship.y + .5 * ship.thrust * SIN(ship.angle - 17 / 18 * pi)
  627.         x5 = ship.x + .5 * ship.thrust * COS(ship.angle - 19 / 18 * pi)
  628.         y5 = ship.y + .5 * ship.thrust * SIN(ship.angle - 19 / 18 * pi)
  629.         ftri ship.x, ship.y, x4, y4, x5, y5, &H99FFFF88
  630.         ship.thrust = ship.thrust - 1
  631.     END IF
  632.     'draw ship dead or alive thrust or not, calculate 3 points of triangle ship
  633.     fcirc ship.x, ship.y, 30, &H05FFFFFF
  634.     x1 = ship.x + 30 * COS(ship.angle) ' front point
  635.     y1 = ship.y + 30 * SIN(ship.angle) '
  636.     x2 = ship.x + 30 * COS(ship.angle + .6666 * pi) ' wing
  637.     y2 = ship.y + 30 * SIN(ship.angle + .6666 * pi)
  638.     x3 = ship.x + 30 * COS(ship.angle - .6666 * pi) ' other wing
  639.     y3 = ship.y + 30 * SIN(ship.angle - .6666 * pi)
  640.     ftri ship.x, ship.y, x1, y1, x2, y2, _RGB32(80, 120, 80, 80)
  641.     ftri ship.x, ship.y, x1, y1, x3, y3, _RGB32(60, 100, 60, 80)
  642.     LINE (x1, y1)-(ship.x, ship.y), _RGB32(255, 255, 128)
  643.     LINE (x1, y1)-(x2, y2), _RGB32(255, 180, 40)
  644.     LINE (x1, y1)-(x3, y3), _RGB32(255, 180, 40)
  646.  
  647. SUB drawRock (iRock)
  648.     RANDOMIZE USING r(iRock).seed 'this prevents having to save a particular sequence of random number
  649.     DIM dx, dy, j AS LONG, rRad AS SINGLE, leg AS SINGLE, x0 AS LONG, y0 AS LONG, rc AS LONG, c~&, x1 AS LONG, y1 AS LONG, xoff, yoff, i AS LONG
  650.     DIM x2 AS LONG, y2 AS LONG
  651.     dx = r(iRock).speed * COS(r(iRock).heading)
  652.     dy = r(iRock).speed * SIN(r(iRock).heading) 'update location
  653.     r(iRock).ra = r(iRock).ra + r(iRock).spin
  654.     IF r(iRock).x + dx + r(iRock).r < 0 OR r(iRock).x + dx - r(iRock).r > xmax OR r(iRock).y + dy + r(iRock).r < 0 OR r(iRock).y + dy - r(iRock).r > ymax THEN
  655.         IF iRock <= rocks THEN newRock iRock ELSE r(iRock).live = 0
  656.         EXIT SUB ' reassigned get out of here
  657.     ELSE
  658.         r(iRock).x = r(iRock).x + dx
  659.         r(iRock).y = r(iRock).y + dy
  660.     END IF
  661.     FOR j = 10 TO 3 STEP -1 '                  rock drawing (see demo program where developed code)
  662.         rRad = .1 * j * r(iRock).r
  663.         leg = rRad * (RND * .7 + .3)
  664.         x0 = r(iRock).x + leg * COS(r(iRock).ra)
  665.         y0 = r(iRock).y + leg * SIN(r(iRock).ra)
  666.         rc = r(iRock).c + 30 * RND - 15
  667.         c~& = _RGB32(rc + 5, rc - 10, rc + 5)
  668.         x1 = x0
  669.         y1 = y0
  670.         xoff = RND * 20 - 10 + r(iRock).x
  671.         yoff = RND * 20 - 10 + r(iRock).y
  672.         FOR i = 1 TO 12
  673.             leg = rRad * (RND * .35 + .65)
  674.             IF i = 12 THEN
  675.                 x2 = x0: y2 = y0
  676.             ELSE
  677.                 x2 = xoff + leg * COS(i * polyAngle + r(iRock).ra)
  678.                 y2 = yoff + leg * SIN(i * polyAngle + r(iRock).ra)
  679.             END IF
  680.             ftri r(iRock).x, r(iRock).y, x1, y1, x2, y2, c~&
  681.             x1 = x2: y1 = y2
  682.         NEXT
  683.     NEXT
  685.  
  686. SUB newRock (iRock)
  687.     DIM side AS LONG
  688.     RANDOMIZE TIMER * RND 'to avoid making twins
  689.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  690.     SELECT CASE side
  691.         CASE 1
  692.             r(iRock).x = -100
  693.             r(iRock).y = rrnd(80, ymax - 80)
  694.             IF RND < .25 THEN r(iRock).heading = _ATAN2(ship.y - r(iRock).y, ship.x - r(iRock).x) ELSE r(iRock).heading = 3 * pi / 2 + RND * pi
  695.         CASE 2
  696.             r(iRock).x = xmax + 100
  697.             r(iRock).y = rrnd(80, ymax - 80)
  698.             IF RND < .25 THEN r(iRock).heading = _ATAN2(ship.y - r(iRock).y, ship.x - r(iRock).x) ELSE r(iRock).heading = pi / 2 + RND * pi
  699.         CASE 3
  700.             r(iRock).x = rrnd(80, xmax - 80)
  701.             r(iRock).y = -100
  702.             IF RND < .25 THEN r(iRock).heading = _ATAN2(ship.y - r(iRock).y, ship.x - r(iRock).x) ELSE r(iRock).heading = RND * pi
  703.         CASE 4
  704.             r(iRock).x = rrnd(80, xmax - 80)
  705.             r(iRock).y = ymax + 100
  706.             IF RND < .25 THEN r(iRock).heading = _ATAN2(ship.y - r(iRock).y, ship.x - r(iRock).x) ELSE r(iRock).heading = pi + RND * pi
  707.     END SELECT
  708.     r(iRock).speed = rrnd(minRockSpeed, maxRockSpeed) 'speed, rotation angle, radius, gray coloring, spin, seed, hit for explosion
  709.     r(iRock).ra = RND * 2 * pi
  710.     r(iRock).r = irnd&(minRockSize * 3, maxRockSize) 'every parent rock can be split up into at least 2 - 10 size rocks
  711.     r(iRock).c = irnd&(60, 110) ' Ken request increase in rock color
  712.     r(iRock).spin = rrnd(-pi / 20, pi / 20)
  713.     r(iRock).seed = INT(RND * 64000) - 32000
  714.     r(iRock).explodeFrame = 0
  715.     r(iRock).live = 1
  717.  
  718. FUNCTION irnd& (n1, n2) 'return an integer between 2 numbers
  719.     DIM l%, h%
  720.     IF n1 > n2 THEN l% = n2: h% = n1 ELSE l% = n1: h% = n2
  721.     irnd& = INT(RND * (h% - l% + 1)) + l%
  723.  
  724. FUNCTION rrnd (n1, n2) ' return number (expecting reals =_single, double, _float depending on default / define setup)
  725.     rrnd = (n2 - n1) * RND + n1
  727.  
  728. SUB drawBall (x, y, r, c AS _UNSIGNED LONG)
  729.     DIM red AS LONG, grn AS LONG, blu AS LONG, rr AS LONG, f
  730.     red = _RED32(c): grn = _GREEN32(c): blu = _BLUE32(c)
  731.     FOR rr = r TO 0 STEP -1
  732.         f = 1 - rr / r
  733.         fcirc x, y, rr, _RGB32(red * f, grn * f, blu * f)
  734.     NEXT
  736.  
  737. SUB fellipse (CX AS LONG, CY AS LONG, xr AS LONG, yr AS LONG, C AS _UNSIGNED LONG)
  738.     IF xr = 0 OR yr = 0 THEN EXIT SUB
  740.     DIM x AS LONG, y AS LONG
  741.     w2 = xr * xr: h2 = yr * yr: h2w2 = h2 * w2
  742.     LINE (CX - xr, CY)-(CX + xr, CY), C, BF
  743.     DO WHILE y < yr
  744.         y = y + 1
  745.         x = SQR((h2w2 - y * y * w2) \ h2)
  746.         LINE (CX - x, CY + y)-(CX + x, CY + y), C, BF
  747.         LINE (CX - x, CY - y)-(CX + x, CY - y), C, BF
  748.     LOOP
  750.  
  751. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  752.     DIM D AS LONG
  753.     STATIC a&
  754.     D = _DEST
  755.     IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32)
  756.     _DEST a&
  757.     _DONTBLEND a& '  '<<<< new 2019-12-16 fix
  758.     PSET (0, 0), K
  759.     _BLEND a& '<<<< new 2019-12-16 fix
  760.     _DEST D
  761.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  763.  
  764. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG) 'vince version
  765.     DIM x0 AS LONG, y0 AS LONG, e AS LONG
  766.     x0 = R: y0 = 0: e = 0
  767.     DO WHILE y0 < x0
  768.         IF e <= 0 THEN
  769.             y0 = y0 + 1
  770.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  771.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  772.             e = e + 2 * y0
  773.         ELSE
  774.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  775.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  776.             x0 = x0 - 1: e = e - 2 * x0
  777.         END IF
  778.     LOOP
  779.     LINE (x - R, y)-(x + R, y), C, BF
  781.  

Record score 148,000+ allot less frustrating than keys and they still work.

So Dav's flashlight has nothing over my mouse for pilot ;-))

EDIT Update 2020-11-08: Dav caught a conflict in ship moving when mouse was employed at start of game. OK so I added a mouseMode that checks if we are doing all keys moving of ship in which case thrust and hyperdrive keys will work; otherwise, in mouseMode, the thrust and hyperdrive are disabled.
Title: Re: b+ Asteroids makeover
Post by: Dav on November 08, 2020, 07:24:16 pm
Woah - sure is more challenging after pressing m!  I'll have to work hard to beat your score!  I kind of like using the mouse now.  For some reason I can't get thrust to thrust.   Pressing up arrow or k will draw the thrusting graphics, but the ships doesn't move for me. 

- Dav
Title: Re: b+ Asteroids makeover
Post by: bplus on November 08, 2020, 08:03:31 pm
Quote from: Dav on November 08, 2020, 07:24:16 pm
Woah - sure is more challenging after pressing m!  I'll have to work hard to beat your score!  I kind of like using the mouse now.  For some reason I can't get thrust to thrust.   Pressing up arrow or k will draw the thrusting graphics, but the ships doesn't move for me. 

- Dav

Thrust and also hyperdrive don't always work on first key press. It's another boring problem about clearing or over clearing key presses? The mouse was taking over the positioning of the ship as would be expected.

But you know what? I like the mouse way better although hyperdrive does come in handy (when it works). My arrow keys on my keyboard are a sin against gamers.

Did I mention left and right mouse buttons swing the guns left or right?

Wait, you say you see graphics but no thrust changing of position? I will look into that.
Edit Update 2020-11-08: OK thrust and hyperdrive keys are disabled while in mouseMode.
Title: Re: b+ Asteroids makeover
Post by: Kiara87 on November 08, 2020, 08:14:24 pm
nice game congratulations

i was also looking for the tangram game for QB64 but i didn't find it
Title: Re: b+ Asteroids makeover
Post by: bplus on November 08, 2020, 08:19:51 pm
Quote from: Kiara87 on November 08, 2020, 08:14:24 pm
nice game congratulations

i was also looking for the tangram game for QB64 but i didn't find it

The Tangram Game https://www.google.com/search?q=tangram+game&client=opera&hs=Dde&sxsrf=ALeKk0395sUgEmZSxUXqd4EDrIEkoDcZUA:1604884559689&source=lnms&tbm=isch&sa=X&ved=2ahUKEwiWo9fwpPTsAhVJVc0KHUx-BHcQ_AUoAnoECAUQBA&biw=1179&bih=606

I never seen one either in QB64 or any other code. Looks interesting.
Title: Re: b+ Asteroids makeover
Post by: Kiara87 on November 08, 2020, 08:29:02 pm
Quote from: bplus on November 08, 2020, 08:19:51 pm
The Tangram Game https://www.google.com/search?q=tangram+game&client=opera&hs=Dde&sxsrf=ALeKk0395sUgEmZSxUXqd4EDrIEkoDcZUA:1604884559689&source=lnms&tbm=isch&sa=X&ved=2ahUKEwiWo9fwpPTsAhVJVc0KHUx-BHcQ_AUoAnoECAUQBA&biw=1179&bih=606

I never seen one either in QB64 or any other code. Looks interesting.

yes it is a Chinese puzzle

to a nice story about the Buddhist monks giving this tangram to a little boy

and with this tangram he can create anything like how programmers create any program


https://www.navediclo.it/webapp/tangram/tangram.html

online you can play there are several sources

also app for android

missing only for QB64
Title: Re: b+ Asteroids makeover
Post by: bplus on November 08, 2020, 09:15:54 pm
OK the code in Best Answer for Asteroids has been updated with a mouseMode variable you can set while seeing the splash screen at the beginning. If you press m for mouseMode, the thrust and hyperdrive keys will be disabled and the ship will move with the mouse, otherwise the up arrow or K key will offer the thrust option and the Enter key or space bar the hyperdrive option.

Thanks @Dav  for the heads up!
Title: Re: b+ Asteroids makeover
Post by: bplus on March 30, 2021, 06:20:17 pm
Oh man, this game seems so much easier since last I played it!?

Left mouse button shoots left, right shoots right, mostly it's Dodge Ball.

Update: Oh, I see what happened I copied code here and played so my high score was stored in QB64 folder not my old Asteroid folder, my high score there was double this one.

Oh I don't remember my game so well, I had 9 more lives to play :-))
Title: Re: b+ Asteroids makeover
Post by: bplus on April 01, 2021, 01:07:53 pm
Here is the type of shooter I had desired to install in Asteroids (though the left and right mouse button ones are pretty good, this is what I wanted from start):
Code: QB64: [Select]
  1. _Title "Mouse Action Shooter - Jerk fix attempt" 'B+ rev 2021-04-01
  2. 'Mouse Action Shooter started from eRATication 5 by bplus 2018-08-06"
  3. ' upodate Mouse Action Shooter with MB triggers 2019-04-01
  4. ' 2019-04-03 add some targets for practice
  5.  
  6. ' SCORE System:
  7. ' Right click to fire a bullet, they cost 10 points each.
  8. ' Targets range from 30 for biggest targets to 100 points for smallest Targets
  9. ' Get hit by target loose 100 points and delay of game.
  10.  
  11. '2019-04-04 Keeping Ashish Target fix, wait until completely off screen.
  12. ' Now give the bullets a little long range before deactivating them.
  13. ' Fix shooter x, y by locating in center of shooter instead of nose. It's already OK!
  14.  
  15. ' 2021-03-19 using this code for oh program and want to fix point when target crashes into shooter/ship
  16. ' by reassignning target new coordinates by saying NewTarget index that should fix the continuous crashing right?
  17. ' Let's see, in oh it doesn't work, how about here?  Works just as expected. So what's up with oh?
  18. ' (Fixed it was an index goof for public variables used in GoSubs).
  19.  
  20. ' 2021-03-31 try to incorparate MasterGy jerky fix when moving shooter/ship around in tight circles or spin.
  21. ' 2021-04-01 Thanks to MasterGy who proved it possible to make a stready shooter with _ATAN2 mouse position
  22. ' alone (with previous position). I redoubled my efforts and came up with slightly different method.
  23.  
  24. 'screen dimensions
  25. Const xmax = 1200
  26. Const ymax = 700
  27. Const nBullets = 15
  28. Const bSpeed = 30
  29. Const nTargets = 3 'should probably depend on level of play
  30. Const tSpeed = 5 'should probably depend on level of play
  31. Const shooterRadius = 50
  32.  
  33. Type shooterType
  34.     x As Single
  35.     y As Single
  36.     a As Single
  38.  
  39. Type bulletType
  40.     x As Integer
  41.     y As Integer
  42.     dx As Integer
  43.     dy As Integer
  44.     live As Integer
  46.  
  47. Type targetType
  48.     x As Single
  49.     y As Single
  50.     a As Single
  51.     r As Integer
  53.  
  54. Screen _NewImage(xmax, ymax, 32)
  55. _ScreenMove 100, 20
  57.  
  58.  
  59. Dim Shared GameOn, mb1, last1, score
  60.  
  61. 'targets
  62. Dim Shared t(nTargets - 1) As targetType
  63. For i = 0 To nTargets - 1: newTarget i: Next
  64.  
  65. 'bullets
  66. Dim Shared b(nBullets - 1) As bulletType
  67.  
  68. 'shooter
  69. Dim Shared shooter As shooterType
  70. shooter.x = xmax / 2
  71. shooter.y = ymax / 2
  72. shooter.a = 0
  73. lastx = xmax / 2: lasty = ymax / 2
  74.  
  75. 'game
  76. GameOn = 1
  78. While GameOn
  79.     Cls
  80.     _Title "Target Practice   Score:" + Str$(score)
  81.     mb1 = 0: mb2 = 0
  83.     shooter.x = _MouseX: shooter.y = _MouseY
  84.     If Abs(shooter.y - lasty) > 0 Or Abs(shooter.x - lastx) > 0 Then 'shooter has moved
  85.         test = _Atan2(shooter.y - lasty, shooter.x - lastx) ' radian angle between -pi and pi
  86.         diff# = PositiveRA#(PositiveRA#(shooter.a) - PositiveRA#(test)) ' convert angles to positive numbers then convert difference to positive number
  87.         ' the angle of shooter is extremely sensitive to change when you press mouse button it often jerks bullet off target so
  88.         ' dampen the newest read of mouse position (test) and convert to angle we can subtract and convert back.
  89.         shooter.a = shooter.a - .2 * PlusMinusPiRA#(diff#) ' convert difference back to -pi to p1 number and dampen change by .1 to .4
  90.         lastx = shooter.x: lasty = shooter.y
  91.     End If
  92.  
  93.     t = Timer(.001)
  94.     If _MouseButton(1) Then 'when ship is heading north the left button should be left
  95.         If t - last1 > .3 Then mb1 = 1: last1 = t
  96.     End If
  98.     handleTargets
  99.     drawshooter
  100.     handleBullets
  101.     _Display
  102.     _Limit 60
  104.  
  105. Sub handleTargets
  106.     For i = 0 To nTargets - 1
  107.         'update position
  108.         t(i).x = t(i).x + tSpeed * Cos(t(i).a)
  109.         t(i).y = t(i).y + tSpeed * Sin(t(i).a)
  110.         'inbounds?
  111.         If t(i).x < -shooterRadius Or t(i).x > xmax + shooterRadius Or t(i).y < -shooterRadius Or t(i).y > ymax + shooterradiu Then
  112.             newTarget i
  113.         Else
  114.             If hitShooter(i) Then 'now I discovered in oh program this continues to crash and deduct 100 until target moves through shooter
  115.                 'explosion
  116.                 Cls
  117.                 _PrintString (xmax / 2 - 40, ymax / 2 - 10), "Bang!... Ouch!"
  118.                 score = score - 100
  119.                 _Display
  120.                 _Delay .2
  121.                 ' fix target crashing into ship by removing target with reassigning
  122.                 newTarget i ' in oh this does not work
  123.             Else
  124.                 drawTarget i
  125.             End If
  126.         End If
  127.     Next
  129.  
  130. Sub newTarget (i)
  131.     'pick edge
  132.     edge = Int(Rnd * 4)
  133.     Select Case edge
  134.         Case 0: t(i).x = -shooterRadius: t(i).y = Rnd * (ymax - 300) + 150: t(i).a = Rnd * _Pi
  135.         Case 1: t(i).x = xmax + shooterRadius: t(i).y = Rnd * (ymax - 300) + 150: t(i).a = _Pi / 2 + Rnd * _Pi
  136.         Case 2: t(i).x = Rnd * xmax: t(i).y = -shooterRadius: t(i).a = Rnd * _Pi
  137.         Case 3: t(i).x = Rnd * xmax: t(i).y = ymax + shooterRadius: t(i).a = _Pi + Rnd * _Pi
  138.     End Select
  139.     t(i).r = (Int(Rnd * 8) + 3) * 10 '30 to 100 score 130 - radius 100 to 30
  141.  
  142. Sub drawTarget (i)
  143.     For r = t(i).r To 0 Step -t(i).r / 10
  144.         count = (count + 1) Mod 2
  145.         If count Then c~& = _RGB32(255, 0, 0) Else c~& = _RGB32(255, 255, 255)
  146.         fcirc t(i).x, t(i).y, r, c~&
  147.     Next
  149.  
  150. Sub handleBullets ()
  151.     For i = 0 To nBullets - 1
  152.         If b(i).live = 0 And mb1 = 1 Then 'have in active bullet index to use
  153.             b(i).x = shooter.x + .5 * shooterRadius * Cos(shooter.a)
  154.             b(i).y = shooter.y + .5 * shooterRadius * Sin(shooter.a)
  155.             b(i).dx = bSpeed * Cos(shooter.a)
  156.             b(i).dy = bSpeed * Sin(shooter.a)
  157.             b(i).live = 1
  158.             mb1 = 0
  159.             score = score - 10 'bullets cost 10 points
  160.  
  161.         ElseIf b(i).live = 1 Then 'new location
  162.             b(i).x = b(i).x + b(i).dx
  163.             b(i).y = b(i).y + b(i).dy
  164.             If b(i).x > -50 And b(i).x < xmax + 50 And b(i).y > -50 And b(i).y < ymax + 50 Then 'in bounds draw it
  165.                 'check for collision with ...
  166.                 t = hitTarget(i)
  167.                 If t > -1 Then
  168.                     score = score + 130 - t(t).r
  169.                     b(i).live = 0
  170.                     newTarget t
  171.                 Else
  172.                     'draw bullet
  173.                     ba = _Atan2(b(i).dy, b(i).dx): b = 15
  174.                     x1 = b(i).x + b * Cos(ba)
  175.                     y1 = b(i).y + b * Sin(ba)
  176.                     x2 = b(i).x + b * Cos(ba + _Pi(5 / 6))
  177.                     y2 = b(i).y + b * Sin(ba + _Pi(5 / 6))
  178.                     x3 = b(i).x + b * Cos(ba + _Pi(7 / 6))
  179.                     y3 = b(i).y + b * Sin(ba + _Pi(7 / 6))
  180.                     fTri x1, y1, x2, y2, x3, y3, _RGB32(10, 160, 160)
  181.                     'fcirc b(i).x, b(i).y, 4, _RGB32(64, 0, 0)
  182.                 End If
  183.             Else
  184.                 b(i).live = 0 'dectiveate
  185.             End If
  186.         End If
  187.     Next
  189.  
  190. Function hitTarget (bulletIndex)
  191.     hitTarget = -1
  192.     For i = 0 To nTargets - 1
  193.         If Sqr((t(i).x - b(bulletIndex).x) ^ 2 + (t(i).y - b(bulletIndex).y) ^ 2) <= t(i).r Then hitTarget = i: Exit Function
  194.     Next
  196.  
  197. Function hitShooter (TargetIndex)
  198.     If Sqr((shooter.x - t(TargetIndex).x) ^ 2 + (shooter.y - t(TargetIndex).y) ^ 2) <= t(i).r Then hitShooter = 1: Exit Function
  200.  
  201. Sub drawshooter ()
  202.     x1 = shooter.x + (shooterRadius - 30) * Cos(shooter.a)
  203.     y1 = shooter.y + (shooterRadius - 30) * Sin(shooter.a)
  204.     x2 = shooter.x + (shooterRadius + 20) * Cos(shooter.a + _Pi(11 / 16))
  205.     y2 = shooter.y + (shooterRadius + 20) * Sin(shooter.a + _Pi(11 / 16))
  206.     x3 = shooter.x + (shooterRadius + 20) * Cos(shooter.a - _Pi(11 / 16))
  207.     y3 = shooter.y + (shooterRadius + 20) * Sin(shooter.a - _Pi(11 / 16))
  208.     fTri x1, y1, x2, y2, x3, y3, _RGB32(85, 45, 0)
  209.     x1 = shooter.x + shooterRadius * Cos(shooter.a)
  210.     y1 = shooter.y + shooterRadius * Sin(shooter.a)
  211.     x2 = shooter.x + shooterRadius * Cos(shooter.a + _Pi(7 / 8))
  212.     y2 = shooter.y + shooterRadius * Sin(shooter.a + _Pi(7 / 8))
  213.     x3 = shooter.x + shooterRadius * Cos(shooter.a - _Pi(7 / 8))
  214.     y3 = shooter.y + shooterRadius * Sin(shooter.a - _Pi(7 / 8))
  215.     fTri x1, y1, x2, y2, x3, y3, _RGB32(0, 0, 200)
  216.     x2 = shooter.x + shooterRadius * Cos(shooter.a + _Pi(15 / 16))
  217.     y2 = shooter.y + shooterRadius * Sin(shooter.a + _Pi(15 / 16))
  218.     x3 = shooter.x + shooterRadius * Cos(shooter.a - _Pi(15 / 16))
  219.     y3 = shooter.y + shooterRadius * Sin(shooter.a - _Pi(15 / 16))
  220.     fTri x1, y1, x2, y2, x3, y3, _RGB32(255, 255, 255)
  221.  
  222.     'check shooter x, y  = fixed a long time ago!
  223.     'fcirc shooter.x, shooter.y, 4, _RGB32(140, 120, 140)
  225.  
  226. ' found at [abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]:    http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index.php?topic=14425.0
  227. Sub fTri (x1, y1, x2, y2, x3, y3, K As _Unsigned Long)
  228.     a& = _NewImage(1, 1, 32)
  229.     _Dest a&
  230.     PSet (0, 0), K
  231.     _Dest 0
  232.     _MapTriangle _Seamless(0, 0)-(0, 0)-(0, 0), a& To(x1, y1)-(x2, y2)-(x3, y3)
  233.     _FreeImage a& '<<< this is important!
  235.  
  236. Sub fcirc (CX As Integer, CY As Integer, R As Integer, C As _Unsigned Long)
  237.     Dim Radius As Integer, RadiusError As Integer
  238.     Dim X As Integer, Y As Integer
  239.  
  240.     Radius = Abs(R)
  241.     RadiusError = -Radius
  242.     X = Radius
  243.     Y = 0
  244.  
  245.     If Radius = 0 Then PSet (CX, CY), C: Exit Sub
  246.  
  247.     ' Draw the middle span here so we don't draw it twice in the main loop,
  248.     ' which would be a problem with blending turned on.
  249.     Line (CX - X, CY)-(CX + X, CY), C, BF
  250.  
  251.     While X > Y
  252.         RadiusError = RadiusError + Y * 2 + 1
  253.         If RadiusError >= 0 Then
  254.             If X <> Y + 1 Then
  255.                 Line (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  256.                 Line (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  257.             End If
  258.             X = X - 1
  259.             RadiusError = RadiusError - X * 2
  260.         End If
  261.         Y = Y + 1
  262.         Line (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  263.         Line (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  264.     Wend
  266.  
  267. 'convert output of _ATAN2 to positive Radian Angle
  268. Function PositiveRA# (ra As Double) ' having trouble comparing angles returned from _ATAN2
  269.     raa = ra ' dont change ra here
  270.     While raa < 0
  271.         raa = raa + 6.283185307179586
  272.     Wend
  273.     While raa > _Pi(2)
  274.         raa = raa - 6.283185307179586
  275.     Wend
  276.     PositiveRA# = raa
  278.  
  279. 'convert Positive Radian Angle back to Radian Angle between -pi and pi
  280. Function PlusMinusPiRA# (ra As Double)
  281.     raa = ra ' dont change ra here
  282.     While raa < -3.141592653589793
  283.         raa = raa + 6.283185307179586
  284.     Wend
  285.     While raa > 3.141592653589793
  286.         raa = raa - 6.283185307179586
  287.     Wend
  288.     PlusMinusPiRA# = raa
  290.  

I have commented critical change in finding shooter angle above and tested with faster targets and more pause between bullets (so you can't machine gun targets down).

Hope to install this new method into new version of Asteroids here.
Title: Re: b+ Asteroids makeover
Post by: MasterGy on April 01, 2021, 02:02:47 pm
works nice! good luck for that !
Title: Re: b+ Asteroids makeover
Post by: bplus on April 03, 2021, 10:29:21 pm
b+QB64 Asteroids - MAS version
Code: QB64: [Select]
  2. _Title "b+QB64 Asteroids - MAS" 'started 2018-07-13 rev 2021-04-03 MAS (Mouse Action Shooter)
  3. '2020 - Oct and Nov: Special thanks to SierraKen who has been helpful with suggestions, ideas and fixes.
  4. ' 2021-04-04 from b+QB64 - M10 version that had mouse left and right shooter off mouse buttons.
  5. ' This version - MAS:
  6. ' MAS stands for Mouse Action Shooter, the ship/shooter points according to current and last mouse
  7. ' position, bullets are constantly fired forward. You'd wear out your fingers if you constantly had
  8. ' to use spacebar or mousebutton to fire.
  9.  
  11.  
  12. ' Far far away in a universe where Newton's 1st Law of Motion is not obeyed...    ;-))
  13.  
  14.  
  15. ' points:
  16. ' The higher the speed the better    speed range .5 to 2.5, diff = 2 * 50 = 100          s - .5 * 50
  17. ' The smaller the size the better  size range 10 to 100, diff = 90 * 1.1111 = 100  90 - (sz -10) * 1.1111
  18. '        ((speed - .5) * 50 + (90 - (r - 10)) * 1.1111) / 2 = 100 best score per hit
  19. '================================================================================================================
  20.  
  21. '    NOTE: !!!!!!!!!!!!!!!   When there is a pause in action, just press enter,  as in enter a new life!
  22.  
  23. '================================================================================================================
  24.  
  25. Const xmax = 1200, ymax = 700, pi = _Pi, polyAngle = _Pi / 6, nRocks = 300, nBullets = 2000, bSpeed = 15
  26. Const minRockSpeed = 0.7500, maxRockSpeed = 3.2500, minRockSize = 10, maxRockSize = 100
  27. Const rockSpeedRange = maxRockSpeed - minRockSpeed, rockSizeRange = maxRockSize - minRockSize
  28. Const alienSpeed = rockSpeedRange / 2 + minRockSpeed ' average rock speed
  29.  
  30. Type alienType
  31.     x As Single
  32.     y As Single
  33.     dx As Single
  34.     dy As Single
  35.     ls As Long ' lights offset and gray scale
  36.     c As _Unsigned Long ' color
  37.     live As Long
  38.     attackFrame As Long
  39.     fireX As Single
  40.     fireY As Single
  41.     transform As Long
  43.  
  44. Type particle
  45.     x As Single
  46.     y As Single
  47.     dx As Single
  48.     dy As Single
  49.     size As Single
  50.     kolor As _Unsigned Long
  52.  
  53. Type bullet
  54.     x As Single
  55.     y As Single
  56.     dx As Single
  57.     dy As Single
  58.     live As Long
  60.  
  61. Type shipType
  62.     x As Single
  63.     y As Single
  64.     live As Long
  65.     speed As Single '       just a constant now when Thrust is applied
  66.     angle As Single '       rotated position ship/gun now A or S keypress or hold down
  68.  
  69. Type rock
  70.     x As Single
  71.     y As Single
  72.     r As Long '            radius
  73.     ra As Single '         rotation position   a = a + spin
  74.     heading As Single '    heading from which dx, dy are calc with speed
  75.     speed As Single '      speed
  76.     spin As Single '       rotation direction and amount
  77.     seed As Long '         for drawing rocks with RND USING
  78.     c As Long '            color   rgb(c, c, c)
  79.     live As Long '         need this to track rocks still active like bullets
  80.     explodeFrame As Long ' after a rock is hit by bullet, it explodes and in more than one frame
  82.  
  83. ReDim Shared aliens(1 To 5) As alienType
  84. ReDim Shared BolderOfDeathSpeed
  85. Dim Shared dots(2000) As particle ' explosions
  86. Dim Shared b(nBullets) As bullet
  87. Dim Shared ship As shipType
  88. Dim Shared r(nRocks) As rock
  90. Dim Shared points As Long
  91. Dim Shared rocks As Long 'rocks is the minimum number of parent rocks to have on screen  automatic replace when hit or out of bounds
  92.  
  93. Dim HS As Long, fnt As Long, fnt2 As Long ' file LOAD handles
  94. Dim As Long lastx, lasty ' mouse = ship/shooter location at last poll
  95. Dim As Double diff, test ' deciding the new ship/shooter angle MAS system
  96. Dim i As Long, bullets As Long, fire As Long ' index and bullets
  97. Dim r As Long, newRockN As Long, maxBabyRocks As Long, br As Long, hits As Long ' rock stuff
  98. Dim ai As Long, alienN As Long ' alien index and number
  99. Dim kh As Long 'key hit for pause
  100. Dim hs$, s$, k$, t, lastt 'high score, general string and times for bullets
  101. Dim rockPoints As Long, roundPoints As Long ' various points scores
  102.  
  103. Screen _NewImage(xmax, ymax, 32)
  104. _ScreenMove 100, 20
  105. _FullScreen '<<<<<<<< optional
  106.  
  107. fnt = _LoadFont("ARLRDBD.ttf", 16, "MONOSPACE")
  108. fnt2 = _LoadFont("ARLRDBD.ttf", 40, "MONOSPACE")
  109. _Font fnt2
  110. Color &HFF00FFFF, &H00000000
  111.  
  112. If _FileExists("Asteroids High Score.txt") Then
  113.     Open "Asteroids High Score.txt" For Input As #1
  114.     Input #1, HS
  115.     Close #1
  117. hs$ = "High Score:" + Str$(HS)
  118.  
  119. 'a little splash screen
  121. rocks = 7: alienN = 3
  122. For i = 1 To nRocks
  123.     newRock i
  124.     If i > rocks Then r(i).live = 0
  126. For i = 1 To alienN
  127.     newAlien i
  129. i = 0
  130. ship.x = xmax / 2 'avoids explosions top left corner at start, dang still get some!
  131. ship.y = ymax / 2
  132. lastx = ship.x
  133. lasty = ship.y
  134. BolderOfDeathSpeed = 2.5
  136.     drawStars 0
  137.     i = i + 1
  138.     If i Mod 30 = 29 And rocks < nRocks Then rocks = rocks + 1: r(rocks).live = 1
  139.     For r = 1 To nRocks
  140.         If r(r).live Then DrawRock r
  141.     Next
  142.     For i = 1 To alienN
  143.         drawAliens i
  144.     Next
  145.     While _MouseInput: Wend ' ship positioning and angle from current mouse and last mouse position
  146.     ship.x = _MouseX: ship.y = _MouseY
  147.     If Abs(ship.y - lasty) > 0 Or Abs(ship.x - lastx) > 0 Then 'shooter has moved
  148.         test = _Atan2(ship.y - lasty, ship.x - lastx) ' radian angle between -pi and pi
  149.         diff = PositiveRA#(PositiveRA#(ship.angle) - PositiveRA#(test)) ' convert angles to positive numbers then convert difference to positive number
  150.         ' the angle of shooter is extremely sensitive to change when you press mouse button it often jerks bullet off target so
  151.         ' dampen the newest read of mouse position (test) and convert to angle we can subtract and convert back.
  152.         ship.angle = ship.angle - .2 * PlusMinusPiRA#(diff#) ' convert difference back to -pi to p1 number and dampen change by .1 to .4
  153.         lastx = ship.x: lasty = ship.y
  154.     End If
  155.     DrawShip
  156.     _Font fnt2
  157.     Color &HFFFF0000
  158.     s$ = "*** b+QB64 Asteroids - MAS ***"
  159.     _PrintString ((_Width - _PrintWidth(s$)) / 2 + 3, 150 + 3), s$
  160.     _PrintString ((_Width - _PrintWidth(hs$)) / 2 + 3, 300 + 3), hs$
  161.     s$ = "p to pause action"
  162.     _PrintString ((_Width - _PrintWidth(s$)) / 2 + 3, 400 + 3), s$
  163.     s$ = "p again to restart action"
  164.     _PrintString ((_Width - _PrintWidth(s$)) / 2 + 3, 450 + 3), s$
  165.     s$ = "OK press any to start"
  166.     _PrintString ((_Width - _PrintWidth(s$)) / 2 + 3, 550 + 3), s$
  167.     Color &HFFFFBBBB
  168.     s$ = "*** b+QB64 Asteroids - MAS ***"
  169.     _PrintString ((_Width - _PrintWidth(s$)) / 2, 150), s$
  170.     _PrintString ((_Width - _PrintWidth(hs$)) / 2, 300), hs$
  171.     s$ = "p to pause action"
  172.     _PrintString ((_Width - _PrintWidth(s$)) / 2, 400), s$
  173.     s$ = "p again to restart action"
  174.     _PrintString ((_Width - _PrintWidth(s$)) / 2, 450), s$
  175.     s$ = "OK press any to start"
  176.     _PrintString ((_Width - _PrintWidth(s$)) / 2, 550), s$
  177.  
  178.     _Font fnt
  180.     k$ = InKey$
  181.     _Display
  182.     _Limit 60
  184.  
  185. restart:
  186. If _FileExists("Asteroids High Score.txt") Then
  187.     Open "Asteroids High Score.txt" For Input As #1
  188.     Input #1, HS
  189.     Close #1
  191. hs$ = "  High Score:" + Str$(HS)
  192. lives = 10: alienN = 3: rocks = 5 ' always active rocks
  193. points = 0: hits = 0: bullets = 0
  194. BolderOfDeathSpeed = 2.5
  195. While lives > 0 And _KeyDown(27) = 0 ' init start restart
  196.     ReDim aliens(1 To alienN) As alienType
  197.     For ai = 1 To alienN
  198.         newAlien ai
  199.     Next
  200.     For i = 1 To nRocks 'reset rocks mainly clear baby rocks
  201.         newRock (i)
  202.         If i > rocks Then r(i).live = 0
  203.     Next
  204.     ship.x = xmax / 2 'avoids explosions top left corner at start, dang still get some!
  205.     ship.y = ymax / 2
  206.     lastx = ship.x
  207.     lasty = ship.y
  208.     ship.angle = 0
  209.     ship.live = 1
  210.     rockPoints = 0
  211.     roundPoints = 0
  212.     While ship.live And _KeyDown(27) = 0
  213.  
  214.         'draw everything then process bullets
  215.         drawStars 1
  216.         Locate 1, 1: Print "Lives:"; lives
  217.         Locate 2, 1: Print "Last Rock:"; Str$(rockPoints)
  218.         Locate 3, 1: Print "Round:;"; Str$(roundPoints)
  219.         Locate 4, 1: Print "Points:"; Str$(points)
  220.         Locate 5, 1: Print "High Score:"; Str$(HS)
  221.         For ai = 1 To alienN
  222.             drawAliens ai
  223.         Next
  224.         For i = 1 To nRocks
  225.             If r(i).live Then 'make sure if we crash into a ship it is a live rock, not one sitting on side waiting to be called up
  226.                 DrawRock i ' while drawing rocks the ship could be blown up
  227.                 If ((r(i).x - ship.x) ^ 2 + (r(i).y - ship.y) ^ 2) ^ .5 < r(i).r + 20 Then 'rock collides with ship?
  228.                     For br = 1 To 200 Step 5
  229.                         Circle ((ship.x + r(i).x) / 2, (ship.y + r(i).y) / 2), br, _RGB32(255 - br, 255 - 2 * br, 0)
  230.                     Next
  231.                     DrawRock i
  232.                     DrawShip
  233.                     ship.live = 0
  234.                     If i <= rocks Then newRock i Else r(i).live = 0
  235.                 End If
  236.             End If
  237.         Next
  238.         For i = 1 To nRocks 'smoke up the place with rock debris fields still flying out from hit frames ago
  239.             If r(i).explodeFrame Then
  240.                 r(i).explodeFrame = r(i).explodeFrame + 1
  241.                 If r(i).explodeFrame > .25 * r(i).r Then
  242.                     r(i).explodeFrame = 0
  243.                     If i <= rocks Then newRock i ' now replace the rock
  244.                 Else
  245.                     explode r(i).x, r(i).y, r(i).r, r(i).explodeFrame
  246.                 End If
  247.             End If
  248.         Next
  249.         If ship.live Then
  250.             For ai = 1 To alienN
  251.                 If Sqr((aliens(ai).x - ship.x) ^ 2 + (aliens(ai).y - ship.y) ^ 2) < 55 Then 'aliens and ship collisde boom boom
  252.                     For br = 1 To 200 Step 5
  253.                         Circle ((ship.x + aliens(ai).x) / 2, (ship.y + aliens(ai).y) / 2), br, _RGB32(255 - br, 255 - 2 * br, 0)
  254.                     Next
  255.                     DrawShip
  256.                     ship.live = 0
  257.                     _Continue
  258.                 Else
  259.                     DrawShip
  260.                 End If
  261.             Next
  262.             '  ============= MAS Mouse Action Shooter System
  263.             While _MouseInput: Wend ' ship positioning and angle from current mouse and last mouse position
  264.             ship.x = _MouseX: ship.y = _MouseY
  265.             If Abs(ship.y - lasty) > 0 Or Abs(ship.x - lastx) > 0 Then 'shooter has moved
  266.                 test = _Atan2(ship.y - lasty, ship.x - lastx) ' radian angle between -pi and pi
  267.                 diff = PositiveRA#(PositiveRA#(ship.angle) - PositiveRA#(test)) ' convert angles to positive numbers then convert difference to positive number
  268.                 ' the angle of shooter is extremely sensitive to change when you press mouse button it often jerks bullet off target so
  269.                 ' dampen the newest read of mouse position (test) and convert to angle we can subtract and convert back.
  270.                 ship.angle = ship.angle - .2 * PlusMinusPiRA#(diff#) ' convert difference back to -pi to p1 number and dampen change by .1 to .4
  271.                 lastx = ship.x: lasty = ship.y
  272.             End If
  273.  
  274.             fire = 0
  275.             t = Timer(.01)
  276.             If lastt = 0 Or t - lastt > .15 Then fire = 1: Sound 2088, .01: lastt = t
  277.  
  278.             kh = _KeyHit
  279.             Select Case kh
  280.                 Case 112 ' p for pause
  281.                     kh = 0
  282.                     While _KeyHit <> 112: _Limit 60: Wend
  283.             End Select
  284.  
  285.             For i = 0 To nBullets '                                               handle bullets
  286.                 If b(i).live = 0 And fire = 1 Then 'have inactive bullet to use
  287.                     b(i).x = ship.x + 2 * bSpeed * Cos(ship.angle)
  288.                     b(i).y = ship.y + 2 * bSpeed * Sin(ship.angle)
  289.                     b(i).dx = bSpeed * Cos(ship.angle)
  290.                     b(i).dy = bSpeed * Sin(ship.angle)
  291.                     b(i).live = -1
  292.                     bullets = bullets + 1
  293.                     fire = 0
  294.                 End If
  295.                 If b(i).live Then 'new location
  296.                     b(i).x = b(i).x + b(i).dx
  297.                     b(i).y = b(i).y + b(i).dy
  298.                     If b(i).x > 0 And b(i).x < xmax And b(i).y > 0 And b(i).y < ymax Then 'in bounds draw it
  299.  
  300.                         'bullet hit aliens?
  301.                         For ai = 1 To alienN
  302.                             If Sqr((aliens(ai).x - b(i).x) ^ 2 + (aliens(ai).y - b(i).y) ^ 2) < 30 Then
  303.                                 For br = 1 To 120
  304.                                     Circle (aliens(ai).x, aliens(ai).y), br / 3, plasma~&(0)
  305.                                 Next
  306.                                 _Display
  307.                                 _Delay .05
  308.                                 hits = hits + 1
  309.                                 roundPoints = roundPoints + 100
  310.                                 points = points + 100
  311.                                 aliens(ai).live = 0
  312.                                 newAlien ai
  313.                                 b(i).live = 0
  314.                                 _Continue
  315.                             End If
  316.                         Next
  317.                         For r = 1 To nRocks 'check for collision with rock
  318.                             If r(r).live Then
  319.                                 If Sqr((r(r).x - b(i).x) ^ 2 + (r(r).y - b(i).y) ^ 2) < r(r).r Then 'its a hit!
  320.                                     r(r).explodeFrame = 1 'linger with explosion
  321.                                     r(r).live = 0
  322.                                     hits = hits + 1
  323.                                     rockPoints = 50 * ((r(r).speed - minRockSpeed) / rockSpeedRange + (rockSizeRange - (r(r).r - minRockSize)) / rockSizeRange)
  324.                                     roundPoints = roundPoints + rockPoints
  325.                                     points = points + rockPoints
  326.                                     If r(r).r > 30 Then '       split rock  into ? new ones
  327.                                         maxBabyRocks = Int((r(r).r - 10) / 10)
  328.                                         maxBabyRocks = irnd&(2, maxBabyRocks) ' pick a number of baby Rocks
  329.                                         For br = 1 To maxBabyRocks
  330.                                             '                        new rock
  331.                                             newRockN = freeRock& '                          get inactive rock number
  332.                                             newRock newRockN '                              new identity and activate
  333.                                             r(newRockN).r = (r(r).r - 10) / maxBabyRocks '  split in equal parts minus 20% mass
  334.                                             r(newRockN).x = r(r).x + irnd&(-30, 30) '       thrown from parent
  335.                                             r(newRockN).y = r(r).y + irnd&(-30, 30)
  336.                                             r(newRockN).c = r(r).c '                   same color as parent
  337.                                             r(newRockN).heading = rrnd(ship.angle - .75 * pi, ship.angle + .75 * pi)
  338.                                         Next
  339.                                     End If ' big enough to split
  340.                                     b(i).live = 0 'kill bullet
  341.                                 End If ' hit rock
  342.                             End If 'rock is there
  343.                         Next ' rock
  344.                         If b(i).live Then fcirc b(i).x, b(i).y, 3, _RGB32(255, 255, 0) 'draws bullet
  345.                     Else
  346.                         b(i).live = 0 'out of bounds
  347.                     End If ' bullet is in bounds
  348.                 End If ' bullet live
  349.             Next ' bullet
  350.         End If ' if ship still live
  351.         _Display
  352.         If ship.live = 0 Then
  353.             lives = lives - 1
  354.             BolderOfDeathSpeed = BolderOfDeathSpeed + .2
  355.             If lives Mod 4 = 0 Then rocks = rocks + 1
  356.             If lives Mod 4 = 2 Then alienN = alienN + 1
  357.             s$ = "Lives:" + Str$(lives) + "  Hits:" + Str$(hits) + "  Bullets:" + Str$(bullets) + "  Shooting:" + Str$(Int(hits * 100 / bullets)) + "%"
  358.             _PrintString ((_Width - _PrintWidth(s$)) / 2, ymax / 2 - 80), s$
  359.             _Font fnt2
  360.             s$ = Str$(points) + hs$
  361.             _PrintString ((_Width - _PrintWidth(s$)) / 2, ymax / 2), s$
  362.             _Font fnt
  363.             s$ = "Press enter to enter next life."
  364.             _PrintString ((_Width - _PrintWidth(s$)) / 2, ymax / 2 + 120), s$
  365.             _Display
  366.             kh = 0
  367.             While kh <> 13
  368.                 kh = _KeyHit
  369.             Wend 'wait for enter key
  370.         Else
  371.             _Limit 60 ' if ship dies let's rest and regroup  before restart next life
  372.         End If
  373.     Wend
  374.     _Display
  376. If points > HS Then
  377.     Open "Asteroids High Score.txt" For Output As #1
  378.     Print #1, points
  379.     Close #1
  381. ship.x = -200: ship.y = -200 'get it out of the way
  382. i = 0
  384.     drawStars 0
  385.     i = i + 1
  386.     If i Mod 30 = 29 And rocks < nRocks Then rocks = rocks + 1: r(rocks).live = 1
  387.     For r = 1 To nRocks
  388.         If r(r).live Then DrawRock r
  389.     Next
  390.     s$ = "Lives:" + Str$(lives) + "  Hits:" + Str$(hits) + "  Bullets:" + Str$(bullets) + "  Shooting:" + Str$(Int(hits * 100 / bullets)) + "%"
  391.     _PrintString ((_Width - _PrintWidth(s$)) / 2, ymax / 2 - 80), s$
  392.     _Font fnt2
  393.     s$ = Str$(points)
  394.     If points > HS Then s$ = s$ + " a New Record!" Else s$ = Str$(points) + hs$
  395.     _PrintString ((_Width - _PrintWidth(s$)) / 2, ymax / 2), s$
  396.     _Font fnt
  397.     s$ = "Press q to Quit or a to play Again..."
  398.     _PrintString ((_Width - _PrintWidth(s$)) / 2, ymax / 2 + 120), s$
  399.     If _KeyDown(Asc("a")) Then GoTo restart
  400.     _Display
  401.     _Limit 60
  404.  
  405. Sub drawStars (moving)
  406.     Type starType
  407.         x As Single
  408.         y As Single
  409.         size As Single
  410.         c As Integer
  411.     End Type
  412.     Static beenHere, stars(200) As starType, cy As Long
  413.     Dim i As Long
  414.     If beenHere = 0 Then 'static part
  415.         For i = 0 To 100
  416.             stars(i).x = Rnd * xmax: stars(i).y = Rnd * ymax: stars(i).size = .3
  417.             stars(i).c = irnd&(80, 140)
  418.         Next
  419.         For i = 101 To 150
  420.             stars(i).x = Rnd * xmax: stars(i).y = Rnd * ymax: stars(i).size = .6
  421.             stars(i).c = irnd&(110, 170)
  422.         Next
  423.         For i = 151 To 195
  424.             stars(i).x = Rnd * xmax: stars(i).y = Rnd * ymax: stars(i).size = 1.2
  425.             stars(i).c = irnd&(140, 200)
  426.         Next
  427.         For i = 196 To 200
  428.             stars(i).x = Rnd * xmax: stars(i).y = Rnd * ymax: stars(i).size = 2.4
  429.             stars(i).c = irnd&(170, 235)
  430.         Next
  431.         cy = ymax / 2
  432.         beenHere = 1
  433.     End If
  434.     For i = 0 To cy
  435.         Line (0, i)-(xmax, i), _RGB32(0, 0, .1 * i + 4)
  436.         Line (0, ymax - i)-(xmax, ymax - i), _RGB(0, 0, .1 * i + 4)
  437.     Next
  438.     For i = 0 To 200
  439.         If moving Then
  440.             stars(i).x = stars(i).x + .2 * stars(i).size ^ stars(i).size
  441.             If stars(i).x > xmax Then stars(i).x = -1 * Rnd * 20
  442.         End If
  443.         fcirc stars(i).x, stars(i).y, stars(i).size, _RGB32(stars(i).c - 10, stars(i).c, stars(i).c + 10)
  444.     Next
  446.  
  447. Sub newAlien (i As Long)
  448.     Dim side As Long, heading
  449.     Randomize Timer * Rnd 'to avoid making twins
  450.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  451.     If Rnd < .6 Then
  452.         aliens(i).fireX = ship.x: aliens(i).fireY = ship.y
  453.     Else
  454.         aliens(i).fireX = irnd(10, xmax - 10): aliens(i).fireY = irnd(10, ymax - 10)
  455.     End If
  456.     aliens(i).attackFrame = irnd(50, 400) ' EDIT a tweak to survive a little long before getting murdered with low lives over and over...
  457.     Select Case side
  458.         Case 1
  459.             aliens(i).x = -10
  460.             aliens(i).y = rrnd(80, ymax - 80)
  461.         Case 2
  462.             aliens(i).x = xmax + 10
  463.             aliens(i).y = rrnd(80, ymax - 80)
  464.         Case 3
  465.             aliens(i).x = rrnd(80, xmax - 80)
  466.             aliens(i).y = -10
  467.         Case 4
  468.             aliens(i).x = rrnd(80, xmax - 80)
  469.             aliens(i).y = ymax + 10
  470.     End Select
  471.     heading = _Atan2(aliens(i).fireY - aliens(i).y, aliens(i).fireX - aliens(i).x)
  472.     aliens(i).dx = alienSpeed * Cos(heading)
  473.     aliens(i).dy = alienSpeed * Sin(heading)
  474.     aliens(i).live = 0
  475.     aliens(i).transform = 0
  476.     aliens(i).c = _RGB32(irnd(128, 255), irnd(0, 255), irnd(0, 255))
  478.  
  479. Function plasma~& (new As Long)
  480.     Static r, g, b, cnt, beenHere
  481.     If beenHere = 0 Or new Then
  482.         r = Rnd: g = Rnd: b = Rnd: beenHere = 1: cnt = 0
  483.     End If
  484.     cnt = cnt + .2
  485.     plasma~& = _RGB32(127 + 127 * Sin(r * cnt), 127 + 127 * Sin(g * cnt), 127 + 127 * Sin(b * cnt))
  487.  
  488. Sub drawAliens (i As Long) 'shipType
  489.     Dim light As Long, heading, r As Long, g As Long, b As Long
  490.     If aliens(i).live Then
  491.         Sound 6000 + i * 200, .07
  492.         If aliens(i).transform = 0 Then
  493.             r = _Red32(aliens(i).c): g = _Green32(aliens(i).c): b = _Blue32(aliens(i).c)
  494.             fellipse aliens(i).x, aliens(i).y, 6, 15, _RGB32(r, g - 120, b - 100)
  495.             fellipse aliens(i).x, aliens(i).y, 18, 11, _RGB32(r, g - 60, b - 50)
  496.             fellipse aliens(i).x, aliens(i).y, 30, 7, _RGB32(r, g, b)
  497.             For light = 0 To 5
  498.                 fcirc aliens(i).x - 30 + 11 * light + aliens(i).ls, aliens(i).y, 1, _RGB32(aliens(i).ls * 50, aliens(i).ls * 50, aliens(i).ls * 50)
  499.             Next
  500.             aliens(i).ls = aliens(i).ls + 1
  501.             If aliens(i).ls > 5 Then aliens(i).ls = 0
  502.         Else
  503.             drawBall aliens(i).x, aliens(i).y, 30, aliens(i).c
  504.         End If
  505.         'time to shoot?
  506.         aliens(i).x = aliens(i).x + aliens(i).dx
  507.         aliens(i).y = aliens(i).y + aliens(i).dy
  508.         If Sqr((aliens(i).fireX - aliens(i).x) ^ 2 + (aliens(i).fireY - aliens(i).y) ^ 2) < 5 Then 'transform into the bolder of death
  509.             aliens(i).transform = 1
  510.             heading = _Atan2(ship.y - aliens(i).y, ship.x - aliens(i).x)
  511.             aliens(i).dx = BolderOfDeathSpeed * Cos(heading)
  512.             aliens(i).dy = BolderOfDeathSpeed * Sin(heading)
  513.         End If
  514.         If aliens(i).x < -10 Or aliens(i).x > xmax + 10 Then
  515.             If aliens(i).y < -10 Or aliens(i).y > ymax + 10 Then '  out of bounds goodbye bolder of death!
  516.                 aliens(i).live = 0 'man we dodged a bullet here!!!!
  517.                 newAlien i 'reset the trap
  518.             End If
  519.         End If
  520.     Else
  521.         If aliens(i).attackFrame Then
  522.             aliens(i).attackFrame = aliens(i).attackFrame - 1
  523.             If aliens(i).attackFrame = 0 Then
  524.                 aliens(i).live = 1
  525.             End If
  526.         End If
  527.     End If
  529.  
  530. Function freeRock&
  531.     Dim i As Long
  532.     For i = rocks + 1 To nRocks ' look for inactive rock number
  533.         If r(i).live = 0 And r(i).explodeFrame = 0 Then freeRock& = i: Exit Function
  534.     Next
  536.  
  537. Sub explode (x As Long, y As Long, r As Long, frm As Long)
  538.     Dim maxParticles As Long, i As Long, rounds As Long, loopCount As Long
  539.     maxParticles = r * 4
  540.     For i = 1 To r
  541.         NewDot i, x, y, r
  542.     Next
  543.     rounds = r
  544.     For loopCount = 0 To frm
  545.         If _KeyDown(27) Then End
  546.         For i = 1 To rounds
  547.             dots(i).x = dots(i).x + dots(i).dx
  548.             dots(i).y = dots(i).y + dots(i).dy
  549.             fcirc dots(i).x, dots(i).y, dots(i).size, dots(i).kolor
  550.         Next
  551.         If rounds < maxParticles Then
  552.             For i = 1 To r
  553.                 NewDot (rounds + i), x, y, r
  554.             Next
  555.             rounds = rounds + r
  556.         End If
  557.     Next
  559.  
  560. Sub NewDot (i As Long, x As Long, y As Long, r As Long)
  561.     Dim angle, rd
  562.     angle = pi * 2 * Rnd
  563.     rd = Rnd * 30
  564.     dots(i).x = x + rd * Cos(angle)
  565.     dots(i).y = y + rd * Sin(angle)
  566.     dots(i).size = Rnd * r * .05
  567.     rd = Rnd 'STxAxTIC recommended for rounder spreads
  568.     dots(i).dx = rd * 10 * (10 - 2 * dots(i).size) * Cos(angle)
  569.     dots(i).dy = rd * 10 * (10 - 2 * dots(i).size) * Sin(angle)
  570.     rd = 20 + Rnd * 70
  571.     dots(i).kolor = _RGBA32(rd, rd, rd, 80)
  573.  
  574. Sub DrawShip 'simple red iso triangle pointed towards radianAngle
  575.     Dim As Long x1, y1, x2, y2, x3, y3, shipRadius
  576.     shipRadius = 50
  577.     x1 = ship.x + (shipRadius - 30) * Cos(ship.angle)
  578.     y1 = ship.y + (shipRadius - 30) * Sin(ship.angle)
  579.     x2 = ship.x + (shipRadius + 20) * Cos(ship.angle + _Pi(11 / 16))
  580.     y2 = ship.y + (shipRadius + 20) * Sin(ship.angle + _Pi(11 / 16))
  581.     x3 = ship.x + (shipRadius + 20) * Cos(ship.angle - _Pi(11 / 16))
  582.     y3 = ship.y + (shipRadius + 20) * Sin(ship.angle - _Pi(11 / 16))
  583.     ftri x1, y1, x2, y2, x3, y3, _RGB32(85, 45, 0)
  584.     x1 = ship.x + shipRadius * Cos(ship.angle)
  585.     y1 = ship.y + shipRadius * Sin(ship.angle)
  586.     x2 = ship.x + shipRadius * Cos(ship.angle + _Pi(7 / 8))
  587.     y2 = ship.y + shipRadius * Sin(ship.angle + _Pi(7 / 8))
  588.     x3 = ship.x + shipRadius * Cos(ship.angle - _Pi(7 / 8))
  589.     y3 = ship.y + shipRadius * Sin(ship.angle - _Pi(7 / 8))
  590.     ftri x1, y1, x2, y2, x3, y3, _RGB32(0, 0, 200)
  591.     x2 = ship.x + shipRadius * Cos(ship.angle + _Pi(15 / 16))
  592.     y2 = ship.y + shipRadius * Sin(ship.angle + _Pi(15 / 16))
  593.     x3 = ship.x + shipRadius * Cos(ship.angle - _Pi(15 / 16))
  594.     y3 = ship.y + shipRadius * Sin(ship.angle - _Pi(15 / 16))
  595.     ftri x1, y1, x2, y2, x3, y3, _RGB32(255, 255, 255)
  597.  
  598. Sub DrawRock (iRock)
  599.     Randomize Using r(iRock).seed 'this prevents having to save a particular sequence of random number
  600.     Dim dx, dy, j As Long, rRad As Single, leg As Single, x0 As Long, y0 As Long, rc As Long, c~&, x1 As Long, y1 As Long, xoff, yoff, i As Long
  601.     Dim x2 As Long, y2 As Long
  602.     dx = r(iRock).speed * Cos(r(iRock).heading)
  603.     dy = r(iRock).speed * Sin(r(iRock).heading) 'update location
  604.     r(iRock).ra = r(iRock).ra + r(iRock).spin
  605.     If r(iRock).x + dx + r(iRock).r < 0 Or r(iRock).x + dx - r(iRock).r > xmax Or r(iRock).y + dy + r(iRock).r < 0 Or r(iRock).y + dy - r(iRock).r > ymax Then
  606.         If iRock <= rocks Then newRock iRock Else r(iRock).live = 0
  607.         Exit Sub ' reassigned get out of here
  608.     Else
  609.         r(iRock).x = r(iRock).x + dx
  610.         r(iRock).y = r(iRock).y + dy
  611.     End If
  612.     For j = 10 To 3 Step -1 '                  rock drawing (see demo program where developed code)
  613.         rRad = .1 * j * r(iRock).r
  614.         leg = rRad * (Rnd * .7 + .3)
  615.         x0 = r(iRock).x + leg * Cos(r(iRock).ra)
  616.         y0 = r(iRock).y + leg * Sin(r(iRock).ra)
  617.         rc = r(iRock).c + 30 * Rnd - 15
  618.         c~& = _RGB32(rc + 5, rc - 10, rc + 5)
  619.         x1 = x0
  620.         y1 = y0
  621.         xoff = Rnd * 20 - 10 + r(iRock).x
  622.         yoff = Rnd * 20 - 10 + r(iRock).y
  623.         For i = 1 To 12
  624.             leg = rRad * (Rnd * .35 + .65)
  625.             If i = 12 Then
  626.                 x2 = x0: y2 = y0
  627.             Else
  628.                 x2 = xoff + leg * Cos(i * polyAngle + r(iRock).ra)
  629.                 y2 = yoff + leg * Sin(i * polyAngle + r(iRock).ra)
  630.             End If
  631.             ftri r(iRock).x, r(iRock).y, x1, y1, x2, y2, c~&
  632.             x1 = x2: y1 = y2
  633.         Next
  634.     Next
  636.  
  637. Sub newRock (iRock)
  638.     Dim side As Long
  639.     Randomize Timer * Rnd 'to avoid making twins
  640.     side = irnd&(1, 4) 'bring rock in from one side, need to set heading according to side
  641.     Select Case side
  642.         Case 1
  643.             r(iRock).x = -100
  644.             r(iRock).y = rrnd(80, ymax - 80)
  645.             If Rnd < .25 Then r(iRock).heading = _Atan2(ship.y - r(iRock).y, ship.x - r(iRock).x) Else r(iRock).heading = 3 * pi / 2 + Rnd * pi
  646.         Case 2
  647.             r(iRock).x = xmax + 100
  648.             r(iRock).y = rrnd(80, ymax - 80)
  649.             If Rnd < .25 Then r(iRock).heading = _Atan2(ship.y - r(iRock).y, ship.x - r(iRock).x) Else r(iRock).heading = pi / 2 + Rnd * pi
  650.         Case 3
  651.             r(iRock).x = rrnd(80, xmax - 80)
  652.             r(iRock).y = -100
  653.             If Rnd < .25 Then r(iRock).heading = _Atan2(ship.y - r(iRock).y, ship.x - r(iRock).x) Else r(iRock).heading = Rnd * pi
  654.         Case 4
  655.             r(iRock).x = rrnd(80, xmax - 80)
  656.             r(iRock).y = ymax + 100
  657.             If Rnd < .25 Then r(iRock).heading = _Atan2(ship.y - r(iRock).y, ship.x - r(iRock).x) Else r(iRock).heading = pi + Rnd * pi
  658.     End Select
  659.     r(iRock).speed = rrnd(minRockSpeed, maxRockSpeed) 'speed, rotation angle, radius, gray coloring, spin, seed, hit for explosion
  660.     r(iRock).ra = Rnd * 2 * pi
  661.     r(iRock).r = irnd&(minRockSize * 3, maxRockSize) 'every parent rock can be split up into at least 2 - 10 size rocks
  662.     r(iRock).c = irnd&(60, 110) ' Ken request increase in rock color
  663.     r(iRock).spin = rrnd(-pi / 20, pi / 20)
  664.     r(iRock).seed = Int(Rnd * 64000) - 32000
  665.     r(iRock).explodeFrame = 0
  666.     r(iRock).live = 1
  668.  
  669. Function irnd& (n1, n2) 'return an integer between 2 numbers
  670.     Dim l%, h%
  671.     If n1 > n2 Then l% = n2: h% = n1 Else l% = n1: h% = n2
  672.     irnd& = Int(Rnd * (h% - l% + 1)) + l%
  674.  
  675. Function rrnd (n1, n2) ' return number (expecting reals =_single, double, _float depending on default / define setup)
  676.     rrnd = (n2 - n1) * Rnd + n1
  678.  
  679. Sub drawBall (x, y, r, c As _Unsigned Long)
  680.     Dim red As Long, grn As Long, blu As Long, rr As Long, f
  681.     red = _Red32(c): grn = _Green32(c): blu = _Blue32(c)
  682.     For rr = r To 0 Step -1
  683.         f = 1 - rr / r
  684.         fcirc x, y, rr, _RGB32(red * f, grn * f, blu * f)
  685.     Next
  687.  
  688. Sub fellipse (CX As Long, CY As Long, xr As Long, yr As Long, C As _Unsigned Long)
  689.     If xr = 0 Or yr = 0 Then Exit Sub
  691.     Dim x As Long, y As Long
  692.     w2 = xr * xr: h2 = yr * yr: h2w2 = h2 * w2
  693.     Line (CX - xr, CY)-(CX + xr, CY), C, BF
  694.     Do While y < yr
  695.         y = y + 1
  696.         x = Sqr((h2w2 - y * y * w2) \ h2)
  697.         Line (CX - x, CY + y)-(CX + x, CY + y), C, BF
  698.         Line (CX - x, CY - y)-(CX + x, CY - y), C, BF
  699.     Loop
  701.  
  702. Sub ftri (x1, y1, x2, y2, x3, y3, K As _Unsigned Long)
  703.     Dim D As Long
  704.     Static a&
  705.     D = _Dest
  706.     If a& = 0 Then a& = _NewImage(1, 1, 32)
  707.     _Dest a&
  708.     _DontBlend a& '  '<<<< new 2019-12-16 fix
  709.     PSet (0, 0), K
  710.     _Blend a& '<<<< new 2019-12-16 fix
  711.     _Dest D
  712.     _MapTriangle _Seamless(0, 0)-(0, 0)-(0, 0), a& To(x1, y1)-(x2, y2)-(x3, y3)
  714.  
  715. Sub fcirc (x As Long, y As Long, R As Long, C As _Unsigned Long) 'vince version
  716.     Dim x0 As Long, y0 As Long, e As Long
  717.     x0 = R: y0 = 0: e = 0
  718.     Do While y0 < x0
  719.         If e <= 0 Then
  720.             y0 = y0 + 1
  721.             Line (x - x0, y + y0)-(x + x0, y + y0), C, BF
  722.             Line (x - x0, y - y0)-(x + x0, y - y0), C, BF
  723.             e = e + 2 * y0
  724.         Else
  725.             Line (x - y0, y - x0)-(x + y0, y - x0), C, BF
  726.             Line (x - y0, y + x0)-(x + y0, y + x0), C, BF
  727.             x0 = x0 - 1: e = e - 2 * x0
  728.         End If
  729.     Loop
  730.     Line (x - R, y)-(x + R, y), C, BF
  732.  
  733. 'convert output of _ATAN2 to positive Radian Angle
  734. Function PositiveRA# (ra As Double) ' having trouble comparing angles returned from _ATAN2
  735.     ReDim raa As Double
  736.     raa = ra ' dont change ra here
  737.     While raa < 0
  738.         raa = raa + 6.283185307179586
  739.     Wend
  740.     While raa > _Pi(2)
  741.         raa = raa - 6.283185307179586
  742.     Wend
  743.     PositiveRA# = raa
  745.  
  746. 'convert Positive Radian Angle back to Radian Angle between -pi and pi
  747. Function PlusMinusPiRA# (ra As Double)
  748.     ReDim raa As Double
  749.     raa = ra ' dont change ra here
  750.     While raa < -3.141592653589793
  751.         raa = raa + 6.283185307179586
  752.     Wend
  753.     While raa > 3.141592653589793
  754.         raa = raa - 6.283185307179586
  755.     Wend
  756.     PlusMinusPiRA# = raa
  758.  
  759.  

The higher levels really get crazy!

Attached is font file I used.

Text Only | Text with Attachments