@program fastpastemode.muf
1 1000 d
i
$include $lib/alynna
lvar param 
: main
var targets
var target
var lines
param !
param @ not if "here" param ! then
param @ " " explode_array targets !
{
targets @ foreach swap pop match dup target ! case
 ok? not when end
 room? when target @ contents_array foreach swap pop dup player? not if pop then repeat end
 player? not when target @ owner end
 default pop target @ end
endcase
repeat
}array { swap foreach swap pop dup "_prefs/nopaste" getprop if pop then repeat }array targets !
targets @ not if { "None of the targets were valid." }tell exit then
{ "Paste targets: " { targets @ foreach swap pop name repeat }array array_commas }tell
{ "<<< Paste ready, '.' to end paste >>>" }tell
{
{ "<<< Start paste from " me @ " >>>" }cat
begin
 read dup "." smatch if pop break then
repeat
{ "<<< End paste from " me @ " >>>" }cat
}array lines !
lines @ targets @ array_notify
;
.
c
q