///////////////////////////////////////////////////////////////////////////////////
// REAL TIME STRATEGY ADVENTURE - Kit
// FILE: rtsa_headerb
// NAME: Header for build menu
// SCRIPTED BY: Deva Bryson Winblood
// DATE: 4/1/2003
///////////////////////////////////////////////////////////////////////////////////

int fnIsOkayToBuild(int nUN)
{ // is it okay to builg unit # nUN?
  object oPC=GetPCSpeaker();
  object oMod=GetModule();
  string sID=GetLocalString(oPC,"sTeamID");
  string sUID=sID+IntToString(nUN);
  int nMR=GetLocalInt(oMod,"nRTSResNum");
  int nN;
  string sW;
  object oH;
  if(GetLocalInt(oMod,"n"+sID+"Units")<nUN) return FALSE; // unit not available
  if(GetLocalInt(oMod,"n"+sUID+"NB")==TRUE) return FALSE; // no build
  nN=1;
  while(nN<=nMR)
  { // check resources
    sW=GetLocalString(oMod,"sRTSResID"+IntToString(nN));
    if (GetLocalInt(oPC,"nRes"+IntToString(nN)+"Store")<GetLocalInt(oMod,"n"+sUID+"RC"+IntToString(nN))) return FALSE;
    nN++;
  } // check resources
  if(GetGold(oPC)<GetLocalInt(oMod,"n"+sUID+"RC0")) return FALSE; // gold
  sW=GetLocalString(oMod,"s"+sUID+"UR");
  if (GetStringLength(sW)>1)
  { // unit required
    oH=GetObjectByTag(sW);
    if (oH==OBJECT_INVALID) return FALSE; // unit not in play
    else if (GetLocalString(oH,"sTeamID")!=sID) return FALSE; // unit not on your team
  } // unit required
  nN=GetLocalInt(oMod,"n"+sUID+"MUT");
  if (GetLocalInt(oMod,"n"+sUID+"CUT")==nN&&nN>0) return FALSE; // maximum units of this type reached
  sW=GetLocalString(oMod,"s"+sUID+"COVAR");
  if (GetStringLength(sW)>1)
  { // control variable
    nN=GetLocalInt(oPC,"nVar"+sW)-GetLocalInt(oPC,"nVarU"+sW);
    if (nN<GetLocalInt(oMod,"n"+sUID+"COVAR")) return FALSE; // not enough control
  } // control variable
  sW=GetLocalString(oMod,"s"+sUID+"IT");
  if (GetStringLength(sW)>1&&GetItemPossessedBy(oPC,sW)==OBJECT_INVALID) return FALSE; // not carrying required item
  sW=GetLocalString(oMod,"s"+sUID+"SPR");
  if (GetStringLength(sW)>1)
  { // special item variable
    oH=GetItemPossessedBy(oPC,sW);
    if (oH!=OBJECT_INVALID)
    { // !OI
      sW=GetLocalString(oMod,"s"+sUID+"SPRV");
      nN=GetLocalInt(oH,sW);
      if (nN<GetLocalInt(oMod,"n"+sUID+"SPR")) return FALSE; // item variable less than required
    } // !OI
    else
     return FALSE;
  } // special item variable
  return TRUE;
} // fnIsOkayToBuild()