hedgewars/hwengine.dpr
changeset 565 092cb8deffc5
parent 564 17fb45c670c1
child 566 1c1cb593cb81
--- a/hedgewars/hwengine.dpr	Fri Jul 20 19:04:24 2007 +0000
+++ b/hedgewars/hwengine.dpr	Sat Jul 21 12:29:09 2007 +0000
@@ -69,7 +69,7 @@
 inc(RealTicks, Lag);
 
 inc(MusicTimerTicks, Lag);
-if MusicTimerTicks > 3000 then
+if (MusicTimerTicks > 3000) and (GameState > gsStart) then
    begin
    PlayMusic;
    MusicTimerTicks:= 0
@@ -81,6 +81,7 @@
               GameState:= gsStart;
               end;
      gsStart: begin
+              InitPlaylistChunk(GetRandom(High(LongWord)));
               AssignHHCoords;
               AddMiscGears;
               AdjustColor(cColorNearBlack);
@@ -90,7 +91,6 @@
               AdjustColor(cConsoleSplitterColor);
               ResetKbd;
               SoundLoad;
-              InitPlaylistChunk(GetRandom(High(LongWord)));
               if GameType = gmtSave then
                  begin
                  isSEBackup:= isSoundEnabled;