rendered paste bodyalias rsstats.cleanup {
if ($1 != all) {
unset %rsstats.*. [ $+ [ $1 ] ]
sockclose rsstats. [ $+ [ $1 ] ]
}
elseif ($1 == all) {
unset %rsstats.*.*
var %c = 1
while ($sock(rsstats. $+ %c)) {
sockclose rsstats. [ $+ [ %c ] ]
}
}
}
on *:disconnect: {
rsstats.cleanup all
}
on *:sockopen:rsstats.*: {
inc %rsstats.usageremote
set %rsstats.nulled. [ $+ [ $right($sockname,-8) ] ] false
sockwrite -n $sockname GET /lookup.php?type=stats&user= $+ %rsstats.rsn. [ $+ [ $right($sockname,-8) ] ] HTTP/1.1
sockwrite -n $sockname Host: rscript.org $+ $crlf $+ $crlf
}
on *:sockread:rsstats.*: {
var %s = $right($sockname,-8)
if ($sockerr) {
%rsstats.display. [ $+ [ %s ] ] Socket error: Please try again later.
rsstats.cleanup %s
halt
}
else {
sockread %rsstats.read. [ $+ [ %s ] ]
if (STAT: == %rsstats.read. [ $+ [ %s ] ]) {
set %rsstats.nulled. [ $+ [ %s ] ] true
}
if (%rsstats.skill. [ $+ [ %s ] ] == stats) {
var %rsstats.read. [ $+ [ %s ] ] $remove(%rsstats.read. [ $+ [ %s ] ],Stat:)
tokenize 32 %rsstats.read. [ $+ [ %s ] ]
if (Overall isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (Attack isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (Defence isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (Strength isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (Hitpoints isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (Ranged isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (prayer isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (Magic isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (Cooking isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (Woodcutting isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (Fletching isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (Fishing isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (Firemaking isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (Crafting isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (Smithing isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (Mining isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (Herblore isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (Agility isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (Thieving isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (Slayer isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (Farming isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (Runecraft isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (Construction isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { continue }
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
}
}
if (Hunter isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) {
%rsstats.display. [ $+ [ %s ] ] 8(06 Stats for: 12[4 $+ %rsstats.rsn. [ $+ [ %s ] ] $+ 12] $+ 06: %rsstats.level. [ $+ [ %s ] ] 8)
rsstats.cleanup %s
break
}
else {
set %rsstats.level. [ $+ [ %s ] ] %rsstats.level. [ $+ [ %s ] ] $1 $+ $chr(91) $+ $3 $+ $chr(93) $chr(164)
%rsstats.display. [ $+ [ %s ] ] 8(06 Stats for: 12[4 $+ %rsstats.rsn. [ $+ [ %s ] ] $+ 12] $+ 06: %rsstats.level. [ $+ [ %s ] ] 8)
rsstats.cleanup %s
break
}
}
}
elseif (%rsstats.skill. [ $+ [ %s ] ] == compare) {
tokenize 32 $remove(%rsstats.read. [ $+ [ %s ] ],Stat:)
if (%rsstats.comparecount. [ $+ [ %s ] ] == 1) {
if (Not found isin %rsstats.read. [ $+ [ %s ] ]) {
%rsstats.display. [ $+ [ %s ] ] 8(06 The username: 12 $+ $chr(91) $+ 04 $+ %rsstats.rsn. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 06does not appear in the highscores for %rsstats.skills. [ $+ [ %s ] ] 8)
rsstats.cleanup %s
break
halt
}
if ($setskill(%rsstats.skills. [ $+ [ %s ] ]) isin $1-) {
if (!$4) || (Not Ranked isin %rsstats.read. [ $+ [ %s ] ]) {
%rsstats.display. [ $+ [ %s ] ] 8(06 The username: 12 $+ $chr(91) $+ 04 $+ %rsstats.rsn. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 06does not appear in the highscores for %rsstats.skills. [ $+ [ %s ] ] 8)
rsstats.cleanup %s
break
halt
}
set %rsstats.comparecount. [ $+ [ %s ] ] 2
set %rsstats.compare1. [ $+ [ %s ] ] $1-
set %rsstats.lvl1. [ $+ [ %s ] ] $3
set %rsstats.exp1. [ $+ [ %s ] ] $remove($4,$chr(44))
set %rsstats.rsn. [ $+ [ %s ] ] %rsstats.rsn2. [ $+ [ %s ] ]
sockclose rsstats. [ $+ [ %s ] ]
sockopen rsstats. [ $+ [ %s ] ] rscript.org 80
break
}
else { continue }
}
elseif (%rsstats.comparecount. [ $+ [ %s ] ] == 2) {
tokenize 32 $remove(%rsstats.read. [ $+ [ %s ] ],Stat:)
if (Not found isin %rsstats.read. [ $+ [ %s ] ]) {
%rsstats.display. [ $+ [ %s ] ] 8(06 The username: 12 $+ $chr(91) $+ 04 $+ %rsstats.rsn. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 06does not appear in the highscores for %rsstats.skills. [ $+ [ %s ] ] 8)
rsstats.cleanup %s
break
halt
}
if ($setskill(%rsstats.skills. [ $+ [ %s ] ]) isin $1-) {
if (!$4) || (Not Ranked isin %rsstats.read. [ $+ [ %s ] ]) {
%rsstats.display. [ $+ [ %s ] ] 8(06 The username: 12 $+ $chr(91) $+ 04 $+ %rsstats.rsn. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 06does not appear in the highscores for %rsstats.skills. [ $+ [ %s ] ] 8)
rsstats.cleanup %s
break
halt
}
set %rsstats.compare2. [ $+ [ %s ] ] $1-
set %rsstats.lvl2. [ $+ [ %s ] ] $3
set %rsstats.exp2. [ $+ [ %s ] ] $remove($4,$chr(44))
if (%rsstats.lvl1. [ $+ [ %s ] ] == %rsstats.lvl2. [ $+ [ %s ] ]) {
%rsstats.display. [ $+ [ %s ] ] 8(12 ¤ $chr(91) $+ 04 $+ %rsstats.rsn1. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 06and $+ 12 $chr(91) $+ 04 $+ %rsstats.rsn2. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 06has the same4 %rsstats.skills. [ $+ [ %s ] ] 06level 12 $+ $chr(91) $+ 04 $+ %rsstats.lvl1. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 12¤06. 8)
if (%rsstats.exp1. [ $+ [ %s ] ] > %rsstats.exp2. [ $+ [ %s ] ]) {
%rsstats.display. [ $+ [ %s ] ] 8(12 ¤ $chr(91) $+ 04 $+ %rsstats.rsn1. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 06has 12 $+ $chr(91) $+ 04 $+ $bytes($calc($eval(%rsstats.exp1. [ $+ [ %s ] ]) - $eval(%rsstats.exp2. [ $+ [ %s ] ])),b) $+ 12 $+ $chr(93) $+ 06 more experience than12 $chr(91) $+ 04 $+ %rsstats.rsn2. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 12¤06. 8)
}
elseif (%rsstats.exp1. [ $+ [ %s ] ] < %rsstats.exp2. [ $+ [ %s ] ]) {
%rsstats.display. [ $+ [ %s ] ] 8(12 ¤ $chr(91) $+ 04 $+ %rsstats.rsn2. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 06has 12 $+ $chr(91) $+ 04 $+ $bytes($calc($eval(%rsstats.exp2. [ $+ [ %s ] ]) - $eval(%rsstats.exp1. [ $+ [ %s ] ])),b) $+ 12 $+ $chr(93) $+ 06 more experience than12 $chr(91) $+ 04 $+ %rsstats.rsn1. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 12¤06. 8)
}
else {
%rsstats.display. [ $+ [ %s ] ] 8(12 ¤ $chr(91) $+ 04 $+ %rsstats.rsn1. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 06and $+ 12 $chr(91) $+ 04 $+ %rsstats.rsn2. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 06has the same experience in04 %rsstats.skills. [ $+ [ %s ] ] 12 $+ $chr(91) $+ 04 $+ %rsstats.exp1. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 12¤06. 8)
}
}
elseif (%rsstats.lvl1. [ $+ [ %s ] ] > %rsstats.lvl2. [ $+ [ %s ] ]) {
%rsstats.display. [ $+ [ %s ] ] 8(12 ¤ $chr(91) $+ 04 $+ %rsstats.rsn1. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 06is12 $chr(91) $+ 04 $+ $calc($eval(%rsstats.lvl1. [ $+ [ %s ] ]) - $eval(%rsstats.lvl2. [ $+ [ %s ] ])) $+ 12 $+ $chr(93) 04 $+ %rsstats.skills. [ $+ [ %s ] ] $+ 06 $iif($calc($eval(%rsstats.lvl1. [ $+ [ %s ] ]) - $eval(%rsstats.lvl2. [ $+ [ %s ] ])) == 1,level,levels) higher than12 $chr(91) $+ 04 $+ %rsstats.rsn2. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 12¤06. 8)
if (%rsstats.exp1. [ $+ [ %s ] ] > %rsstats.exp2. [ $+ [ %s ] ]) {
%rsstats.display. [ $+ [ %s ] ] 8(12 ¤ $chr(91) $+ 04 $+ %rsstats.rsn1. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 06has 12 $+ $chr(91) $+ 04 $+ $bytes($calc($eval(%rsstats.exp1. [ $+ [ %s ] ]) - $eval(%rsstats.exp2. [ $+ [ %s ] ])),b) $+ 12 $+ $chr(93) $+ 06 more experience than12 $chr(91) $+ 04 $+ %rsstats.rsn2. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 12¤06. 8)
}
elseif (%rsstats.exp1. [ $+ [ %s ] ] < %rsstats.exp2. [ $+ [ %s ] ]) {
%rsstats.display. [ $+ [ %s ] ] 8(12 ¤ $chr(91) $+ 04 $+ %rsstats.rsn2. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 06has 12 $+ $chr(91) $+ 04 $+ $bytes($calc($eval(%rsstats.exp2. [ $+ [ %s ] ]) - $eval(%rsstats.exp1. [ $+ [ %s ] ])),b) $+ 12 $+ $chr(93) $+ 06 more experience than12 $chr(91) $+ 04 $+ %rsstats.rsn1. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 12¤06. 8)
}
}
elseif (%rsstats.lvl1. [ $+ [ %s ] ] < %rsstats.lvl2. [ $+ [ %s ] ]) {
%rsstats.display. [ $+ [ %s ] ] 8(12 ¤ $chr(91) $+ 04 $+ %rsstats.rsn2. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 06is12 $chr(91) $+ 04 $+ $calc($eval(%rsstats.lvl2. [ $+ [ %s ] ]) - $eval(%rsstats.lvl1. [ $+ [ %s ] ])) $+ 12 $+ $chr(93) 04 $+ %rsstats.skills. [ $+ [ %s ] ] $+ 06 $iif($calc($eval(%rsstats.lvl2. [ $+ [ %s ] ]) - $eval(%rsstats.lvl1. [ $+ [ %s ] ])) == 1,level,levels) higher than12 $chr(91) $+ 04 $+ %rsstats.rsn1. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 12¤06. 8)
if (%rsstats.exp1. [ $+ [ %s ] ] > %rsstats.exp2. [ $+ [ %s ] ]) {
%rsstats.display. [ $+ [ %s ] ] 8(12 ¤ $chr(91) $+ 04 $+ %rsstats.rsn1. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 06has 12 $+ $chr(91) $+ 04 $+ $bytes($calc($eval(%rsstats.exp1. [ $+ [ %s ] ]) - $eval(%rsstats.exp2. [ $+ [ %s ] ])),b) $+ 12 $+ $chr(93) $+ 06 more experience than12 $chr(91) $+ 04 $+ %rsstats.rsn2. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 12¤06. 8)
}
elseif (%rsstats.exp1. [ $+ [ %s ] ] < %rsstats.exp2. [ $+ [ %s ] ]) {
%rsstats.display. [ $+ [ %s ] ] 8(12 ¤ $chr(91) $+ 04 $+ %rsstats.rsn2. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 06has 12 $+ $chr(91) $+ 04 $+ $bytes($calc($eval(%rsstats.exp2. [ $+ [ %s ] ]) - $eval(%rsstats.exp1. [ $+ [ %s ] ])),b) $+ 12 $+ $chr(93) $+ 06 more experience than12 $chr(91) $+ 04 $+ %rsstats.rsn1. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 12¤06. 8)
}
}
rsstats.cleanup %s
break
}
else { continue }
}
}
elseif (%rsstats.skill. [ $+ [ %s ] ] == combat) {
var %a.mult = .32707, %s.mult = .324, %d.mult = .249, %h.mult = .25, %p.mult = .124, %r.mult = .487, %m.mult = .487
tokenize 32 %rsstats.read. [ $+ [ %s ] ]
if (Attack isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { set %rsstats.a. [ $+ [ %s ] ] 1 }
else { set %rsstats.a. [ $+ [ %s ] ] $3 }
}
if (Strength isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { set %rsstats.st. [ $+ [ %s ] ] 1 }
else { set %rsstats.st. [ $+ [ %s ] ] $3 }
}
if (Defence isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { set %rsstats.d. [ $+ [ %s ] ] 1 }
else { set %rsstats.d. [ $+ [ %s ] ] $3 }
}
if (Hitpoints isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { set %rsstats.h. [ $+ [ %s ] ] 10 }
else { set %rsstats.h. [ $+ [ %s ] ] $3 }
}
if (prayer isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { set %rsstats.p. [ $+ [ %s ] ] 1 }
else { set %rsstats.p. [ $+ [ %s ] ] $3 }
}
if (Ranged isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { set %rsstats.r. [ $+ [ %s ] ] 1 }
else { set %rsstats.r. [ $+ [ %s ] ] $3 }
}
if (Magic isin %rsstats.read. [ $+ [ %s ] ]) {
if ($3 == Ranked) { var %m = 1 }
else { var %m = $3 }
var %a = %rsstats.a. [ $+ [ %s ] ]
var %st = %rsstats.st. [ $+ [ %s ] ]
var %d = %rsstats.d. [ $+ [ %s ] ]
var %h = %rsstats.h. [ $+ [ %s ] ]
var %p = %rsstats.p. [ $+ [ %s ] ]
var %r = %rsstats.r. [ $+ [ %s ] ]
var %def = $calc(%d * 100)
var %hp = $calc(%h * 100)
if ($iif($regex($right(%p,1),[02468]),Even,Odd) == Even) { var %pray $calc(%p * 50) }
else { var %pray $calc((%p - 1) * 50) }
var %base = $calc((%def + %hp + %pray) / 400)
var %att = $calc(%a * 130)
var %str = $calc(%st * 130)
if ($iif($regex($right(%r,1),[02468]),Even,Odd) == Even) { var %range = $calc(%r * 195) }
else { var %range = $calc((%r * 195) - 65) }
if ($iif($regex($right(%m,1),[02468]),Even,Odd) == Even) { var %mage = $calc(%m * 195) }
else { var %mage = $calc((%m * 195) - 65) }
var %melee = $calc((%att + %str) / 400)
var %ranger = $calc(%range / 400)
var %mage = $calc(%mage / 400)
if (%melee > %ranger) && (%melee > %mage) {
var %style = Melee
var %combat = $calc(%melee + %base)
}
if (%ranger > %melee) && (%ranger > %mage) {
var %style = Ranger
var %combat = $calc(%ranger + %base)
}
if (%mage > %melee) && (%mage > %ranger) {
var %style = Mage
var %combat = $calc(%mage + %base)
}
else {
var %style = Melee
var %combat = $calc(%melee + %base)
}
var %next = $ceil(%combat)
var %cmb.temp = $abs($calc($int($calc(%combat +1)) - %combat)), $&
%a.2lvl = $ceil($calc(%cmb.temp / %a.mult)), %s.2lvl = $ceil($calc(%cmb.temp / %s.mult)), $&
%d.2lvl = $ceil($calc(%cmb.temp / %d.mult)), %m.2lvl = $ceil($calc(%cmb.temp / %m.mult)), $&
%r.2lvl = $ceil($calc(%cmb.temp / %r.mult)), %p.2lvl = $ceil($calc(%cmb.temp / %p.mult))
if (%cmbstyle == magic) var %dynamic.2lvl = M: $chr(91) $+ %m.2lvl $+ $chr(93)
elseif (%cmbstyle == Ranged) var %dynamic.2lvl = R: $chr(91) $+ %r.2lvl $+ $chr(93)
else var %dynamic.2lvl = A: $chr(91) $+ %a.2lvl $+ $chr(93) S: $chr(91) $+ %s.2lvl $+ $chr(93)
var %combat = $round(%combat,2), %next = $ceil(%combat)
%rsstats.display. [ $+ [ %s ] ] 8(12 $chr(91) $+ 04 $+ %rsstats.rsn. [ $+ [ %s ] ] $+ 's $+ 12 $+ $chr(93) 06Combat ( $+ %style $+ ): $chr(91) $+ %combat $+ $chr(93) 8)
%rsstats.display. [ $+ [ %s ] ] 8(06 A D S H M R P 12[04 %a %d %st $+ %h $+ %m %r %p 12]8 )
if (%combat < 126) {
%rsstats.display. [ $+ [ %s ] ] 8(06 Levels for $chr(91) $+ %next $+ $chr(93) Combat: %dynamic.2lvl $&
D/H: $chr(91) $+ %d.2lvl $+ $chr(93) P: $chr(91) $+ %p.2lvl $+ $chr(93) 8)
}
rsstats.cleanup %s
break
}
}
else {
tokenize 32 %rsstats.read. [ $+ [ %s ] ]
if (%rsstats.skill. [ $+ [ %s ] ] isin %rsstats.read. [ $+ [ %s ] ]) {
if (!$4) {
%rsstats.display. [ $+ [ %s ] ] 8(06 The username: 12 $+ $chr(91) $+ 04 $+ %rsstats.rsn. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 06does not appear in the highscores for %rsstats.skill. [ $+ [ %s ] ] 8)
rsstats.cleanup %s
break
halt
}
if (%rsstats.target. [ $+ [ %s ] ]) {
var %expnext = $exp($(%rsstats.target. [ $+ [ %s ] ],2))
var %nextlvl = %rsstats.target. [ $+ [ %s ] ]
}
else { var %expnext = $calc($exp($3 + 1) - $remove($4,$chr(44))) | var %nextlvl = $calc($3 + 1) }
var %temp1 = $gettok($readini(RSstatsinfo.ini,n,$($+(%,RSstats.skill.,%s),2),1),1,64) $chr(91) $+ $comma($floor($calc((%expnext / $gettok($readini(RSstatsinfo.ini,n,$($+(%,RSstats.skill.,%s),2),1),2,64))))) $+ $chr(93) 12¤06
var %temp2 = $gettok($readini(RSstatsinfo.ini,n,$($+(%,RSstats.skill.,%s),2),2),1,64) $chr(91) $+ $comma($floor($calc((%expnext / $gettok($readini(RSstatsinfo.ini,n,$($+(%,RSstats.skill.,%s),2),2),2,64))))) $+ $chr(93) 12¤06
var %temp3 = $gettok($readini(RSstatsinfo.ini,n,$($+(%,RSstats.skill.,%s),2),3),1,64) $chr(91) $+ $comma($floor($calc((%expnext / $gettok($readini(RSstatsinfo.ini,n,$($+(%,RSstats.skill.,%s),2),3),2,64))))) $+ $chr(93) 12¤06
var %temp4 = $gettok($readini(RSstatsinfo.ini,n,$($+(%,RSstats.skill.,%s),2),4),1,64) $chr(91) $+ $comma($floor($calc((%expnext / $gettok($readini(RSstatsinfo.ini,n,$($+(%,RSstats.skill.,%s),2),4),2,64))))) $+ $chr(93) 8)
%rsstats.display. [ $+ [ %s ] ] 8(12 $chr(91) $+ 04 $+ %rsstats.rsn. [ $+ [ %s ] ] $+ 's $+ 12 $+ $chr(93) $+ 06 %rsstats.skill. [ $+ [ %s ] ] stats: 12¤06 Level: $chr(91) $+ $3 $+ $chr(93) 12¤06 Rank: $chr(91) $+ $2 $+ $chr(93) 12¤06 Experience: $chr(91) $+ $4 $+ $chr(93) 12¤06 $iif($3 == 99,$chr(3),$iif(%rsstats.skill. [ $+ [ %s ] ] != overall,Experience to next: $chr(91) $+ $comma($calc($exp($calc($3 + 1)) - $remove($4,$chr(44)))) $+ $chr(93) 12¤06.,$chr(3))) 8)
%rsstats.display. [ $+ [ %s ] ] 8(06 To level:12 $chr(91) $+ 04 $+ %nextlvl $+ 12 $+ $chr(93) $+ 06: %temp1 %temp2 %temp3 %temp4
rsstats.cleanup %s
}
elseif (Not found isin %rsstats.read. [ $+ [ %s ] ]) {
%rsstats.display. [ $+ [ %s ] ] 8(06 The username: 12 $+ $chr(91) $+ 04 $+ %rsstats.rsn. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 06does not appear in the highscores for %rsstats.skill. [ $+ [ %s ] ] 8)
rsstats.cleanup %s
break
halt
}
else { return }
}
}
}
on *:sockclose:rsstats.*: {
var %s = $right($sockname,-8)
if (%rsstats.nulled. [ $+ [ %s ] ] == false) {
%rsstats.display. [ $+ [ %s ] ] 8(06 The username: 12 $+ $chr(91) $+ 4 $+ %rsstats.rsn. [ $+ [ %s ] ] $+ 12 $+ $chr(93) 06does not appear in the highscores for any skill. 8)
}
rsstats.cleanup %s
}
alias setskill {
if ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall
elseif ($regex($1,/^at(t|k|tack)$/Si)) return Attack
elseif ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence
elseif ($regex($1,/^str(ength)?$/Si)) return Strength
elseif ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints
elseif ($regex($1,/^range(r|d|ing)?$/Si)) return Ranged
elseif ($regex($1,/^Pray(er)?$$/Si)) return Prayer
elseif ($regex($1,/^mag(e|ic)$$/Si)) return Magic
elseif ($regex($1,/^cook(ing)?$/Si)) return Cooking
elseif ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting
elseif ($regex($1,/^fletch(ing)?$/Si)) return Fletching
elseif ($regex($1,/^fish(ing)?$/Si)) return Fishing
elseif ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking
elseif ($regex($1,/^craft(ing)?$/Si)) return Crafting
elseif ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing
elseif ($regex($1,/^((min)([ei])(ing|ng)|mine) ?$/Si)) return Mining
elseif ($regex($1,/^herb(law|lore)?$/Si)) return Herblore
elseif ($regex($1,/^agil(ity)?$/Si)) return Agility
elseif ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving
elseif ($regex($1,/^slay(er|ing)?$/Si)) return Slayer
elseif ($regex($1,/^farm(er|ing)?$/Si)) return Farming
elseif ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft
elseif ($regex($1,/^(cons?|construct)(ion|ing)?$/Si)) return Construction
elseif ($regex($1,/^(hunt(er|ing))?$/Si)) return Hunter
}
#stats on
on *:text:*:*: {
if ($me !== worldrabbit) { halt }
if ($read(Chan.txt,w,$chan)) { halt }
if ($1 == !defname) {
if (%rsstats.settingsdefname == on) {
if ($len($2) > 13) { notice $nick 8(06 Your default name can't be longer than 12 characters. 8) }
else {
if ($read(RSDefname.txt,s,$address($nick,2))) {
notice $nick 8(06 Default Runscape Name set to 12[4 $+ $2- $+ 12]06. Recorded for 12[4 $+ $address($nick,2) $+ 12]06. Previous default name:12 [4 $+ $read(RSDefname.txt,s,$address($nick,2)) $+ 12]06. 8)
write -ds $address($nick,2) RSDefname.txt
write RSDefname.txt $address($nick,2) $replace($2-,$chr(32),$chr(95))
}
else {
notice $nick 8(06 Default Runscape Name set to 12[4 $+ $2- $+ 12]06. Recorded for12 [4 $+ $address($nick,2) $+ 12]06. 8)
write RSDefname.txt $address($nick,2) $replace($2-,$chr(32),$chr(95))
}
halt
}
else { notice $nick 8(06 Sorry, Defname is currently unavaliable. Please type the username you wish to look up. 8) }
}
}
if ($left($1,1) !isin @!) { halt }
var %s = 1
while ($sock(rsstats. $+ %s)) || ($sock(rsstat. $+ %s)) {
inc %s
}
if ($right($1,-1) == stats) { set %rsstats.skill. [ $+ [ %s ] ] stats }
elseif ($right($1,-1) == compare) { set %rsstats.skill. [ $+ [ %s ] ] compare }
elseif ($regex($1,/co?mb(at)?/Si)) { set %rsstats.skill. [ $+ [ %s ] ] combat }
elseif ($setskill($remove($1,@,!))) { set %rsstats.skill. [ $+ [ %s ] ] $setskill($remove($1,@,!)) }
else { halt }
set %rsstats.display. [ $+ [ %s ] ] $iif(@* iswm $1,msg $chan,notice $nick)
if (!$chan) { set %rsstats.display. [ $+ [ %s ] ] msg $nick }
if ($right($1,-1) == compare) {
if (!$2) && (!$3) { notice $nick 8(06 Please enter a 4skill06 to compare and an 4username06 to compare with. 8) | halt }
elseif (!$4) && (!$read(RSDefname.txt,s,$address($nick,2))) || (!$3) { notice $nick 8(06 Please enter a 4username06 to compare with, or type 4!defname 06to set a default name. 8) | halt }
elseif (!$setskill($2)) { notice $nick 8(06 The skill: 12[4 $+ $2 $+ 12] 06is not a valid skill. 8) | halt }
elseif ($3) && ($4) { set %rsstats.rsn1. [ $+ [ %s ] ] $3 | set %rsstats.rsn2. [ $+ [ %s ] ] $4 }
elseif ($3) && (!$4) && ($read(RSDefname.txt,s,$address($nick,2))) { set %rsstats.rsn1. [ $+ [ %s ] ] $3 | set %rsstats.rsn2. [ $+ [ %s ] ] $read(RSDefname.txt,s,$address($nick,2)) }
if ($($len(%rsstats.rsn1. [ $+ [ %s ] ])) > 12) {
%rsstats.display. [ $+ [ %s ] ] 8(06 The username you entered: 12 $+ $chr(91) $+ 4 $+ %rsstats.rsn1. [ $+ [ %s ] ] $+ 12 $+ $chr(93) $+ 06 is too long. 8)
rsstats.cleanup %s
halt
}
if ($($len(%rsstats.rsn2. [ $+ [ %s ] ])) > 12) {
%rsstats.display. [ $+ [ %s ] ] 8(06 The username you entered: 12 $+ $chr(91) $+ 4 $+ %rsstats.rsn2. [ $+ [ %s ] ] $+ 12 $+ $chr(93) $+ 06 is too long. 8)
rsstats.cleanup %s
halt
}
set %rsstats.skills. [ $+ [ %s ] ] $setskill($2)
set %rsstats.rsn. [ $+ [ %s ] ] %rsstats.rsn1. [ $+ [ %s ] ]
set %rsstats.comparecount. [ $+ [ %s ] ] 1
sockopen rsstats. [ $+ [ %s ] ] rscript.org 80
halt
}
if ($len($2) > 12) {
%rsstats.display. [ $+ [ %s ] ] 8(06 The username you entered: 12 $+ $chr(91) $+ 4 $+ $2- $+ 12 $+ $chr(93) $+ 06 is too long. 8)
rsstats.cleanup %s
halt
}
elseif ($2) {
set %rsstats.rsn. [ $+ [ %s ] ] $replace($2,$chr(32),$chr(95))
if ($chr(35) isin %rsstats.rsn. [ $+ [ %s ] ]) {
set %rsstats.target. [ $+ [ %s ] ] $remove($2,$chr(35))
if ($3) { set %rsstats.rsn. [ $+ [ %s ] ] $3 }
elseif ($read(RSDefname.txt,s,$address($nick,2))) { set %rsstats.rsn. [ $+ [ %s ] ] $read(RSDefname.txt,s,$address($nick,2)) }
else { notice $nick 8(06 Please enter a 4username06, or type 4!defname 06to set a default name. 8) | halt }
}
}
elseif (!$2) && ($read(RSDefname.txt,s,$address($nick,2))) && (%rsstats.settingsdefname == on) { set %rsstats.rsn. [ $+ [ %s ] ] $read(RSDefname.txt,s,$address($nick,2)) }
else {
%rsstats.display. [ $+ [ %s ] ] 8(06 Please enter a username. Or type 4!defname <user>06 to set a default username. 8)
rsstats.cleanup %s
halt
}
sockopen rsstats. [ $+ [ %s ] ] rscript.org 80
}
alias exp {
var %a = 1
var %exp123 0
var %a1 = $eval($1)
while (%a < %a1) {
var %expvalue = $calc((%a + 300 * 2^(%a / 7)) /4)
inc %exp123 %expvalue
inc %a
}
return $floor(%exp123)
}
alias comma {
if ($1- isnum) {
tokenize 32 $remove($1-,-)
var %x = 1
var %y = $ceil($eval($calc($len($1-) / 3)))
while (%x <= %y) {
var %comma = $+($chr(44),$right($1-,3),%comma)
tokenize 32 $left($1-,-3)
inc %x
}
while ($left(%comma,1) iswm $chr(44)) { var %comma $right(%comma,-1) }
return %comma
}
else { return 0 }
}
alias htmlstrip { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }