X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Funused%2FWADEDITOR_full.pas;fp=src%2Fshared%2FWADEDITOR_full.pas;h=cec3571c4e7f146b8fcc145699d15f899167999c;hb=844441154d1220d6c83f75043300c2851ec87109;hp=8212992fa2b2dc3c174a45b9ae89778aca2cdf08;hpb=56fe3537337bec115cae2b73922752488ff298a4;p=d2df-sdl.git

diff --git a/src/shared/WADEDITOR_full.pas b/src/unused/WADEDITOR_full.pas
similarity index 96%
rename from src/shared/WADEDITOR_full.pas
rename to src/unused/WADEDITOR_full.pas
index 8212992..cec3571 100644
--- a/src/shared/WADEDITOR_full.pas
+++ b/src/unused/WADEDITOR_full.pas
@@ -8,12 +8,40 @@ WADEDITOR.PAS 
 -----------------------------------
 }
 
-interface
+{
+-----------------------------------
+WADSTRUCT.PAS ÂÅÐÑÈß ÎÒ 24.09.06
+
+Ïîääåðæêà âàäîâ âåðñèè 1
+-----------------------------------
 
-uses WADSTRUCT;
+Ñòðóêòóðà DFWAD-ôàéëà âåðñèè 1:
+ ------------------------------------------
+ SIGNATURE  | Byte[5]             | 'DFWAD'
+ VERSION    | Byte                | $01
+ HEADER     | TWADHeaderRec_1     |
+ RESRECORD1 | TResourceTableRec_1 |
+ ...        | ................... |
+ RESRECORDN | TResourceTableRec_1 |
+ DATA       | RAW                 |
+ ------------------------------------------
+}
+
+interface
 
 type
   SArray = array of ShortString;
+  Char16 = packed array[0..15] of Char;
+
+  TWADHeaderRec_1 = packed record
+   RecordsCount: Word;
+  end;
+
+  TResourceTableRec_1 = packed record
+   ResourceName: Char16;
+   Address:      LongWord;
+   Length:       LongWord;
+  end;
 
   TWADEditor_1 = class(TObject)
    private
@@ -55,6 +83,10 @@ type
     property GetVersion: Byte read FVersion;
   end;
 
+const
+  DFWAD_SIGNATURE = 'DFWAD';
+  DFWAD_VERSION   = $01;
+
 const
   DFWAD_NOERROR                = 0;
   DFWAD_ERROR_WADNOTFOUND      = -1;