// trick portal - these portals do nothing... there is a secret door past one of them
// but, players could spend a lot of time trying to figure these things out.
void main()
{
   object oPC=GetLastUsedBy();
   string sTag=GetTag(OBJECT_SELF);
   int nNum=StringToInt(GetStringRight(sTag,1));
   int nR=d6();
   object oDest;
   while(nR==nNum)
   { nR=d6(); }
   oDest=GetObjectByTag("FPORTAL_"+IntToString(nR));
   if (oDest!=OBJECT_INVALID)
   {
      AssignCommand(oPC,ClearAllActions(TRUE));
      AssignCommand(oPC,JumpToObject(oDest));
   }
}