d18
{0, 979450351, {"Pasting Feature", #396, {#5252, #5, #3, #2, #1}, {}, #7153, 1, 
0, 0, 0, 0, 0, {}}, {{#1, {{#55, "r", "obj_disk_size", 0}}}, {#2, {{#7153, "rc",
 "www_desc", {"<H1>%T (#%T~#)</H1>", "*PASS*"}}, {#789, "r", "www_counter", 106}
, {#7165, "r", "subsidised", 0}, {#7153, "rc", "msg_help", {""}}, {#55, "r", "be
st_before", 987035594}, {#7153, "rc", "description", "A feature used for pasting
"}, {#55, "r", "aliases", {"Pasting Feature", "paste"}}}}, {#3, {{#7153, "rc", "
anchor", #-1}}}, {#5, {}}, {#5252, {{#7153, "rc", "feature_verbs", {"@pasteto"}}
, {#562, "r", "users", {#6107, #6319, #6959, #-1, #7071, #7113, #7160, #7165, #7
214, #7446, #7468, #7721, #7744, #8045, #8054, #8084, #8326, #8424, #8431, #8719
, #9221, #7676, #9579, #9613, #9679, #9911, #9168, #-1, #-1, #9659, #9874, #9818
, #9300, #-1, #-1, #2210, #-1, #2385, #2169, #2349, #-1, #-1, #2158, #2283, #258
8, #2729, #2731, #2759, #2773, #-1, #2444, #2903, #3671, #2322, #1202, #-1, #352
3, #-1, #-1, #1880, #-1, #1281, #1082, #1136, #-1, #-1, #-1, #7921, #-1, #5248, 
#5288, #-1, #5487, #5560, #-1, #5634, #-1, #-1, #-1, #-1, #7147, #7202, #7230, #
-1, #-1, #8043, #-1, #-1, #8539, #-1, #8806, #-1, #4871, #9057, #-1, #9459, #948
8, #9548, #9665, #-1, #-1, #-1, #4003, #7109, #7109, #-1, #-1, #-1, #-1, #-1, #-
1, #4545, #-1, #-1, #4370, #-1, #3992, #4312, #2203, #4017, #8045, #5075, #5075,
 #4546, #3291, #4457, #-1, #2203, #2203, #3252, #9102, #5075, #5075, #5580, #445
8, #8596, #7018, #8756, #-1, #9901, #7940, #9299, #5549, #8462, #5293, #8037, #8
514, #8045, #4545, #8632, #9603, #4285, #9131, #8230, #7071, #8037, #8726, #7591
, #5064, #8183, #4141, #4051, #9089, #9193, #9233, #-1, #9312, #8764}}, {#562, "
r", "usage", {{"@pasteto", 1218}}}}}, {#1001, {}}}, {{#7153, "rxdo", "@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:u
pdate_usage(verb, player);", "\"        it to say. :)\";", "target = $string_uti
ls: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_head
er();", "  finish = player:page_footer();", "except (E_VERBNF)", "  start = \"Pr
ivate Message From \" + player:title();", "  finish = \"End of @pasteto\";", "en
dtry", "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.\"
;"}}, {{#53, "recycle", #55, #53, #6319}, {#-1, "", #6319, #-1, #6319}, {#-1, "c
all_function", #-1, #-1, #6319}, {#0, "do_bf_call", #6319, #0, #6319}, {#0, "bf_
eval", #789, #104, #6319}, {#0, "bf_eval", #6319, #101, #6319}, {#6319, "eval_cm
d_string", #6319, #14, #6319}, {#6319, "eval", #6319, #14, #6319}}}
.

0