3bb
@verb #4214:"+*" any any any rxdo #8438
@program #4214:"+*" any any any
if (length(verb) == 1)
  return player:tell("You must give a players name.")
elseif (!argstr)
  return player:tell("You need a message with that! ;-P")
endif
this:update_usage("+", player)
match = $string_utils:match_player(verb[2..length(verb)])
if ($command_utils:player_match_failed(match, verb[2..length(verb)]))
  return
endif
prefix = tostr("(From ", player.location:titlec(), ") ", player:titlec(), argstr[1] == "'" ? "" | " ")
send = `match:receive_page(tostr(prefix + argstr)) ! ANY => match:receive_page(prefix, argstr)'
if (send == 0)
  return player:tell(match:titlec(), " refused your emote.")
elseif (send == 1)
  return player:tell(match:titlec(), " sees: ", player:titlec(), argstr[1] == "'" ? "" | " ", argstr)
else
  return player:sub_tell(`match:msg_ld_asleep() ! E_PROPNF => "%1 isn't connected right now."', match:title(), "emote")
endif
.

0