defcom skip=skip;;
defcom APIstart = APIstart;;
defcom ComConnect = ComConnect S;;

var ipcor="";;

fun __ChatACK(s)=_closechannel;;

fun __ComAPIok()=_on _channel ComConnect [strcat ipcor ":1290"];;

fun _closed()=0;;

fun main(s)=
 set ipcor=s;
 _on _channel skip [];
 _on _channel APIstart [];;