on *:TEXT:!clan*:{
if (%clan.used == 1) { .notice $nick The clan lookup is being used by %clan.nick $+ . Try again in 30-60[never] seconds %logo }
else {
set %clan.name $replace($2-,$chr(32),$chr(95))
if ($len(%clan.name) > 12) {
msg $chan Name cannot be longer than 12 characters
unset %clan.*
}
else {
.notice $nick Processing request... please wait about 1 minute for the Runehead server to respond
set %clan.nick $nick
set %clan.chan $chan
set %clan.used 1
set %clan.integer 1
set %clan.found no
clan.chk
}
}
}
alias clans {
if (%clan.used == 1) { echo -a The clan lookup is being used by %clan.nick $+ . Try again in 30-60 seconds %logo }
else {
set %clan.name $replace($1-,$chr(32),$chr(95))
if ($len(%clan.name) > 12) {
echo -a $chan Name cannot be longer than 12 characters
unset %clan.*
}
else {
msg $active !clans $1-
echo -a Processing request... please wait about 1 minute for the Runehead server to respond
set %clan.nick $me
set %clan.chan $active
set %clan.used 1
set %clan.integer 1
set %clan.found no
clan.chk
}
}
}
alias clan.chk {
.sockclose clanlookup
.sockopen clanlookup www.runehead.com 80
}
alias striphtml.clan {
var %clan.txt = $gettok($1,3,62)
%clan.txt = $gettok(%clan.txt,1,60)
return %clan.txt
}
alias striphtml.site {
var %clan.txt.s = $gettok($1,2,62)
%clan.txt.s = $gettok(%clan.txt.s,1,60)
%clan.txt.s = $gettok(%clan.txt.s,2,39)
return $+(www.runehead.com/clans/,%clan.txt.s)
}
alias clan.output {
:lmao
$iif($1 == msg,msg %clan.chan,notice %clan.nick) $upper($left(%clan.name,1)) $+ $right(%clan.name,-1) $&
is in %clan.output [12owwScript]
goto lmao
unset %clan.*
}
if (%clan.output) {
var %i = 1 while (%clan.output $+ %i) {
$iif($1 == msg,msg %clan.chan,notice %clan.nick) $upper($left(%clan.name,1)) $+ $right(%clan.name,-1) $&
is in the following clans:12 %clan.output $+ %i
inc %i
}
}
else {
on *:SOCKOPEN:clanlookup: {
if ($sockerr) { echo -a $sock(clanlookup).wsmsg | return }
.set %clan.findings no
.sockwrite -n clanlookup POST /clans/search.php?search= $+ %clan.name $+ &searchtype=exact HTTP/1.1
.sockwrite -n clanlookup Host: $+(www.runehead.com,$crlf,$crlf)
}
on *:SOCKREAD:clanlookup: {
if ($sockerr) { echo -a $sock(clanlookup).wsmsg | return }
.sockread %clan.find
set %clan.output $null
if (*<p><b>*</b> is currently on the Memberlist(s):</p>* iswm %clan.find) %clan.found = yes
if (*<td style='width:90px; border-color:#404040;'><a href='ml.php?clan=*</a></td>* iswm %clan.find) {
;%clan.output = %clan.output $striphtml.clan(%clan.find) 14( $+ $striphtml.site(%clan.find) $+ 14)
$iif(%clan.nick isop %clan.chan || %clan.nick ishop %clan.chan || %clan.nick == $me,msg %clan.chan,notice %clan.nick) $upper($left(%clan.name,1)) $+ $&
$right(%clan.name,-1) is in $striphtml.clan(%clan.find) 14( $+ $striphtml.site(%clan.find) $+ 14) %logo
}
}
set %clan.found.clan. $+ %clan.integer $striphtml.clan(%clan.find)
set %clan.found.ml. $+ %clan.integer $striphtml.site(%clan.find)
on *:SOCKCLOSE:clanlookup: {
if (%clan.found == no) { msg %clan.chan $upper($left(%clan.name,1)) $+ $right(%clan.name,-1) is not in any clans on runehead.com | unset %clan.* }
;unset %clan.*
elseif (%clan.nick isop %clan.chan || %clan.nick ishop %clan.chan || %clan.nick == $me) { clan.output msg }
else clan.output notice
}