--- a/hedgewars/CCHandlers.inc	Thu Jul 20 20:11:32 2006 +0000
+++ b/hedgewars/CCHandlers.inc	Fri Jul 21 20:37:44 2006 +0000
@@ -362,6 +362,7 @@
 if isDeveloperMode then
    begin
    SetRandomParams(s, rndfillstr);
+   cSeed:= s;
    InitStepsFlags:= InitStepsFlags or cifRandomize
    end
 end;

--- a/hedgewars/Data/Locale/en.txt	Thu Jul 20 20:11:32 2006 +0000
+++ b/hedgewars/Data/Locale/en.txt	Fri Jul 21 20:37:44 2006 +0000
@@ -11,4 +11,7 @@
 00:08=Mine
 00:09=DEagle
 00:10=Dynamite
-00:11=BaseballBat
\ No newline at end of file
+00:11=BaseballBat
+
+01:00=Let's fight!
+01:01=sec
\ No newline at end of file

--- a/hedgewars/Data/Locale/ru.txt	Thu Jul 20 20:11:32 2006 +0000
+++ b/hedgewars/Data/Locale/ru.txt	Fri Jul 21 20:37:44 2006 +0000
@@ -11,4 +11,7 @@
 00:08=Мина
 00:09=Дезерт
 00:10=Динамит
-00:11=Бейсбольная бита
\ No newline at end of file
+00:11=Бейсбольная бита
+
+01:00=Вперёд к победе!
+01:01=сек
\ No newline at end of file

--- a/hedgewars/GSHandlers.inc	Thu Jul 20 20:11:32 2006 +0000
+++ b/hedgewars/GSHandlers.inc	Fri Jul 21 20:37:44 2006 +0000
@@ -323,7 +323,7 @@
                    dec(Gear.Timer);
                    AllInactive:= false;
                    if Gear.Timer > 0 then exit;
-                   AddCaption('Let''s fight!', $FFFFFF, capgrpStartGame);
+                   AddCaption(trmsg[sidStartFight], $FFFFFF, capgrpStartGame);
                    DeleteGear(Gear)
                    end;
   gtsSmoothWindCh: begin

--- a/hedgewars/hwengine.dpr	Thu Jul 20 20:11:32 2006 +0000
+++ b/hedgewars/hwengine.dpr	Fri Jul 21 20:37:44 2006 +0000
@@ -112,7 +112,7 @@
 if flagMakeCapture then
    begin
    flagMakeCapture:= false;
-   s:= 'hw_' + ParamStr(5) + '_' + inttostr(GameTicks) + '.bmp';
+   s:= 'hw_' + cSeed + '_' + inttostr(GameTicks) + '.bmp';
    WriteLnToConsole('Saving ' + s);
    SDL_SaveBMP_RW(SDLPrimSurface, SDL_RWFromFile(PChar(s), 'wb'), 1)
    end;

--- a/hedgewars/uGears.pas	Thu Jul 20 20:11:32 2006 +0000
+++ b/hedgewars/uGears.pas	Fri Jul 21 20:37:44 2006 +0000
@@ -76,7 +76,8 @@
     GearsList: PGear = nil;
 
 implementation
-uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uLand, uIO, uLandGraphics, uAIMisc;
+uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions,
+     uLand, uIO, uLandGraphics, uAIMisc, uLocale;
 var RopePoints: record
                 Count: Longword;
                 HookAngle: integer;

--- a/hedgewars/uLocale.pas	Thu Jul 20 20:11:32 2006 +0000
+++ b/hedgewars/uLocale.pas	Fri Jul 21 20:37:44 2006 +0000
@@ -36,7 +36,9 @@
 type TAmmoStrId = (sidGrenade, sidClusterBomb, sidBazooka, sidUFO, sidShotgun,
                    sidPickHammer, sidSkip, sidRope, sidMine, sidDEagle,
                    sidDynamite, sidBaseballBat);
+     TMsgStrId = (sidStartFight, sidSeconds);
 var trammo: array[TAmmoStrId] of shortstring;
+    trmsg: array[TMsgStrId] of shortstring;
 
 procedure LoadLocale(FileName: string);
 
@@ -67,6 +69,7 @@
       Delete(s, 1, 6);
       case a of
            0: if (b >=0) and (b <= ord(High(TAmmoStrId))) then trammo[TAmmoStrId(b)]:= s;
+           1: if (b >=0) and (b <= ord(High(TMsgStrId))) then trmsg[TMsgStrId(b)]:= s;
            end;
       end;
 closefile(f)

--- a/hedgewars/uMisc.pas	Thu Jul 20 20:11:32 2006 +0000
+++ b/hedgewars/uMisc.pas	Fri Jul 21 20:37:44 2006 +0000
@@ -79,6 +79,7 @@
     cShowFPS      : boolean = true;
     cFullScreen   : boolean = true;
     cLocaleFName  : shortstring = 'en.txt';
+    cSeed         : shortstring = '';
 
 const
     cMaxPower     = 1500;

--- a/hedgewars/uTeams.pas	Thu Jul 20 20:11:32 2006 +0000
+++ b/hedgewars/uTeams.pas	Fri Jul 21 20:37:44 2006 +0000
@@ -238,7 +238,7 @@
      if Count <> AMMO_INFINITE then
         s:= s + ' (' + IntToStr(Count) + ')';
      if (Propz and ammoprop_Timerable) <> 0 then
-        s:= s + ', ' + inttostr(Timer div 1000) + ' sec';
+        s:= s + ', ' + inttostr(Timer div 1000) + ' ' + trmsg[sidSeconds];
      AddCaption(s, Team.Color, capgrpAmmoinfo);
      if (Propz and ammoprop_NeedTarget) <> 0
         then begin