hedgewars/uGearsHedgehog.pas
changeset 12820 92218a06c9ff
parent 12654 2837dee472cc
child 12846 afd312fc270d
equal deleted inserted replaced
12819:b4e20bb485f9 12820:92218a06c9ff
    28 procedure doStepHedgehogMoving(Gear: PGear);
    28 procedure doStepHedgehogMoving(Gear: PGear);
    29 procedure HedgehogChAngle(HHGear: PGear);
    29 procedure HedgehogChAngle(HHGear: PGear);
    30 procedure PickUp(HH, Gear: PGear);
    30 procedure PickUp(HH, Gear: PGear);
    31 procedure AddPickup(HH: THedgehog; ammo: TAmmoType; cnt, X, Y: LongWord);
    31 procedure AddPickup(HH: THedgehog; ammo: TAmmoType; cnt, X, Y: LongWord);
    32 procedure CheckIce(Gear: PGear); inline;
    32 procedure CheckIce(Gear: PGear); inline;
       
    33 procedure PlayTaunt(taunt: Longword);
    33 
    34 
    34 implementation
    35 implementation
    35 uses uConsts, uVariables, uFloat, uAmmos, uSound, uCaptions,
    36 uses uConsts, uVariables, uFloat, uAmmos, uSound, uCaptions,
    36     uCommands, uLocale, uUtils, uStats, uIO, uScript,
    37     uCommands, uLocale, uUtils, uStats, uIO, uScript,
    37     uGearsList, uCollisions, uRandom, uStore, uTeams,
    38     uGearsList, uCollisions, uRandom, uStore, uTeams,
  1549         else
  1550         else
  1550             doStepHedgehogDriven(Gear)
  1551             doStepHedgehogDriven(Gear)
  1551     end;
  1552     end;
  1552 end;
  1553 end;
  1553 
  1554 
       
  1555 procedure PlayTaunt(taunt: Longword);
       
  1556 begin
       
  1557     if CurrentHedgehog^.Gear <> nil then
       
  1558         with CurrentHedgehog^.Gear^ do
       
  1559             begin
       
  1560             Message:= Message or (gmAnimate and InputMask);
       
  1561             MsgParam:= taunt;
       
  1562             ScriptCall('onTaunt', MsgParam);
       
  1563             end
       
  1564 end;
       
  1565 
  1554 end.
  1566 end.