5cb
@verb #6169:"+* '*" any any any rxdo #7407
@program #6169:"+* '*" any any any
this:update_usage(verb[1], player)
matchstr = length(verb) > 1 ? verb[2 + (verb[2] == verb[1])..$] | player:tell("Sorry, you must give the name of a player.") && kill_task(task_id())
match = $string_utils:match_player(matchstr)
if ($command_utils:player_match_failed(match, matchstr))
  return
else
  try
    if (verb[1] == "+")
      prefix = tostr(p = `$code_utils:verb_or_property(player, "prefix") ! E_PROPNF' ? typeof(p) == $LIST ? p[random($)] | p | "From afar,", " %n", verb[2] == "+" ? "" | " ")
    else
      prefix = tostr(z = `$code_utils:verb_or_property(player, "prefix") ! E_PROPNF' ? z | "From afar,", " %n mindspeaks: ")
    endif
  except ($failed_match)
    prefix = verb[1] == "+" ? tostr("From afar,", " %n", verb[2] == "+" ? "" | " ") | tostr("From afar,", " %n mindspeaks: ")
  endtry
  suffix = ""
  m = match:receive_page(tostr(prefix, "%1", suffix), argstr)
  action = verb[1] == "+" ? "emote" | "page"
  if (m == 0)
    player:sub_tell(`match:msg_ld_refused() ! E_PROPNF => "%1 refused your %2"', match:title(), action)
  elseif (m == 1)
    player:sub_tell(`match:msg_ld_received() ! E_PROPNF => "%1 has received your %2"', match:title(), action)
  else
    player:sub_tell(`match:msg_ld_asleep() ! E_PROPNF => "%1 isn't connected right now."', match:title(), action)
  endif
endif
"Last modified by Dax (#789) on Tue May  3 13:55:56 2005 MDT."
.

0