- Your hedgehogs says you: "Yes, sir"
authorunc0rr
Fri, 07 Mar 2008 14:32:26 +0000
changeset 800 e95f16b7ec80
parent 799 71ba310da909
child 801 0323e5c7ee54
- Your hedgehogs says you: "Yes, sir" - Hedgehog laughs dropping mine
hedgewars/HHHandlers.inc
hedgewars/uConsts.pas
hedgewars/uTeams.pas
--- 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;