string SimName = "Hyperica Upper";     //Change this to name of your destination
string SimAddress = "hg.hyperica.com:8022:Hyperica Upper";  //Change this to its hypergrid address
vector LandingPoint = <128.0, 128.0, 36.0>;
vector LookAt       = <1.0,1.0,0.0>;

list LastFewAgents;

PerformTeleport( key WhomToTeleport )
     {
          integer CurrentTime = llGetUnixTime();
          integer AgentIndex = llListFindList( LastFewAgents, [ WhomToTeleport ] );
          if (AgentIndex != -1)
          {    integer PreviousTime = llList2Integer( LastFewAgents, AgentIndex+1 );
               if (PreviousTime >= (CurrentTime - 5)) return;
               LastFewAgents = llDeleteSubList( LastFewAgents, AgentIndex, AgentIndex+1);
          }
          LastFewAgents += [ WhomToTeleport, CurrentTime ];
          llMapDestination(SimAddress, LandingPoint, LookAt);

          //IF OS scripts are enabled, you can use this:
          //osTeleportAgent( WhomToTeleport, SimAddress, LandingPoint, LookAt );

     }

default

{   

state_entry()
     {  
          llSetText(SimName, <1,1,1>, 1);
          llSetTextureAnim(ANIM_ON | LOOP, 2, 4, 4, 1, 16, 6.0);
     }

touch_start(integer number)

     {    
          PerformTeleport( llDetectedKey( 0 ));  
     }

collision(integer number)
     {    
          PerformTeleport( llDetectedKey( 0 ));  
     }

}