@verb #2348:"createplayer cp" any on top of/on/onto/upon this rdo #9452
@program #2348:"createplayer cp" any on top of/on/onto/upon this
if (!(player in this.admins))
  raise(E_PERM)
else
  if (length(args) >= 1)
    dude = $string_utils:match_player(args[1])
    if (dude == $failed_match)
      player:tell("Invalid object number as match.")
      return E_INVARG
    endif
  else
    player:tell("Warning: no args given, defaulting to player.")
    dude = player
  endif
  if (this:is_player(dude))
    player:tell(dude:title() + " already has a player.")
  else
    this:create_player(dude)
    player:tell(dude:title() + " now has a LORD player.")
  endif
endif
"Last modified by Crono (#9452) on Sat Apr 13 00:56:40 2002 MDT."
.