little socket

alias swrite { sockwrite -n nth $1- }

alias sock {
if ($1 == START) { sockclose nth | sockopen nth three.irc.sparkpea.net 6667 }
elseif ($1 == MSG) { swrite PRIVMSG # $2- }
elseif ($1 == MODE) { swrite $1 # $2- }
elseif ($1 == JOIN || $1 == PART ) { swrite $1 # }
}

on *:sockopen:nth: {
swrite NICK SocketBot
if (!%sep) { set %sep $$?="Email & Pass:" }
swrite NickServ IDENTIFY %sep
}

on *:sockread:nth:{
sockread %fd
if (%fd) { tokenize 32 %fd }
if ($1 == PING) { swrite PONG $2- }
}