: main
  trigger @ location "_prefix" getpropstr
  " " strcat swap strcat
  trigger @ location "_roomlist" getpropstr
  " " explode
  begin dup while
    swap atoi dbref #-1
    3 pick 3 + pick notify_except 1 -
    loop
  pop pop
;