alias sockbot if ($1 && $2) { sockopen bot $1-2 }
alias re sockwrite -n bot $1-
alias ok var %s = 1,%q | while (%s <= $numtok($1-,32)) { %q = $addtok(%q,$+($chr(40),$chr(36),%s,$chr(41),$gettok($1-,%s,32)),32) | inc %s } | $iif($window(@data),aline -p @data $timestamp Veri: $+($chr(2),%q))
on *:sockopen:bot:{
if ($sockerr) { echo -at Bağlantı başarısız. | halt }
re nick BOT | re user ident * * :sckbot | sockmark bot BOT
}
on *:sockread:bot:{
if ($sockerr) { echo -at Bağlantı başarısız. | halt }
var %1 | sockread %1 | tokenize 32 %1 
$iif(!$window(@data),window -k0 @data) 
ok $1- | sckbt $1-
}
alias sckbt {
if ($sock(bot)) { 
$iif($regex($1,^ping$/i),re PONG $2-) 
}
}