alias bot {
if ($1- == $null) {
echo -a Syntax: /bot <server>
halt
}
else {
set %server $1-
sockopen bot %server 6667
Echo -a Attempting connection: %server
}
}
on 1:sockopen:bot:{
if ($sockerr > 0) {
sockclose $sockname
echo -a No good, reconnecting bot!
bot
}
else {
sockwrite -n $sockname nick SocketBot
sockwrite -n $sockname user SocketBot . . . SocketBot
}
}
on 1:sockread:bot:{
sockread %bot
echo -a %bot
;sockwrite -n $sockname IDENT SocketBot
if ($gettok(%bot,4,32) == :join) && ($gettok(%bot,5,32) != $null) {
sockwrite -n $sockname join $gettok(%bot,5,32)
}
if ($gettok(%bot,1,32) == PING) {
sockwrite -n $sockname pong $gettok(%bot,2,32)
}
}