Mission/scenario changing code

$scene0="starter.fps/data/missions/fps.mis";

//------------to mission zero(/fps.mis), entrance 1

datablock TriggerData(name_of_teleport)
{
tickPeriodMS = 100;
};

function name_of_teleport::onEnterTrigger(%this,%trigger,%obj)
{
Parent::onEnterTrigger(%this,%trigger,%obj);
LaunchMission( $scene0, "spawnsphere_name" );
}

//this triggerdata and function must be cretated
// for every exit that connects to a specifc spawnsphere.
//in this case, you'll be sent to $scene0, in the spawnpoint named "spawnsphere_name"

//Tom Spilman code snipet
// Launches another %mission after %timeout milliseconds at
// the %spawn point desired.  %timeout and %spawn can be zero.

function LaunchMission( %mission, %spawn, %timeout )
{
   if ( !$Game::LaunchingMission ) {

      $Game::NextMission = %mission;
      $Game::NextSpawn = %spawn;
      $Game::LaunchingMission = true;
      schedule( %timeout, 0, "onLaunchMission" );
   }
}


function onLaunchMission()
{
   $Game::LaunchingMission = false;
   loadMission( $Game::NextMission );
}


//-------------

//Tom Spilman pickspawnpoint():
function pickSpawnPoint() 
{
   %groupName = "MissionGroup/PlayerDropPoints";

   if ( $Game::NextSpawn !$= "" ) {

      %spawn = nameToID( %groupName @ "/" @ $Game::NextSpawn );
      $Game::NextSpawn = "";
      if ( %spawn != -1 )
         return %spawn.getTransform();
   }

   %group = nameToID(%groupName);
   if (%group != -1) {
      %count = %group.getCount();
      if (%count != 0) {
         %index = 0;  //getRandom(%count-1);
         %spawn = %group.getObject(%index);
         return %spawn.getTransform();
      }
      else
         error("No spawn points found in " @ %groupName);
   }
   else
      error("Missing spawn points group " @ %groupName);

   // Could be no spawn points, in which case we'll stick the
   // player at the center of the world.
   return "0 0 300 1 0 0 0";
}