on *:TEXT:!clan*:#:{
var %sckid = $right($ticks,5)
if ($2 == $null) { set %clan.nick. $nick }
if ($2 != $null) { set %clan.nick. $replace($2- ,$chr(32),_) }
if ($left($1,1) == !) set %clan.way. notice $nick
if ($left($1,1) == @) set %clan.way. msg $chan
sockopen clan. [ $+ [ %sckid ] ] runehead.com 80
}
on *:SOCKOPEN:clan.*: {
sockwrite -nt $sockname GET /feeds/lowtech/searchuser.php?user= $+ %clan.nick. $+ &type=2 HTTP/1.1
sockwrite -nt $sockname Host: runehead.com
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:clan.*: {
if ($sockerr) {
%clan.way. Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
return
}
else {
var %sockreader
sockread %sockreader
if (*|* iswm %sockreader) {
noop $regex(%sockreader,/(.*?)\|(.*)/Si)
set %clan.name $regml(1)
set %clan.url $regml(2)
%clan.way. Clan: %clan.name URL: %clan.url
sockclose $sockname
}
elseif (*Not Found* iswm %sockreader) {
%clan.way. ERROR: %clan.nick. isn't in any clanlist.
sockclose $sockname
}
}
}