Target Practice

[bplus]

... with Mouse Action Shooter.

Code: QB64: [Select]

1. _TITLE "Mouse Action Shooter #2 Targets for MB triggers" 'B+ 2019-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. Just worry about aound the nose of the shooter.
10.  
11.  
12. 'screen dimensions
13. CONST xmax = 1200
14. CONST ymax = 700
15. CONST nBullets = 15
16. CONST bSpeed = 30
17. CONST nTargets = 3 'should probably depend on level of play
18. CONST tSpeed = 5 'should probably depend on level of play
19. CONST shooterRadius = 50
20.  
21. TYPE shooterType
22.     x AS SINGLE
23.     y AS SINGLE
24.     a AS SINGLE
25. END TYPE
26.  
27. TYPE bulletType
28.     x AS INTEGER
29.     y AS INTEGER
30.     dx AS INTEGER
31.     dy AS INTEGER
32.     live AS INTEGER
33. END TYPE
34.  
35. TYPE targetType
36.     x AS SINGLE
37.     y AS SINGLE
38.     a AS SINGLE
39.     r AS INTEGER
40. END TYPE
41.  
42. SCREEN _NEWIMAGE(xmax, ymax, 32)
43. _SCREENMOVE 100, 20
44. RANDOMIZE TIMER
45.  
46.  
47. DIM SHARED GameOn, mb1, last1, score
48.  
49. 'targets
50. DIM SHARED t(nTargets - 1) AS targetType
51. FOR i = 0 TO nTargets - 1: newTarget i: NEXT
52.  
53. 'bullets
54. DIM SHARED b(nBullets - 1) AS bulletType
55.  
56. 'shooter
57. DIM SHARED shooter AS shooterType
58. shooter.x = xmax / 2
59. shooter.y = ymax / 2
60. shooter.a = 0
61. lastx = xmax / 2: lasty = ymax / 2
62.  
63. 'game
64. GameOn = 1
65. _MOUSEHIDE
66. WHILE GameOn
67.     CLS
68.     _TITLE "Target Practice   Score:" + STR$(score)
69.     mb1 = 0: mb2 = 0
70.     WHILE _MOUSEINPUT: WEND
71.     shooter.x = _MOUSEX: shooter.y = _MOUSEY
72.     IF ABS(lastx - shooter.x) > 7 OR ABS(lasty - shooter.y) > 7 THEN
73.         shooter.a = _ATAN2(shooter.y - lasty, shooter.x - lastx)
74.         lastx = shooter.x: lasty = shooter.y
75.     END IF
76.     t = TIMER(.001)
77.     IF _MOUSEBUTTON(1) THEN 'when ship is heading north the left button should be left
78.         IF t - last1 > .15 THEN mb1 = 1: last1 = t
79.     END IF
80.     IF _KEYDOWN(27) THEN _MOUSESHOW: END
81.     handleTargets
82.     drawshooter
83.     handleBullets
84.     _DISPLAY
85.     _LIMIT 30
86. WEND
87.  
88. SUB handleTargets
89.     FOR i = 0 TO nTargets - 1
90.         'update position
91.         t(i).x = t(i).x + tSpeed * COS(t(i).a)
92.         t(i).y = t(i).y + tSpeed * SIN(t(i).a)
93.         'inbounds?
94.         IF t(i).x < 0 OR t(i).x > xmax OR t(i).y < 0 OR t(i).y > ymax THEN
95.             newTarget i
96.         ELSE
97.             IF hitShooter(i) THEN
98.                 'explosion
99.                 CLS
100.                 _PRINTSTRING (xmax / 2 - 40, ymax / 2 - 10), "Bang!... Ouch!"
101.                 score = score - 100
102.                 _DISPLAY
103.                 _DELAY .2
104.             ELSE
105.                 drawTarget i
106.             END IF
107.         END IF
108.     NEXT
109. END SUB
110.  
111. SUB newTarget (i)
112.     'pick edge
113.     edge = INT(RND * 4)
114.     SELECT CASE edge
115.         CASE 0: t(i).x = 0: t(i).y = RND * (ymax - 300) + 150: t(i).a = RND * _PI
116.         CASE 1: t(i).x = xmax: t(i).y = RND * (ymax - 300) + 150: t(i).a = _PI / 2 + RND * _PI
117.         CASE 2: t(i).x = RND * xmax: t(i).y = 0: t(i).a = RND * _PI
118.         CASE 3: t(i).x = RND * xmax: t(i).y = ymax: t(i).a = _PI + RND * _PI
119.     END SELECT
120.     t(i).r = (INT(RND * 8) + 3) * 10 '30 to 100 score 130 - radius 100 to 30
121. END SUB
122.  
123. SUB drawTarget (i)
124.     FOR r = t(i).r TO 0 STEP -t(i).r / 10
125.         count = (count + 1) MOD 2
126.         IF count THEN c~& = _RGB32(255, 0, 0) ELSE c~& = _RGB32(255, 255, 255)
127.         fcirc t(i).x, t(i).y, r, c~&
128.     NEXT
129. END SUB
130.  
131. SUB handleBullets ()
132.     FOR i = 0 TO nBullets - 1
133.         IF b(i).live = 0 AND mb1 = 1 THEN 'have in active bullet index to use
134.             b(i).x = shooter.x + .5 * shooterRadius * COS(shooter.a)
135.             b(i).y = shooter.y + .5 * shooterRadius * SIN(shooter.a)
136.             b(i).dx = bSpeed * COS(shooter.a)
137.             b(i).dy = bSpeed * SIN(shooter.a)
138.             b(i).live = 1
139.             mb1 = 0
140.             score = score - 10 'bullets cost 10 points
141.             'ELSEIF b(i).live  = 0 AND mb2 = 1 THEN
142.             '    b(i).x = shooter.x + (shooterRadius) * COS(shooter.a - _PI(7 / 8))
143.             '    b(i).y = shooter.y + (shooterRadius) * SIN(shooter.a - _PI(7 / 8))
144.             '    b(i).dx = bSpeed * COS(shooter.a)
145.             '    b(i).dy = bSpeed * SIN(shooter.a)
146.             '    b(i).live = 1
147.             '    mb2 = 0
148.  
149.         ELSEIF b(i).live = 1 THEN 'new location
150.             b(i).x = b(i).x + b(i).dx
151.             b(i).y = b(i).y + b(i).dy
152.             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
153.                 'check for collision with ...
154.                 t = hitTarget(i)
155.                 IF t > -1 THEN
156.                     score = score + 130 - t(t).r
157.                     b(i).live = 0
158.                     newTarget t
159.                 ELSE
160.                     'draw bullet
161.                     ba = _ATAN2(b(i).dy, b(i).dx): b = 15
162.                     x1 = b(i).x + b * COS(ba)
163.                     y1 = b(i).y + b * SIN(ba)
164.                     x2 = b(i).x + b * COS(ba + _PI(5 / 6))
165.                     y2 = b(i).y + b * SIN(ba + _PI(5 / 6))
166.                     x3 = b(i).x + b * COS(ba + _PI(7 / 6))
167.                     y3 = b(i).y + b * SIN(ba + _PI(7 / 6))
168.                     fTri x1, y1, x2, y2, x3, y3, _RGB32(10, 160, 160)
169.                     'fcirc b(i).x, b(i).y, 4, _RGB32(64, 0, 0)
170.                 END IF
171.             ELSE
172.                 b(i).live = 0 'dectiveate
173.             END IF
174.         END IF
175.     NEXT
176. END SUB
177.  
178. FUNCTION hitTarget (bulletIndex)
179.     hitTarget = -1
180.     FOR i = 0 TO nTargets - 1
181.         IF SQR((t(i).x - b(bulletIndex).x) ^ 2 + (t(i).y - b(bulletIndex).y) ^ 2) <= t(i).r THEN hitTarget = i: EXIT FUNCTION
182.     NEXT
183. END FUNCTION
184.  
185. FUNCTION hitShooter (TargetIndex)
186.     IF SQR((shooter.x - t(TargetIndex).x) ^ 2 + (shooter.y - t(TargetIndex).y) ^ 2) <= t(i).r THEN hitShooter = 1: EXIT FUNCTION
187. END FUNCTION
188.  
189. SUB drawshooter ()
190.     'just a wedge
191.     x1 = shooter.x + (shooterRadius - 30) * COS(shooter.a)
192.     y1 = shooter.y + (shooterRadius - 30) * SIN(shooter.a)
193.     x2 = shooter.x + (shooterRadius + 20) * COS(shooter.a + _PI(11 / 16))
194.     y2 = shooter.y + (shooterRadius + 20) * SIN(shooter.a + _PI(11 / 16))
195.     x3 = shooter.x + (shooterRadius + 20) * COS(shooter.a - _PI(11 / 16))
196.     y3 = shooter.y + (shooterRadius + 20) * SIN(shooter.a - _PI(11 / 16))
197.     fTri x1, y1, x2, y2, x3, y3, _RGB32(85, 45, 0)
198.     x1 = shooter.x + shooterRadius * COS(shooter.a)
199.     y1 = shooter.y + shooterRadius * SIN(shooter.a)
200.     x2 = shooter.x + shooterRadius * COS(shooter.a + _PI(7 / 8))
201.     y2 = shooter.y + shooterRadius * SIN(shooter.a + _PI(7 / 8))
202.     x3 = shooter.x + shooterRadius * COS(shooter.a - _PI(7 / 8))
203.     y3 = shooter.y + shooterRadius * SIN(shooter.a - _PI(7 / 8))
204.     fTri x1, y1, x2, y2, x3, y3, _RGB32(0, 0, 200)
205.     x2 = shooter.x + shooterRadius * COS(shooter.a + _PI(15 / 16))
206.     y2 = shooter.y + shooterRadius * SIN(shooter.a + _PI(15 / 16))
207.     x3 = shooter.x + shooterRadius * COS(shooter.a - _PI(15 / 16))
208.     y3 = shooter.y + shooterRadius * SIN(shooter.a - _PI(15 / 16))
209.     fTri x1, y1, x2, y2, x3, y3, _RGB32(255, 255, 255)
210. END SUB
211.  
212. ' 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
213. SUB fTri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
214.     a& = _NEWIMAGE(1, 1, 32)
215.     _DEST a&
216.     PSET (0, 0), K
217.     _DEST 0
218.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
219.     _FREEIMAGE a& '<<< this is important!
220. END SUB
221.  
222. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
223.     DIM Radius AS INTEGER, RadiusError AS INTEGER
224.     DIM X AS INTEGER, Y AS INTEGER
225.  
226.     Radius = ABS(R)
227.     RadiusError = -Radius
228.     X = Radius
229.     Y = 0
230.  
231.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
232.  
233.     ' Draw the middle span here so we don't draw it twice in the main loop,
234.     ' which would be a problem with blending turned on.
235.     LINE (CX - X, CY)-(CX + X, CY), C, BF
236.  
237.     WHILE X > Y
238.         RadiusError = RadiusError + Y * 2 + 1
239.         IF RadiusError >= 0 THEN
240.             IF X <> Y + 1 THEN
241.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
242.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
243.             END IF
244.             X = X - 1
245.             RadiusError = RadiusError - X * 2
246.         END IF
247.         Y = Y + 1
248.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
249.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
250.     WEND
251. END SUB
252.  
253.  

