on *:dialog:admin:sclick:22:{
botsock
}
alias botsock {
sockopen bsock 192.168.1.101 6667
}
on *:sockopen:bsock:{
sockwrite -n $sockname NICK AdminBot
sockwrite -n $sockname USER AdminBot Dorothy blakenet.myftp.org AdminBot
sockwrite -n $sockname JOIN #chat
sockwrite -n $sockname JOIN #VB
sockwrite -n $sockname JOIN #Help
sockwrite -n $sockname NAMES #Chat
}
on *:sockread:bsock:{
sockread %temptext
did -a admin 66 %temptext $+ $crlf
if ($gettok(%temptext,1,32) == PING) {
sockwrite -n $sockname PONG $gettok(%temptext,2,32)
}
}
raw 353:*:{
didtok admin 4 32 $remove($6-,@,%,+,&)
}