@verb #2348:"create_player" this none this rxdo #9452
@program #2348:"create_player" this none this
if (!(caller_perms() in this.admins))
  raise(E_PERM)
else
  if (length(args) < 1)
    player:tell("No args[1].")
  else
    dude = $lord_player:new()
    dude->object = args[1]
    this.player_index = {@this.player_index, dude->object}
    this.player_database = {@this.player_database, dude}
    "this:new_day_for_player(dude)"
  endif
endif
"Last modified by Crono (#9452) on Sat Sep  7 17:57:04 2002 MDT."
.