106 lines
2.3 KiB
Plaintext
106 lines
2.3 KiB
Plaintext
|
//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<01>>---------------------------------";
|
|||
|
|
|
|||
|
|
// Get First Player
|
|||
|
|
oTarget = GetFirstPC();
|
|||
|
|
|
|||
|
|
|
|||
|
|
// Check if valid
|
|||
|
|
while(GetIsPC(oTarget)==TRUE)
|
|||
|
|
{
|
|||
|
|
|
|||
|
|
sLevel = "<c<><63><EFBFBD>>";
|
|||
|
|
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<><63><EFBFBD>> "+"<c<><63><EFBFBD>>(<c<01>>"+ IntToString(GetLevelByClass(class, oTarget))+"<c<><63><EFBFBD>>)" + " <c<><63><EFBFBD>>";
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
// Display Name
|
|||
|
|
sMessage = " ";
|
|||
|
|
|
|||
|
|
sMessage = "<c<01>>:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:";
|
|||
|
|
|
|||
|
|
sMessage +="\n"+"<c<01>>"+Name;
|
|||
|
|
|
|||
|
|
sMessage +="\n"+sLevel;
|
|||
|
|
|
|||
|
|
sMessage +="\n"+"AC:<c<01>> "+IntToString(AC);
|
|||
|
|
|
|||
|
|
sMessage +="\n"+"<c<><63><EFBFBD>>HP: <c<01>>"+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
|
|||
|
|
}
|