equal
deleted
inserted
replaced
101 |
101 |
102 procedure InitSound; |
102 procedure InitSound; |
103 const numSounds = 80; |
103 const numSounds = 80; |
104 begin |
104 begin |
105 if not isSoundEnabled then exit; |
105 if not isSoundEnabled then exit; |
|
106 {*sound works in ipodtouch only if LAND_WIDTH = 1024; LAND_HEIGHT = 512; |
|
107 or if ogg are loaded in stream or if sound is loaded by demand*} |
106 WriteToConsole('Init OpenAL sound...'); |
108 WriteToConsole('Init OpenAL sound...'); |
107 isSoundEnabled:= openal_init(numSounds); |
109 isSoundEnabled:= openal_init(numSounds); |
108 if isSoundEnabled then WriteLnToConsole(msgOK) |
110 if isSoundEnabled then WriteLnToConsole(msgOK) |
109 else WriteLnToConsole(msgFailed); |
111 else WriteLnToConsole(msgFailed); |
110 |
112 |