big scanning works surprising well! #1

Author: forcecore

src/mainform.pas

@@ -42,6 +42,7 @@   TFormMain = class(TForm)
     procedure ScanScripts(); // scan scripts folder in the game & update UI
     procedure LaunchGame( mod_name:string; params: string );
 
+    procedure MakeAIGood( mod_name: string );
     procedure ActivateMod( mod_name: string );
     procedure DeactivateMod( mod_name: string );
 
@@ -124,7 +125,7 @@ function TFormMain.HasModAI(mod_name: string): integer;
       result := ScanZbigsForAI( mod_path );
 
       // write it so that I don't have to do zbig scan again.
-      //mconf.SetValue( 'has_ai', result );
+      mconf.SetValue( 'has_ai', result );
     end;
   // else, the result read from the config is correct.
 
@@ -143,16 +144,22 @@ function TFormMain.ScanZbigsForAI(mod_path: string): integer;
 
     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 := TBIGPackage.Create;
+      big.LoadFile( mod_path + info.name );
+      if big.IsValid then
+        begin
+          // scan through file list, find AI related files.
+          cnt := big.GetNumFiles;
+          for i := 0 to cnt-1 do
+          begin
+            f := big.GetFileInfo( i );
+            if pos( 'skirmishscripts', lowercase( f.filename ) ) <> 0 then
+              begin
+                result := 1; // found it!!
+                break;
+              end;
+          end;
+        end;
       big.Free;
     Until FindNext(info) <> 0;
 
@@ -195,6 +202,8 @@ procedure TFormMain.LaunchGame( mod_name: string; params: string );
   // Set the mod as active
   ActivateMod( mod_name );
 
+  MakeAIGood( mod_name );
+
   // Run the mod
   //ShellExecute( 0, 'open', PChar(game_exe), PChar(params), nil, SW_NORMAL );
   output := '';
@@ -204,6 +213,20 @@ procedure TFormMain.LaunchGame( mod_name: string; params: string );
   DeactivateMod( mod_name );
 end;
 
+procedure TFormMain.MakeAIGood( mod_name: string );
+var
+  has_ai: integer;
+begin
+  // Make AI good by activating the scripts folder in ZH dir.
+  has_ai := integer( ModList.Items.Objects[ ModList.ItemIndex ] );
+
+  // if has AI and mod ai needs activation...
+  if (has_ai <> 0) and (BtnMod.Enabled) then
+    BtnMod.Click
+  else if (has_ai = 0) and (BtnRestore.Enabled) then
+    BtnRestore.Click;
+end;
+
 procedure TFormMain.ActivateMod( mod_name: string );
 var
   i : Integer;

src/settings.pas

@@ -35,23 +35,23 @@  TSettings = class
     dscript: string;
     //moddir: string;
 
-    constructor create();
-    procedure free();
+    constructor create;
+    procedure free;
 
   property
     game_dir: string read GetGameDir write SetGameDir;
 end;
 
 implementation
 
-constructor TSettings.create();
+constructor TSettings.create;
 begin
   conf := TJSONConfig.Create(nil);
   LoadConf();
   GetDirs();
 end;
 
-procedure TSettings.free();
+procedure TSettings.free;
 begin
   conf.free();
 end;