home *** CD-ROM | disk | FTP | other *** search
/ Treasure Hunt 2001 PRESSKIT / TH2001_PRESSKIT.iso / demo / scol_install / Partition / comm / comapi.pkg next >
Encoding:
Text File  |  2000-09-18  |  1.2 KB  |  90 lines
  1. /* Comapi.pkg */
  2.  
  3. fun __ComConnect (adr)= 
  4. { 
  5.   if (_channel==APIchn) then 
  6.   { 
  7.     APIContact adr;
  8.     0
  9.   }
  10.   else
  11.   {
  12.     _closechannel;
  13.     0
  14.   }
  15. };;
  16.  
  17. defcom ComNotFound = ComNotFound S;; 
  18.  
  19. fun __ComSearch (adr)= 
  20. { 
  21.   if (_channel==APIchn) then 
  22.   { 
  23.     let searchline adr->res in 
  24.     { 
  25.       if (res==nil) then 
  26.       {   
  27.         _on _channel ComNotFound [adr]; 0 
  28.       } 
  29.       else 
  30.       { 
  31.         _setenv _channel _envchannel res; 
  32.         _script "ComAPIplug\n"; 
  33.         _setenv res _envchannel _channel; 
  34.       } 
  35.     } 
  36.   } 
  37.   else 
  38.   { 
  39.     _closechannel; 
  40.     0 
  41.   } 
  42. };; 
  43.  
  44. fun APIMain ()= 
  45. { 
  46.   set APIchn=_channel; 
  47. };; 
  48.  
  49. fun __ComSetNick (nick)= 
  50. { 
  51.   if (_channel==APIchn) then 
  52.   { 
  53.     _SETtext nickname nick; 
  54.     0 
  55.   } 
  56.   else 
  57.   { 
  58.     _closechannel; 
  59.     0 
  60.   } 
  61. };; 
  62.  
  63. fun __ComRoom (i)= 
  64. { 
  65.   if (_channel==APIchn) then if (i==1) then 
  66.   { 
  67.     _SETcheck chatroom 1; 
  68.     0 
  69.   } 
  70.   else 
  71.   { 
  72.     _SETcheck chatroom 0; 
  73.     0 
  74.   } 
  75.   else 
  76.   { 
  77.     _closechannel; 
  78.     0 
  79.   } 
  80. };; 
  81.  
  82. fun __ComSimpleConnect (adr)= 
  83. { 
  84.   if (_channel==APIchn) then 
  85.   { 
  86.     Contact adr; 
  87.     _closechannel; 
  88.   } 
  89.   else _closechannel; 
  90. };;