home *** CD-ROM | disk | FTP | other *** search
/ Treasure Hunt 2001 PRESSKIT / TH2001_PRESSKIT.iso / demo / scol_install / Partition / comm / comclient.pkg < prev    next >
Encoding:
Text File  |  2000-09-18  |  1.6 KB  |  69 lines
  1. /* comclient.pkg */
  2.  
  3. defcom ComAPIok = ComAPIok;; 
  4. defcom ChatNAck = ChatNACK S S;; 
  5.  
  6. fun __APIstart ()= 
  7. { 
  8.   let _channelIP _channel -> a in 
  9.   if (strcmp a _hostIP) && (strcmp a "127.0.0.1") then 
  10.   { 
  11.     _on _channel status ["This client is not authorised to connect to this server.\nOnly local connections are allowed."]; 
  12.     _delline _channel; 
  13.     _on _channel ChatNAck ["" "Line already created"]; 
  14.     _closechannel; 
  15.     0 
  16.   } 
  17.   else 
  18.   { 
  19.     _setenv _channel serverenv; 
  20.     _load "comm/comAPI.pkg"; 
  21.     _script "APIMain"; 
  22.     _on _channel ComAPIok []; 
  23.     0 
  24.   } 
  25. };;
  26.  
  27. defcom InitChat = InitChat S I;;
  28.  
  29. fun ChatStart (o,nick,i)=
  30.   let (findline Lines (_channelIP _channel))-> line in
  31.   if ((i==1) && line!=nil) then 
  32.   {          
  33.     _fooS "LINES NIL";
  34.     set Lines=_channel::Lines; 
  35.     _setenv _channel serverenv; 
  36.     _load "comm/comphone.pkg"; 
  37.     _load "comm/comchat.pkg"; 
  38.     _script mkscript InitChat [nick ChatRoom];
  39.   }
  40.   else 
  41.   {
  42.     _fooS "LINES PAS NIL";
  43.     _on _channel ChatNAck ["" "Chat refused by pair."]; 
  44.     _closechannel; 
  45.     nil
  46.   }
  47. ;;
  48.  
  49. fun __ChatStart (nick)= 
  50.   if findline Lines (_channelIP _channel) then 
  51.   { 
  52.     _fooS "Line Allready connected"; 
  53.     _delline _channel; 
  54.     _on _channel ChatNAck ["" "Line already created"]; 
  55.     _closechannel; nil 
  56.   } 
  57.   else 
  58.     _DLGrflmessage (_DLGMessageBox _channel nil loc "INCOMING" strloc loc "INCOM2" nick::(_channelIP _channel)::nil 1) @ChatStart nick
  59. ;;
  60.  
  61. fun _connected ()= 
  62. { 
  63.   _status "Client connected.\n"; 
  64. };; 
  65.  
  66. fun _closed ()= 
  67. _delline _channel /*  _closemachine*/
  68. ;;
  69.