Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: bplus on March 01, 2022, 08:19:18 am

Title: Bump N Go Car Toy
Post by: bplus on March 01, 2022, 08:19:18 am
Spriggsy suggested this to me at Discord:
Code: QB64: [Select]
  1. _Title "Bump N Go - Drive Car" 'b+ 2022-03-01
  2. ' b+ mod of Drive Car (Graphics Dir) 'b+ 2021-09-29
  3.  
  5. Type car
  6.     As Single x, y, w, h, ra, speed
  7.     As _Unsigned Long c
  9.  
  10. Dim blue As car
  11. blue.x = _Width / 2: blue.y = _Height / 2
  12. blue.w = 20: blue.h = 40
  13. blue.ra = _Pi / 2: blue.speed = 2
  14. blue.c = 9
  15.  
  16. While _KeyDown(27) = 0
  17.     If blue.speed = 0 Then
  18.         blue.ra = _Atan2(blue.y - _Height / 2, blue.x - _Width / 2) + _Pi + Rnd * -.5
  19.         blue.speed = .1
  20.     End If
  21.     blue.speed = blue.speed + .5
  22.     Cls
  23.     blue.x = blue.x + blue.speed * Cos(blue.ra)
  24.     blue.y = blue.y + blue.speed * Sin(blue.ra)
  25.     If blue.x < 10 Or blue.x > _Width - 10 Then blue.speed = 0
  26.     If blue.y < 10 Or blue.y > _Height - 10 Then blue.speed = 0
  27.     drawCar blue
  28.     _Display ' stop flicker
  29.     _Limit 30 ' loops per sec
  31.  
  32. Sub drawCar (a As car)
  33.     ' code not optimized for speed  just proff of concept
  34.     X1 = a.x + a.h / 2 * Cos(a.ra)
  35.     Y1 = a.y + a.h / 2 * Sin(a.ra)
  36.     X2 = X1 + a.w / 2 * Cos(a.ra + _Pi / 2)
  37.     Y2 = Y1 + a.w / 2 * Sin(a.ra + _Pi / 2)
  38.     X3 = X1 + a.w / 2 * Cos(a.ra - _Pi / 2)
  39.     Y3 = Y1 + a.w / 2 * Sin(a.ra - _Pi / 2)
  40.  
  41.     x4 = a.x + a.h / 2 * Cos(a.ra - _Pi)
  42.     y4 = a.y + a.h / 2 * Sin(a.ra - _Pi)
  43.     x5 = x4 + a.w / 2 * Cos(a.ra + _Pi / 2)
  44.     y5 = y4 + a.w / 2 * Sin(a.ra + _Pi / 2)
  45.     x6 = x4 + a.w / 2 * Cos(a.ra - _Pi / 2)
  46.     y6 = y4 + a.w / 2 * Sin(a.ra - _Pi / 2)
  47.  
  48.     Line (X2, Y2)-(X3, Y3), a.c
  49.     Line (X3, Y3)-(x6, y6), a.c
  50.     Line (x6, y6)-(x5, y5), a.c
  51.     Line (x5, y5)-(X2, Y2), a.c
  52.     Paint (a.x, a.y), a.c, a.c
  53.     Line (X2, Y2)-(X3, Y3), 15 ' give car a front
  54.  
  55.     ' white top  for all cars for future numbers maybe
  56.     X1 = a.x + a.h / 4 * Cos(a.ra)
  57.     Y1 = a.y + a.h / 4 * Sin(a.ra)
  58.     X2 = X1 + (a.w / 2 - 3) * Cos(a.ra + _Pi / 2)
  59.     Y2 = Y1 + (a.w / 2 - 3) * Sin(a.ra + _Pi / 2)
  60.     X3 = X1 + (a.w / 2 - 3) * Cos(a.ra - _Pi / 2)
  61.     Y3 = Y1 + (a.w / 2 - 3) * Sin(a.ra - _Pi / 2)
  62.  
  63.     x4 = a.x + a.h / 4 * Cos(a.ra - _Pi)
  64.     y4 = a.y + a.h / 4 * Sin(a.ra - _Pi)
  65.     x5 = x4 + (a.w / 2 - 3) * Cos(a.ra + _Pi / 2)
  66.     y5 = y4 + (a.w / 2 - 3) * Sin(a.ra + _Pi / 2)
  67.     x6 = x4 + (a.w / 2 - 3) * Cos(a.ra - _Pi / 2)
  68.     y6 = y4 + (a.w / 2 - 3) * Sin(a.ra - _Pi / 2)
  69.  
  70.     Line (X2, Y2)-(X3, Y3), 15
  71.     Line (X3, Y3)-(x6, y6), 15
  72.     Line (x6, y6)-(x5, y5), 15
  73.     Line (x5, y5)-(X2, Y2), 15
  74.     Paint (a.x, a.y), 15, 15
  76.  
  77.  
  78.  

