hedgewars/uGears.pas
changeset 14046 44f20c9e6861
parent 13881 aa321e51da14
child 14201 ab5e710d353d
--- a/hedgewars/uGears.pas	Wed Oct 31 13:08:56 2018 +0100
+++ b/hedgewars/uGears.pas	Wed Oct 31 13:35:53 2018 +0100
@@ -163,7 +163,7 @@
                 inc(Gear^.Damage, tmp);
                 if tmp > 0 then
                     // Make hedgehog moan on damage
-                    HHHurt(Gear^.Hedgehog, dsPoison);
+                    HHHurt(Gear^.Hedgehog, dsPoison, tmp);
                 end
             end;
 
@@ -509,7 +509,9 @@
     end;
 AddRandomness(CheckSum);
 TurnClockActive:= prevtime <> TurnTimeLeft;
-inc(GameTicks)
+inc(GameTicks);
+if (OuchTauntTimer > 0) then
+    dec(OuchTauntTimer);
 end;
 
 //Purpose, to reset all transient attributes toggled by a utility and clean up various gears and effects at end of turn