hedgewars/uGearsUtils.pas
changeset 14019 f09276eb0c27
parent 14014 d203bb36225f
child 14027 e155b300d49f
equal deleted inserted replaced
14018:caf7a86214bd 14019:f09276eb0c27
  1620 if (FollowGear <> nil) then
  1620 if (FollowGear <> nil) then
  1621     begin
  1621     begin
  1622     FindPlace(FollowGear, true, 0, LAND_WIDTH);
  1622     FindPlace(FollowGear, true, 0, LAND_WIDTH);
  1623 
  1623 
  1624     if (FollowGear <> nil) then
  1624     if (FollowGear <> nil) then
  1625         AddVoice(sndReinforce, CurrentTeam^.voicepack)
  1625         if random(3) = 0 then
       
  1626             // TODO: Play this when a crate drops close to a hog, not randomly
       
  1627             AddVoice(sndThisOneIsMine, CurrentTeam^.voicepack)
       
  1628         else
       
  1629             AddVoice(sndReinforce, CurrentTeam^.voicepack);
  1626     end
  1630     end
  1627 end;
  1631 end;
  1628 
  1632 
  1629 
  1633 
  1630 function GetAmmo(Hedgehog: PHedgehog): TAmmoType;
  1634 function GetAmmo(Hedgehog: PHedgehog): TAmmoType;