// kuotoa_mission - Handle all things relating to the Kuoa-Toa Mission
#include "antistuck_h"

void fnRaidBehavior()
{ // PURPOSE: Handle Raider movement
  object oMe=OBJECT_SELF;
  object oDest;
  int nR;
  int nState=GetLocalInt(oMe,"nRaidState");
  if (GetIsInCombat(oMe)==FALSE&&GetLocalInt(oMe,"bDespawn")==FALSE)
  { // ok
    if (nState==0)
    { // pick destination
      nR=Random(7)+1;
      oDest=GetWaypointByTag("KUORAID_"+IntToString(nR));
      SetLocalObject(oMe,"oRaidDest",oDest);
      if (oDest==OBJECT_INVALID) SendMessageToPC(GetFirstPC(),"Error: (kuotoa_mission)-> Cannot find KUORAID_"+IntToString(nR)+" waypoint.");
      AssignCommand(oMe,ASActionMoveToObject(oDest,FALSE,1.0));
      SetLocalInt(oMe,"nRaidState",1);
    } // pick destination
    else
    { // moving
      oDest=GetLocalObject(oMe,"oRaidDest");
      if (GetDistanceBetween(oMe,oDest)>3.0)
      { // move
        AssignCommand(oMe,ASActionMoveToObject(oDest,FALSE,1.0));
      } // move
      else
      { // state
        DeleteLocalInt(oMe,"nRaidState");
      } // state
    } // moving
  } // ok
  if (GetIsInCombat(oMe)==FALSE&&GetLocalInt(oMe,"bDespawn")==TRUE)
  { // handle despawn
    oDest=GetWaypointByTag("KUORAID_SPAWN");
    if (GetDistanceBetween(oMe,oDest)>1.5)
    { // move
      AssignCommand(oMe,ASActionMoveToObject(oDest,TRUE,1.0));
    } // move
    else
    { // despawn
      DestroyObject(oMe);
    } // despawn
  } // handle despawn
  DelayCommand(8.0,fnRaidBehavior());
} // fnRaidBehavior()

void fnSpawnThem(int nQty)
{  // PURPOSE: To spawn nQty of raiders
   int nL;
   object oC;
   object oWP=GetWaypointByTag("KUORAID_SPAWN");
   nL=0;
   while(nL<nQty)
   { // spawn
     nL++;
     if (d10()<9) oC=CreateObject(OBJECT_TYPE_CREATURE,"kuotoahunter",GetLocation(oWP));
     else { oC=CreateObject(OBJECT_TYPE_CREATURE,"kuotoafarhunter",GetLocation(oWP)); }
     DelayCommand(1.0,AssignCommand(oC,fnRaidBehavior()));
     SetAILevel(oC,AI_LEVEL_NORMAL);
   } // spawn
} // fnSpawnThem()

void fnSpawnRaiders()
{ // PURPOSE: Create Kuo-Toa raiders if none exist
  object oWP=GetWaypointByTag("KUORAID_SPAWN");
  object oOb;
  int nC=0;
  int nN=1;
  oOb=GetNearestCreature(CREATURE_TYPE_IS_ALIVE,TRUE,oWP,nN);
  while(oOb!=OBJECT_INVALID&&nC<8)
  { // count kuo-toa
    if (GetResRef(oOb)=="kuotoahunter"||GetResRef(oOb)=="kuotoafarhunter") nC++;
    nN++;
    oOb=GetNearestCreature(CREATURE_TYPE_IS_ALIVE,TRUE,oWP,nN);
  } // count kuo-toa
  if (nC<8)
  { // okay to spawn more
    fnSpawnThem(8-nC);
  } // okay to spawn more
} // fnSpawnRaiders()

void fnDespawnRaiders()
{ // PURPOSE: Call the despawn action
  object oWP=GetWaypointByTag("KUORAID_SPAWN");
  int nN=1;
  object oOb=GetNearestCreature(CREATURE_TYPE_IS_ALIVE,TRUE,oWP,nN);
  while(oOb!=OBJECT_INVALID)
  { // set despawn flag
    if (GetResRef(oOb)=="kuotoahunter"||GetResRef(oOb)=="kuotoafarhunter") SetLocalInt(oOb,"bDespawn",TRUE);
    nN++;
    oOb=GetNearestCreature(CREATURE_TYPE_IS_ALIVE,TRUE,oWP,nN);
  } // set despawn flag
} // fnDespawnRaiders()

string fnGetPID(object oPC)
{ // PURPOSE: To return a PID for the PC
  return GetPCPublicCDKey(oPC)+GetPCPlayerName(oPC)+GetName(oPC);
} // fnGetPID()

void fnSpawnPage(object oPC)
{ // PURPOSE: Spawn a page for the specified PC
  object oWP=GetWaypointByTag("POST_Page");
  string sPID=fnGetPID(oPC);
  object oMod=GetModule();
  object oPage=CreateObject(OBJECT_TYPE_CREATURE,"page",GetLocation(oWP));
  SetLocalObject(oPage,"oMsgTarget",oPC);
  SetLocalObject(oMod,"oPage_"+sPID,oPage);
  SetAILevel(oPage,AI_LEVEL_NORMAL);
  SendMessageToPC(oPC,"A page has been dispatched with a message for you.");
  if (oPage==OBJECT_INVALID) SendMessageToPC(oPC,"ERROR: kuotoa_mission: Your page could not be spawned!!");
} // fnSpawnPage()

void fnCheckForPagesNeeded()
{ // PURPOSE: If a PC qualifies and needs a page spawn it
  object oMod=GetModule();
  object oPC=GetFirstPC();
  string sPID;
  while(oPC!=OBJECT_INVALID)
  { // check PCs
    sPID=fnGetPID(oPC);
    if (GetLocalObject(oMod,"oPage_"+sPID)==OBJECT_INVALID&&GetIsDM(oPC)==FALSE)
    { // no page exists
      if (GetLocalInt(oMod,"nPage_"+sPID)==FALSE)
      { // has not answered a page
        if(GetLocalInt(oPC,"nQuests")>0)
        { // has completed quests
          fnSpawnPage(oPC);
        } // has completed quests
      } // has not answered a page
    } // no page exists
    oPC=GetNextPC();
  } // check PCs
} // fnCheckForPagesNeeded()

void main()
{
     object oMod=GetModule();
     object oKuoToaLeader=GetObjectByTag("KuoToaGreatShaman");
     object oOb;
     object oWP;
     int nN;
     int nC;
     int nHour=GetTimeHour();
     if (oKuoToaLeader!=OBJECT_INVALID)
     { // kuotoaleader still lives
       if (nHour>6&&nHour<12)
       { // create pages
         fnCheckForPagesNeeded();
       } // create pages
       else if (nHour>19||nHour<4)
       { // spawn raiders
         fnSpawnRaiders();
       } // spawn raiders
       else if (nHour>3&&nHour<20)
       { // despawn raiders
         fnDespawnRaiders();
       } // despawn raiders
     } // kuotoaleader still lives
}