+- QB64 Phoenix Edition (https://qb64phoenix.com/forum)
+-- Forum: QB64 Rising (https://qb64phoenix.com/forum/forumdisplay.php?fid=1)
+--- Forum: Prolific Programmers (https://qb64phoenix.com/forum/forumdisplay.php?fid=26)
+---- Forum: Magdha/Qwerky (https://qb64phoenix.com/forum/forumdisplay.php?fid=69)
+---- Thread: Fairground Duck Shoot Simulation Game (/showthread.php?tid=4315)
Pages:
1
2
Fairground Duck Shoot Simulation Game - Magdha - 01-10-2026
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.
It is rather complicated to understand how to use the controls, so you will need the User Manual.
Duck Shoot User Manual.pdf (Size: 534.22 KB / Downloads: 15)
This is an InForm program which, once again, adds a certain professionalism to the running program. In this program the following InForm controls are used:
Frame
Button
Radio Button
Drop-down List
Label
Unzip the file and extract the folder into your PEQB64 directory. In the IDE make sure that you have the Run Option “Save EXE in source folder” checked.
Duck Shoot.zip (Size: 12.71 MB / Downloads: 5)
The video shows the running program at the very easiest Level. [It doesn't show the rifle sightings very well.]
Code: (Select All)
': Duck Shoot Game by Magdha 2026-01-09 ex Qwerkey
': Images and Sounds from: findsounds.com, freesfx.go.uk, paperpull.com, pngimg.com, clker.com
': This program uses
': InForm-PE for QB64-PE - v1.5.8 based upon InForm by Fellippe Heitor
': Copyright (c) 2025 QB64 Phoenix Edition Team
': https://github.com/QB64-Phoenix-Edition/InForm-PE
'-----------------------------------------------------------
': Controls' IDs & Constants: ------------------------------------------------------
CONST XScreen% = 1240, YScreen% = 800, FrameRate% = 120
CONST HalfWidth% = 100, HalfHeight% = 91, BendRad% = 150, XWidth% = 275
CONST Spacing! = 51.19, BoltX% = 143, BoltY% = 95, AimStep! = 0.1, PosStep! = 0.5
CONST RForce! = 0.0005, BulletSpeed! = 5, BallRad%% = 2, ZTargetDist% = 200
CONST GoldX% = XScreen% / 2, GoldY% = YScreen% - BendRad% - 2 * HalfHeight% + BoltY%
CONST MaxDev% = 30, CanFire% = 2 * FrameRate%, FSight% = 5, NSight% = 15
CONST TRand! = 0.99972, AtNextLevel% = 4 * FrameRate%
DIM SHARED DuckShoot AS LONG
DIM SHARED OptionsFR AS LONG
DIM SHARED GameLevelFR AS LONG
DIM SHARED AudioFR AS LONG
DIM SHARED SetKeysFR AS LONG
DIM SHARED LeftHandKeysFR AS LONG
DIM SHARED RightHandKeysFR AS LONG
DIM SHARED SelectKeyFR AS LONG
DIM SHARED ExitBT AS LONG
DIM SHARED ResetBT AS LONG
DIM SHARED SetKeysBT AS LONG
DIM SHARED Level1RB AS LONG
DIM SHARED Level2RB AS LONG
DIM SHARED Level3RB AS LONG
DIM SHARED Level4RB AS LONG
DIM SHARED Level5RB AS LONG
DIM SHARED Level6RB AS LONG
DIM SHARED AudioOffRB AS LONG
DIM SHARED AudioOnRB AS LONG
DIM SHARED RestartLevelBT AS LONG
DIM SHARED SetLeftHandKeysRB AS LONG
DIM SHARED SetRightHandKeysRB AS LONG
DIM SHARED FarSightUpRB AS LONG
DIM SHARED FarSightLeftRB AS LONG
DIM SHARED FarSightRightRB AS LONG
DIM SHARED FarSightDownRB AS LONG
DIM SHARED NearSightUpRB AS LONG
DIM SHARED NearSightLeftRB AS LONG
DIM SHARED NearSightRightRB AS LONG
DIM SHARED NearSightDownRB AS LONG
DIM SHARED FireRB AS LONG
DIM SHARED SelectKeyDD AS LONG
DIM SHARED SelectKeyLB AS LONG
DIM SHARED DoneBT AS LONG
DIM SHARED SetBT AS LONG
DIM SHARED DefaultBT AS LONG
DIM SHARED AllTheFunoftheFair&, AtGameStart%%, GameLevel%%, ReachedLevel%%
DIM SHARED Target!(5, 2), KeyCode%(8), KeyCodeDef%(8), Parameters!(7, 16)
DIM SHARED Dux%%, DuckCount%, StartGame%%, NoShots%, Ready%%, QuackInit%%
DIM SHARED SideBarFlag%%, SideBarIn%%, AwardAnim%, Fired%%, Shrink%
DIM SHARED SpiralAngle!, KeysList$, XF!, YF!, XN!, YN!, XGun!, YGun!
ReadData1:
'Set parameters (Level 7 data as dummy):
' Parameters!(GameLevel%%,14)
'0 DuckSpeed!
'1 BoltRad%
'2 Lambda!
'3 VDash!
'4 VDoubleDash!
'5 Gravity!
'6 AimAlign!
'7 XDevMax% / 8 XDevMin%
'9 O0Max! / 10 O0Min!
'11 YDevMax% / 12 YDevMin%
'13 O1Max! / 14 O1Min!
'15 Spiral spin rate
'16 Required Shots
DATA 0.25,30,1000000,0.02,0.002,0.02,0.01,50,5,60,100,30,5,60,100,0,10
DATA 0.4,30,8500,0.02,0.003,0.03,0.02,60,5,50,100,35,5,50,100,0,20
DATA 0.5,25,2800,0.025,0.004,0.04,0.03,80,10,40,80,40,10,40,80,0,20
DATA 0.65,25,2170,0.03,0.006,0.06,0.06,100,15,30,70,50,10,30,70,0,20
DATA 0.8,25,1450,0.04,0.01,0.08,0.075,120,20,25,60,60,20,20,60,0.005,25
'Level 6 is LUDICROUS (& not part of normal game)
'Level 7 (dummy) parameters same as Level 5
DATA 1.25,22,910,0.05,0.01,0.1,0.1,140,30,20,45,90,30,20,45,0.008,30
DATA 0.8,25,1450,0.04,0.008,0.08,0.075,120,20,25,60,60,20,20,60,0.005,25
ReadData2:
'Default Keys
DATA 119,122,97,100,112,46,108,39,115
': External modules: ---------------------------------------------------------------
'$INCLUDE:'InForm\InForm.bi'
'$INCLUDE:'InForm\xp.uitheme'
'$INCLUDE:'Duck Shoot.frm'
': Event procedures & Functions: ---------------------------------------------------
FUNCTION HardwareImage& (ImageName&)
HardwareImage& = _COPYIMAGE(ImageName&, 33)
_FREEIMAGE ImageName&
END FUNCTION
FUNCTION SelKey$ (I%%)
SelKey$ = CHR$(KeyCode%(I%%))
END FUNCTION
SUB __UI_BeforeInit
$EXEICON:'.\helloducky.ico'
AtGameStart%% = True
StartGame%% = True
SideBarIn%% = True
KeysList$ = "abcdefghijklmnopqrstuvwxyz#',./;[\]"
'Parameters!() Data Input
RESTORE ReadData1
FOR N%% = 1 TO 7
FOR M%% = 0 TO 16
READ Parameters!(N%%, M%%)
NEXT M%%
NEXT N%%
FOR N%% = 1 TO 7
FOR M%% = 9 TO 10
Parameters!(N%%, M%%) = 2 * _PI / (Parameters!(N%%, M%%) * FrameRate%)
NEXT M%%
FOR M%% = 13 TO 14
Parameters!(N%%, M%%) = 2 * _PI / (Parameters!(N%%, M%%) * FrameRate%)
NEXT M%%
NEXT N%%
RESTORE ReadData2
FOR N%% = 0 TO 8
READ KeyCodeDef%(N%%)
NEXT N%%
'Initialise
IF _FILEEXISTS("ducks.cfg") THEN
OPEN "ducks.cfg" FOR INPUT AS #1
FOR N%% = 0 TO 8
INPUT #1, KeyCode%(N%%)
NEXT N%%
INPUT #1, ReachedLevel%%
CLOSE #1
ELSE
CALL DefKeys
ReachedLevel%% = 1
END IF
GameLevel%% = ReachedLevel%%
IF ReachedLevel%% = 7 THEN
SideBarFlag%% = True
ELSE
SideBarFlag%% = False
END IF
AllTheFunoftheFair& = _SNDOPEN("funfair.mp3")
_SNDLOOP AllTheFunoftheFair&
RANDOMIZE (TIMER)
Target!(0, 0) = 2
Target!(0, 1) = 2 * XWidth% - 20
Target!(1, 0) = 2
Target!(1, 1) = 2 * XWidth% - 20 - 2 * HalfWidth% - Spacing!
Target!(2, 0) = 2
Target!(2, 1) = 2 * XWidth% - 20 - 4 * HalfWidth% - 2 * Spacing!
Target!(3, 0) = 1
Target!(3, 1) = 0.64382
Target!(4, 0) = 0
Target!(4, 1) = 4.738
Target!(5, 0) = 3
Target!(5, 1) = 0.9617 + _PI / 2
SpiralAngle! = 2.6
AwardAnim% = 0
END SUB
SUB __UI_OnLoad
_SCREENMOVE 50, 5
Control(SetKeysFR).Left = GoldX% - 200
Control(SetKeysFR).Top = 250
Control(SelectKeyFR).Left = GoldX% + 30
Control(SelectKeyFR).Top = 250
Control(LeftHandKeysFR).Left = GoldX% - 200
Control(LeftHandKeysFR).Top = 400
Control(RightHandKeysFR).Left = GoldX% + 30
Control(RightHandKeysFR).Top = 400
CALL DispSetKeys((True))
CALL DispLHKeys((True))
CALL DispRHKeys((True))
Control(GameLevelFR).Disabled = True
CALL ButtonLock((True))
Control(AudioOnRB).Disabled = False
Control(AudioOffRB).Disabled = False
Control(ResetBT).Disabled = False
Caption(ResetBT) = "Start"
SetFocus ResetBT
CALL WriteList(0)
SELECT CASE GameLevel%%
CASE 1
SetRadioButtonValue Level1RB
CASE 2
SetRadioButtonValue Level2RB
CASE 3
SetRadioButtonValue Level3RB
CASE 4
SetRadioButtonValue Level4RB
CASE 5, 7
SetRadioButtonValue Level5RB
END SELECT
END SUB
SUB __UI_BeforeUpdateDisplay
'This event occurs at approximately 30 frames per second.
'You can change the update frequency by calling SetFrameRate DesiredRate%
STATIC SideBar%, HereAgain%%, Curtains&, Spiral&, Numerals&(), XErr%%, Opto&, S1&, S2&
STATIC Slug&, WonLevel&, ImReady&, DispLevel&, ShotsTot&, Success&, Award&, GoldenShot&
STATIC Targ1&, Pigeon&, Quacker&
IF NOT HereAgain%% THEN 'Load Images
HereAgain%% = True
SideBar% = 1120
XErr%% = -2
DIM Numerals&(10)
Opto& = _LOADIMAGE("OptionsFR.png", 33)
TempImg& = _NEWIMAGE(2 * FSight% + 1, 2 * FSight% + 1, 32)
_DEST TempImg&
CIRCLE (FSight%, FSight%), FSight%, _RGB32(0, 150, 30)
LINE (FSight% - 3, FSight%)-(FSight% + 3, FSight%), _RGB32(0, 150, 30)
LINE (FSight%, FSight% - 3)-(FSight%, FSight% + 3), _RGB32(0, 150, 30)
S1& = HardwareImage&(TempImg&)
TempImg& = _NEWIMAGE(2 * NSight% + 1, 2 * NSight% + 1, 32)
_DEST TempImg&
CIRCLE (NSight%, NSight%), NSight%, _RGB32(0, 255, 0)
LINE (NSight% - 5, NSight%)-(NSight% + 5, NSight%), _RGB32(0, 255, 0)
LINE (NSight%, NSight% - 5)-(NSight%, NSight% + 5), _RGB32(0, 255, 0)
S2& = HardwareImage&(TempImg&)
TempImg& = _NEWIMAGE(2 * BallRad%% + 1, 2 * BallRad%% + 1, 32)
_DEST TempImg&
CIRCLE (BallRad%%, BallRad%%), BallRad%%, _RGB32(212, 175, 55)
PAINT (BallRad%%, BallRad%%), _RGB32(212, 175, 55)
Slug& = HardwareImage&(TempImg&)
CurtainsTemp& = _LOADIMAGE("curtains.png", 32)
TempImg& = _NEWIMAGE(XScreen%, YScreen%, 32)
_DEST TempImg&
COLOR _RGB32(0, 0, 255), _RGBA32(80, 80, 80, 0)
CLS
_PUTIMAGE , CurtainsTemp&
Font& = _LOADFONT("cyberbit.ttf", 60, "bold")
_FONT Font&
_PRINTSTRING (GoldX% - 233, 14), "QB64 Duck Shoot"
_FONT 16
_FREEFONT Font&
_FREEIMAGE CurtainsTemp&
Curtains& = HardwareImage&(TempImg&)
Spiral& = _LOADIMAGE("spiral.png", 33)
TempImg& = _NEWIMAGE(320, 120, 32)
_DEST TempImg&
COLOR _RGB32(150, 150, 80), _RGB32(80, 80, 80)
CLS
LINE (0, 0)-(319, 119), , B
LINE (1, 1)-(318, 118), , B
LINE (2, 2)-(317, 117), , B
Font& = _LOADFONT("cyberbit.ttf", 34, "bold")
_FONT Font&
_PRINTSTRING (38, 16), "Congratulations!"
_PRINTSTRING (12, 68), "You Win This Level"
_FONT 16
_FREEFONT Font&
WonLevel& = HardwareImage&(TempImg&)
TempImg& = _NEWIMAGE(74, 30, 32)
_DEST TempImg&
COLOR _RGB32(150, 150, 80), _RGB32(80, 80, 80)
CLS
LINE (0, 0)-(73, 29), , B
LINE (1, 1)-(72, 28), , B
LINE (2, 2)-(71, 27), , B
Font& = _LOADFONT("cyberbit.ttf", 20, "bold")
_FONT Font&
_PRINTSTRING (10, 4), "Ready"
_FONT 16
_FREEFONT Font&
ImReady& = HardwareImage&(TempImg&)
TempImg& = _NEWIMAGE(290, 122, 32)
_DEST TempImg&
COLOR _RGB32(150, 150, 80), _RGB32(80, 80, 80)
CLS
LINE (0, 0)-(289, 121), , B
LINE (1, 1)-(288, 120), , B
LINE (2, 2)-(287, 119), , B
Font& = _LOADFONT("cyberbit.ttf", 40, "bold")
_FONT Font&
_PRINTSTRING (10, 14), "Game Level:"
_FONT 16
_FREEFONT Font&
Font& = _LOADFONT("cyberbit.ttf", 30, "bold")
_FONT Font&
_PRINTSTRING (10, 70), "Shots Required:"
_FONT 16
_FREEFONT Font&
DispLevel& = HardwareImage&(TempImg&)
TempImg& = _NEWIMAGE(220, 160, 32)
_DEST TempImg&
COLOR _RGB32(150, 150, 80), _RGB32(80, 80, 80)
CLS
LINE (0, 0)-(219, 159), , B
LINE (1, 1)-(218, 158), , B
LINE (2, 2)-(217, 157), , B
Font& = _LOADFONT("cyberbit.ttf", 40, "bold")
_FONT Font&
_PRINTSTRING (14, 10), "Number of"
_PRINTSTRING (60, 56), "Shots"
_FONT 16
_FREEFONT Font&
ShotsTot& = HardwareImage&(TempImg&)
TempImg& = _NEWIMAGE(220, 160, 32)
_DEST TempImg&
COLOR _RGB32(150, 150, 80), _RGB32(80, 80, 80)
CLS
LINE (0, 0)-(219, 159), , B
LINE (1, 1)-(218, 158), , B
LINE (2, 2)-(217, 157), , B
Font& = _LOADFONT("cyberbit.ttf", 40, "bold")
_FONT Font&
_PRINTSTRING (42, 10), "Success"
_PRINTSTRING (68, 56), "Rate"
_FONT 16
_FREEFONT Font&
Success& = HardwareImage&(TempImg&)
FOR N%% = 0 TO 9
TempImg& = _NEWIMAGE(34, 62, 32)
_DEST TempImg&
COLOR _RGB32(150, 150, 80), _RGB32(80, 80, 80)
CLS
F& = _LOADFONT("cyberbit.ttf", 50)
_FONT F&
_PRINTSTRING (4, 6), LTRIM$(STR$(N%%))
_FONT 16
_FREEFONT F&
Numerals&(N%%) = HardwareImage&(TempImg&)
NEXT N%%
TempImg& = _NEWIMAGE(46, 62, 32)
_DEST TempImg&
COLOR _RGB32(150, 150, 80), _RGB32(80, 80, 80)
CLS
F& = _LOADFONT("cyberbit.ttf", 50)
_FONT F&
_PRINTSTRING (2, 6), "%"
_FONT 16
_FREEFONT F&
Numerals&(10) = HardwareImage&(TempImg&)
AwardTemp& = _LOADIMAGE("medalimg.png", 32)
TempImg& = _NEWIMAGE(192, 192, 32)
_DEST TempImg&
COLOR _RGBA32(150, 150, 80, 90), _RGBA32(80, 80, 80, 0)
CLS
_PUTIMAGE , AwardTemp&
_FREEIMAGE AwardTemp&
F& = _LOADFONT("cyberbit.ttf", 26)
_FONT F&
_PRINTSTRING (74, 114), "QB"
_PRINTSTRING (80, 140), "64"
_FONT 16
_FREEFONT F&
Award& = HardwareImage&(TempImg&)
TempImg& = _NEWIMAGE(220, 130, 32)
_DEST TempImg&
COLOR _RGB32(150, 150, 80), _RGB32(80, 80, 80)
CLS
LINE (0, 0)-(219, 129), , B
LINE (1, 1)-(218, 128), , B
LINE (2, 2)-(217, 127), , B
Font& = _LOADFONT("cyberbit.ttf", 40, "bold")
_FONT Font&
_PRINTSTRING (58, 16), "Game"
_PRINTSTRING (14, 68), "Completed"
_FONT 16
_FREEFONT Font&
GoldenShot& = HardwareImage&(TempImg&)
Targ1& = _LOADIMAGE("target.png", 32)
Pigeon& = _LOADIMAGE("pigeon1.png", 32)
END IF
IF QuackInit%% THEN
QuackInit%% = False
TempImg& = _NEWIMAGE(2 * HalfWidth% + 1, 2 * HalfHeight% + 1, 32)
_DEST TempImg&
_PUTIMAGE , Pigeon&
_PUTIMAGE (BoltX% - Parameters!(GameLevel%%, 1), BoltY% - Parameters!(GameLevel%%, 1))-(BoltX% + Parameters!(GameLevel%%, 1), BoltY% + Parameters!(GameLevel%%, 1)), Targ1&
Quacker& = HardwareImage&(TempImg&)
END IF
CALL Rotor(-720, -720, X1!, Y1!, SpiralAngle!)
CALL Rotor(720, -720, X2!, Y2!, SpiralAngle!)
CALL Rotor(-720, 720, X3!, Y3!, SpiralAngle!)
CALL Rotor(720, 720, X4!, Y4!, SpiralAngle!)
_MAPTRIANGLE (0, 0)-(1440, 0)-(0, 1440), Spiral& TO(X1! + GoldX%, Y1! + YScreen% / 2)-(X2! + GoldX%, Y2! + YScreen% / 2)-(X3! + GoldX%, Y3! + YScreen% / 2)
_MAPTRIANGLE (1440, 1440)-(0, 1440)-(1440, 0), Spiral& TO(X4! + GoldX%, Y4! + YScreen% / 2)-(X3! + GoldX%, Y3! + YScreen% / 2)-(X2! + GoldX%, Y2! + YScreen% / 2)
IF NOT AtGameStart%% THEN
FOR N%% = 0 TO 5
SELECT CASE Target!(N%%, 0)
CASE 0
X1! = GoldX% - XWidth% - BendRad% - 2 * HalfHeight%
Y1! = YScreen% - 1
X2! = X1!
Y2! = CINT(YScreen% - 1 - Target!(N%%, 1))
X3! = GoldX% - XWidth% - BendRad%
Y3! = Y1!
X4! = X3!
Y4! = Y2!
_MAPTRIANGLE (2 * HalfWidth% - Target!(N%%, 1), 0)-(2 * HalfWidth%, 0)-(2 * HalfWidth% - Target!(N%%, 1), 2 * HalfHeight%), Quacker& TO(X1!, Y1!)-(X2!, Y2!)-(X3!, Y3!)
_MAPTRIANGLE (2 * HalfWidth%, 2 * HalfHeight%)-(2 * HalfWidth% - Target!(N%%, 1), 2 * HalfHeight%)-(2 * HalfWidth%, 0), Quacker& TO(X4!, Y4!)-(X3!, Y3!)-(X2!, Y2!)
CASE 1
CALL Rotor(0, BendRad% + HalfHeight%, XCentre!, YCentre!, _PI / 2 - Target!(N%%, 1))
CALL Rotor(-HalfWidth%, HalfHeight%, X1!, Y1!, _PI / 2 - Target!(N%%, 1))
CALL Rotor(HalfWidth%, HalfHeight%, X2!, Y2!, _PI / 2 - Target!(N%%, 1))
CALL Rotor(-HalfWidth%, -HalfHeight%, X3!, Y3!, _PI / 2 - Target!(N%%, 1))
CALL Rotor(HalfWidth%, -HalfHeight%, X4!, Y4!, _PI / 2 - Target!(N%%, 1))
X1! = CINT(GoldX% - XWidth% + (X1! + XCentre!))
Y1! = CINT(YScreen% - (Y1! + YCentre!))
X2! = CINT(GoldX% - XWidth% + (X2! + XCentre!))
Y2! = CINT(YScreen% - (Y2! + YCentre!))
X3! = CINT(GoldX% - XWidth% + (X3! + XCentre!))
Y3! = CINT(YScreen% - (Y3! + YCentre!))
X4! = CINT(GoldX% - XWidth% + (X4! + XCentre!))
Y4! = CINT(YScreen% - (Y4! + YCentre!))
_MAPTRIANGLE (0, 0)-(2 * HalfWidth%, 0)-(0, 2 * HalfHeight%), Quacker& TO(X1!, Y1!)-(X2!, Y2!)-(X3!, Y3!)
_MAPTRIANGLE (2 * HalfWidth%, 2 * HalfHeight%)-(0, 2 * HalfHeight%)-(2 * HalfWidth%, 0), Quacker& TO(X4!, Y4!)-(X3!, Y3!)-(X2!, Y2!)
CASE 2
SELECT CASE Target!(N%%, 2)
CASE 1
'fall over
_PUTIMAGE (CINT(GoldX% - XWidth% - HalfWidth% + Target!(N%%, 1)), YScreen% - BendRad% - Shrink%)-(CINT(GoldX% - XWidth% - HalfWidth% + Target!(N%%, 1) + 2 * HalfWidth%), YScreen% - BendRad%), Quacker&
CASE 0
_PUTIMAGE (CINT(GoldX% - XWidth% - HalfWidth% + Target!(N%%, 1)), YScreen% - BendRad% - 2 * HalfHeight%), Quacker&
END SELECT
CASE 3
CALL Rotor(0, BendRad% + HalfHeight%, XCentre!, YCentre!, _PI / 2 - Target!(N%%, 1))
CALL Rotor(-HalfWidth%, HalfHeight%, X1!, Y1!, _PI / 2 - Target!(N%%, 1))
CALL Rotor(HalfWidth%, HalfHeight%, X2!, Y2!, _PI / 2 - Target!(N%%, 1))
CALL Rotor(-HalfWidth%, -HalfHeight%, X3!, Y3!, _PI / 2 - Target!(N%%, 1))
CALL Rotor(HalfWidth%, -HalfHeight%, X4!, Y4!, _PI / 2 - Target!(N%%, 1))
X1! = CINT(GoldX% + XWidth% + X1! + XCentre!)
Y1! = CINT(YScreen% - (Y1! + YCentre!))
X2! = CINT(GoldX% + XWidth% + X2! + XCentre!)
Y2! = CINT(YScreen% - (Y2! + YCentre!))
X3! = CINT(GoldX% + XWidth% + X3! + XCentre!)
Y3! = CINT(YScreen% - (Y3! + YCentre!))
X4! = CINT(GoldX% + XWidth% + X4! + XCentre!)
Y4! = CINT(YScreen% - (Y4! + YCentre!))
IF Target!(N%%, 2) = 0 THEN
_MAPTRIANGLE (0, 0)-(2 * HalfWidth%, 0)-(0, 2 * HalfHeight%), Quacker& TO(X1!, Y1!)-(X2!, Y2!)-(X3!, Y3!)
_MAPTRIANGLE (2 * HalfWidth%, 2 * HalfHeight%)-(0, 2 * HalfHeight%)-(2 * HalfWidth%, 0), Quacker& TO(X4!, Y4!)-(X3!, Y3!)-(X2!, Y2!)
END IF
CASE ELSE
IF Target!(N%%, 2) = 0 THEN
X1! = GoldX% + XWidth% + BendRad% + 2 * HalfHeight%
Y1! = CINT(YScreen% - 1 - HalfWidth% + Target!(N%%, 1))
X2! = X1!
Y2! = YScreen% - 1
X3! = GoldX% + XWidth% + BendRad%
Y3! = Y1!
X4! = X3!
Y4! = Y2!
_MAPTRIANGLE (0, 0)-(HalfWidth% - Target!(N%%, 1), 0)-(0, 2 * HalfHeight%), Quacker& TO(X1!, Y1!)-(X2!, Y2!)-(X3!, Y3!)
_MAPTRIANGLE (HalfWidth% - Target!(N%%, 1), 2 * HalfHeight%)-(0, 2 * HalfHeight%)-(HalfWidth% - Target!(N%%, 1), 0), Quacker& TO(X4!, Y4!)-(X3!, Y3!)-(X2!, Y2!)
END IF
END SELECT
NEXT N%%
IF GameLevel%% <= 6 THEN
IF Ready%% THEN
_PUTIMAGE (XF! - FSight%, YF! - FSight%), S1&
_PUTIMAGE (XN! - NSight%, YN! - NSight%), S2&
IF Fired%% THEN _PUTIMAGE (XGun! - BallRad%%, YGun! - BallRad%%), Slug&
_PUTIMAGE (475, 95), DispLevel&
_PUTIMAGE (722, 98), Numerals&(GameLevel%%)
IF GameLevel%% <= 5 THEN 'Display number of shots required (Always >= 10 and <= 99)
Tens%% = (Parameters!(GameLevel%%, 16)) \ 10
Units%% = Parameters!(GameLevel%%, 16) MOD 10
_PUTIMAGE (722 - 28, 152), Numerals&(Tens%%)
_PUTIMAGE (722, 152), Numerals&(Units%%)
END IF
_PUTIMAGE (GoldX% - 260, 260), ShotsTot&
IF NoShots% >= 100 THEN 'Display number of shots
NShift% = 0
ELSEIF NoShots% >= 10 THEN
NShift% = 16
ELSE
NShift% = 32
END IF
Hundreds%% = NoShots% \ 100
Tens%% = (NoShots% - (NoShots% \ 100) * 100) \ 10
Units%% = NoShots% MOD 10
IF Hundreds%% > 0 THEN _PUTIMAGE (GoldX% - 198 - NShift%, 352), Numerals&(Hundreds%%)
IF Tens%% OR Hundreds%% > 0 THEN _PUTIMAGE (GoldX% - 166 - NShift%, 352), Numerals&(Tens%%)
_PUTIMAGE (GoldX% - 134 - NShift%, 352), Numerals&(Units%%)
_PUTIMAGE (GoldX% + 40, 260), Success&
IF NoShots% > 0 THEN 'Display percentage success
PerCent%% = CINT(100 * DuckCount% / NoShots%)
IF PerCent%% >= 100 THEN
NShift% = 0
ELSEIF PerCent%% >= 10 THEN
NShift% = 16
ELSE
NShift% = 32
END IF
Hundreds%% = PerCent%% \ 100
Tens%% = (PerCent%% - (PerCent%% \ 100) * 100) \ 10
Units%% = PerCent%% MOD 10
IF Hundreds%% > 0 THEN _PUTIMAGE (GoldX% + 78 - NShift%, 352), Numerals&(Hundreds%%)
IF Tens%% > 0 OR Hundreds%% > 0 THEN _PUTIMAGE (GoldX% + 110 - NShift%, 352), Numerals&(Tens%%)
_PUTIMAGE (GoldX% + 142 - NShift%, 352), Numerals&(Units%%)
_PUTIMAGE (GoldX% + 170 - NShift%, 352), Numerals&(10)
END IF
_PUTIMAGE (GoldX% - 37, YScreen% - 50), ImReady&
ELSE
_PUTIMAGE (GoldX% - 160, 180), WonLevel&
END IF
ELSE
_PUTIMAGE (GoldX% - 96, CINT(AwardAnim% / 4) + 66 - 192), Award&
IF AwardAnim% = 4 * 192 THEN _PUTIMAGE (GoldX% - 110, 280), GoldenShot&
END IF
END IF
_PUTIMAGE , Curtains&
XMouse% = __UI_MouseLeft: YMouse% = __UI_MouseTop
IF SideBar% < XScreen% THEN _PUTIMAGE (SideBar% + XErr%%, 336), Opto& 'Display sidebar
IF AtGameStart%% THEN
'Do nothing
ELSEIF XMouse% > 1120 AND YMouse% > 340 THEN
IF SideBar% > 1120 THEN
SideBar% = SideBar% - 5
Control(GameLevelFR).Left = Control(GameLevelFR).Left - 5
Control(AudioFR).Left = Control(AudioFR).Left - 5
Control(OptionsFR).Left = Control(OptionsFR).Left - 5
IF SideBar% = 1120 THEN
SideBarIn%% = True
Control(GameLevelFR).Disabled = False
Control(AudioFR).Disabled = False
Control(OptionsFR).Disabled = False
Control(ExitBT).Disabled = False
Control(AudioOnRB).Disabled = False
Control(AudioOffRB).Disabled = False
IF NOT SideBarFlag%% THEN CALL ButtonLock((False))
END IF
END IF
ELSE
IF SideBar% < XScreen% THEN
IF SideBar% = 1120 THEN
SideBarIn%% = False
Control(GameLevelFR).Disabled = True
Control(AudioFR).Disabled = True
Control(OptionsFR).Disabled = True
Control(ExitBT).Disabled = True
Control(AudioOnRB).Disabled = True
Control(AudioOffRB).Disabled = True
CALL ButtonLock((True))
END IF
SideBar% = SideBar% + 5
Control(GameLevelFR).Left = Control(GameLevelFR).Left + 5
Control(AudioFR).Left = Control(AudioFR).Left + 5
Control(OptionsFR).Left = Control(OptionsFR).Left + 5
END IF
END IF
END SUB
SUB __UI_Click (id AS LONG)
STATIC HaveSet%%
SELECT CASE id
CASE ExitBT
IF AtGameStart%% THEN
IF HaveSet%% THEN CALL WeAreDone
SYSTEM
ELSE
Dux%% = False
StartGame%% = False
END IF
CASE ResetBT
IF AtGameStart%% THEN
AtGameStart%% = False
Caption(ResetBT) = "Reset"
Control(GameLevelFR).Disabled = False
Control(AudioFR).Disabled = False
Control(AudioOnRB).Disabled = False
Control(AudioOffRB).Disabled = False
Control(SetKeysBT).Disabled = True
CALL ButtonLock((False))
Ready%% = True
CALL MadameZora
ELSE
'Reset to level 1 & reset parameters
Dux%% = False
ReachedLevel%% = 1
GameLevel%% = ReachedLevel%%
Control(Level6RB).Disabled = True
SetRadioButtonValue Level1RB
END IF
CASE RestartLevelBT
NoShots% = 0
DuckCount% = 0
FOR N%% = 0 TO 5
Target!(N%%, 2) = 0
NEXT N%%
CASE Level1RB
IF GameLevel%% <> 1 THEN
GameLevel%% = 1
Dux%% = False
END IF
CASE Level2RB
IF GameLevel%% <> 2 THEN
GameLevel%% = 2
Dux%% = False
END IF
CASE Level3RB
IF GameLevel%% <> 3 THEN
GameLevel%% = 3
Dux%% = False
END IF
CASE Level4RB
IF GameLevel%% <> 4 THEN
GameLevel%% = 4
Dux%% = False
END IF
CASE Level5RB
IF GameLevel%% <> 5 THEN
GameLevel%% = 5
Dux%% = False
END IF
CASE Level6RB
IF GameLevel%% <> 6 THEN
GameLevel%% = 6
Dux%% = False
END IF
CASE AudioOffRB
_SNDSTOP AllTheFunoftheFair&
CASE AudioOnRB
_SNDLOOP AllTheFunoftheFair&
CASE SetKeysBT
Control(ResetBT).Disabled = True
Control(SetKeysBT).Disabled = True
CALL DispSetKeys((False))
CALL DispLHKeys((False))
CALL DispRHKeys((True))
CASE DoneBT
CALL DispSetKeys((True))
CALL DispLHKeys((True))
CALL DispRHKeys((True))
Control(ResetBT).Disabled = False
Control(SetKeysBT).Disabled = False
SetFocus ResetBT
CASE SetLeftHandKeysRB
CALL DispLHKeys((False))
CALL DispRHKeys((True))
SetRadioButtonValue NearSightUpRB
CALL KeyList(0)
CASE SetRightHandKeysRB
CALL DispLHKeys((True))
CALL DispRHKeys((False))
SetRadioButtonValue FarSightUpRB
CALL KeyList(4)
CASE NearSightUpRB
CALL KeyList(0)
CASE NearSightLeftRB
CALL KeyList(2)
CASE NearSightRightRB
CALL KeyList(3)
CASE NearSightDownRB
CALL KeyList(1)
CASE FireRB
CALL KeyList(8)
CASE FarSightUpRB
CALL KeyList(4)
CASE FarSightLeftRB
CALL KeyList(6)
CASE FarSightRightRB
CALL KeyList(7)
CASE FarSightDownRB
CALL KeyList(5)
CASE SetBT
TheItem%% = Control(SelectKeyDD).Value
IF TheItem%% > 0 THEN
HaveSet%% = True
IF Control(SetLeftHandKeysRB).Value THEN
IF Control(NearSightUpRB).Value THEN
KeyCode%(0) = ASC(GetItem$(SelectKeyDD, TheItem%%))
ELSEIF Control(NearSightLeftRB).Value THEN
KeyCode%(2) = ASC(GetItem$(SelectKeyDD, TheItem%%))
ELSEIF Control(NearSightRightRB).Value THEN
KeyCode%(3) = ASC(GetItem$(SelectKeyDD, TheItem%%))
ELSEIF Control(NearSightDownRB).Value THEN
KeyCode%(1) = ASC(GetItem$(SelectKeyDD, TheItem%%))
ELSE
KeyCode%(8) = ASC(GetItem$(SelectKeyDD, TheItem%%))
END IF
ELSE
IF Control(FarSightUpRB).Value THEN
KeyCode%(4) = ASC(GetItem$(SelectKeyDD, TheItem%%))
ELSEIF Control(FarSightLeftRB).Value THEN
KeyCode%(6) = ASC(GetItem$(SelectKeyDD, TheItem%%))
ELSEIF Control(FarSightRightRB).Value THEN
KeyCode%(7) = ASC(GetItem$(SelectKeyDD, TheItem%%))
ELSE
KeyCode%(5) = ASC(GetItem$(SelectKeyDD, TheItem%%))
END IF
END IF
END IF
CASE DefaultBT
CALL DefKeys
END SELECT
END SUB
SUB __UI_BeforeUnload
'If you set __UI_UnloadSignal = False here you can
'cancel the user's request to close.
END SUB
SUB __UI_MouseEnter (id AS LONG)
END SUB
SUB __UI_MouseLeave (id AS LONG)
END SUB
SUB __UI_FocusIn (id AS LONG)
END SUB
SUB __UI_FocusOut (id AS LONG)
END SUB
SUB __UI_MouseDown (id AS LONG)
END SUB
SUB __UI_MouseUp (id AS LONG)
END SUB
SUB __UI_KeyPress (id AS LONG)
'When this event is fired, __UI_KeyHit will contain the code of the key hit.
'You can change it and even cancel it by making it = 0
END SUB
SUB __UI_TextChanged (id AS LONG)
END SUB
SUB __UI_ValueChanged (id AS LONG)
END SUB
SUB __UI_FormResized
END SUB
SUB ButtonLock (OnOff%%)
Control(ResetBT).Disabled = OnOff%%
Control(RestartLevelBT).Disabled = OnOff%%
Control(AudioOnRB).Disabled = OnOff%%
Control(AudioOffRB).Disabled = OnOff%%
Control(Level1RB).Disabled = OnOff%%
Control(Level2RB).Disabled = OnOff%%
Control(Level3RB).Disabled = OnOff%%
Control(Level4RB).Disabled = OnOff%%
Control(Level5RB).Disabled = OnOff%%
IF OnOff%% THEN
Control(Level6RB).Disabled = True
ELSEIF GameLevel%% = 6 OR GameLevel%% = 7 THEN
Control(Level6RB).Disabled = False
END IF
END SUB
SUB DispSetKeys (OnOff%%)
Control(SetKeysFR).Disabled = OnOff%%
Control(SetLeftHandKeysRB).Disabled = OnOff%%
Control(SetRightHandKeysRB).Disabled = OnOff%%
Control(DoneBT).Disabled = OnOff%%
Control(SelectKeyFR).Disabled = OnOff%%
Control(SelectKeyDD).Disabled = OnOff%%
Control(SelectKeyLB).Disabled = OnOff%%
Control(SetBT).Disabled = OnOff%%
Control(SetKeysFR).Hidden = OnOff%%
Control(SetLeftHandKeysRB).Hidden = OnOff%%
Control(SetRightHandKeysRB).Hidden = OnOff%%
Control(DoneBT).Hidden = OnOff%%
Control(SelectKeyFR).Hidden = OnOff%%
Control(SelectKeyDD).Hidden = OnOff%%
Control(SelectKeyLB).Hidden = OnOff%%
Control(SetBT).Hidden = OnOff%%
END SUB
SUB DispLHKeys (OnOff%%)
IF NOT OnOff%% THEN
Control(RightHandKeysFR).Left = GoldX% + 30
Control(LeftHandKeysFR).Left = GoldX% - 200
ELSE
Control(LeftHandKeysFR).Left = GoldX% - 400
Control(RightHandKeysFR).Left = GoldX% - 200
END IF
Control(LeftHandKeysFR).Disabled = OnOff%%
Control(NearSightUpRB).Disabled = OnOff%%
Control(NearSightLeftRB).Disabled = OnOff%%
Control(NearSightRightRB).Disabled = OnOff%%
Control(NearSightDownRB).Disabled = OnOff%%
Control(FireRB).Disabled = OnOff%%
Control(LeftHandKeysFR).Hidden = OnOff%%
Control(NearSightUpRB).Hidden = OnOff%%
Control(NearSightLeftRB).Hidden = OnOff%%
Control(NearSightRightRB).Hidden = OnOff%%
Control(NearSightDownRB).Hidden = OnOff%%
Control(FireRB).Hidden = OnOff%%
END SUB
SUB DispRHKeys (OnOff%%)
Control(RightHandKeysFR).Disabled = OnOff%%
Control(FarSightUpRB).Disabled = OnOff%%
Control(FarSightLeftRB).Disabled = OnOff%%
Control(FarSightRightRB).Disabled = OnOff%%
Control(FarSightDownRB).Disabled = OnOff%%
Control(RightHandKeysFR).Hidden = OnOff%%
Control(FarSightUpRB).Hidden = OnOff%%
Control(FarSightLeftRB).Hidden = OnOff%%
Control(FarSightRightRB).Hidden = OnOff%%
Control(FarSightDownRB).Hidden = OnOff%%
END SUB
SUB KeyList (I%%)
CALL WriteList(I%%)
Caption(SelectKeyLB) = "Select Key (Currently " + SelKey$(I%%) + "):"
END SUB
SUB WriteList (Ix%%)
ResetList SelectKeyDD
FOR N%% = 1 TO LEN(KeysList$)
IF MID$(KeysList$, N%%, 1) <> SelKey$(Ix%%) THEN AddItem SelectKeyDD, MID$(KeysList$, N%%, 1)
NEXT N%%
END SUB
SUB DefKeys
FOR N%% = 0 TO 8
KeyCode%(N%%) = KeyCodeDef%(N%%)
NEXT N%%
END SUB
SUB MadameZora
WHILE StartGame%%
CALL InitParams(X0Step!, Y0Step!, O0Step!, O1Step!, Omega!, X0!, Omega0!, Y0!, Omega1!)
XN! = GoldX% + 2 * Parameters!(GameLevel%%, 7) * (RND - 0.5)
YN! = GoldY% + 2 * Parameters!(GameLevel%%, 11) * (RND - 0.5)
VYN! = Parameters!(GameLevel%%, 3) * RND 'Always a tendency to drop
Alpha! = 2 * _PI * (RND - 0.5)
RFD! = MaxDev% * RND
XFD! = RFD! * COS(Alpha!)
YFD! = RFD! * SIN(Alpha!)
VXF! = Parameters!(GameLevel%%, 4) * (RND - 0.5)
VYF! = Parameters!(GameLevel%%, 4) * RND 'Always a tendency to drop
XF! = XN! + XFD!
YF! = YN! + YFD!
XFprev! = XF!
YFprev! = YF!
Count0% = 0
Count1% = 0
XNDev! = X0! * SIN(Omega0! * Count0%)
YNDev! = Y0! * SIN(Omega1! * Count1%)
XNprev! = XNDev!
YNprev! = YNDev!
FireCount% = CanFire%
Fired%% = False
NoShots% = 0
DuckCount% = 0
WhatLevel% = AtNextLevel%
Dux%% = True
WHILE Dux%%
_LIMIT FrameRate%
IF Parameters!(GameLevel%%, 15) > 0 THEN 'Rotate Spiral
SpiralAngle! = SpiralAngle! + Parameters!(GameLevel%%, 15)
IF SpiralAngle! > _PI THEN SpiralAngle! = SpiralAngle! - 2 * _PI
END IF
FOR N%% = 0 TO 5 'Calculate target parameters
SELECT CASE Target!(N%%, 0)
CASE 0
Target!(N%%, 1) = Target!(N%%, 1) + Parameters!(GameLevel%%, 0)
IF Target!(N%%, 1) >= HalfWidth% THEN
Target!(N%%, 0) = 1
Target!(N%%, 1) = 0
END IF
CASE 1
Target!(N%%, 1) = Target!(N%%, 1) + Omega!
IF Target!(N%%, 1) >= _PI / 2 THEN
Target!(N%%, 0) = 2
Target!(N%%, 1) = 0
IF N%% = 0 THEN 'This constantly and imperceptively re-adjusts spacings to set value
Target!(5, 1) = 2 * HalfWidth% + Spacing!
ELSE
Target!(N%% - 1, 1) = 2 * HalfWidth% + Spacing!
END IF
END IF
CASE 2
IF Target!(N%%, 2) = 1 THEN
'fall over
Shrink% = Shrink% - 2.5
IF Shrink% <= 2 THEN Target!(N%%, 2) = 2
END IF
Target!(N%%, 1) = Target!(N%%, 1) + Parameters!(GameLevel%%, 0)
IF Target!(N%%, 1) >= 2 * XWidth% THEN
Target!(N%%, 0) = 3
Target!(N%%, 1) = _PI / 2
END IF
CASE 3
Target!(N%%, 1) = Target!(N%%, 1) + Omega!
IF Target!(N%%, 1) >= _PI THEN
Target!(N%%, 0) = 4
Target!(N%%, 1) = 0
END IF
CASE ELSE
Target!(N%%, 1) = Target!(N%%, 1) + Parameters!(GameLevel%%, 0)
IF Target!(N%%, 1) >= HalfWidth% THEN
Target!(N%%, 0) = 0
Target!(N%%, 1) = 0
Target!(N%%, 2) = 0
IF N%% = 5 THEN
RANDOMIZE (TIMER)
VYN! = Parameters!(GameLevel%%, 3) * RND
VXF! = Parameters!(GameLevel%%, 4) * (RND - 0.5)
VYF! = Parameters!(GameLevel%%, 4) * RND
END IF
END IF
END SELECT
NEXT N%%
__UI_DoEvents
IF GameLevel%% <= 6 THEN 'Calculate Rifle Parameters
Count0% = Count0% + 1
IF Omega0! * Count0% > _PI THEN Count0% = CINT(-_PI / Omega0!)
Count1% = Count1% + 1
IF Omega1! * Count1% > _PI THEN Count1% = CINT(-_PI / Omega1!)
XF! = XN! + XFD!
YF! = YN! + YFD!
XFDelta! = XF! - XFprev!
YFDelta! = YF! - YFprev!
XFprev! = XF!
YFprev! = YF!
XN! = XN! + RForce! * (GoldX% - XN!) + XNDelta! 'VXN! is zero
YN! = YN! + RForce! * (GoldY% - YN!) + VYN! + YNDelta!
XFD! = XFD! + VXF!
YFD! = YFD! + VYF!
XNDev! = X0! * SIN(Omega0! * Count0%)
XNDelta! = XNDev! - XNprev!
XNprev! = XNDev!
IF XUp%% THEN
X0! = X0! + X0Step!
IF RND > TRand! OR X0! > Parameters!(GameLevel%%, 7) THEN XUp%% = False
ELSE
X0! = X0! - X0Step!
IF RND > TRand! OR X0! < Parameters!(GameLevel%%, 8) THEN XUp%% = True
END IF
IF O0Up%% THEN
Omega0! = Omega0! + O0Step!
IF RND > TRand! OR Omega0! > Parameters!(GameLevel%%, 9) THEN O0Up%% = False
ELSE
Omega0! = Omega0! - O0Step!
IF RND > TRand! OR Omega0! < Parameters!(GameLevel%%, 10) THEN O0Up%% = True
END IF
YNDev! = Y0! * SIN(Omega1! * Count1%)
YNDelta! = YNDev! - YNprev!
YNprev! = YNDev!
IF YUp%% THEN
Y0! = Y0! + Y0Step!
IF RND > TRand! OR Y0! > Parameters!(GameLevel%%, 11) THEN YUp%% = False
ELSE
Y0! = Y0! - Y0Step!
IF RND > TRand! OR Y0! < Parameters!(GameLevel%%, 12) THEN YUp%% = True
END IF
IF O1Up%% THEN
Omega1! = Omega1! + O1Step!
IF RND > TRand! OR Omega1! > Parameters!(GameLevel%%, 13) THEN O1Up%% = False
ELSE
Omega1! = Omega1! - O1Step!
IF RND > TRand! OR Omega1! < Parameters!(GameLevel%%, 14) THEN O1Up%% = True
END IF
ELSE
IF AwardAnim% = 0 THEN _SNDPLAYFILE "fanfare.mp3"
IF AwardAnim% < 4 * 192 THEN
AwardAnim% = AwardAnim% + 1
ELSEIF SideBarFlag%% THEN
IF SideBarIn%% THEN CALL ButtonLock((False))
SideBarFlag%% = False
END IF
END IF
IF _KEYDOWN(27) THEN
Dux%% = False
StartGame%% = False
ELSEIF GameLevel%% <= 6 AND Ready%% THEN
IF _KEYDOWN(KeyCode%(0)) THEN YN! = YN! - PosStep! 'Up (Default w)
IF _KEYDOWN(KeyCode%(1)) THEN YN! = YN! + PosStep! 'Down (Default z)
IF _KEYDOWN(KeyCode%(2)) THEN XN! = XN! - PosStep! 'Left (Default a)
IF _KEYDOWN(KeyCode%(3)) THEN XN! = XN! + PosStep! 'Right (Default d)
IF _KEYDOWN(KeyCode%(4)) THEN YFD! = YFD! - AimStep! 'Aim Up (Default p)
IF _KEYDOWN(KeyCode%(5)) THEN YFD! = YFD! + AimStep! 'Aim Down (Default .)
IF _KEYDOWN(KeyCode%(6)) THEN XFD! = XFD! - AimStep! 'Aim Left (Default l)
IF _KEYDOWN(KeyCode%(7)) THEN XFD! = XFD! + AimStep! 'Aim Right (Default ')
IF _KEYDOWN(KeyCode%(8)) AND FireCount% = CanFire% THEN 'Fire (Default s)
_SNDPLAYFILE "22handgun.mp3"
FireCount% = 0
Fired%% = True
ZGun! = 0
XGun! = XF!
YGun! = YF!
IF NoShots% < 999 THEN NoShots% = NoShots% + 1 'Will Not Display > 999 shots
Hundreds%% = NoShots% \ 100
Tens%% = (NoShots% - (NoShots% \ 100) * 100) \ 10
Units%% = NoShots% MOD 10
AimDevX! = XN! - XF!
AimDevY! = YN! - YF!
END IF
END IF
IF GameLevel%% <= 6 THEN
IF XN! - GoldX% > Parameters!(GameLevel%%, 7) THEN
XN! = GoldX% + Parameters!(GameLevel%%, 7)
ELSEIF XN! - GoldX% < -Parameters!(GameLevel%%, 7) THEN
XN! = GoldX% - Parameters!(GameLevel%%, 7)
END IF
IF YN! - GoldY% > Parameters!(GameLevel%%, 11) THEN
YN! = GoldY% + Parameters!(GameLevel%%, 11)
ELSEIF YN! - GoldY% < -Parameters!(GameLevel%%, 11) THEN
YN! = GoldY% - Parameters!(GameLevel%%, 11)
END IF
RFD! = SQR(XFD! * XFD! + YFD! * YFD!)
Alpha! = _ATAN2(YFD!, XFD!)
IF RFD! > MaxDev% THEN 'Tends to move towards set direction
YFD! = MaxDev% * SIN(Alpha!)
XFD! = MaxDev% * COS(Alpha!)
END IF
IF FireCount% < CanFire% THEN FireCount% = FireCount% + 1
IF Fired%% THEN
ZGun! = ZGun! - BulletSpeed!
XGun! = XGun! + XFDelta! + Parameters!(GameLevel%%, 6) * AimDevX! * (ZGun! / ZTargetDist%)
YGun! = YGun! + YFDelta! + Parameters!(GameLevel%%, 6) * AimDevY! * (ZGun! / ZTargetDist%) + Parameters!(GameLevel%%, 5)
IF ZGun! < -ZTargetDist% THEN 'Only if going along
IF XGun! > GoldX% - XWidth% + 73 AND XGun! < GoldX% + XWidth% - 73 THEN
N%% = 0
WHILE N%% <= 5
XB! = GoldX% - XWidth% - HalfWidth% + Target!(N%%, 1) + BoltX% - XGun!
YB! = YScreen% - BendRad% - 2 * HalfHeight% + BoltY% - YGun!
RB! = XB! * XB! + YB! * YB!
IF RB! <= Parameters!(GameLevel%%, 1) * Parameters!(GameLevel%%, 1) AND Target!(N%%, 2) = 0 THEN
P! = EXP(-RB! / Parameters!(GameLevel%%, 2))
IF RND < P! THEN
_SNDPLAYFILE "fallover1.mp3"
Shrink% = 2 * HalfHeight%
Target!(N%%, 2) = 1 '0 not hit, 1 hit (falling), 2 hit (fallen)
IF DuckCount% < 999 THEN DuckCount% = DuckCount% + 1 'To keep DuckCount% <= NoShots%
IF NoShots% >= Parameters!(GameLevel%%, 16) AND (DuckCount% / NoShots%) >= 0.9 AND GameLevel%% = ReachedLevel%% THEN
NoShots% = 0
DuckCount% = 0
WhatLevel% = 0
Ready%% = False
Control(AudioFR).Disabled = True
Control(GameLevelFR).Disabled = True
CALL ButtonLock((True))
SideBarFlag%% = True
END IF
N%% = 6
ELSE
N%% = N%% + 1
END IF
ELSE
N%% = N%% + 1
END IF
WEND
END IF
Fired%% = False
END IF
END IF
IF WhatLevel% < AtNextLevel% THEN
WhatLevel% = WhatLevel% + 1
IF WhatLevel% = FrameRate% THEN
_SNDPLAYFILE "tada.mp3"
ELSEIF WhatLevel% = AtNextLevel% THEN 'This will happen after target has fallen over
IF GameLevel%% <= 4 THEN
SELECT CASE GameLevel%%
CASE 1
SetRadioButtonValue Level2RB
CASE 2
SetRadioButtonValue Level3RB
CASE 3
SetRadioButtonValue Level4RB
CASE ELSE
SetRadioButtonValue Level5RB
END SELECT
ReachedLevel%% = ReachedLevel%% + 1
ELSE
ReachedLevel%% = 7
Control(Level6RB).Disabled = False
END IF
GameLevel%% = ReachedLevel%%
CALL InitParams(X0Step!, Y0Step!, O0Step!, O1Step!, Omega!, X0!, Omega0!, Y0!, Omega1!)
Ready%% = True
IF SideBarIn%% THEN CALL ButtonLock((False))
SideBarFlag%% = False
END IF
END IF
END IF
WEND
WEND
_SNDCLOSE AllTheFunoftheFair&
_FREEIMAGE Quacker&
CALL WeAreDone
SYSTEM
END SUB
SUB Rotor (XIn!, YIn!, XOut!, YOut!, Theta!)
XOut! = XIn! * COS(Theta!) - YIn! * SIN(Theta!)
YOut! = XIn! * SIN(Theta!) + YIn! * COS(Theta!)
END SUB
SUB InitParams (X00Step!, Y00Step!, O00Step!, O10Step!, Mega!, X00!, Omega00!, Y00!, Omega10!)
QuackInit%% = True
X00Step! = (Parameters!(GameLevel%%, 7) - Parameters!(GameLevel%%, 8)) / (15 * FrameRate%)
Y00Step! = (Parameters!(GameLevel%%, 11) - Parameters!(GameLevel%%, 12)) / (15 * FrameRate%)
O00Step! = (Parameters!(GameLevel%%, 9) - Parameters!(GameLevel%%, 10)) / (30 * FrameRate%)
O10Step! = (Parameters!(GameLevel%%, 13) - Parameters!(GameLevel%%, 14)) / (30 * FrameRate%)
Mega! = Parameters!(GameLevel%%, 0) / (BendRad% + HalfHeight%)
X00! = (Parameters!(GameLevel%%, 7) - Parameters!(GameLevel%%, 8)) * RND + Parameters!(GameLevel%%, 8)
Omega00! = (Parameters!(GameLevel%%, 9) - Parameters!(GameLevel%%, 10)) * RND + Parameters!(GameLevel%%, 10)
Y00! = (Parameters!(GameLevel%%, 11) - Parameters!(GameLevel%%, 12)) * RND + Parameters!(GameLevel%%, 12)
Omega10! = (Parameters!(GameLevel%%, 13) - Parameters!(GameLevel%%, 14)) * RND + Parameters!(GameLevel%%, 14)
FOR N%% = 0 TO 5
Target!(N%%, 2) = 0
NEXT N%%
END SUB
SUB WeAreDone
OPEN "ducks.cfg" FOR OUTPUT AS #1
FOR N%% = 0 TO 8
PRINT #1, KeyCode%(N%%)
NEXT N%%
PRINT #1, ReachedLevel%%
CLOSE #1
END SUB
'$INCLUDE:'InForm\InForm.ui'RE: Fairground Duck Shoot Simulation Game - grymmjack - 01-12-2026
@Magdha well done, also good job on actually providing a manual, without which I could not have played.
TL;DR: I am on Debian Trixie and here is what I did to test your program:
- Download the zip
- Extract it as directed to the qb64pe install dir - which created DuckShoot
- Created a symbolic link to InForm library (I don't want to have multiple copies on disk so I used cd ~/git/qb64pe/DuckShoot && ln -s /home/grymmjack/git/InForm-PE/InForm /home/grymmjack/git/qb64pe/DuckShoot/InForm
- Compiled and ran
Everything worked great, except the font size (and this could be a display issue with KDE Plasma 6 and my display scaling which is set to 150%) and perhaps is scaling the fonts vs. what you expect as the programmer, and pressing Exit threw an error.
Otherwise worked great.
See screenshots.
![[Image: Screenshot-20260112-075305.png]](https://i.ibb.co/x8hk7F3s/Screenshot-20260112-075305.png)
![[Image: Screenshot-20260112-075622.png]](https://i.ibb.co/tpGdXcCV/Screenshot-20260112-075622.png)
@a740g I tried the following to test my theory (which works for GTK and QT apps but I think since the window isn't providing a class, it can't do these things properly).
QT_SCALE_FACTOR=1 GDK_DPI_SCALE=1 ./Duck\ Shoot
See screenshot for the window class missing - this is from right click on the title bar of the window and then more actions -> set application settings (like advanced properties)
After thinking about this, I think trying to use a QT or GDK env var to scale, was failing because InForm-PE doesn't use either framework (qt or GTK) which duh, of course it doesn't. But I wonder why the font geometry/etc. is different for my computer than the OPs.
![[Image: Screenshot-20260112-080137.png]](https://i.ibb.co/bgNF0BgM/Screenshot-20260112-080137.png)
If the window does not provide a class, any tips on scaling for InForm PE programs and Wayland? That's another important point, on Wayland, not X11.
RE: Fairground Duck Shoot Simulation Game - Magdha - 01-12-2026
@grymmjack well thanks very much for trying it. All of the stuff that I'm shovelling into my Prolifics folder is work from olden days (QB64 v2) and put here for archiving reasons. I was pretty sure that virtually no-one would try it here, so thanks again. I'm hoping that our expert @a740g will be able to answer your technical stuff.
Richard
RE: Fairground Duck Shoot Simulation Game - grymmjack - 01-12-2026
@Magdha
OK I found the issue with the font (thanks @a740g)
In Linux I was missing Segoe UI font.
So I downloaded it from here:
https://github.com/mrbvrz/segoe-ui-linux
Then copied the file into the same directory as the executable:
cp /home/grymmjack/.local/share/fonts/Microsoft/TrueType/SegoeUI/segoeui.ttf
./Duck\ Shoot
and font is fixed
the crash on exit still happens, but the program works and looks good as you intended with that font. Might want to mention that and include the instructions for getting Segoe UI for linux users in your OP.
RE: Fairground Duck Shoot Simulation Game - Magdha - 01-12-2026
@grymmjack thanks for letting me know about the Segoe UI font which is a default for InForm forms. I usually specifically include any font I use within the project folder. @a740g should I have to include the default InForm font in any InForm project? I suppose not because its deep inside InForm & Windows has it in its Font folder. Probably worth a mention in any thread that InForm needs this font. As you can tell, I'm out of my depth here.
RE: Fairground Duck Shoot Simulation Game - a740g - 01-12-2026
InForm can use fallback fonts, but only if you allow it to do so.
See https://github.com/QB64-Phoenix-Edition/InForm-PE/blob/f342fcc31f1fd55108caec747f6b39c1abcd9414/InForm/InFormCommon.bi#L137
and
https://github.com/QB64-Phoenix-Edition/InForm-PE/blob/f342fcc31f1fd55108caec747f6b39c1abcd9414/InForm/UiEditor.frm#L12
NotoMono-Regular.ttf is always in InForm/resources. You may use that if you want your app to look the same on all OSes. But you'll need to bundle that along with the source or executable (depending on how your are sharing it).
Embedding a font also works great if you are only publishing binaries.
RE: Fairground Duck Shoot Simulation Game - grymmjack - 01-12-2026
This also came up in the Discord and Tony3608 shared how he embeds a font:
Code: (Select All)
$Embed:'./SPL.TTF','myfont'
Dim Shared Myfont&
Myfont& = _LoadFont(_Embedded$("myfont"), 20, "MEMORY|MONO|BOLD")
Obviously change ./SPL.TTF to the one you use
@Magdha @a740g FYI
RE: Fairground Duck Shoot Simulation Game - Dav - 01-22-2026
This Looks fun. I’ve downloaded this to play with over the weekend. You sure do have a wide variety of projects!
- Dav
RE: Fairground Duck Shoot Simulation Game - Magdha - 01-22-2026
@Dav If grymmjack hadn't recommended this program, I'd have said don't bother with this one. It's only here for archival reasons. It's my least favourite project and I nearly didn't put it here. My interest was in the movement of the targets (_MAPTRIANGLE) and not so much in making an interesting game to play. But as I said, grymmjack seemed to like it.
RE: Fairground Duck Shoot Simulation Game - Magdha - 01-26-2026
@Dav I'm rather hoping that you didn't try this over the weekend. It seems the zip folder created problems. I fixed that and the extracted project will work correctly.