;-))
Title: Re: Bump N Go Car Toy
Post by: Richard Frost on March 01, 2022, 06:17:04 pm
Is that vehicle insured?
Title: Re: Bump N Go Car Toy
Post by: SierraKen on March 02, 2022, 08:24:40 pm
LOL that's really neat B+. This code can teach me and others how to change turns. I made a little mod to use either the left and right arrow keys or the "a" and "d" keys to turn with while the car toy is moving. I remembered that your computer or laptop doesn't use arrow keys so I added the letters. Experimenting a bit I found out the code to turn is easier than I thought. My mod code is between lines 18 and 22.

Code: QB64: [Select]
  1. _Title "Bump N Go - Drive Car" 'b+ 2022-03-01
  2. ' b+ mod of Drive Car (Graphics Dir) 'b+ 2021-09-29
  3. ' SierraKen's Mod to use left and right arrow keys, or "a" and "d" keys, to turn.
  4.  
  6. Type car
  7.     As Single x, y, w, h, ra, speed
  8.     As _Unsigned Long c
  10.  
  11. Dim blue As car
  12. blue.x = _Width / 2: blue.y = _Height / 2
  13. blue.w = 20: blue.h = 40
  14. blue.ra = _Pi / 2: blue.speed = 2
  15. blue.c = 9
  16.  
  17. While _KeyDown(27) = 0
  18.     'SierraKen's Mod
  19.     a$ = InKey$
  20.     If a$ = Chr$(0) + Chr$(77) Or a$ = "d" Or a$ = "D" Then blue.ra = blue.ra + .5
  21.     If a$ = Chr$(0) + Chr$(75) Or a$ = "a" Or a$ = "A" Then blue.ra = blue.ra - .5
  22.     '-----------
  23.     If blue.speed = 0 Then
  24.         blue.ra = _Atan2(blue.y - _Height / 2, blue.x - _Width / 2) + _Pi + Rnd * -.5
  25.         blue.speed = .1
  26.     End If
  27.     blue.speed = blue.speed + .5
  28.     Cls
  29.     blue.x = blue.x + blue.speed * Cos(blue.ra)
  30.     blue.y = blue.y + blue.speed * Sin(blue.ra)
  31.     If blue.x < 10 Or blue.x > _Width - 10 Then blue.speed = 0
  32.     If blue.y < 10 Or blue.y > _Height - 10 Then blue.speed = 0
  33.     drawCar blue
  34.     _Display ' stop flicker
  35.     _Limit 30 ' loops per sec
  37.  
  38. Sub drawCar (a As car)
  39.     ' code not optimized for speed  just proff of concept
  40.     X1 = a.x + a.h / 2 * Cos(a.ra)
  41.     Y1 = a.y + a.h / 2 * Sin(a.ra)
  42.     X2 = X1 + a.w / 2 * Cos(a.ra + _Pi / 2)
  43.     Y2 = Y1 + a.w / 2 * Sin(a.ra + _Pi / 2)
  44.     X3 = X1 + a.w / 2 * Cos(a.ra - _Pi / 2)
  45.     Y3 = Y1 + a.w / 2 * Sin(a.ra - _Pi / 2)
  46.  
  47.     x4 = a.x + a.h / 2 * Cos(a.ra - _Pi)
  48.     y4 = a.y + a.h / 2 * Sin(a.ra - _Pi)
  49.     x5 = x4 + a.w / 2 * Cos(a.ra + _Pi / 2)
  50.     y5 = y4 + a.w / 2 * Sin(a.ra + _Pi / 2)
  51.     x6 = x4 + a.w / 2 * Cos(a.ra - _Pi / 2)
  52.     y6 = y4 + a.w / 2 * Sin(a.ra - _Pi / 2)
  53.  
  54.     Line (X2, Y2)-(X3, Y3), a.c
  55.     Line (X3, Y3)-(x6, y6), a.c
  56.     Line (x6, y6)-(x5, y5), a.c
  57.     Line (x5, y5)-(X2, Y2), a.c
  58.     Paint (a.x, a.y), a.c, a.c
  59.     Line (X2, Y2)-(X3, Y3), 15 ' give car a front
  60.  
  61.     ' white top  for all cars for future numbers maybe
  62.     X1 = a.x + a.h / 4 * Cos(a.ra)
  63.     Y1 = a.y + a.h / 4 * Sin(a.ra)
  64.     X2 = X1 + (a.w / 2 - 3) * Cos(a.ra + _Pi / 2)
  65.     Y2 = Y1 + (a.w / 2 - 3) * Sin(a.ra + _Pi / 2)
  66.     X3 = X1 + (a.w / 2 - 3) * Cos(a.ra - _Pi / 2)
  67.     Y3 = Y1 + (a.w / 2 - 3) * Sin(a.ra - _Pi / 2)
  68.  
  69.     x4 = a.x + a.h / 4 * Cos(a.ra - _Pi)
  70.     y4 = a.y + a.h / 4 * Sin(a.ra - _Pi)
  71.     x5 = x4 + (a.w / 2 - 3) * Cos(a.ra + _Pi / 2)
  72.     y5 = y4 + (a.w / 2 - 3) * Sin(a.ra + _Pi / 2)
  73.     x6 = x4 + (a.w / 2 - 3) * Cos(a.ra - _Pi / 2)
  74.     y6 = y4 + (a.w / 2 - 3) * Sin(a.ra - _Pi / 2)
  75.  
  76.     Line (X2, Y2)-(X3, Y3), 15
  77.     Line (X3, Y3)-(x6, y6), 15
  78.     Line (x6, y6)-(x5, y5), 15
  79.     Line (x5, y5)-(X2, Y2), 15
  80.     Paint (a.x, a.y), 15, 15
  82.  
  83.  



 

