;################################## C L A N ###################################
alias c1 { return $+($chr(3),07,$1-) }
alias c2 { return $+($chr(3),02,$1-) }
alias c3 { return $+($chr(3),04,$1-) }
on $*:text:/^[!@](Clan)/Si:#:{
if ($sock(Clanread)) sockclose Clanread
if ($left($1,1) == !) set %display notice $nick $c3 $+ $c2 $+ Clan $c3 $+
if ($left($1,1) == @) set %display msg $chan $c3 $+ $c2 $+ Clan $c3 $+
set %Nick $replace($2-,$chr(32),$chr(43))
sockopen Clanread www.runehead.com 80
}
on *:SOCKOPEN:Clanread: {
sockwrite -nt $sockname GET /clans/search.php?search= $+ %nick HTTP/1.1
sockwrite -nt $sockname Host: www.runehead.com
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:Clanread: {
if ($sockerr) { %way Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
halt
}
var %sockreader
sockread %sockreader
If (*The exact search * iswm %sockreader) { set %result $remove($htmlfree(%sockreader),the,exact,search,returned,results:)
set %result $remove(%result,$gettok(%result,1,32))
}
if (*
, | ,%cname)
%Display $c2(Name:) $c1(%cname) $c2
%display $c1(www.Runehead.com/clans/ $+ $remove(%link,$chr(32)) $+)
}
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
;################################## P R I C E ###################################
on $*:TEXT:/^[!@](cash|price|pricecheck|gold)/Si:#:{
if (!$2) {
notice $nick *** [Price Guide]: You must supply a item - !price -
halt
}
else {
inc %q
set %price.item. [ $+ [ %q ] ] $replace($2-,$chr(32),$chr(37) $+ 20)
set %price.style. [ $+ [ %q ] ] $iif($left($1,1) == @,msg $chan,notice $nick) *** [Price Guide]:
set %price.real. [ $+ [ %q ] ] $2-
sockopen price. $+ %q zybez.net 80
}
}
on *:SOCKOPEN:price.*:{
sockwrite -nt $sockname GET /priceguide.php?search_terms= $+ %price.item. [ $+ [ %q ] ] $+ &search_area=1&price_low=&price_high=&member=1 HTTP/1.1
sockwrite -nt $sockname Host: www.zybez.net
sockwrite -nt $sockname $crlf $crlf
}
on *:SOCKREAD:price.*:{
var %style = %price.style. [ $+ [ %q ] ], %item = %price.item. [ $+ [ %q ] ], %real = %price.real. [ $+ [ %q ] ]
if ($sockerr) {
%style An error occured while connecting
sockclose $sockname
}
else {
var %read
sockread %read
if (
| Your search did not return any results. Please make sure your spelling is correct and that you are typing full words. | iswm %read) {
%style No results were found for " $+ %real $+ "
sockclose $sockname
}
elseif (* | iswm %read) {
tokenize 32 $nohtml(%read)
set %price.name. [ $+ [ %q ] ] $1-
}
elseif (* | iswm %read) {
tokenize 32 $nohtml(%read)
set %price.price. [ $+ [ %q ] ] $1-
}
elseif (* | iswm %read) {
tokenize 32 $nohtml(%read)
set %price.cat. [ $+ [ %q ] ] $1-
}
if (%price.name. [ $+ [ %q ] ] && %price.price. [ $+ [ %q ] ] && %price.cat. [ $+ [ %q ] ]) {
inc %price.times. [ $+ [ %q ] ]
if (%price.times. [ $+ [ %q ] ] > 5) {
%style (F) Max results of 5 allowed. Try making your search for " $+ %real $+ " more specific. i.e. Partyhat --> Blue Partyhat
sockclose $sockname
}
else {
%style (F) %price.name. : [ $+ [ %q ] ] %price.price. [ $+ [ %q ] ] [zybez.net]
unset %price.name. [ $+ [ %q ] ]
unset %price.price. [ $+ [ %q ] ]
unset %price.cat. [ $+ [ %q ] ]
}
}
if (