/* ChatRoom Client - DMS - october 97 - by Sylvain HUET */
/* rev March 00 - by Sebastien DENEUX */

defcom Cspeak=speak S;;
defcom Cregister=register;;

fun activate(from,action,param,rep)=
 if !strcmp action "privateMsg" then
  _DMSevent this "hear" param nil
 else if !strcmp action "!speak" then
  _DMSsend this Cspeak [param]
 else nil;;

fun IniDMI(param)=
 _DMSregisterDMI this @activate nil;
 _DMSsend this Cregister [];
 _DMSevent this "getDialog" nil "!speak";
 _DMSevent this "hear" strcat strcat ">> entering " _DMSgetName this "\n" nil; 
 0;;

fun __hear(s)=
 _DMSevent this "hear" s nil;;