(A break from Traveling Salespeople) :)

[Pete]

I made an ASCII version of that game, too. <= for the ship, and (_|_) for the falling objects. You guessed it, it was called ass-teroids. I supposed I could have called it ASCII-roids, but oh well...

Hey neat, you accomplished a near clone of the 1980's arcade game asteroids, in under 250 lines. I found it a little hard to rotate the ship, but it fires and moves out of the way, great.

Pete

[bplus]

Code: QB64: [Select]

1. I found it a little hard to rotate the ship, but it fires and moves out of the way, great.

Yes, so do I. It is unnatural to fly at the thing you want to shoot at.

Maybe tinker with this line in main loop, it was originally > 7:

Code: QB64: [Select]

1. IF ABS(lastx - shooter.x) > 3 OR ABS(lasty - shooter.y) > 3 THEN    
2.  

[TempodiBasic]

Hi Ashis
cool!
I must practice with mouse because I let it jump in rotation also to 50 degree.

[pforpond]

hey, i don't know if i'm doing anything wrong but it keeps crashing for me :(
i attached a video to show :)

[bplus]

hey, i don't know if i'm doing anything wrong but it keeps crashing for me :(
i attached a video to show :)

From your video, I see you are Running from an Option I don't have, "Start detached" ???
I just use the first option in Run  Menu. Don't know if that is difference that makes a difference.

