home *** CD-ROM | disk | FTP | other *** search
/ Treasure Hunt 2001 PRESSKIT / TH2001_PRESSKIT.iso / demo / scol_install / Partition / comm / comapi3.pkg < prev    next >
Encoding:
Text File  |  2000-09-18  |  3.0 KB  |  196 lines
  1. /* Comapi3.pkg */
  2.  
  3. defcom ComClosed = ComClosed;; 
  4. defcom ComConnected = ComConnected S;; 
  5. defcom AddLink = AddLink S S;; 
  6.  
  7. fun InitChat (nick,room)= 
  8. { 
  9.   _setenv APIchn _envchannel _channel; 
  10.   set serverisroom=room; 
  11.   set servernick=nick; 
  12.   set serverIP=_channelIP _channel; 
  13.   set MyNick=_GETtext nickname; 
  14.   _status strcat strcat "On server: " nick ".\n"; 
  15.   set thischn=_channel; 
  16.   set thisenv=_envchannel _channel; 
  17.   _status "Module OK\n"; 
  18.   PHONEInit; 
  19.   _on _channel ChatACK [MyNick]; 
  20.   InitChatWindow; 
  21.   _on _channel NewUser [MyNick 0 _hostIP]; 
  22.   _on APIchn ComConnected [nick]; 
  23.   0 
  24. };; 
  25.  
  26. fun APIengage ()= 
  27. { 
  28.   set APIchn=_channel; 
  29.   _on APIchn ComConnected [servernick]; 
  30. };; 
  31.  
  32. fun __ComAddLink (name,ln)= 
  33. { 
  34.   __AddLink name ln; 
  35.   _on thischn AddLink [name ln] 
  36. };; 
  37.  
  38. fun __ComClose ()= 
  39. { 
  40.   _on APIchn ComClosed []; 
  41.   _killchannel thischn;  
  42. };; 
  43.  
  44. fun _closed ()= 
  45. { 
  46.   _status strcat strcat strcat strcat "Disconnected from " servernick " (" serverIP ").\n"; 
  47.   _on APIchn ComClosed []; 
  48.   _killchannel thischn; 
  49.   _killchannel APIchn; 
  50. };; 
  51.  
  52. fun _connected ()= 
  53. { 
  54.   _status "Connected.\n" 
  55. };; 
  56.  
  57. fun __ComRedirectText (i)=  
  58. {
  59.   if (_channel==APIchn) then 
  60.   {
  61.     set RedirectText=i; 
  62.   } 
  63.   else 0; 
  64. };; 
  65.  
  66. fun __ComRedirectAudio (i)=  
  67. {
  68.   if (_channel==APIchn) then 
  69.   { 
  70.     set RedirectAudio=i; 
  71.   } 
  72.   else 0; 
  73. };; 
  74.  
  75. fun __ComRedirectEvents (i)=  
  76. { 
  77.   if (_channel==APIchn) then 
  78.   { 
  79.     set RedirectEvents=i; 
  80.   }
  81.   else 0; 
  82. };; 
  83.  
  84. fun __ComMinimizeClient ()= 
  85. { 
  86.   if (_channel==APIchn) then 
  87.   { 
  88.     _SHOWwindow Chatw WINDOW_MINIMIZED; 
  89.     0
  90.   } 
  91.   else 0; 
  92. };; 
  93.  
  94. fun __ComRestoreClient ()= 
  95. { 
  96.   if (_channel==APIchn) then 
  97.   { 
  98.     _SHOWwindow Chatw WINDOW_RESTORED; 
  99.     0 
  100.   } 
  101.   else 0; 
  102. };; 
  103.  
  104. fun __ComMaximizeClient ()= 
  105. {
  106.   if (_channel==APIchn) then 
  107.   { 
  108.     _SHOWwindow Chatw WINDOW_MAXIMIZED; 
  109.     0 
  110.   } 
  111.   else 0; 
  112. };; 
  113.  
  114. fun __ComHideClient ()= 
  115. { 
  116.   if (_channel==APIchn) then 
  117.   { 
  118.     _SHOWwindow Chatw WINDOW_HIDDEN; 
  119.     0
  120.   } 
  121.   else 0; 
  122. };; 
  123.  
  124. fun __ComUnHideClient ()= 
  125. {
  126.   if (_channel==APIchn) then 
  127.   { 
  128.     _SHOWwindow Chatw WINDOW_UNHIDDEN; 
  129.     0 
  130.   } 
  131.   else 0; 
  132. };; 
  133.  
  134. fun __ComSetFocusClient ()= 
  135. { 
  136.   if (_channel==APIchn) then 
  137.   { 
  138.     _SETfocus Chatw; 
  139.     0 
  140.   } 
  141.   else 0; 
  142. };; 
  143.  
  144. fun __ComSendText (s)= 
  145. { 
  146.   if (_channel==APIchn) then 
  147.   { 
  148.     _on thischn Hear [s]; 
  149.   } 
  150.   else 0; 
  151. };; 
  152.  
  153. fun __ComRecordOn ()= 
  154. {
  155.   if (_channel==APIchn) then 
  156.   {
  157.     Record; 
  158.   } 
  159.   else 0; 
  160. };; 
  161.  
  162. fun __ComRecordOff ()= 
  163. { 
  164.   if (_channel==APIchn) then 
  165.   { 
  166.     PauseRecord; 
  167.   }
  168.   else 0; 
  169. };; 
  170.  
  171. fun __ComLoadPack (pack,sc)= 
  172. { 
  173.   if (_channel==APIchn) then 
  174.   { 
  175.     _load pack; 
  176.     if (sc!=nil) then 
  177.     { 
  178.       _script sc; 
  179.       0
  180.     }
  181.     else 0; 
  182.   } 
  183.   else 0; 
  184. };; 
  185.  
  186. fun __ComMove (x,y)= 
  187. { 
  188.   if (_channel==APIchn) then 
  189.   { 
  190.     _MVwindow Chatw x y; 
  191.     0 
  192.   } 
  193.   else 0; 
  194. };;
  195.  
  196.