// Setup Team tokens for In Progress Joiners
void main()
{
    object oMod=GetModule();
    object oPC;
    string sTokenSPID;
    string sTokenDWF;
    string sTokenUND;
    string sTokenUNC;
    string sID;
    oPC=GetLocalObject(oMod,"oTeamLeadSPID");
    if (oPC!=OBJECT_INVALID) sTokenSPID="Leader["+GetName(oPC)+"],";
    oPC=GetLocalObject(oMod,"oTeamLeadDWF");
    if (oPC!=OBJECT_INVALID) sTokenDWF="Leader["+GetName(oPC)+"],";
    oPC=GetLocalObject(oMod,"oTeamLeadUND");
    if (oPC!=OBJECT_INVALID) sTokenUND="Leader["+GetName(oPC)+"],";
    oPC=GetLocalObject(oMod,"oTeamLeadUNC");
    if (oPC!=OBJECT_INVALID) sTokenUNC="Leader["+GetName(oPC)+"],";
    oPC=GetFirstPC();
    while(oPC!=OBJECT_INVALID)
    { // team token build
      sID=GetLocalString(oPC,"sTeamID");
      if (sID=="SPID") sTokenSPID=sTokenSPID+GetName(oPC)+",";
      else if (sID=="DWF") sTokenDWF=sTokenDWF+GetName(oPC)+",";
      else if (sID=="UND") sTokenUND=sTokenUND+GetName(oPC)+",";
      else if (sID=="UNC") sTokenUNC=sTokenUNC+GetName(oPC)+",";
      oPC=GetNextPC();
    } // team token build
    if (sTokenSPID=="") sTokenSPID="Has no current members";
    if (sTokenDWF=="") sTokenDWF="Has no current members";
    if (sTokenUND=="") sTokenUND="Has no current members";
    if (sTokenUNC=="") sTokenUNC="Has no current members";
    SetCustomToken(10002,sTokenSPID);
    SetCustomToken(10003,sTokenUNC);
    SetCustomToken(10004,sTokenUND);
    SetCustomToken(10005,sTokenDWF);
}