@verb #1001:"@pasteto" any none none rxdo #7153
@program #1001:"@pasteto" any none none
"Usage:  @pasteto <player1> [<player2> <player3> ...]"
"    -=> Asks you for lines to paste to the players."
""
"   NEW: You can change the page header/footer with a :page_header / "
"        :page_footer verb on yourself.  Just have it return what you want"
this:update_usage(verb, player)
"        it to say. :)"
target = $string_utils:match_player(dobjstr)
$command_utils:player_match_result(target, dobjstr)
if (!valid(target))
  return
endif
prefix = "|"
suffix = ""
lines = $command_utils:read_lines()
try
  start = player:page_header()
  finish = player:page_footer()
except (E_VERBNF)
  start = "Private Message From " + player:title()
  finish = "End of @pasteto"
endtry
to_tell = {$string_utils:center(start, player:linelength(), "_")}
for line in (lines)
  length = length(line)
  to_tell = {@to_tell, prefix + line + suffix}
endfor
to_tell = {@to_tell, $string_utils:center(finish, player:linelength(), "-")}
target:tell(to_tell)
player:tell("Done @pasting.")
"Last modified by Dax (#789) on Thu Jul  9 17:28:44 1998 EDT."
.