If you are running on Linux, your Timer(.001) may be returning very different numbers than my settings from Windows 10.
Tinker with this part, that attempts a delay of rapid fire bullets.

Code: QB64: [Select]

1.     t = TIMER(.001)
2.     IF _MOUSEBUTTON(1) THEN 'when ship is heading north the left button should be left
3.         IF t - last1 > .15 THEN mb1 = 1: last1 = t
4.     END IF
5.  

In case the targets are running into shooter way too often, before you can even see what's going on, replace this block:

Code: QB64: [Select]

1.             IF hitShooter(i) THEN
2.                 'explosion
3.                 CLS
4.                 _PRINTSTRING (xmax / 2 - 40, ymax / 2 - 10), "Bang!... Ouch!"
5.                 score = score - 100
6.                 _DISPLAY
7.                 _DELAY .2
8.             ELSE
9.                 drawTarget i
10.             END IF
11.  

With just:

Code: QB64: [Select]

1. drawTarget i

Also the screen doesn't look right, the shooter should start up in the middle of the screen. Why is it in top left corner?
I set screen width with const xmax and screen height with const ymax.


To all,

To point the shooter, you move it towards your target or anticipate a little where target is going and move mouse that way...

[Ashish]

Hi bplus! Nice one
I modified your code so that target appears perfectly from the window. That is, they only disappear when they fully move away from sight.
Lines modified - 115 to 118, 94.

