X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_player.pas;h=f644d6b7d863fc2d2f59a7f25da74670f9762c59;hb=843ef00143d2dd922eaa56362d4afbeb41aa54bf;hp=5d1f863faa686c667ec21470ffed524e700c4778;hpb=281969a1bea9afbf36babebcf9208549929a96f4;p=d2df-sdl.git

diff --git a/src/game/g_player.pas b/src/game/g_player.pas
index 5d1f863..f644d6b 100644
--- a/src/game/g_player.pas
+++ b/src/game/g_player.pas
@@ -3163,6 +3163,8 @@ end;
 
 procedure TPlayer.CatchFire(Attacker: Word);
 begin
+  if FFireTime <= 0 then
+    g_Sound_PlayExAt('SOUND_IGNITE', FObj.X, FObj.Y);
   FFireTime := 100;
   FFireAttacker := Attacker;
   if g_Game_IsNet and g_Game_IsServer then
@@ -3715,7 +3717,7 @@ begin
       // i found her!
       result := Byte(i);
       resetWeaponQueue();
-      FNextWeapDelay := WEAPON_DELAY; // anyway, 'cause why not
+      FNextWeapDelay := WEAPON_DELAY * 2; // anyway, 'cause why not
       exit;
     end;
   end;
@@ -5786,6 +5788,11 @@ end;
 
 procedure TPlayer.GetSecret();
 begin
+  if (self = gPlayer1) or (self = gPlayer2) then
+  begin
+    g_Console_Add(Format(_lc[I_PLAYER_SECRET], [FName]), True);
+    g_Sound_PlayEx('SOUND_GAME_SECRET');
+  end;
   Inc(FSecrets);
 end;