Changeset 4 for trunk/UGame.pas

Timestamp:

Jan 30, 2016, 12:15:16 AM (8 years ago)

Author:

chronos

Message:

• Added: Not finished class for loading WSA files.

File:

• trunk/UGame.pas (modified) (4 diffs)

trunk/UGame.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Graphics, UFile1, UEngFile, UShpFile, UFormat80, Types;
+  Classes, SysUtils, Graphics, UFile1, UEngFile, UShpFile, UDecode, Types,
+  UWsaFile;
 
 type
@@ -26 +27 @@
     procedure LoadUnits;
     procedure LoadUnitsFile(FileName: string);
+    procedure LoadWsa;
   public
     Bitmap: TBitmap;
@@ -258 +260 @@
   LoadUnitsFile('extracted/DUNE.PAK/PIECES.SHP');
   LoadUnitsFile('extracted/DUNE.PAK/SHAPES.SHP');
-
-end;
-
+end;
+
+procedure TGame.LoadWsa;
+var
+  F: TWsaFile;
+begin
+  F := TWsaFile.Create;
+  F.Open('extracted/DUNE.PAK/WIN1.WSA');
+  F.Free;
+end;
 
 procedure TGame.LoadData;
@@ -269 +278 @@
   //LoadTexts;
   LoadUnits;
+  LoadWSA;
 end;