--- a/hedgewars/HHHandlers.inc Fri Mar 07 14:10:13 2008 +0000
+++ b/hedgewars/HHHandlers.inc Fri Mar 07 14:32:26 2008 +0000
@@ -109,7 +109,10 @@
amPickHammer: CurAmmoGear:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y) + cHHRadius, gtPickHammer, 0, _0, _0, 0);
amSkip: TurnTimeLeft:= 0;
amRope: CurAmmoGear:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtRope, 0, xx, yy, 0);
- amMine: AddGear(hwRound(X) + hwSign(dX) * 7, hwRound(Y), gtMine, 0, SignAs(_0_02, dX), _0, 3000);
+ amMine: begin
+ AddGear(hwRound(X) + hwSign(dX) * 7, hwRound(Y), gtMine, 0, SignAs(_0_02, dX), _0, 3000);
+ PlaySound(sndLaugh, false)
+ end;
amDEagle: AddGear(hwRound(X + xx * cHHRadius), hwRound(Y + yy * cHHRadius), gtDEagleShot, 0, xx * _0_5, yy * _0_5, 0);
amDynamite: AddGear(hwRound(X) + hwSign(dX) * 7, hwRound(Y), gtDynamite, 0, SignAs(_0_03, dX), _0, 5000);
amBaseballBat: AddGear(hwRound(X) + hwSign(dX) * 10, hwRound(Y), gtShover, 0, xx * _0_5, yy * _0_5, 0)^.Radius:= 20;
--- a/hedgewars/uConsts.pas Fri Mar 07 14:10:13 2008 +0000
+++ b/hedgewars/uConsts.pas Fri Mar 07 14:32:26 2008 +0000
@@ -56,7 +56,7 @@
TSound = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease,
sndSplash, sndShotgunReload, sndShotgunFire, sndGraveImpact,
sndMineTick, sndPickhammer, sndGun, sndUFO, sndJump1, sndJump2,
- sndJump3);
+ sndJump3, sndYesSir, sndLaugh);
TAmmoType = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,
amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch,
@@ -361,7 +361,9 @@
(FileName: 'ufo.ogg'; Path: ptSounds; id: nil; lastChan: 0),// sndUFO
(FileName: 'Jump1.ogg'; Path: ptVoices; id: nil; lastChan: 0),// sndJump1
(FileName: 'Jump2.ogg'; Path: ptVoices; id: nil; lastChan: 0),// sndJump2
- (FileName: 'Jump3.ogg'; Path: ptVoices; id: nil; lastChan: 0) // sndJump3
+ (FileName: 'Jump3.ogg'; Path: ptVoices; id: nil; lastChan: 0),// sndJump3
+ (FileName: 'Yessir.ogg'; Path: ptVoices; id: nil; lastChan: 0),// sndYesSir
+ (FileName: 'Laugh.ogg'; Path: ptVoices; id: nil; lastChan: 0) // sndLaugh
);
Ammoz: array [TAmmoType] of record
--- a/hedgewars/uTeams.pas Fri Mar 07 14:10:13 2008 +0000
+++ b/hedgewars/uTeams.pas Fri Mar 07 14:32:26 2008 +0000
@@ -90,7 +90,7 @@
procedure SendStats;
implementation
-uses uMisc, uWorld, uAI, uLocale, uConsole, uAmmos;
+uses uMisc, uWorld, uAI, uLocale, uConsole, uAmmos, uSound;
const MaxTeamHealth: LongInt = 0;
procedure FreeTeamsList; forward;
@@ -191,9 +191,13 @@
g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
{$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF}
ApplyAmmoChanges(CurrentHedgehog^);
+
if CurrentTeam^.ExtDriven then SetDefaultBinds
else SetBinds(CurrentTeam^.Binds);
bShowFinger:= true;
+
+if not (CurrentTeam^.ExtDriven or (CurrentHedgehog^.BotLevel > 0)) then PlaySound(sndYesSir, false);
+
TurnTimeLeft:= cHedgehogTurnTime
end;