home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 8 (DVD) / XENIADVD08.iso / Fragzone / Files / AOM_MiniCampaign.exe / AI / mc01p6.xs < prev    next >
Encoding:
Text File  |  2002-12-06  |  1.8 KB  |  58 lines
  1. //==============================================================================
  2. // Minicampaign Scenario 1: AI Script for Minicampaign scenario 1, player 6
  3. //==============================================================================
  4. /*
  5.    AI owner: Karen Sparks
  6.    Scenario owner: Karen Sparks
  7.  
  8.    Overview:
  9.    The player is gathering cows for player 6 (Arngrim). Player 6 herds the cows to a 
  10.    safe, uncongested location.
  11. */
  12.  
  13. //==============================================================================
  14. //    miscStartup
  15. //==============================================================================
  16. void miscStartup(void)
  17. {
  18.     // Difficulty Level check.
  19.     int difflevel=-1;        
  20.     difflevel=aiGetWorldDifficulty();
  21.  
  22.    //Startup message(s).
  23.    aiEcho("");
  24.    aiEcho("");
  25.    aiEcho("Frosty AI Start, filename='"+cFilename+"'.");
  26.     aiEcho("Difficulty Level="+difflevel+".");
  27.    //Spit out the map size.
  28.    aiEcho("  Map size is ("+kbGetMapXSize()+", "+kbGetMapZSize()+").");
  29.    //Cheat like a bastard.  Once only, though.
  30.    kbLookAtAllUnitsOnMap();
  31.    //Calculate some areas.
  32.    kbAreaCalculate(1200.0);
  33.     //Reset random seed
  34.     aiRandSetSeed();
  35.    //Allocate all resources to the root escrow.
  36.    kbEscrowAllocateCurrentResources();
  37. }
  38.  
  39.  
  40. //==============================================================================
  41. //    main
  42. //==============================================================================
  43. void main(void)
  44. {
  45.    //Startup.
  46.    miscStartup();
  47.  
  48.     //Create a herd plan to gather all herdables that we ecounter.
  49.    int herdPlanID=aiPlanCreate("HerdTest", cPlanHerd);
  50.    if (herdPlanID >= 0)
  51.    {
  52.       aiPlanAddUnitType(herdPlanID, cUnitTypeHerdable, 0, 100, 100);
  53.       aiPlanSetVariableInt(herdPlanID, cHerdPlanBuildingTypeID, 0, cUnitTypeTent);
  54.       aiPlanSetActive(herdPlanID);
  55.    }
  56.  
  57. }
  58.