[Stratagus-CVS] stratagus/src/ai ai_rules.c

[ludovic pollet]

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     ludovic pollet <address@hidden> 03/11/14 12:34:54

Modified files:
        src/ai         : ai_rules.c 

Log message:
        AI will prefer smallest attack forces when possible

Patches:
Index: stratagus/src/ai/ai_rules.c
diff -u stratagus/src/ai/ai_rules.c:1.9 stratagus/src/ai/ai_rules.c:1.10
--- stratagus/src/ai/ai_rules.c:1.9     Thu Nov 13 06:20:02 2003
+++ stratagus/src/ai/ai_rules.c Fri Nov 14 12:34:53 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//      $Id: ai_rules.c,v 1.9 2003/11/13 11:20:02 pludov Exp $
+//      $Id: ai_rules.c,v 1.10 2003/11/14 17:34:53 pludov Exp $
 
 //@{
 
@@ -706,6 +706,12 @@
        cost = (cost * (100 + (forcesize - 5) * 10)) / 100;
     }
 
+    // Be much more aggressive whith biggest forces
+    if (forcesize > 50) {
+       cost = (cost * (100 + (forcesize - 50) * 10)) / 100;
+    }
+
+
     return cost;
 }
 
@@ -1123,6 +1129,9 @@
            AiEraseForce(AiScript->ownForce);
        } else {
            DebugLevel3Fn("Attacking crisis ! reseting.\n");
+           AiEraseForce(1);
+           // FIXME : should update with lower values
+           AiUpdateForce(1, AiScript->ownForce);
            AiEraseForce(AiScript->ownForce);
        }
     }