--- a/hedgewars/uGears.pas Wed Nov 17 22:19:58 2010 +0300
+++ b/hedgewars/uGears.pas Wed Nov 17 22:21:29 2010 +0300
@@ -22,19 +22,6 @@
interface
uses SDLh, uConsts, uFloat, Math, uTypes;
-
-var AllInactive: boolean;
- PrvInactive: boolean;
- KilledHHs: Longword;
- SuddenDeathDmg: Boolean;
- SpeechType: Longword;
- SpeechText: shortstring;
- TrainingTargetGear: PGear;
- skipFlag: boolean;
- PlacingHogs: boolean; // a convenience flag to indicate placement of hogs is still in progress
- StepSoundTimer: LongInt;
- StepSoundChannel: LongInt;
-
procedure initModule;
procedure freeModule;
function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear;
--- a/hedgewars/uStats.pas Wed Nov 17 22:19:58 2010 +0300
+++ b/hedgewars/uStats.pas Wed Nov 17 22:21:29 2010 +0300
@@ -20,7 +20,7 @@
unit uStats;
interface
-uses uGears, uConsts, uTypes;
+uses uConsts, uTypes;
var TotalRounds: LongInt;
FinishedTurnsTotal: LongInt;
--- a/hedgewars/uVariables.pas Wed Nov 17 22:19:58 2010 +0300
+++ b/hedgewars/uVariables.pas Wed Nov 17 22:21:29 2010 +0300
@@ -2000,6 +2000,17 @@
digest: shortstring;
CurAmmoGear: PGear;
GearsList: PGear;
+ AllInactive: boolean;
+ PrvInactive: boolean;
+ KilledHHs: Longword;
+ SuddenDeathDmg: Boolean;
+ SpeechType: Longword;
+ SpeechText: shortstring;
+ TrainingTargetGear: PGear;
+ skipFlag: boolean;
+ PlacingHogs: boolean; // a convenience flag to indicate placement of hogs is still in progress
+ StepSoundTimer: LongInt;
+ StepSoundChannel: LongInt;
CurrentTeam: PTeam;
PreviousTeam: PTeam;
@@ -2027,7 +2038,6 @@
{$ENDIF}
cOffsetY: LongInt;
-
procedure initModule;
procedure freeModule;