diff -r cefb73639f70 -r 8c9dcaedc7a8 hedgewars/uGearsHedgehog.pas --- a/hedgewars/uGearsHedgehog.pas Fri May 11 19:33:21 2012 +0400 +++ b/hedgewars/uGearsHedgehog.pas Fri May 11 20:01:57 2012 +0400 @@ -308,7 +308,7 @@ end; amRCPlane: begin newGear:= AddGear(hwRound(lx), hwRound(ly), gtRCPlane, 0, xx * cMaxPower / cPowerDivisor / 4, yy * cMaxPower / cPowerDivisor / 4, 0); - newGear^.SoundChannel:= LoopSound(sndRCPlane, nil) + newGear^.SoundChannel:= LoopSound(sndRCPlane) end; amKamikaze: newGear:= AddGear(hwRound(lx), hwRound(ly), gtKamikaze, 0, xx * _0_5, yy * _0_5, 0); amCake: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 3, hwRound(ly), gtCake, 0, xx, _0, 0); @@ -338,7 +338,7 @@ end; amLaserSight: cLaserSighting:= true; amVampiric: begin - PlaySound(sndOw1, Team^.voicepack); + PlaySoundV(sndOw1, Team^.voicepack); cVampiric:= true; end; amPiano: begin @@ -526,7 +526,7 @@ Gear^.Z:= cCurrHHZ; RemoveGearFromList(Gear); InsertGearToList(Gear); - PlaySound(sndByeBye, Gear^.Hedgehog^.Team^.voicepack); + PlaySoundV(sndByeBye, Gear^.Hedgehog^.Team^.voicepack); Gear^.Pos:= 0; Gear^.Timer:= timertime end @@ -558,7 +558,7 @@ Gear^.Z:= cCurrHHZ; RemoveGearFromList(Gear); InsertGearToList(Gear); - PlaySound(sndByeBye, Gear^.Hedgehog^.Team^.voicepack); + PlaySoundV(sndByeBye, Gear^.Hedgehog^.Team^.voicepack); PlaySound(sndWarp); Gear^.Pos:= 0; Gear^.Timer:= timertime @@ -686,7 +686,7 @@ if not cArtillery then Gear^.dX:= SignAs(_0_15, Gear^.dX); Gear^.State:= Gear^.State or gstMoving or gstHHJumping; - PlaySound(sndJump1, Gear^.Hedgehog^.Team^.voicepack); + PlaySoundV(sndJump1, Gear^.Hedgehog^.Team^.voicepack); exit end; end; @@ -699,7 +699,7 @@ Gear^.dY:= -_0_2; SetLittle(Gear^.dX); Gear^.State:= Gear^.State or gstMoving or gstHHJumping; - PlaySound(sndJump3, Gear^.Hedgehog^.Team^.voicepack); + PlaySoundV(sndJump3, Gear^.Hedgehog^.Team^.voicepack); exit end; @@ -1027,7 +1027,7 @@ begin HHGear^.Message:= 0; if (HHGear^.Pos = Wavez[TWave(HHGear^.Tag)].VoiceDelay) and (HHGear^.Timer = 0) then - PlaySound(Wavez[TWave(HHGear^.Tag)].Voice, Hedgehog^.Team^.voicepack); + PlaySoundV(Wavez[TWave(HHGear^.Tag)].Voice, Hedgehog^.Team^.voicepack); inc(HHGear^.Timer); if HHGear^.Timer = Wavez[TWave(HHGear^.Tag)].Interval then begin @@ -1103,7 +1103,7 @@ HHGear^.dY:= -_0_25; if not cArtillery then HHGear^.dX:= -SignAs(_0_02, HHGear^.dX); - PlaySound(sndJump2, Hedgehog^.Team^.voicepack) + PlaySoundV(sndJump2, Hedgehog^.Team^.voicepack) end; HHGear^.Message:= HHGear^.Message and (not (gmLJump or gmHJump));