hedgewars/uGearsUtils.pas
changeset 12208 9a4831b23cd1
parent 12177 bfeeb1c35e77
child 12209 7e6362c0ba96
equal deleted inserted replaced
12207:2de020695c20 12208:9a4831b23cd1
  1604             dy:= 0;
  1604             dy:= 0;
  1605             FrameTicks:= 200;
  1605             FrameTicks:= 200;
  1606             Scale:= hwFloat2Float(Gear^.Density * hwAbs(Gear^.dY) + hwAbs(Gear^.dX)) / 1.5;
  1606             Scale:= hwFloat2Float(Gear^.Density * hwAbs(Gear^.dY) + hwAbs(Gear^.dX)) / 1.5;
  1607             State:= ord(sprBoing)
  1607             State:= ord(sprBoing)
  1608             end;
  1608             end;
  1609     PlaySound(sndMelonImpact, true)
  1609     if Gear^.Kind = gtDuck then
       
  1610         PlaySound(sndDuckDrop, true);
       
  1611     else
       
  1612         PlaySound(sndMelonImpact, true)
  1610 end;
  1613 end;
  1611 
  1614 
  1612 function IsHogLocal(HH: PHedgehog): boolean;
  1615 function IsHogLocal(HH: PHedgehog): boolean;
  1613 begin
  1616 begin
  1614     IsHogLocal:= (not (HH^.Team^.ExtDriven or (HH^.BotLevel > 0))) or (HH^.Team^.Clan^.ClanIndex = LocalClan) or (GameType = gmtDemo);
  1617     IsHogLocal:= (not (HH^.Team^.ExtDriven or (HH^.BotLevel > 0))) or (HH^.Team^.Clan^.ClanIndex = LocalClan) or (GameType = gmtDemo);