diff -r 684169401a2f -r 286ebfcb3d97 hedgewars/uGears.pas --- a/hedgewars/uGears.pas Mon Feb 25 12:29:39 2013 -0500 +++ b/hedgewars/uGears.pas Mon Feb 25 12:54:50 2013 -0500 @@ -46,7 +46,8 @@ procedure ProcessGears; procedure EndTurnCleanup; procedure SetAllToActive; -procedure SetAllHHToActive; +procedure SetAllHHToActive; inline; +procedure SetAllHHToActive(Ice: boolean); procedure DrawGears; procedure FreeGearsList; procedure AddMiscGears; @@ -561,7 +562,12 @@ end end; -procedure SetAllHHToActive; +procedure SetAllHHToActive; inline; +begin +SetAllHHToActive(true) +end; + +procedure SetAllHHToActive(Ice: boolean); var t: PGear; begin AllInactive:= false; @@ -570,14 +576,13 @@ begin if (t^.Kind = gtHedgehog) or (t^.Kind = gtExplosives) then begin - if t^.Kind = gtHedgehog then CheckIce(t); + if (t^.Kind = gtHedgehog) and Ice then CheckIce(t); t^.Active:= true end; t:= t^.NextGear end end; - procedure DrawGears; var Gear: PGear; x, y: LongInt;