home *** CD-ROM | disk | FTP | other *** search
/ Treasure Hunt 2001 PRESSKIT / TH2001_PRESSKIT.iso / demo / scol_install / Partition / comm / comapi2.pkg < prev    next >
Encoding:
Text File  |  2000-09-18  |  765 b   |  38 lines
  1. /* Comapi2.pkg */
  2.  
  3. defcom skip=skip;; 
  4. defcom ChatACK = ChatACK S;; 
  5. defcom ComConnected = ComConnected S;; 
  6.  
  7. fun APIcnx ()= 
  8. {
  9.   _on _channel skip []; 
  10. };; 
  11.  
  12. fun __ChatACK (nick)= 
  13. { 
  14.   _on _channel ChatACK [nick]; 
  15.   _on APIchn ComConnected [nick]; 
  16.   _status strcat strcat strcat nick " on IP " _channelIP _channel " opens a new chat window (API)."; 
  17.   _load "comm/comphone.pkg"; 
  18.   _load "comm/comchat.pkg"; 
  19.   _load "comm/comapi3.pkg"; 
  20.   _script mkscript InitChat [nick ChatRoom]; 
  21. };; 
  22.  
  23. defcom ComClosed=ComClosed;; 
  24.  
  25. fun __ChatNACK (nick)= 
  26. { 
  27.   _closechannel; 
  28.   _on APIchn ComClosed []; 
  29.   0 
  30. };; 
  31.  
  32. fun _connected ()= 
  33. { 
  34.   _on _channel skip []; 
  35.   _SETfocus mainw; 
  36.   _on _channel ChatStart [_GETtext nickname]; 
  37. };;
  38.