hedgewars/GSHandlers.inc
branchicegun
changeset 8563 4d9d8287e601
parent 8560 134a098235fa
child 8565 a431fa208a45
--- a/hedgewars/GSHandlers.inc	Sun Feb 24 21:44:40 2013 -0500
+++ b/hedgewars/GSHandlers.inc	Sun Feb 24 23:07:46 2013 -0500
@@ -2382,7 +2382,9 @@
 
         repeat
             CurrentTeam^.CurrHedgehog := Succ(CurrentTeam^.CurrHedgehog) mod (CurrentTeam^.HedgehogsNumber);
-        until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil) and (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear^.Damage = 0) and (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Effects[heFrozen]=0);
+        until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil) and 
+              (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear^.Damage = 0) and 
+              (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Effects[heFrozen]=0);
 
         SwitchCurrentHedgehog(@CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog]);
         AmmoMenuInvalidated:= true; 
@@ -5074,6 +5076,7 @@
     X:= Hedgehog^.Gear^.X;
     Y:= Hedgehog^.Gear^.Y;
     //unfreeze all semifrozen hogs - make this generic hog cleanup
+(*
     iter := GearsList;
     while iter <> nil do
         begin
@@ -5082,6 +5085,7 @@
         iter^.Hedgehog^.Effects[heFrozen]:= 0;
         iter:= iter^.NextGear
         end 
+*)
   end;
 end;
 
@@ -5243,11 +5247,14 @@
                     begin
                         if hogs.ar^[i] <> HHGear then
                         begin
-                            if GameTicks mod 10 = 0 then 
+                            if GameTicks mod 5 = 0 then 
                             if hogs.ar^[i]^.Hedgehog^.Effects[heFrozen] < 256 then
                                 hogs.ar^[i]^.Hedgehog^.Effects[heFrozen] := hogs.ar^[i]^.Hedgehog^.Effects[heFrozen] + 1
                             else if hogs.ar^[i]^.Hedgehog^.Effects[heFrozen] = 256 then
+                                begin
                                 hogs.ar^[i]^.Hedgehog^.Effects[heFrozen]:= 100000;
+                                hogs.ar^[i]^.Active:= true
+                                end;
                         end;                        
                     end;
                 inc(Pos)