X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_textures.pas;h=a6ea7640de2d8b36982e6886ab08142d6aa31b5e;hb=844441154d1220d6c83f75043300c2851ec87109;hp=c96d4c6e05f637edb3cd8b71885b2bd0754b77e4;hpb=56fe3537337bec115cae2b73922752488ff298a4;p=d2df-sdl.git diff --git a/src/game/g_textures.pas b/src/game/g_textures.pas index c96d4c6..a6ea764 100644 --- a/src/game/g_textures.pas +++ b/src/game/g_textures.pas @@ -93,7 +93,7 @@ procedure DumpTextureNames(); implementation uses - g_game, e_log, g_basic, SysUtils, g_console, WADEDITOR, + g_game, e_log, g_basic, SysUtils, g_console, wadreader, g_language; type @@ -143,7 +143,7 @@ end; function g_Texture_CreateWAD(var ID: DWORD; Resource: String): Boolean; var - WAD: TWADEditor_1; + WAD: TWADFile; FileName, SectionName, ResourceName: String; @@ -153,7 +153,7 @@ begin Result := False; g_ProcessResourceStr(Resource, FileName, SectionName, ResourceName); - WAD := TWADEditor_1.Create; + WAD := TWADFile.Create; WAD.ReadFile(FileName); if WAD.GetResource(SectionName, ResourceName, TextureData, ResourceLength) then @@ -183,7 +183,7 @@ end; function g_Texture_CreateWADEx(TextureName: ShortString; Resource: String): Boolean; var - WAD: TWADEditor_1; + WAD: TWADFile; FileName, SectionName, ResourceName: String; @@ -195,7 +195,7 @@ begin find_id := FindTexture(); - WAD := TWADEditor_1.Create; + WAD := TWADFile.Create; WAD.ReadFile(FileName); if WAD.GetResource(SectionName, ResourceName, TextureData, ResourceLength) then @@ -391,7 +391,7 @@ end; function g_Frames_CreateWAD(ID: PDWORD; Name: ShortString; Resource: string; FWidth, FHeight, FCount: Word; BackAnimation: Boolean = False): Boolean; var - WAD: TWADEditor_1; + WAD: TWADFile; FileName, SectionName, ResourceName: string; @@ -402,7 +402,7 @@ begin g_ProcessResourceStr(Resource, FileName, SectionName, ResourceName); - WAD := TWADEditor_1.Create(); + WAD := TWADFile.Create(); WAD.ReadFile(FileName); if not WAD.GetResource(SectionName, ResourceName, TextureData, ResourceLength) then