Code: QB64: [Select]

1. _TITLE "Mouse Action Shooter #2 Targets for MB triggers" 'B+ 2019-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. Just worry about aound the nose of the shooter.
10.  
11.  
12. 'screen dimensions
13. CONST xmax = 1200
14. CONST ymax = 700
15. CONST nBullets = 15
16. CONST bSpeed = 30
17. CONST nTargets = 3 'should probably depend on level of play
18. CONST tSpeed = 5 'should probably depend on level of play
19. CONST shooterRadius = 50
20.  
21. TYPE shooterType
22.     x AS SINGLE
23.     y AS SINGLE
24.     a AS SINGLE
25. END TYPE
26.  
27. TYPE bulletType
28.     x AS INTEGER
29.     y AS INTEGER
30.     dx AS INTEGER
31.     dy AS INTEGER
32.     live AS INTEGER
33. END TYPE
34.  
35. TYPE targetType
36.     x AS SINGLE
37.     y AS SINGLE
38.     a AS SINGLE
39.     r AS INTEGER
40. END TYPE
41.  
42. SCREEN _NEWIMAGE(xmax, ymax, 32)
43. _SCREENMOVE 100, 20
44. RANDOMIZE TIMER
45.  
46.  
47. DIM SHARED GameOn, mb1, last1, score
48.  
49. 'targets
50. DIM SHARED t(nTargets - 1) AS targetType
51. FOR i = 0 TO nTargets - 1: newTarget i: NEXT
52.  
53. 'bullets
54. DIM SHARED b(nBullets - 1) AS bulletType
55.  
56. 'shooter
57. DIM SHARED shooter AS shooterType
58. shooter.x = xmax / 2
59. shooter.y = ymax / 2
60. shooter.a = 0
61. lastx = xmax / 2: lasty = ymax / 2
62.  
63. 'game
64. GameOn = 1
65. _MOUSEHIDE
66. WHILE GameOn
67.     CLS
68.     _TITLE "Target Practice   Score:" + STR$(score)
69.     mb1 = 0: mb2 = 0
70.     WHILE _MOUSEINPUT: WEND
71.     shooter.x = _MOUSEX: shooter.y = _MOUSEY
72.     IF ABS(lastx - shooter.x) > 7 OR ABS(lasty - shooter.y) > 7 THEN
73.         shooter.a = _ATAN2(shooter.y - lasty, shooter.x - lastx)
74.         lastx = shooter.x: lasty = shooter.y
75.     END IF
76.     t = TIMER(.001)
77.     IF _MOUSEBUTTON(1) THEN 'when ship is heading north the left button should be left
78.         IF t - last1 > .15 THEN mb1 = 1: last1 = t
79.     END IF
80.     IF _KEYDOWN(27) THEN _MOUSESHOW: END
81.     handleTargets
82.     drawshooter
83.     handleBullets
84.     _DISPLAY
85.     _LIMIT 30
86. WEND
87.  
88. SUB handleTargets
89.     FOR i = 0 TO nTargets - 1
90.         'update position
91.         t(i).x = t(i).x + tSpeed * COS(t(i).a)
92.         t(i).y = t(i).y + tSpeed * SIN(t(i).a)
93.         'inbounds?
94.         IF t(i).x < -shooterRadius OR t(i).x > xmax + shooterRadius OR t(i).y < -shooterRadius OR t(i).y > ymax + shooterradiu THEN
95.             newTarget i
96.         ELSE
97.             IF hitShooter(i) THEN
98.                 'explosion
99.                 CLS
100.                 _PRINTSTRING (xmax / 2 - 40, ymax / 2 - 10), "Bang!... Ouch!"
101.                 score = score - 100
102.                 _DISPLAY
103.                 _DELAY .2
104.             ELSE
105.                 drawTarget i
106.             END IF
107.         END IF
108.     NEXT
109. END SUB
110.  
111. SUB newTarget (i)
112.     'pick edge
113.     edge = INT(RND * 4)
114.     SELECT CASE edge
115.         CASE 0: t(i).x = -shooterRadius: t(i).y = RND * (ymax - 300) + 150: t(i).a = RND * _PI
116.         CASE 1: t(i).x = xmax + shooterRadius: t(i).y = RND * (ymax - 300) + 150: t(i).a = _PI / 2 + RND * _PI
117.         CASE 2: t(i).x = RND * xmax: t(i).y = -shooterRadius: t(i).a = RND * _PI
118.         CASE 3: t(i).x = RND * xmax: t(i).y = ymax + shooterRadius: t(i).a = _PI + RND * _PI
119.     END SELECT
120.     t(i).r = (INT(RND * 8) + 3) * 10 '30 to 100 score 130 - radius 100 to 30
121. END SUB
122.  
123. SUB drawTarget (i)
124.     FOR r = t(i).r TO 0 STEP -t(i).r / 10
125.         count = (count + 1) MOD 2
126.         IF count THEN c~& = _RGB32(255, 0, 0) ELSE c~& = _RGB32(255, 255, 255)
127.         fcirc t(i).x, t(i).y, r, c~&
128.     NEXT
129. END SUB
130.  
131. SUB handleBullets ()
132.     FOR i = 0 TO nBullets - 1
133.         IF b(i).live = 0 AND mb1 = 1 THEN 'have in active bullet index to use
134.             b(i).x = shooter.x + .5 * shooterRadius * COS(shooter.a)
135.             b(i).y = shooter.y + .5 * shooterRadius * SIN(shooter.a)
136.             b(i).dx = bSpeed * COS(shooter.a)
137.             b(i).dy = bSpeed * SIN(shooter.a)
138.             b(i).live = 1
139.             mb1 = 0
140.             score = score - 10 'bullets cost 10 points
141.             'ELSEIF b(i).live  = 0 AND mb2 = 1 THEN
142.             '    b(i).x = shooter.x + (shooterRadius) * COS(shooter.a - _PI(7 / 8))
143.             '    b(i).y = shooter.y + (shooterRadius) * SIN(shooter.a - _PI(7 / 8))
144.             '    b(i).dx = bSpeed * COS(shooter.a)
145.             '    b(i).dy = bSpeed * SIN(shooter.a)
146.             '    b(i).live = 1
147.             '    mb2 = 0
148.  
149.         ELSEIF b(i).live = 1 THEN 'new location
150.             b(i).x = b(i).x + b(i).dx
151.             b(i).y = b(i).y + b(i).dy
152.             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
153.                 'check for collision with ...
154.                 t = hitTarget(i)
155.                 IF t > -1 THEN
156.                     score = score + 130 - t(t).r
157.                     b(i).live = 0
158.                     newTarget t
159.                 ELSE
160.                     'draw bullet
161.                     ba = _ATAN2(b(i).dy, b(i).dx): b = 15
162.                     x1 = b(i).x + b * COS(ba)
163.                     y1 = b(i).y + b * SIN(ba)
164.                     x2 = b(i).x + b * COS(ba + _PI(5 / 6))
165.                     y2 = b(i).y + b * SIN(ba + _PI(5 / 6))
166.                     x3 = b(i).x + b * COS(ba + _PI(7 / 6))
167.                     y3 = b(i).y + b * SIN(ba + _PI(7 / 6))
168.                     fTri x1, y1, x2, y2, x3, y3, _RGB32(10, 160, 160)
169.                     'fcirc b(i).x, b(i).y, 4, _RGB32(64, 0, 0)
170.                 END IF
171.             ELSE
172.                 b(i).live = 0 'dectiveate
173.             END IF
174.         END IF
175.     NEXT
176. END SUB
177.  
178. FUNCTION hitTarget (bulletIndex)
179.     hitTarget = -1
180.     FOR i = 0 TO nTargets - 1
181.         IF SQR((t(i).x - b(bulletIndex).x) ^ 2 + (t(i).y - b(bulletIndex).y) ^ 2) <= t(i).r THEN hitTarget = i: EXIT FUNCTION
182.     NEXT
183. END FUNCTION
184.  
185. FUNCTION hitShooter (TargetIndex)
186.     IF SQR((shooter.x - t(TargetIndex).x) ^ 2 + (shooter.y - t(TargetIndex).y) ^ 2) <= t(i).r THEN hitShooter = 1: EXIT FUNCTION
187. END FUNCTION
188.  
189. SUB drawshooter ()
190.     'just a wedge
191.     x1 = shooter.x + (shooterRadius - 30) * COS(shooter.a)
192.     y1 = shooter.y + (shooterRadius - 30) * SIN(shooter.a)
193.     x2 = shooter.x + (shooterRadius + 20) * COS(shooter.a + _PI(11 / 16))
194.     y2 = shooter.y + (shooterRadius + 20) * SIN(shooter.a + _PI(11 / 16))
195.     x3 = shooter.x + (shooterRadius + 20) * COS(shooter.a - _PI(11 / 16))
196.     y3 = shooter.y + (shooterRadius + 20) * SIN(shooter.a - _PI(11 / 16))
197.     fTri x1, y1, x2, y2, x3, y3, _RGB32(85, 45, 0)
198.     x1 = shooter.x + shooterRadius * COS(shooter.a)
199.     y1 = shooter.y + shooterRadius * SIN(shooter.a)
200.     x2 = shooter.x + shooterRadius * COS(shooter.a + _PI(7 / 8))
201.     y2 = shooter.y + shooterRadius * SIN(shooter.a + _PI(7 / 8))
202.     x3 = shooter.x + shooterRadius * COS(shooter.a - _PI(7 / 8))
203.     y3 = shooter.y + shooterRadius * SIN(shooter.a - _PI(7 / 8))
204.     fTri x1, y1, x2, y2, x3, y3, _RGB32(0, 0, 200)
205.     x2 = shooter.x + shooterRadius * COS(shooter.a + _PI(15 / 16))
206.     y2 = shooter.y + shooterRadius * SIN(shooter.a + _PI(15 / 16))
207.     x3 = shooter.x + shooterRadius * COS(shooter.a - _PI(15 / 16))
208.     y3 = shooter.y + shooterRadius * SIN(shooter.a - _PI(15 / 16))
209.     fTri x1, y1, x2, y2, x3, y3, _RGB32(255, 255, 255)
210. END SUB
211.  
212. ' 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
213. SUB fTri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
214.     a& = _NEWIMAGE(1, 1, 32)
215.     _DEST a&
216.     PSET (0, 0), K
217.     _DEST 0
218.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
219.     _FREEIMAGE a& '<<< this is important!
220. END SUB
221.  
222. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
223.     DIM Radius AS INTEGER, RadiusError AS INTEGER
224.     DIM X AS INTEGER, Y AS INTEGER
225.  
226.     Radius = ABS(R)
227.     RadiusError = -Radius
228.     X = Radius
229.     Y = 0
230.  
231.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
232.  
233.     ' Draw the middle span here so we don't draw it twice in the main loop,
234.     ' which would be a problem with blending turned on.
235.     LINE (CX - X, CY)-(CX + X, CY), C, BF
236.  
237.     WHILE X > Y
238.         RadiusError = RadiusError + Y * 2 + 1
239.         IF RadiusError >= 0 THEN
240.             IF X <> Y + 1 THEN
241.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
242.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
243.             END IF
244.             X = X - 1
245.             RadiusError = RadiusError - X * 2
246.         END IF
247.         Y = Y + 1
248.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
249.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
250.     WEND
251. END SUB
252.  
253.  

[bplus]

Hi Ashish,

Good idea. I extended active bullet range beyond the edge of screen as well, in case one was locked in on target you can get credit if it hits target before it disappears.

I will change shooter x, y calculations so it is off the nose and in center of shooter and post update.

Update:
Shooter x, y fixed long time ago.

So here is snippet to fix bullet range to follow target centers past edge of screen, add to Ashish code mod..

Code: QB64: [Select]

1.         ELSEIF b(i).live = 1 THEN 'new location
2.             b(i).x = b(i).x + b(i).dx
3.             b(i).y = b(i).y + b(i).dy
4.             IF b(i).x > -50 AND b(i).x < xmax + 50 AND b(i).y > -50 AND b(i).y < ymax + 50 THEN '<<< new range!
5.                 'check for collision with ...
6.