# HG changeset patch
# User smxx
# Date 1270033230 0
# Node ID b470d7875f2316cbdcb37a7a4fcf96cc75856059
# Parent  400c98815100ab29746ecc119811603bc773b074
Engine:
* Forgot one overloaded function in last commit

diff -r 400c98815100 -r b470d7875f23 hedgewars/uSound.pas
--- 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);