Fairground Duck Shoot Simulation Game in Preparation

[Qwerkey]

This is a simulation of a Duck Shoot booth.  A game of skill where you have to aim at the moving targets (pigeons in this game) and fire a projectile to knock them over.

The simulation of the firing apparatus ('rifle') in this game is effected by having two aiming images which have to be correctly aligned.  The larger circle-with-cross is imagined to be the cross-hairs in the aiming sight closest to your eye, and the smaller circle-with-cross represents the far end of the 'rifle'.  When the two are aligned on top of each other, the 'rifle' fires directly into the screen.  If the projectile lands within the circular target of one of the moving objects, it is knocked over.

The aiming sights are moved as follows: Near-sight keys w, a,d,z to move Up, Left, Right and Down respectively; Far-sight keys p, l, . , and ' to move Up, Left, Right and Down respectively.  To fire the 'rifle', use key s.  The near-sight keys and fire key are for your left hand, and the far-sight keys are for your right hand.

The direction with which the projectile moves depends upon the alignment of the two sights and the velocity of the far sight.

The game at present is in preparation only with many factors to be completed.  Eventually there will be a number of levels with increasing skill required.  This demo is effectively at the lowest skill level where all factors are made easy.  The eventual program will be produced with InForm.

If you would like to try this demo and provide any feedback, I shall be very grateful.

Use the URL to download the zip file and export the Folder into your QB64 folder.  Open the .bas program in the IDE.

https://www.dropbox.com/s/f08ixezx5wk94xc/Duck%20Shoot.zip?dl=1

[johnno56]

Um... I am not an Ornithologist, but your 'ducks', are actually pigeons... But looks like fun... They are NOT going to shoot back are they? lol

[bplus]

Hi Qwerkey,

Oh hey! I just found this in my downloads folder.

Very elaborate production, great start!

Maybe if the spiral were spinning? :)

Code: QB64: [Select]

1. _TITLE "Psychedelic Star Swirl bplus 2018-03-04"
2. ' translated from
3. ' Psychedelic Star Swirl.bas SmallBASIC 0.12.8 [B+=MGA] 2017-03-03
4. ' Spiral Pearl Swirl 4 SB.bas  SmallBASIC 0.12.8 [B+=MGA] 2017-03-01
5. ' from Spiral Pearl Swirl.bas for FreeBASIC [B+=MGA] 2017-02-28
6. ' from SdlBasic 3d version 2017-02-28
7. ' inspired by spiral Bang
8. CONST xmax = 1280
9. CONST ymax = 760
10. SCREEN _NEWIMAGE(xmax, ymax, 32)
11. _SCREENMOVE 70, 0
12.  
13. DIM SHARED r, g, b, clr
14. 'whatever screen size your device here is middle
15. cx = xmax / 2: cy = ymax / 2: r = RND: g = RND: b = RND: k$ = " "
16. WHILE 1
17.     size = 1
18.     radius = .06
19.     angle = sangle
20.     CLS
21.     WHILE radius < 800
22.         x = COS(angle) * radius
23.         y = SIN(angle) * radius
24.         r2 = (x ^ 2 + y ^ 2) ^ .5
25.         size = 4 * r2 ^ .25
26.         FOR r = size TO 1 STEP -4
27.             'cc = 160 + 95 * radius/400 - r/size*120
28.             chColor
29.             star cx + x, cy + y, r / 3, r * 1.6, 5, RND * 360
30.         NEXT
31.         angle = angle - .4
32.         radius = radius + 1
33.     WEND
34.     _DISPLAY ' update screen with new image
35.     _LIMIT 15 '<<<<<<<<<<<<<<<<<<<<<<<<<< adjust to higher speeds if you dare
36.     sangle = sangle + _PI(1 / 18)
37. WEND
38.  
39. SUB star (x, y, rInner, rOuter, nPoints, angleOffset)
40.     ' x, y are same as for circle,
41.     ' rInner is center circle radius
42.     ' rOuter is the outer most point of star
43.     ' nPoints is the number of points,
44.     ' angleOffset = angle offset IN DEGREES, it will be converted to radians in sub
45.     ' this is to allow us to spin the polygon of n sides
46.     pAngle = RAD(360 / nPoints): radAngleOffset = RAD(angleOffset)
47.     x1 = x + rInner * COS(radAngleOffset)
48.     y1 = y + rInner * SIN(radAngleOffset)
49.     FOR i = 0 TO nPoints - 1
50.         x2 = x + rOuter * COS(i * pAngle + radAngleOffset + .5 * pAngle)
51.         y2 = y + rOuter * SIN(i * pAngle + radAngleOffset + .5 * pAngle)
52.         x3 = x + rInner * COS((i + 1) * pAngle + radAngleOffset)
53.         y3 = y + rInner * SIN((i + 1) * pAngle + radAngleOffset)
54.         LINE (x1, y1)-(x2, y2)
55.         LINE (x2, y2)-(x3, y3)
56.         x1 = x3: y1 = y3
57.     NEXT
58. END SUB
59.  
60. SUB chColor ()
61.     clr = clr + 1
62.     COLOR _RGB32(127 + 127 * SIN(r * clr), 127 + 127 * SIN(g * clr), 127 + 127 * SIN(b * clr))
63.     IF clr > 40000 THEN r = RND: g = RND: b = RND: clr = 0
64. END SUB
65. FUNCTION RAD (dA)
66.     RAD = _PI(dA / 180)
67. END FUNCTION
68.  
69.  

[Qwerkey]

bplus, your spiral really is psychedelic!  In my duck shoot game, when the spiral spins it makes the hand-eye co-ordination more difficult:  it will spin at higher levels.

[Qwerkey]

[banned user] thanks.  I'm using pigeon images as it's my personal opinion that pigeons are a much more apt shooting target than ducks (NB this program is not a shoot-em-up game, of course).  Perhaps you'd be good enough to explain when exactly a download from the Web is Public Domain.  I'm assuming that if the website does not specifically say it's copyrighted or for sale then by default it's Public Domain, though I'm never quite sure.

[johnno56]

I use OpenGameArt.org for most of my "retro" stuff... All of their assets are free to use for either private, public or commercial use...

[Ashish]

Nice game Qwerky. Looking forward to your final version. :)