uGears
authorunc0rr
Wed, 17 Nov 2010 22:21:29 +0300
changeset 4370 d1d5c1a57a50
parent 4369 334fc848e051
child 4371 ae172b2b03ed
uGears
hedgewars/uGears.pas
hedgewars/uStats.pas
hedgewars/uVariables.pas
--- 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;