5d0
@verb #1387:"@paste*-to" any any any rxd #9620
@program #1387:"@paste*-to" any any any
"Copied from Cecil's Social FO (dedicated to Myra) (#6169):@paste by Cecil_Stuff (#9988) Sep  7 21:32:07 2002"
"This originally came from Lambda, or so I am told. Unfortunately, Lambda sucks, and this verb needs badly to be fixed and made non-suck."
"Usage: @paste"
"       @paste <player> [<player>..]"
"If no players are specified, the text will be announced to all players in the room."
header = $string_utils:center(tostr($string_utils:nn(player) + " @pastes:"), 70, "-")
footer = $string_utils:center(tostr("End of @paste"), 70, "-")
if (dobj == $nothing)
  who = $set_utils:intersection(player.location.contents, connected_players())
else
  targets = $string_utils:words(argstr)
  who = {}
  for n in (targets)
    $command_utils:suspend_if_needed(1)
    person = $string_utils:match_player(n)
    if (n != $failed_match && n != $ambiguous_match)
      who = {@who, person}
    else
      player:tell("`", n, "' was not found.")
    endif
  endfor
endif
who = setadd(who, player)
player:tell("Now @pasting to: ", $string_utils:nn_list(who), ".")
try
  pastetext = $command_utils:read_lines()
except (E_INVARG)
  "Disconnected."
  return
endtry
final = {header}
for n in (pastetext)
  $command_utils:suspend_if_needed(1)
  final = {@final, n}
endfor
final = {@final, footer}
for x in (who)
  $command_utils:suspend_if_needed(1)
  x:tell(final)
endfor
.

0