Added SFS support (resource wads only) (#4)

[d2df-editor.git] / src / editor / f_addresource_sky.pas

diff --git a/src/editor/f_addresource_sky.pas b/src/editor/f_addresource_sky.pas
index 98a8026ac10961fb13f3f1fe8fb493d1af1dcd05..49034d2239db2e0ff74db35a9d7756ef21496e92 100644 (file)
--- a/src/editor/f_addresource_sky.pas
+++ b/src/editor/f_addresource_sky.pas
@@ -31,7 +31,7 @@ var
 implementation
 
 uses
-  BinEditor, WADEDITOR, f_main, g_language;
+  WADEDITOR, f_main, g_language, g_resources;
 
 {$R *.lfm}
 
@@ -48,23 +48,14 @@ var
   BitMap:     TBitMap;
 
   TextureData:  Pointer;
-  WAD:          TWADEditor_1;
   WADName:      String;
   SectionName:  String;
   ResourceName: String;
 
 begin
   Result := nil;
-
-// Загружаем ресурс текстуры из WAD:
   g_ProcessResourceStr(ResourceStr, WADName, SectionName, ResourceName);
-
-  WAD := TWADEditor_1.Create();
-  WAD.ReadFile(WADName);
-
-  WAD.GetResource(utf2win(SectionName), utf2win(ResourceName), TextureData, ImageSize);
-
-  WAD.Free();
+  g_ReadResource(WADName, SectionName, ResourceName, TextureData, ImageSize);
 
   InitImage(img);
   if not LoadImageFromMemory(TextureData, ImageSize, img) then