equal
deleted
inserted
replaced
70 procedure InitSound; |
70 procedure InitSound; |
71 var i: TSound; |
71 var i: TSound; |
72 begin |
72 begin |
73 if not isSoundEnabled then exit; |
73 if not isSoundEnabled then exit; |
74 WriteToConsole('Init sound...'); |
74 WriteToConsole('Init sound...'); |
75 isSoundEnabled:= SDL_Init(SDL_INIT_AUDIO) >= 0; |
75 isSoundEnabled:= SDL_InitSubSystem(SDL_INIT_AUDIO) >= 0; |
76 |
76 |
77 if isSoundEnabled then |
77 if isSoundEnabled then |
78 isSoundEnabled:= Mix_OpenAudio(44100, $8010, 2, 1024) = 0; |
78 isSoundEnabled:= Mix_OpenAudio(44100, $8010, 2, 1024) = 0; |
79 |
79 |
80 if isSoundEnabled then |
80 if isSoundEnabled then |