/*Made by Aphex on Fri 21 Nov 97*/
void main (string str) {
  object usr;
  object player;
  
  usr = USER_D->find_user(str);
  if (usr != 0) {
    player = usr->query_player();
    if (this_player()->query_environment() != 
	player->query_environment()) {

      player->query_environment()->tell_room( 
         player, 
         capitalize(player->query_name()) + " disappears.\n"
      );
      player->move(
         this_player()->query_environment()->base_name()
      );
      player->query_environment()->tell_room( 
         player, 
         capitalize(player->query_name())+" suddenly appears.\n");
      player->message( "\nYou are magically transported to " + capitalize(this_player()->query_name()) +".\n");
    } else {
      out("Look around you.\n");
    } 
  } else {
    out( capitalize(str) + " not found.\n");
  }
}