// join weakest
void main()
{
   object oMe=OBJECT_SELF;
   object oPC=GetFirstPC();
   int nDWF;
   int nUND;
   int nUNC;
   int nSPID;
   int nLeast;
   string sID;
   string sLeast;
   while(oPC!=OBJECT_INVALID)
   { // count
     sID=GetLocalString(oPC,"sTeamID");
     if (sID=="DWF") nDWF++;
     else if (sID=="SPID") nSPID++;
     else if (sID=="UND") nUND++;
     else if (sID=="UNC") nUNC++;
     oPC=GetNextPC();
   } // count
   sLeast="UNC";
   nLeast=nUNC;
   if (nSPID<nLeast) { sLeast="SPID"; nLeast=nSPID; }
   if (nDWF<nLeast) { sLeast="DWF"; nLeast=nDWF; }
   if (nUND<nLeast) { sLeast="UND"; nLeast=nUND; }
   SetLocalString(oMe,"sTeamID",sLeast);
   if (sLeast=="UNC") sID="Unclean";
   else if (sLeast=="DWF") sID="Dwarf";
   else if (sLeast=="SPID") sID="Spider Cultists";
   else if (sLeast=="UND") sID="Undead";
   SendMessageToPC(oMe,"You have joined the "+sID+" team.");
}