equal
deleted
inserted
replaced
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 unit uGears; |
21 unit uGears; |
22 interface |
22 interface |
23 uses SDLh, uConsts, uFloat, Math, uTypes; |
23 uses SDLh, uConsts, uFloat, Math, uTypes; |
24 |
|
25 |
|
26 var AllInactive: boolean; |
|
27 PrvInactive: boolean; |
|
28 KilledHHs: Longword; |
|
29 SuddenDeathDmg: Boolean; |
|
30 SpeechType: Longword; |
|
31 SpeechText: shortstring; |
|
32 TrainingTargetGear: PGear; |
|
33 skipFlag: boolean; |
|
34 PlacingHogs: boolean; // a convenience flag to indicate placement of hogs is still in progress |
|
35 StepSoundTimer: LongInt; |
|
36 StepSoundChannel: LongInt; |
|
37 |
24 |
38 procedure initModule; |
25 procedure initModule; |
39 procedure freeModule; |
26 procedure freeModule; |
40 function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear; |
27 function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear; |
41 function SpawnCustomCrateAt(x, y: LongInt; crate: TCrateType; content: Longword ): PGear; |
28 function SpawnCustomCrateAt(x, y: LongInt; crate: TCrateType; content: Longword ): PGear; |