Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uGearsRender.pas
changeset 8681 d0fc1dca739c
parent 8656 a8282143a8df
child 8684 fd1f2bf5ffad 
--- a/hedgewars/uGearsRender.pas	Wed Mar 06 17:06:35 2013 -0500
+++ b/hedgewars/uGearsRender.pas	Wed Mar 06 19:50:25 2013 -0500
@@ -759,7 +759,7 @@
 
     end else // not gstHHDriven
         begin
-        if (Gear^.Damage > 0)
+        if (Gear^.Damage > 0) and (HH^.Effects[heFrozen] = 0)
         and (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) > _0_003) then
             begin
             DrawHedgehog(sx, sy,
@@ -948,7 +948,7 @@
     if HH^.Effects[heFrozen] < 150000 then
         begin
         if HH^.Effects[heFrozen] < 150000 then
-            Tint($FF, $FF, $FF, min(255,127+HH^.Effects[heFrozen] div 1200));
+            Tint($FF, $FF, $FF, min(255,127+HH^.Effects[heFrozen] div 800));
 
         iceOffset:= trunc(min(256,HH^.Effects[heFrozen]) / 256 * 64);
         r.x := 128;
hedgewars