# HG changeset patch # User unc0rr # Date 1290021689 -10800 # Node ID d1d5c1a57a50e21bd4960a75a3251d4c607ef34c # Parent 334fc848e0511f301de9fe6feb355c3889661eeb uGears diff -r 334fc848e051 -r d1d5c1a57a50 hedgewars/uGears.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; diff -r 334fc848e051 -r d1d5c1a57a50 hedgewars/uStats.pas --- 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; diff -r 334fc848e051 -r d1d5c1a57a50 hedgewars/uVariables.pas --- 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;