make seduction thaw a frozen hog.
authornemo
Sun, 23 Nov 2014 18:25:11 -0500
changeset 10545 d347ffa7e372
parent 10544 37b0e1f92e3c
child 10546 339a005eab14
make seduction thaw a frozen hog.
hedgewars/uGearsHandlersMess.pas
--- a/hedgewars/uGearsHandlersMess.pas	Sun Nov 23 18:10:15 2014 -0500
+++ b/hedgewars/uGearsHandlersMess.pas	Sun Nov 23 18:25:11 2014 -0500
@@ -3099,6 +3099,8 @@
                     dY:= -_450 * cGravity;
                     Active:= true;
                     end
+                else if Hedgehog^.Effects[heFrozen] > 255 then
+                    Hedgehog^.Effects[heFrozen]:= 255
         end ;
         AfterAttack;
         DeleteGear(Gear);