hedgewars/uGears.pas
changeset 7021 0c75512a8920
parent 7010 10a0a31804f3
child 7028 0f60591f3a16
--- a/hedgewars/uGears.pas	Sat May 05 00:01:12 2012 +0400
+++ b/hedgewars/uGears.pas	Sat May 05 15:17:16 2012 +0100
@@ -76,6 +76,7 @@
     stAfterDelay, stChWin, stWater, stChWin2, stHealth,
     stSpawn, stNTurn);
     upd: Longword;
+    //SDMusic: shortstring;
 
 // For better maintainability the step handlers of gears are stored in
 // separate files.
@@ -313,8 +314,7 @@
                 AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState);
                 playSound(sndSuddenDeath);
                 StopMusic //No SDMusic for now
-                    //MusicFN:= SDMusic;
-                    //ChangeMusic
+                    //ChangeMusic(SDMusic)
                     end
                 else if (TotalRounds < cSuddenDTurns) and (not isInMultiShoot) then
                     begin
@@ -1326,6 +1326,8 @@
     delay2:= 0;
     step:= stDelay;
     upd:= 0;
+
+    //SDMusic:= 'hell.ogg';
 end;
 
 procedure freeModule;