# HG changeset patch
# User nemo
# Date 1416785111 18000
# Node ID d347ffa7e3723a479bd4590df01f9409378dfaf3
# Parent  37b0e1f92e3c6a42d156fb4dbca9dae3e846575c
make seduction thaw a frozen hog.

diff -r 37b0e1f92e3c -r d347ffa7e372 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);