Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Engine:
authorsmxx
Wed, 31 Mar 2010 11:00:30 +0000
changeset 3202 b470d7875f23
parent 3201 400c98815100
child 3203 e98ac205ba29
Engine: * Forgot one overloaded function in last commit
hedgewars/uSound.pas file | annotate | diff | comparison | revisions 
--- 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);
hedgewars