I found this script on the net:
on $*:text:/^[!@](clan|group)/Si:#:{
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.
halt
}
else {
var %sockreader
sockread %sockreader
if (*|* iswm %sockreader) {
noop $regex(%sockreader,/(.*?)\|/Si)
set %clan.name $regml(1)
}
if (*|* iswm %sockreader) {
noop $regex(%sockreader,\|(.*?)/Si)
set %clan.url $regml(1)
%clan.way. Clan: %clan.name URL: %clan.url
sockclose $sockname
}
if (*Not Found* iswm %sockreader) {
%clan.way. ERROR: %clan.nick. isn't in any clanlist.
sockclose $sockname
}
}
}
Kid said it didnt work. Baisically it will tell you the clan they are in but its supposed to give the url and doesn't. The whole process works fine aside from that. So if anyone could tell me whats wrong I will be glad to in response to the kids code link them here and give you credit or w/e you want to do.
Thanks.
