hedgewars/uSound.pas
changeset 3202 b470d7875f23
parent 3201 400c98815100
child 3418 8545f646a40d
--- a/hedgewars/uSound.pas	Wed Mar 31 10:59:30 2010 +0000
+++ b/hedgewars/uSound.pas	Wed Mar 31 11:00:30 2010 +0000
@@ -37,6 +37,7 @@
 procedure ReleaseSound;
 procedure SoundLoad;
 procedure PlaySound(snd: TSound);
+procedure PlaySound(snd: TSound; keepPlaying: boolean);
 procedure PlaySound(snd: TSound; voicepack: PVoicepack);
 procedure PlaySound(snd: TSound; voicepack: PVoicepack; keepPlaying: boolean);
 function LoopSound(snd: TSound): LongInt;
@@ -166,6 +167,11 @@
     PlaySound(snd, nil, false);
 end;
 
+procedure PlaySound(snd: TSound; keepPlaying: boolean);
+begin
+    PlaySound(snd, nil, keepPlaying);
+end;
+
 procedure PlaySound(snd: TSound; voicepack: PVoicepack);
 begin
     PlaySound(snd, voicepack, false);