( BroadcastClone.MUF                v1.1             by Ginger@Furtoonia )
(                                                                        )
( Follows WhiteFire's lst-broadcast format but not his code, in the tra- )
( dition of all my silly clones which are just written for the practise, )
( and also so I don't have to keep asking people if I can port them.     )
( Setup:                                                                 )
(   @set <source room>=_listen:1590                                      )
(   @set <source room>=_broadcast/rooms:1234 2345 3456 ....              )
(   @set <source room>=_broadcast/message:<message format>               )
(   @set <destination rooms>=_broadcast/fromrooms:dbref dbref / "any"    )
(                                                                        )
( _broadcast/message is how you want the message to appear in the desti- )
( nation rooms: default is "In <roomname>: <message>". %room is replaced )
( with the name of the source room; %m is replaced with the message. The )
( _broadcast/fromrooms on the dest room is either a list of dbrefs --    )
( @set here=_broadcast/fromrooms:123 1234 533 -- or "any" [no "s] to let )
( anyone broadcast to that room from their room.                         )
lvar dest lvar mesg
: send_mesg
  loc @ "_broadcast/message" getpropstr dup "" stringcmp 0 = if
        pop "In %room:  %m" then
  loc @ name "%room" subst
  mesg @ "%m" subst
  dest @ swap #-1 swap notify_except
;
: main
  mesg !
  loc @ "_broadcast/rooms" getpropstr dup "" stringcmp 0 = if pop exit then
  " " explode begin dup 0 = not while
      swap atoi dbref dup ok? not if pop 1 - continue then
      dest !
      dest @ owner me @ dbcmp
      loc @ intostr dest @ "_broadcast/fromrooms" getpropstr swap
             instr 0 = or
      dest @ "_broadcast/fromrooms" getpropstr "any" stringcmp 0 = or if
      send_mesg then 1 - repeat
;