/* Comapi2.pkg */

defcom skip=skip;; 
defcom ChatACK = ChatACK S;; 
defcom ComConnected = ComConnected S;; 

fun APIcnx ()= 
{
  _on _channel skip []; 
};; 

fun __ChatACK (nick)= 
{ 
  _on _channel ChatACK [nick]; 
  _on APIchn ComConnected [nick]; 
  _status strcat strcat strcat nick " on IP " _channelIP _channel " opens a new chat window (API)."; 
  _load "comm/comphone.pkg"; 
  _load "comm/comchat.pkg"; 
  _load "comm/comapi3.pkg"; 
  _script mkscript InitChat [nick ChatRoom]; 
};; 

defcom ComClosed=ComClosed;; 

fun __ChatNACK (nick)= 
{ 
  _closechannel; 
  _on APIchn ComClosed []; 
  0 
};; 

fun _connected ()= 
{ 
  _on _channel skip []; 
  _SETfocus mainw; 
  _on _channel ChatStart [_GETtext nickname]; 
};;