@verb #2348:"match_player_obj" this none this rxdo #9452
@program #2348:"match_player_obj" this none this
if (!(caller_perms() in this.admins))
  raise(E_PERM)
else
  if (!args[1])
    player:tell("You must give the name of a player.")
  else
    objdude = $string_utils:match_player(args[1])
    if (objdude == $failed_match)
      player:tell("Cannot find " + toliteral(args[1]) + ".")
    elseif (objdude == $ambiguous_match)
      player:tell("Ambiguous name match.")
    else
      dude = objdude in this.player_index
      if (dude == 0)
        player:tell(objdude:title() + " does not have a player.")
      else
        return objdude
      endif
    endif
  endif
  return 0
endif
"Last modified by Crono (#9452) on Sat Apr 13 01:48:17 2002 MDT."
.