//NiteCap 7-1-08
//Divining pool script

// only shows PC's with in the +/- 6 level range
// oSeer should point to the object using the script ie PC using the script
// oToBeSeen is the PC to check v/s the oSeer

int GetPCCanBeSeen(object oSeer, object oToBeSeen);


//beg main
void main()
{
object oUser = GetLastUsedBy();
object oPC = GetFirstPC();
string SpeakText;

  while(GetIsPC(oPC))
    {
      if(!GetIsDM(oPC) || !GetIsDMPossessed(oPC))
        {
        if (GetPCCanBeSeen(oUser,oPC))
            {
            SpeakText += GetName(oPC);
            SpeakText += " is in ";
            SpeakText += GetName(GetArea(oPC));
            SpeakText += "\n";
            oPC = GetNextPC();
            }
        }
       oPC = GetNextPC();
    }
    SpeakString(SpeakText);
}
   //end main


int GetPCCanBeSeen(object oSeer, object oToBeSeen)
{
    int iUHD = GetHitDice(oSeer);
    int iPCHD=GetHitDice(oToBeSeen);
    int nGap = (iUHD-iPCHD);

    // base is unseen
    int bSeen=FALSE;
    if(nGap >= -6 <= 6)bSeen=TRUE;
/*
    //if the user's hitdice are more than the PC oToBeSeen
    if (iUHD = iPCHD)
        {
        if((iUHD - iPCHD) <= 6)bSeen=TRUE;
        }
    //if the user's hitdice are less than the PC oToBeSeen
    if (iPCHD >= iUHD)
        {
        if((iPCHD-iUHD)<=6)bSeen=TRUE;
        }
        //let us see?

*/
    return bSeen;
}