alias irc { sockopen irc irc.mysticirc.co.uk 6667 }
On *:Sockopen:irc: {
sockwrite -tn irc USER $str($+(Andy,$chr(32)),3)
sockwrite -tn irc NICK $+(Andy,$rand(1,999))
}
on 1:sockread:irc: {
if ($sockerr > 0) return
:irc
sockread %irc
if ($sockbr == 0) return
if (!%irc) %irc = -
echo 2 -a $gettok(%irc,2-,58)
goto irc
}