//pelben_c_ok
string fnGetPID(object oPC)
{
  return GetPCPublicCDKey(oPC)+GetPCPlayerName(oPC)+GetName(oPC);
} // fnGetPID()

void fnGNBDTag(object oPC)
{ // set destination
  string sID=GetLocalString(oPC,"sTeamID");
  int nDest=16;
  if (sID=="UNC") nDest=19;
  else if (sID=="UND") nDest=22;
  else if (sID=="SPID") nDest=25;
  SetLocalString(OBJECT_SELF,"sGNBDTag",IntToString(nDest));
} // fnGNBDTag()

void main()
{
   object oPC=GetPCSpeaker();
   object oMod=GetModule();
   string sPID=fnGetPID(oPC);
   SetLocalInt(oPC,"nPortElbenQuest",1);
   SetLocalInt(oMod,"nPage_"+sPID,1);
   fnGNBDTag(oPC);
}