hedgewars/uGearsUtils.pas
changeset 13851 f01798038c2e
parent 13775 8a7699ccb608
child 13892 57bac0456b86
equal deleted inserted replaced
13850:4e4111a75256 13851:f01798038c2e
  1768             dy:= 0;
  1768             dy:= 0;
  1769             FrameTicks:= 200;
  1769             FrameTicks:= 200;
  1770             Scale:= imageScale;
  1770             Scale:= imageScale;
  1771             State:= ord(sprBoing)
  1771             State:= ord(sprBoing)
  1772             end;
  1772             end;
  1773     if Gear^.Kind = gtDuck then
  1773     PlaySound(sndMelonImpact, true)
  1774         PlaySound(sndDuckDrop, true)
       
  1775     else
       
  1776         PlaySound(sndMelonImpact, true)
       
  1777 end;
  1774 end;
  1778 
  1775 
  1779 function IsHogLocal(HH: PHedgehog): boolean;
  1776 function IsHogLocal(HH: PHedgehog): boolean;
  1780 begin
  1777 begin
  1781     IsHogLocal:= (not (HH^.Team^.ExtDriven or (HH^.BotLevel > 0))) or (HH^.Team^.Clan^.ClanIndex = LocalClan) or (GameType = gmtDemo);
  1778     IsHogLocal:= (not (HH^.Team^.ExtDriven or (HH^.BotLevel > 0))) or (HH^.Team^.Clan^.ClanIndex = LocalClan) or (GameType = gmtDemo);