socketbot

alias sock {
  if ($1 == START) {
    sockclose nth
    var %i %nth.idx
  while (%i) { sockopen nth. [ $+ [ %i ] ] three.irc.sparkpea.net 6667 | dec %i }
  }
  elseif ($1 == CLOSE) { sockclose nth.* }
  elseif ($1 == MSG) { swrite PRIVMSG # : $2- }
  elseif ($1 == MODE || $1 == KICK || $1 == NOTICE) { swrite $1 # $2- }
  elseif ($1 == JOIN || $1 == PART) { swrite $1 $active }
  elseif ($1 == HOP) { swrite PART $active | swrite JOIN $active }
}
alias swrite { sockwrite -n nth.* $1- }
on *:sockopen:nth.*: {
  swrite NICK SocketBot
  swrite NickServ IDENTIFY %s
}
on *:sockread:nth.*:{
  sockread %fd
  if (%fd) { tokenize 32 %fd }
  if ($1 == PING) { swrite PONG $2- }
}