Added big file related codes (I get segfault from .big library)

Author: forcecore

AboutBig.txt

@@ -0,0 +1,20 @@
+The big file decoding code is from OS BIG Editor from PPM:
+http://www.ppmsite.com/?go=osbigeditorinfo
+
+///////////////////////////////////////////////////////////////////////////////////////
+////// About Open Source BIG Editor
+///////////////////////////////////////////////////////////////////////////////////////
+
+OS BIG Editor is a program made to view BIG files and it will be able to create and edit them as well.
+
+This program was created and coded by Carlos "Banshee" Muniz and the RefPack decompression was coded by Johnathan Wilson (jonwil).
+
+The following people contributed to add features for this program:
+
+-> Danny van Loon (Drag .BIG files and Drop in the program. He also found the Drag and Drop component used in the program - v0.5)
+-> Zlatko Minev (coded the TGA Viewer - v0.5)
+-> Stuart "Stucuk" Carey (There are several things from Voxel Section Editor III and SHP Builder that he coded and were used in this program - all versions).
+
+You are free to distribute, sell, use and modify this program. However, if you distribute, sell or modify this program you must credit Banshee for coding it and jonwil for the RefPack decompression. Modifying this AboutMe file is forbidden, unless authorized by Banshee, from http://www.ppmsite.com.
+
+Note: The RefPack decompression code from jonwil follows GNU General Public Liscense and programs using it must be open source. If you want to modify this program and keep the code exclusive for you, make sure you remove the RefPack decompression code and code your own.

src/BasicDataTypes.pas

@@ -0,0 +1,22 @@
+unit BasicDataTypes;
+
+interface
+
+type
+   int8 = shortint;
+   pint8 = ^shortint;
+   uint8 = byte;
+   puint8 = ^byte;
+   int16 = smallint;
+   pint16 = ^smallint;
+   uint16 = word;
+   puint16 = ^word;
+   int32 = longint;
+   pint32 = ^longint;
+   uint32 = longword;
+   puint32 = ^longword;
+
+
+implementation
+
+end.

src/mainform.pas

@@ -6,9 +6,9 @@ interface
 
 uses
   Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
-  StdCtrls, ExtCtrls, Process, Windows,
+  StdCtrls, ExtCtrls, Process, Windows, jsonConf,
   // my additions
-  Common, Settings;
+  Common, Settings, BIG_File;
 
 type
 
@@ -36,6 +36,9 @@   TFormMain = class(TForm)
     active_mod: string; // remembers what mod is active now.
 
     procedure ScanMods();
+    function HasModAI( mod_name: string ): integer;
+    function ScanZbigsForAI( mod_path: string ): integer;
+    procedure ProcessMod( info : TSearchRec );
     procedure ScanScripts(); // scan scripts folder in the game & update UI
     procedure LaunchGame( mod_name:string; params: string );
 
@@ -86,14 +89,9 @@ procedure TFormMain.ScanMods();
   // scan the dirs in gamedir/Mods
   mod_dir := IncludeTrailingPathDelimiter(settings.game_dir)+'Mods';
   If FindFirst( mod_dir + '\*', faAnyFile and faDirectory, info ) = 0 then
-    begin
     Repeat
-      if (info.Name <> '.') AND (info.Name <> '..') then
-        begin
-          ModList.Items.Add( info.Name );
-        end;
+      ProcessMod( info );
     Until FindNext(info) <> 0;
-    end;
   SysUtils.FindClose( info );
 
   if( ModList.Items.Count = 0 ) then
@@ -102,6 +100,78 @@ procedure TFormMain.ScanMods();
     ModList.ItemIndex:= 0; // select 1st item.
 end;
 
+// Scan .zbig files in the mod dir and determine if the mod has AI.
+function TFormMain.HasModAI(mod_name: string): integer;
+var
+  mod_path: string;
+  mconf: TJSONConfig;
+begin
+  result := 0; // by default, not have one.
+
+  // First, see the config file first?
+  // Find zbigs in the game/Mods/mod_name then move it to game dir.
+  mod_path := IncludeTrailingPathDelimiter(settings.game_dir) +
+    'Mods\' + mod_name + '\';
+
+  mconf := TJSONConfig.Create(nil);
+  mconf.Filename := mod_path + 'config.json';
+  result := mconf.GetValue( 'has_ai', -1 );
+
+  // If we get -1 as result, that means,
+  // this is the first time scanning this mod.
+  if result = -1 then
+    begin
+      result := ScanZbigsForAI( mod_path );
+
+      // write it so that I don't have to do zbig scan again.
+      //mconf.SetValue( 'has_ai', result );
+    end;
+  // else, the result read from the config is correct.
+
+  mconf.free;
+end;
+
+function TFormMain.ScanZbigsForAI(mod_path: string): integer;
+var
+  info: TSearchRec;
+  big: TBIGPackage;
+  f: TBIGFileUnit;
+  i, cnt: integer;
+begin
+  result := 0;
+  If FindFirst( mod_path + '*.zbig', faAnyFile, info ) = 0 then
+
+    Repeat
+      // Scan the contents
+      ShowMessage( info.name );
+
+      big.Create;
+      big.LoadFile( info.name );
+      cnt := big.GetNumFiles;
+      for i := 0 to cnt-1 do
+      begin
+        f := big.GetFileInfo( i );
+        // f.Filename should be used :)
+      end;
+      big.Free;
+    Until FindNext(info) <> 0;
+
+  SysUtils.FindClose( info );
+end;
+
+procedure TFormMain.ProcessMod(info: TSearchRec);
+var
+  has_ai: integer; // I want this to be boolean but I can't
+  // Cant make TObject contain boolean...
+begin
+  if (info.Name <> '.') AND (info.Name <> '..') then
+  begin
+    //ModList.Items.Add( info.Name );
+    has_ai := HasModAI( info.Name );;
+    ModList.AddItem( info.name, TObject( has_ai ) );
+  end;
+end;
+
 // Initialization of the program (?),
 // at least this form.
 procedure TFormMain.FormCreate(Sender: TObject);
@@ -148,12 +218,10 @@ procedure TFormMain.ActivateMod( mod_name: string );
     'Mods\' + mod_name + '\';
 
   If FindFirst( mod_path + '*.zbig', faAnyFile, info ) = 0 then
-    begin
     Repeat
       // Add them to the mod zbig files list.
       zbigs.Add( info.name );
     Until FindNext(info) <> 0;
-    end;
   SysUtils.FindClose( info );
 
   // For each items in zbigs, move the file to the game dir.