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 MODE # $2- }
elseif ($1 == JOIN || $1 == PART ) { swrite $1 $active }
}

on *:sockopen:nth: {
  echo -st Logging in to $network $+ ...
  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- }
}