(
Echoplex: Echo text to other rooms
Install:
 @propset obj=d:_alisten:$muf/echoplex
Setup:
 @set obj=_prefix:<prefix to add to text>
 @set obj=_echolocation:<list of dbrefs to send text to>
Example:
 @propset here=d:_alisten:$muf/echoplex
 @set here=_prefix:Treetop
 @set here=_echolocation:#3029 #3136
)

$include $lib/alynna
: main
var targets
var writeln
var param 
param !
( Create target string )
{ { 
  trig "_prefix" getprop if
   trig "_prefix" getprop
  else
   here name
  then
  "> " 
  param @
}cat }array writeln !
( Parse all the locations specified in _echolocation )  
  trig "_echolocation" array_get_reflist targets !
( then make a huge array of all contents of those locations )
  {
  targets @ foreach swap pop contents_array array_vals pop repeat
  }array targets !
( Gotta tell them all! )
writeln @ targets @ array_ansi_notify
;