@verb #17:"@make-guest @make_guest" any none none rdo #55
@program #17:"@make-guest @make_guest" any none none
"Usage:  @make-guest <guestname>"
"Creates a player called <guestname>_Guest owned by itself and a child of $guest."
if (!player.wizard)
  return $msg:mtell("huh")
elseif (length(args) != 1)
  return player:tell("Usage: ", verb, " &lt;guest name&gt;")
endif
guestname = args[1] + "_Guest"
guestaliases = {guestname, adj = args[1]}
if (!player.wizard)
  return
elseif ($player_db.frozen)
  player:tell("Sorry, the player db is frozen, so no players can be made right now.  Please try again in a few minutes.")
  return
elseif (!$player_db:available(guestname))
  player:tell("\"", guestname, "\" is not an available name.")
  return
elseif (!$player_db:available(adj))
  player:tell("\"", adj, "\" is not an available name.")
  return
else
  new = 400
  while ($recycler:valid(toobj(new)))
    new = new + 1
  endwhile
  new = toobj(new)
  if (!(x = $recycler:request(new, $guest, #-1)))
    return player:tell(x)
  endif
  new:set_name(guestname)
  new:set_aliases({@guestaliases, tostr("Guest", new)})
  if (!(e = $wiz_utils:set_player(new, 1)))
    player:tell("Unable to make ", new.name, " (", new, ") a player.")
    player:tell(tostr(e))
  else
    player:tell("Guest: ", new.name, " (", new, ") made.")
    new.last_connect_time = $maxint
    new.last_disconnect_time = time()
    move(new, $player_start)
  endif
endif
"Last modified by Dax (#789) on Thu Nov  8 11:38:30 2001 MST."
.