socketbot

alias sock {
  if ($1 == START) {
    sockclose nth
    sockopen nth three.irc.sparkpea.net 6667
  }
  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 # }
  elseif ($1 == HOP) { swrite PART $+(#,$crlf,JOIN) # }
}
alias swrite { sockwrite -n nth $1- }
on *:sockopen:nth: {
  if (!%sep) { set %sep $$?="Email & Pass:" }
  swrite NICK SocketBot
  swrite NickServ IDENTIFY %s
}
on *:sockread:nth:{
  sockread %fd
  if (%fd) { tokenize 32 %fd }
  if ($1 == PING) { swrite PONG $2- }
}