[script]
on *:TEXT:!ut*:#: {
if ($isnotnum($2) || $2 == 0) { notice $nick I number my victims and recommend you to do the same ;) | halt }
if %dont == 1 { /notice $nick Slow Down man! it's not like your life depends on it or something! | halt }
%nick = $nick | %name = $2
if $chan == #5pillars || $chan == #utge { %nick = $nick }
/aBot
/.timertimeout 1 15 /notice %nick Connection timed out
}
on *:TEXT:!creator: {
/notice $chan Mardrax, GotR footwipe }
ALIAS /ut {
if %dont == 1 { /echo -a Slow Down man! it's not like your life depends on it or something! | halt }
%nick = $me | %name = $1
/aBot
/.timertimeout 1 15 /notice %nick Connection timed out
}
alias /aBot {
/sockopen utsocket utge.jaggu.org 80 | /.timerpingtimeout0 1 10 sockclose utsocket
/set -u15 %dont 1
/.timerpingtimeouta 1 10 /me %nick Ping Timeout (10 sec)
}
on *:SOCKOPEN:utsocket: {
/.timertimeout off | /.timerpingtimeout1 off | /.timerpingtimeouta off | /.timerpingtimeout0 off
sockwrite -nt utsocket GET /irc_lookup.php?mage= $+ %name HTTP/1.1
if ($sockerr > 0) { notice %nick Error connecting. | halt }
sockwrite -nt utsocket Host: utge.jaggu.org
sockwrite utsocket $crlf
}
on *:sockread:utsocket: {
if ($sockerr) return | sockread %data0
if %foundit0 == 1 {
%foundit0 = 0
/notice %nick %data0
%dont = 0
/sockclose utsocket
}
if $left(%data0,7) == No $+ $chr(32) $+ such {
/notice %nick That's either a corpse or it never existed
%dont = 0
/sockclose utsocket
}
if $left(%data0,1) == 3 { %foundit0 = 1 }
}
on *:sockclose:utsocket: {
%dont = 0
alias /close {
/sockclose utsocket
%dont = 0
/notice whatevertheguysnameis socket closed
}