/*RealPlayer Module - DMS - April 99 - by Vincent BEAUDENON */

typeof clis=[CLIENT r1];;

defcom Cplay= play S;;

fun broad(x,b)=_DMSsend this x Cplay [b];;


fun activate(from,cli,action,param,rep)=
 if !strcmp action "playAll" then
  (apply_on_list clis @broad param;0)
 else if !strcmp action "stopAll" then
  (apply_on_list clis @broad param;0)
 else if !strcmp action "start" then
  (_DMScreateClientDMI this cli nil;0)
 else nil;;


fun __register()=
 set clis=DMSsender::clis;;

fun logout(cli)=set clis=remove_from_list clis cli;0;;


fun IniDMI(file)=
_DMSregisterDMI this @activate @logout nil nil;;