X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Fgame%2Fg_sound.pas;h=48c5167e007b40eea32a13512ee948509a67c847;hp=b37cd1f896219f277f714e6e372104794a508ede;hb=844441154d1220d6c83f75043300c2851ec87109;hpb=56fe3537337bec115cae2b73922752488ff298a4 diff --git a/src/game/g_sound.pas b/src/game/g_sound.pas index b37cd1f..48c5167 100644 --- a/src/game/g_sound.pas +++ b/src/game/g_sound.pas @@ -68,7 +68,7 @@ procedure g_Sound_SetupAllVolumes(SoundVol, MusicVol: Byte); implementation uses - e_log, SysUtils, g_console, g_options, WADEDITOR, + e_log, SysUtils, g_console, g_options, wadreader, g_game, g_basic, g_items, g_map, Math, g_language; @@ -279,7 +279,7 @@ end; function g_Sound_CreateWAD(var ID: DWORD; Resource: string; isMusic: Boolean = False): Boolean; var - WAD: TWADEditor_1; + WAD: TWADFile; FileName, SectionName, ResourceName: string; @@ -293,7 +293,7 @@ begin // e_WriteLog('Loading sound: ' + Resource, MSG_NOTIFY); g_ProcessResourceStr(Resource, FileName, SectionName, ResourceName); - WAD := TWADEditor_1.Create(); + WAD := TWADFile.Create(); WAD.ReadFile(FileName); if WAD.GetResource(SectionName, ResourceName, SoundData, ResLength) then @@ -324,7 +324,7 @@ end; function g_Sound_CreateWADEx(SoundName: ShortString; Resource: string; isMusic: Boolean = False): Boolean; var - WAD: TWADEditor_1; + WAD: TWADFile; FileName, SectionName, ResourceName: string; SoundData: Pointer; ResLength: Integer; @@ -339,7 +339,7 @@ begin find_id := FindSound(); - WAD := TWADEditor_1.Create(); + WAD := TWADFile.Create(); WAD.ReadFile(FileName); if WAD.GetResource(SectionName, ResourceName, SoundData, ResLength) then