//Creator: Unknown
//Revised By: Genisys (Guile)
//Revised On: 8/12/08

//Main Script
void main()
{

///Delete Var to start fresh\\\\
object oPC = GetFirstPC();

 while(GetIsPC(oPC)==TRUE)
 {
 DeleteLocalInt(oPC,"bootlist");
 DeleteLocalString(oPC,"playerinfo");

 oPC = GetNextPC();
 }

////Get Info of each Player and Store it on them\\\\
int nLoop = 8999;
SetCustomToken(9000,"Empty");
SetCustomToken(9001,"Empty");
SetCustomToken(9002,"Empty");
SetCustomToken(9003,"Empty");
SetCustomToken(9004,"Empty");
SetCustomToken(9005,"Empty");
SetCustomToken(9006,"Empty");
SetCustomToken(9007,"Empty");
SetCustomToken(9008,"Empty");
SetCustomToken(9009,"Empty");

    string sMessage;
    object oTarget;
//object oPC = GetLastUsedBy();
    string sArea;
    string sAreaTag;
    string sLevel;
    int class, pos;
    string cname;

    // Clear Message
    sMessage = "";

    // First Line

 sMessage = "<c

ç>---------------------------------";

    // Get First Player
   oTarget = GetFirstPC();


   // Check if valid
while(GetIsPC(oTarget)==TRUE)
{

sLevel = "<cööö>";
nLoop++;
   string Name = GetName(oTarget);
   int Hitpoints = GetMaxHitPoints(oTarget);
   int AC = GetAC(oTarget);
   string PCPlayerName = GetPCPlayerName(oTarget);
   string sAreaName = GetName(GetArea(oTarget));
   for(pos=1; pos<4; pos++)
        {
            class = GetClassByPosition(pos, oTarget);
            if (class != CLASS_TYPE_INVALID)
            {
                cname = Get2DAString("classes", "Label", class);
                if (cname == "") cname = "unknown (" + IntToString(class) + ")";
                sLevel = sLevel + cname +"<cööö> "+"<cööö>(<c
î
>"+ IntToString(GetLevelByClass(class, oTarget))+"<cööö>)" + " <cööö>";

            }
        }



        // Display Name
        sMessage = " ";

        sMessage = "<c

ç>:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:";

        sMessage +="\n"+"<c
î
>"+Name;

        sMessage +="\n"+sLevel;

        sMessage +="\n"+"AC:<c
î
> "+IntToString(AC);

        sMessage +="\n"+"<cööö>HP: <c
î
>"+IntToString(Hitpoints);


        // Set Token and Info//

 SetLocalString(oTarget,"playerinfo",sMessage);
 SetLocalInt(oTarget,"bootlist",nLoop);
int Token = GetLocalInt(oTarget,"bootlist");
string Info = GetLocalString(oTarget,"playerinfo");
 SetCustomToken(Token,Info);

//Continue the loop
oTarget = GetNextPC();
}

//Main Script End
}