equal
deleted
inserted
replaced
57 function AskForVoicepack(name: shortstring): Pointer; |
57 function AskForVoicepack(name: shortstring): Pointer; |
58 function soundFadeOut(snd: TSound; qt: LongInt; voicepack: PVoicepack): LongInt; |
58 function soundFadeOut(snd: TSound; qt: LongInt; voicepack: PVoicepack): LongInt; |
59 |
59 |
60 |
60 |
61 {*remember: LongInt = 32bit; integer = 16bit; byte = 8bit*} |
61 {*remember: LongInt = 32bit; integer = 16bit; byte = 8bit*} |
62 function openal_init (memsize: LongInt) : boolean; cdecl; external OpenALBridge; |
62 function openal_init (hardware: LongInt; memsize: LongInt): boolean; cdecl; external OpenALBridge; |
63 function openal_close : boolean; cdecl; external OpenALBridge; |
63 function openal_close : boolean; cdecl; external OpenALBridge; |
64 function openal_loadfile (const filename: PChar) : LongInt; cdecl; external OpenALBridge; |
64 function openal_loadfile (const filename: PChar) : LongInt; cdecl; external OpenALBridge; |
65 function openal_toggleloop (index: LongInt) : boolean; cdecl; external OpenALBridge; |
65 function openal_toggleloop (index: LongInt) : boolean; cdecl; external OpenALBridge; |
66 function openal_setvolume (index: LongInt; percentage: byte) : boolean; cdecl; external OpenALBridge; |
66 function openal_setvolume (index: LongInt; percentage: byte) : boolean; cdecl; external OpenALBridge; |
67 function openal_setglobalvolume (percentage: byte) : boolean; cdecl; external OpenALBridge; |
67 function openal_setglobalvolume (percentage: byte) : boolean; cdecl; external OpenALBridge; |
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; |
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*} |
107 or if ogg are loaded in stream or if sound is loaded by demand*} |
108 WriteToConsole('Init OpenAL sound...'); |
108 WriteToConsole('Init OpenAL sound...'); |
109 isSoundEnabled:= openal_init(numSounds); |
109 if isSoundHardware then isSoundEnabled:= openal_init(1, numSounds) else isSoundEnabled:= openal_init(0, numSounds); |
110 if isSoundEnabled then WriteLnToConsole(msgOK) |
110 if isSoundEnabled then WriteLnToConsole(msgOK) |
111 else WriteLnToConsole(msgFailed); |
111 else WriteLnToConsole(msgFailed); |
112 |
112 |
113 Volume:=0; |
113 Volume:=0; |
114 ChangeVolume(cInitVolume); |
114 ChangeVolume(cInitVolume); |