--- a/hedgewars/hwengine.dpr	Fri Jul 25 19:06:46 2008 +0000
+++ b/hedgewars/hwengine.dpr	Fri Jul 25 19:26:44 2008 +0000
@@ -66,25 +66,16 @@
 
 ////////////////////////////////
 procedure DoTimer(Lag: LongInt);
-const MusicTimerTicks: Longword = 0;
 var s: string;
 begin
 inc(RealTicks, Lag);
 
-inc(MusicTimerTicks, Lag);
-if (MusicTimerTicks > 3000) and (GameState > gsStart) then
-   begin
-   PlayMusic;
-   MusicTimerTicks:= 0
-   end;
-
 case GameState of
    gsLandGen: begin
               GenMap;
               GameState:= gsStart;
               end;
      gsStart: begin
-              InitPlaylistChunk(GetRandom(High(LongWord)));
               AddClouds;
               AssignHHCoords;
               AddMiscGears;
@@ -97,6 +88,7 @@
                  isSoundEnabled:= false
                  end;
               FinishProgress;
+              PlayMusic;
               GameState:= gsGame
               end;
    gsConfirm,