Title: Re: Bump N Go Car Toy
Post by: bplus on March 02, 2022, 09:04:16 pm
Ja, that Bump N Go code came from here (I did use arrow keys, I do have them but up and down are between left and right and only half size keys. Not the best setup for arrow pounding games.) Up and down are for gas and breaks.

Code: QB64: [Select]
  1. _Title "Drive Car" 'b+ 2021-09-29
  3. Type car
  4.     As Single x, y, w, h, ra, speed
  5.     As _Unsigned Long c
  7.  
  8. Dim blue As car
  9. blue.x = _Width / 2: blue.y = _Height / 2
  10. blue.w = 20: blue.h = 40
  11. blue.ra = _Pi / 2: blue.speed = 2
  12. blue.c = 9
  13.  
  14. While _KeyDown(27) = 0
  15.     CarAngle = CarAngle + _D2R(s)
  16.     K& = _KeyHit
  17.     Select Case K&
  18.         Case 18432 'arrow UP is gas
  19.             blue.speed = blue.speed + .1
  20.             If blue.speed > 5 Then blue.speed = 5
  21.         Case 20480 'arrow DOWN slow down
  22.             blue.speed = blue.speed - .1
  23.             If blue.speed < 0 Then blue.speed = 0
  24.         Case 19712
  25.             s = s + 2 'to right
  26.         Case 19200
  27.             s = s - 2 'to left
  28.     End Select
  29.     Cls
  30.     blue.ra = _D2R(s)
  31.     blue.x = blue.x + blue.speed * Cos(blue.ra)
  32.     blue.y = blue.y + blue.speed * Sin(blue.ra)
  33.     If blue.x < 10 Or blue.x > _Width - 10 Then blue.speed = 0
  34.     If blue.y < 10 Or blue.y > _Height - 10 Then blue.speed = 0
  35.     drawCar blue
  36.     _Display ' stop flicker
  37.     _Limit 30 ' loops per sec
  39.  
  40. Sub drawCar (a As car)
  41.     ' code not optimized for speed  just proff of concept
  42.     X1 = a.x + a.h / 2 * Cos(a.ra)
  43.     Y1 = a.y + a.h / 2 * Sin(a.ra)
  44.     X2 = X1 + a.w / 2 * Cos(a.ra + _Pi / 2)
  45.     Y2 = Y1 + a.w / 2 * Sin(a.ra + _Pi / 2)
  46.     X3 = X1 + a.w / 2 * Cos(a.ra - _Pi / 2)
  47.     Y3 = Y1 + a.w / 2 * Sin(a.ra - _Pi / 2)
  48.  
  49.     x4 = a.x + a.h / 2 * Cos(a.ra - _Pi)
  50.     y4 = a.y + a.h / 2 * Sin(a.ra - _Pi)
  51.     x5 = x4 + a.w / 2 * Cos(a.ra + _Pi / 2)
  52.     y5 = y4 + a.w / 2 * Sin(a.ra + _Pi / 2)
  53.     x6 = x4 + a.w / 2 * Cos(a.ra - _Pi / 2)
  54.     y6 = y4 + a.w / 2 * Sin(a.ra - _Pi / 2)
  55.  
  56.     Line (X2, Y2)-(X3, Y3), a.c
  57.     Line (X3, Y3)-(x6, y6), a.c
  58.     Line (x6, y6)-(x5, y5), a.c
  59.     Line (x5, y5)-(X2, Y2), a.c
  60.     Paint (a.x, a.y), a.c, a.c
  61.     Line (X2, Y2)-(X3, Y3), 15 ' give car a front
  62.  
  63.     ' white top  for all cars for future numbers maybe
  64.     X1 = a.x + a.h / 4 * Cos(a.ra)
  65.     Y1 = a.y + a.h / 4 * Sin(a.ra)
  66.     X2 = X1 + (a.w / 2 - 3) * Cos(a.ra + _Pi / 2)
  67.     Y2 = Y1 + (a.w / 2 - 3) * Sin(a.ra + _Pi / 2)
  68.     X3 = X1 + (a.w / 2 - 3) * Cos(a.ra - _Pi / 2)
  69.     Y3 = Y1 + (a.w / 2 - 3) * Sin(a.ra - _Pi / 2)
  70.  
  71.     x4 = a.x + a.h / 4 * Cos(a.ra - _Pi)
  72.     y4 = a.y + a.h / 4 * Sin(a.ra - _Pi)
  73.     x5 = x4 + (a.w / 2 - 3) * Cos(a.ra + _Pi / 2)
  74.     y5 = y4 + (a.w / 2 - 3) * Sin(a.ra + _Pi / 2)
  75.     x6 = x4 + (a.w / 2 - 3) * Cos(a.ra - _Pi / 2)
  76.     y6 = y4 + (a.w / 2 - 3) * Sin(a.ra - _Pi / 2)
  77.  
  78.     Line (X2, Y2)-(X3, Y3), 15
  79.     Line (X3, Y3)-(x6, y6), 15
  80.     Line (x6, y6)-(x5, y5), 15
  81.     Line (x5, y5)-(X2, Y2), 15
  82.     Paint (a.x, a.y), 15, 15
  84.  
  85.  
  86.  

I think I had plans to put car(s) on track and drive them for best time? Every time you go off the track you add to your time unless you crash and die, then times up, game over you've gone home.

Don't buy insurance don't want the wife too happy you are dead.

Nice job with the turning Ken!
Text Only | Text with Attachments