sockbot for ^_^
Posted by w.e
Friday, November 11, 2005
Description: title
alias bot {
sockopen bot $server $port
}
on *:SOCKOPEN:bot:{
sockwrite -n $sockname USER SockServ25 SockServ SockServ * $ip
sockwrite -n $sockname NICK SockServ25
sockwrite -n $sockname PING :makingmybotstayalive
}
on *:input:#: {
if ($1 == -join) {
sockwrite -n bot join $chan
}
}
on *:sockread:bot: {
sockread %temp
tokenize 32 %temp
if ($1 == PING) {
sockwrite -n $sockname PONG $2
halt
}
}