I want my AI to build a second colony with mines, smelters and working mining groups.
But somehow my code causes the game to crash instantly after starting the dll:
BuildMines = CreateBuildingGroup(Player[1]);
MAP_RECT MinerBox(63+31, 54-1, 67+31, 58-1);
BuildMines.SetRect(MinerBox);
BuildMines.TakeUnit(Miner);
BuildMines.SetTargCount(mapRoboMiner, mapNone, 1);
BuildMines.RecordBuilding(LOCATION(61+31, 61-1), mapCommonOreMine, mapNone);
RebuildMines = CreateBuildingGroup(Player[1]);
MAP_RECT MinerBox(63+31, 54-1, 67+31, 58-1);
RebuildMines.SetRect(MinerBox);
RebuildMines.TakeUnit(Miner);
RebuildMines.TakeUnit(COMine);
RebuildMines.SetTargCount(mapRoboMiner, mapNone, 1);
RebuildMines.SetTargCount(mapCommonOreMine, mapNone, 1);
RebuildMines.RecordBuilding(LOCATION(61+31, 61-1), mapCommonOreMine, mapNone);
RebuildMines.SetTargCount(mapCommonOreMine, mapNone, 1);
// Above initproc
BuildingGroup Colony2RebuildMines;
int MiningGroupEstablished = 0;
IUnit Colony2CommonOreSmelter;
IUnit Colony2CommonOreMine;
MAP_RECT Colony2MiningBox(259-1, 174-1, 263-1, 178-1);
MAP_RECT Colony2MinerBox(257-1, 182-1, 261-1, 186-1);
Colony2RebuildMines = CreateBuildingGroup(Player[numAI]);
Colony2RebuildMines.SetRect(Colony2MinerBox);
Colony2RebuildMines.SetTargCount(mapRoboMiner, mapNone, 1);
Colony2RebuildMines.SetTargCount(mapCommonOreMine, mapNone, 1);
Colony2RebuildMines.RecordBuilding(LOCATION(266-1, 180-1), mapCommonOreMine, mapNone);
//Find common smelter if it was built
if(MiningGroupsEstablished == 0)
{
if(Colony2CommonOreSmelter.IsLive() == 0)
{
IUnit NewCommonSmelter;
InRectEnumerator Rectenum437(MAP_RECT(259-1, 178-1, 264-1, 182-1));
//Search the area near the common smelter for a new one
if(Rectenum437.GetNext(NewCommonSmelter) == 1)
{
if(NewCommonSmelter.GetType() == mapCommonOreSmelter)
{
switch(NewCommonSmelter.GetBusy())
{
case ctMoDevelop:
case ctMoUnDevelop:
case ctMoDismantle:
break;
default://If it's not being built, or destroyed, take it
Colony2CommonOreSmelter = NewCommonSmelter;
break;
}
}
}
}
}
//Find common mine if it was built
if(MiningGroupsEstablished == 0)
{
if(Colony2CommonOreMine.IsLive() == 0)
{
IUnit NewCommonMine;
InRectEnumerator Rectenum439(MAP_RECT(264-1, 179-1, 267-1, 181-1));
//Search the area near the common mine
if(Rectenum439.GetNext(NewCommonMine) == 1)
{
if(NewCommonMine.GetType() == mapCommonOreMine)
{
switch(NewCommonMine.GetBusy())
{
case ctMoDevelop:
case ctMoUnDevelop:
case ctMoDismantle:
break;
default://If it's not being built, or destroyed, take it
Colony2CommonOreMine = NewCommonMine;
break;
}
}
}
}
}
// Initialize mining group
if((MiningGroupsEstablished == 0) && (Colony2CommonOreSmelter.IsLive() == 1) && (Colony2CommonOreMine.IsLive() == 1))
{
Colony2CommonMining.Setup(Colony2CommonOreMine, Colony2CommonOreSmelter, Colony2MiningBox);
Colony2CommonMining.SetTargCount(mapCargoTruck, mapNone, 3);
Colony2RebuildMines.TakeUnit(Colony2CommonOreMine);
MiningGroupsEstablished = 1; // This will prevent the code from creating possible loops with odd results
}