Ks5rhZvg

1alias sockbot { 
2  tokenize 32 $1-
3  if ($1 == -p) && ($0 == 4) {
4    set %sockbot.irc $3
5    sockopen $+(sockbot,$4) $replace($2,:,$chr(32))
6  }
7  elseif ($0 == 2) {
8    sockopen $+(sockbot,$2) $replace($1,:,$chr(32))
9  }
10} 
11on *:sockopen:sockbot*:{ 
12  if ($sockerr > 0) { echo -a error } 
13  else { 
14    if (%sockbot.irc) {
15      sockwrite -tn $sockname CONNECT %sockbot.irc HTTP/1.0 $+ $crlf $+ $crlf
16      sockwrite -tn $sockname USER bot "gmail.com" "irc.quakenet.org" :sockbot $+ $crlf
17      sockwrite -tn $sockname NICK $right($sockname,-7) $+ $crlf $+ $crlf
18      unset %sockbot.irc
19    }
20    else {
21      sockwrite -tn $sockname USER bot "gmail.com" "irc.quakenet.org" :sockbot
22      sockwrite -tn $sockname NICK $right($sockname,-7)  
23    } 
24  }
25} 
26on *:sockread:sockbot*:{ 
27  if ($sockerr > 0) { sockclose $sockname | return } 
28  sockread %sockbot 
29  tokenize 32 %sockbot 
30  if (PING == $1) { sockwrite -tn $sockname PONG $2 | halt } 
31  elseif ($2 == 376) { echo -a connected }
32} 
33alias sockcmd { sockwrite -tn sockbot* $1- }