hedgewars/uSound.pas
branchios-revival
changeset 11265 ce5f1b547a67
parent 11068 0ff8b968291b
child 11342 ed5a6478e710
equal deleted inserted replaced
11264:1568f9eff980 11265:ce5f1b547a67
   299     voicepacks[i].name:= name;
   299     voicepacks[i].name:= name;
   300     AskForVoicepack:= @voicepacks[i]
   300     AskForVoicepack:= @voicepacks[i]
   301 end;
   301 end;
   302 
   302 
   303 procedure InitSound;
   303 procedure InitSound;
   304 const channels: LongInt = {$IFDEF MOBILE}1{$ELSE}2{$ENDIF};
   304 const channels: LongInt = 2;
   305 var success: boolean;
   305 var success: boolean;
   306 begin
   306 begin
   307     if not (isSoundEnabled or isMusicEnabled) then
   307     if not (isSoundEnabled or isMusicEnabled) then
   308         exit;
   308         exit;
   309     WriteToConsole('Init sound...');
   309     WriteToConsole('Init sound...');