--- 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;