hedgewars/uGearsHedgehog.pas
changeset 12820 92218a06c9ff
parent 12654 2837dee472cc
child 12846 afd312fc270d
--- a/hedgewars/uGearsHedgehog.pas	Wed Nov 01 00:04:45 2017 +0100
+++ b/hedgewars/uGearsHedgehog.pas	Wed Nov 01 20:52:06 2017 +0100
@@ -30,6 +30,7 @@
 procedure PickUp(HH, Gear: PGear);
 procedure AddPickup(HH: THedgehog; ammo: TAmmoType; cnt, X, Y: LongWord);
 procedure CheckIce(Gear: PGear); inline;
+procedure PlayTaunt(taunt: Longword);
 
 implementation
 uses uConsts, uVariables, uFloat, uAmmos, uSound, uCaptions,
@@ -1551,4 +1552,15 @@
     end;
 end;
 
+procedure PlayTaunt(taunt: Longword);
+begin
+    if CurrentHedgehog^.Gear <> nil then
+        with CurrentHedgehog^.Gear^ do
+            begin
+            Message:= Message or (gmAnimate and InputMask);
+            MsgParam:= taunt;
+            ScriptCall('onTaunt', MsgParam);
+            end
+end;
+
 end.