hedgewars/uGears.pas
changeset 4370 d1d5c1a57a50
parent 4368 b89235e401e5
child 4372 3836973380b9
--- 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;