rendered paste body elseif (($StatsID($1)) || ($regex($1,/^[!@]p(est|c)$/Si))) {
inc %sc
var %name = $+(Stats.,%sc)
var %pest = $iif($regex($1,/^[!@]p(est|c)$/Si),1,0)
hadd -m %name goal $iif($regex($iif(%pest,$3-,$2-),/(#|-[tg])([0-9]+)/S),$regml(2),00)
hadd -m %name monster $iif($gettok($1-,2,64),$v1,00))
hadd -m %name user $iif($remove($regsubex($iif(%pest,$3-,$2-),/(#|-[tg])[0-9]+/S,),$gettok($1-,2,64),@,$chr(35)),$v1,$iif($readini(C:\program files\mircmight\defname.ini,Defname,$address($nick,2)),$v1,$nick))
hadd -m %name sendway $iif($regex($1,/^@/S),msg $chan,notice $nick)
hadd -m %name skill $iif(%pest,P.) $+ $StatsID($iif(%pest,! $+ $2,$1))
sockopen %name hiscore.runescape.com 80
}
on *:SOCKOPEN:Stats.*:{
sockwrite -nt $sockname GET /hiscorepersonal.ws?user1= $+ $hr($hget($sockname,user)) HTTP/1.0
sockwrite -nt $sockname Host: $+(hiscore.runescape.com,$str($crlf,2))
}
on *:SOCKREAD:Stats.*:{
while ($sock($sockname).rq) {
sockread &rst
bwrite $sockname -1 -1 &rst
}
bread $sockname 0 $file($sockname).size &rst
if ($bfind(&rst,1,</HTML>)) {
if ($bfind(&rst,1,does not feature)) {
$hget($sockname,sendway) $+($c1,[,$flc($hget($sockname,user)),$c2 does not feature in the highscores for,$c1 any skill])
}
elseif ($regex($hget($sockname,skill),/^P\.(.+)$/i)) {
hadd -m $sockname result $htmlfree($replace($bvar(&rst,$bfind(&rst,$bfind(&rst,1,$regsubex($right($hget($sockname,skill),-2),/(.)/g,$+($asc(\1),$chr(32)))),<td align="right">),100).text,$chr(10),$chr(32)))
if (($numtok($hget($sockname,result),32) < 3) || (<img class="miniimg"* iswm $hget($sockname,result))) $hget($sockname,sendway) $+($c1,[,$flc($hget($sockname,user)) $c2,does not feature in the highscores for,$c1 $remove($hget($sockname,skill),P.),])
elseif ($gettok($hget($sockname,result),2,32) == 99) $hget($sockname,sendway) $+($c1,[,$remove($hget($sockname,skill),P.),$c2 for,$c1 $flc($hget($sockname,user)),$c2 is already level 99,$c1,])
else {
hadd -m $sockname rgoal $iif($hget($sockname,goal),$v1,$calc($gettok($hget($sockname,result),2,32) + 1))
hadd -m $sockname tickets $calc($calc($getxp($hget($sockname,rgoal)) - $remove($gettok($hget($sockname,result),3,32),$chr(44))) / (($gettok($hget($sockname,result),2,32) * $gettok($hget($sockname,result),2,32)) / $iif($remove($hget($sockname,skill),P.) == Prayer,12,6)))
$hget($sockname,sendway) $+($c1,[,$c2,$remove($hget($sockname,skill),P.) for,$c1 $flc($hget($sockname,user)),] [,$c2,Level:,$c1 $gettok($hget($sockname,result),2,32) |,$c2 Rank:,$c1 $gettok($hget($sockname,result),1,32) |,$c2 Exp:,$c1 $gettok($hget($sockname,result),3,32),$iif($gettok($hget($sockname,result),2,32) != 99,$+($chr(32),|,$c2 Exp till,$c1 $hget($sockname,rgoal),$c2,:,$c1 $bytes($calc($getxp($hget($sockname,rgoal)) - $remove($gettok($hget($sockname,result),3,32),$chr(44))),b) $chr(40),$c2,$round($calc(($remove($gettok($hget($sockname,result),3,32),$chr(44)) / $getxp($hget($sockname,rgoal))) * 100),2),$c1,%,$chr(41))),])
$hget($sockname,sendway) $+($c1,[,$c2,Pest Control Tickets till level,$c1 $hget($sockname,rgoal),] [,$c2,Tickets (1):,$c1 $bytes($ceil($hget($sockname,tickets)),b) |,$c2 Tickets (100):,$c1 $bytes($ceil($calc($hget($sockname,tickets) * 0.9)),b),])
}
}
elseif (!$regex($hget($sockname,skill),/^(Overall|Combatp?)$/i)) {
hadd -m $sockname result $htmlfree($replace($bvar(&rst,$bfind(&rst,$bfind(&rst,1,$regsubex($hget($sockname,skill),/(.)/g,$+($asc(\1),$chr(32)))),<td align="right">),100).text,$chr(10),$chr(32)))
hadd -m $sockname rgoal $iif($hget($sockname,goal),$v1,$calc($gettok($hget($sockname,result),2,32) + 1))
if (($numtok($hget($sockname,result),32) < 3) || (<img class="miniimg"* iswm $hget($sockname,result))) $hget($sockname,sendway) $+($c1,[,$flc($hget($sockname,user)) $c2,does not feature in the highscores for,$c1 $hget($sockname,skill),])
else {
hadd -m $sockname goalxp $calc($getxp($hget($sockname,rgoal)) - $remove($gettok($hget($sockname,result),3,32),$chr(44)))
$hget($sockname,sendway) $+($c1,[,$c2,$hget($sockname,skill) for,$c1 $flc($hget($sockname,user)),] [,$c2,Level:,$c1 $gettok($hget($sockname,result),2,32) |,$c2 Rank:,$c1 $gettok($hget($sockname,result),1,32) |,$c2 Exp:,$c1 $gettok($hget($sockname,result),3,32),$iif($gettok($hget($sockname,result),2,32) != 99,$+($chr(32),|,$c2 Exp to,$c1 $hget($sockname,rgoal),$c2,:,$c1 $bytes($hget($sockname,goalxp),b) $chr(40),$c2,$round($calc(($remove($gettok($hget($sockname,result),3,32),$chr(44)) / $getxp($hget($sockname,rgoal))) * 100),2),$c1,%,$chr(41))),])
var %c 2
while ($ini(C:\Program Files\mIRCMight\monster.ini,$hget($sockname,skill),%c)) {
hadd -m $sockname mtl $hget($sockname,mtl) $+($c2,$flc($v1),:,$c1 $bytes($ceil($calc($hget($sockname,goalxp) / $readini(C:\Program Files\mIRCMight\monster.ini,$hget($sockname,skill),$v1))),b) |)
inc %c
}
if ($gettok($hget($sockname,result),2,32) != 99) $hget($sockname,sendway) $+($c1,[,$c2,$readini(C:\Program Files\mIRCMight\monster.ini,$hget($sockname,skill),name) to,$c1 $hget($sockname,rgoal),] [,$c2,$left($hget($sockname,mtl),-2),$c1,])
}
}
else {
hadd -m $sockname overall $gettok($htmlfree($replace($bvar(&rst,$bfind(&rst,1,<a href="overall.ws?table=0&user=),300).text,$chr(10),$chr(32))),2-4,32)
var %c 1,%k
while ($bfind(&rst,%c,gif"></td>)) {
inc %k
if (%k isnum 1-7) {
hadd -m $sockname cmb $hget($sockname,cmb) $iif(Not Ranked isin $gettok($htmlfree($replace($bvar(&rst,$calc($bfind(&rst,%c,gif"></td>) + ($len($hget($sockname,user)) + 64)),150).text,$chr(10),$chr(32))),1-4,32),$iif(%k == 4,10,1),$gettok($v2,3,32))
hadd -m $sockname cmbp $calc($hget($sockname,cmbp) + $remove($gettok($htmlfree($replace($bvar(&rst,$calc($bfind(&rst,%c,gif"></td>) + ($len($hget($sockname,user)) + 64)),150).text,$chr(10),$chr(32))),4,32),$chr(44)))
}
hadd -m $sockname allxp $calc($hget($sockname,allxp) + $remove($gettok($htmlfree($replace($bvar(&rst,$calc($bfind(&rst,%c,gif"></td>) + ($len($hget($sockname,user)) + 64)),150).text,$chr(10),$chr(32))),4,32),$chr(44)))
if (Not Ranked !isin $htmlfree($replace($bvar(&rst,$calc($bfind(&rst,%c,gif"></td>) + ($len($hget($sockname,user)) + 64)),150).text,$chr(10),$chr(32)))) hadd -m $sockname stats $hget($sockname,stats) $+($c2,$gettok($v2,1,32),:,$c1 $gettok($v2,3,32) |)
var %c = $bfind(&rst,%c,gif"></td>) + 10
}
if ($hget($sockname,skill) == Combatp) {
$hget($sockname,sendway) $+($c1,[,$c2,Combat Percentage for,$c1 $flc($hget($sockname,user)),] [,$c2,Combat:,$c1 $bytes($hget($sockname,cmbp),b) Exp,$c1 $chr(40),$c2,$round($calc(($hget($sockname,cmbp) / $remove($iif($gettok($hget($sockname,overall),3,32),$v1,$bytes($hget($sockname,allxp),b)),$chr(44))) * 100),2),$c1,%,$chr(41) |,$c2 Non Combat:,$c1 $bytes($calc($remove($iif($gettok($hget($sockname,overall),3,32),$v1,$bytes($hget($sockname,allxp),b)),$chr(44)) - $hget($sockname,cmbp)),b) Exp,$c1 $chr(40),$c2,$calc(100 - $round($calc(($hget($sockname,cmbp) / $remove($iif($gettok($hget($sockname,overall),3,32),$v1,$bytes($hget($sockname,allxp),b)),$chr(44))) * 100),2)),$c1,%,$chr(41) |,$c2 Total:,$c1 $iif($gettok($hget($sockname,overall),3,32),$v1,$bytes($hget($sockname,allxp),b)) Exp])
}
elseif ($hget($sockname,skill) == Combat) {
hadd -m $sockname skills Att Def Str Hits Ranged Pray Magic
$hget($sockname,sendway) $+($c1,[,$c2,Combat for,$c1 $flc($hget($sockname,user)),] [,$c2,Combat:,$c1 $cmb($hget($sockname,cmb)),] [,$left($regsubex($hget($sockname,cmb),/([0-9]+)/g,$+($c2,$gettok($hget($sockname,skills),\n,32),:,$c1 \1 |)),-2),])
}
elseif ($hget($sockname,skill) == overall) {
$hget($sockname,sendway) $+($c1,[,$c2,Overall for,$c1 $flc($hget($sockname,user)),] [,$c2,Total:,$c1 $iif(!$hget($sockname,overall),Not Ranked,$+($gettok($hget($sockname,overall),2,32) |,$c2 Rank:,$c1 $gettok($hget($sockname,overall),1,32) |,$c2 Exp:,$c1 $gettok($hget($sockname,overall),3,32))),] [,$c2,Combat:,$c1 $cmb($hget($sockname,cmb)),$c1,])
$hget($sockname,sendway) $+($c1,[,$left($hget($sockname,stats),-2),])
}
}
.remove $sockname
.hdel -sw $sockname *
sockclose $sockname
}
}