rendered paste bodyon *:Text:*:#: {
;;Colors, Color1 is your main color, Color2 is your secondary color.
set %Color1 03
set %Color2 06
;; Do not edit anything below UNLESS you know what your doing.
if ($left($1,1) !isin !@) halt
var %output = $iif($left($1,1) == @,msg $chan,notice $nick), $&
%s1 = $iif($readini(RSNs.ini,$address($nick,2),S1),$v1,%Color1), $&
%s2 = $iif($readini(RSNs.ini,$address($nick,2),S2),$v1,%Color2)
tokenize 32 $right($1-,-1)
if ($regex($1,/^s(my|set)(Co?l(ou?)?r)$/Si)) {
if ($2 !isnum 0-15) halt
if ($3 !isnum 0-15) halt
writeini RSNs.ini $address($nick,2) S1 $iif($len($2) < 2,0) $+ $2
writeini RSNs.ini $address($nick,2) S2 $iif($len($3) < 2,0) $+ $3
notice $nick $+($chr(3),$2) $+ your stats colors have been changed to $2 and $+($chr(3),$iif($len($3) < 2,0),$3) $+ $3 $+ .
halt
}
if ($1 == rsn) {
if (!$readini(RSNs.ini,$address($2,2),RSN)) {
notice $nick $s1(%s1,I have found no match for) $s1(%s1,$qt($s2(%s2,$2-)))
halt
}
notice $nick $s2(%s2,$2-,'s) $s1(%s1,rsn is) $s2(%s2,$readini(RSNs.ini,$address($2,2),RSN))
}
if (!$skills($1)) halt
if ($skills($1) == Defname) {
if ($len($2-) > 12) {
notice $nick $s1(%s1,The RSN) $s2(%s2,$2-) $s1(%s1,is too long.)
halt
}
writeini RSNs.ini $address($nick,2) RSN $2-
notice $nick $s1(%s1,Your RSN has been successfully added.)
halt
}
else {
noop $regex($2-,/(#|[-\+][tg])(\d\d)/Si)
if ($regml(0) == 2) var %target = $regml(2)
var %rsn = $remove($2-,$+($regml(1),$regml(2)))
if (!$remove(%rsn,$chr(32))) {
if ($readini(RSNs.ini,$address($nick,2),RSN)) var %rsn = $v1
else var %rsn = $nick
}
if ($len(%rsn) > 12) {
notice $nick $s1(%s1,Your rsn is too long.)
halt
}
var %hash = $+(stats.,$r(0,9),$r(0,9),$r(0,9),$r(0,9),$r(0,9),$r(0,9))
hadd -m %hash skill $skills($1)
hadd -m %hash User %rsn
hadd -m %hash Target $iif(%target,$v1,0)
hadd -m %hash Display %output
hadd -m %hash s1 %s1
hadd -m %hash s2 %s2
sockopen %hash hiscore.runescape.com 80
}
}
on *:SOCKOPEN:stats.*: {
var %user = $hget($sockname,User)
hadd -m $sockname User $replace(%user,$chr(32),_)
sockwrite -n $sockname GET /index_lite.ws?player= $+ $hget($sockname,User) HTTP/1.1
sockwrite -n $sockname Host: hiscore.runescape.com
sockwrite -n $sockname $crlf
}
on *:SOCKREAD:stats.*: {
var %hash = $sockname,%read,%ID = $gettok($sockname,2,46),%s1 = $hget(%hash,s1),%s2 = $hget(%hash,s2)
sockread %read
if (*Sorry, the page you were looking for was not found.* iswm %read) {
$hget(%hash,display) $s1(%s1,The user) $s2(%s2,$hget(%hash,user)) $s1(%s1,doesn't appear in the hiscores.)
sockclose $sockname
if ($hget(%hash)) .hfree %hash
}
if ($hget(%hash,Read) == $true) {
tokenize 44 %read
if ($2 != 1) {
if ($skills($hget(%hash,Inc))) hadd -m %hash $skills($hget(%hash,Inc)) $1 $2 $3
}
hinc -m %hash Inc 1
}
if (*Content-length:* iswm %read) {
hadd -m %hash Read $true
hadd -m %hash Inc -1
}
}
on *:sockclose:stats.*:playstats $sockname
alias -l Playstats {
var %hash = $1,%skill = $hget($1,skill),%user = $replace($hget($1,user),_,$chr(32)),%target = $hget($1,target),%display = $hget($1,display), $&
%s1 = $hget($1,s1),%s2 = $hget($1,s2)
if (%skill == stats) {
var %x = 1,%statline
while (%x <= 15) {
tokenize 32 $hget(%hash,$skills(%x))
if ($2 > -1) var %statline = %statline $s1(%s1,$skills(%x)) $s2(%s2,$2)
inc %x
}
while ($skills(%x)) {
tokenize 32 $hget(%hash,$skills(%x))
if ($2 > -1) var %statline2 = %statline2 $s1(%s1,$skills(%x)) $s2(%s2,$2)
inc %x
}
if (!%statline && !%statline2) {
%display $s1(%s1,The user) $s2(%s2,%user) $s1(%s1,doesn't appear in the hiscores.)
goto done
}
tokenize 32 $hget(%hash,Overall)
%display $s1(%s1,Stats for) $s2(%s2,%user) $iif($2,$s1(%s1,Total level) $s2(%s2,$v1))
if (%statline) %display %statline
if (%statline2) %display %statline2
goto done
}
if (%skill == Combat) {
var %a = $token($hget(%hash,attack),2,32), $&
%s = $token($hget(%hash,strength),2,32), $&
%d = $token($hget(%hash,defence),2,32), $&
%h = $token($hget(%hash,hitpoints),2,32), $&
%r = $token($hget(%hash,ranged),2,32), $&
%m = $token($hget(%hash,magic),2,32), $&
%p = $token($hget(%hash,prayer),2,32)
var %a = $iif(%a != -1,%a),%s = $iif(%s != -1,%s), $&
%d = $iif(%d != -1,%d),%h = $iif(%h != -1,%h), $&
%h = $iif(%h != -1,%h),%r = $iif(%r != -1,%r), $&
%m = $iif(%m != -1,%m),%p = $iif(%p != -1,%p)
var %a.mult = .32707, %s.mult = .324, %d.mult = .25, %h.mult = .25, %p.mult = .124, %r.mult = .487, %m.mult = .487
var %meleecombat = $calc(%a * %a.mult + %s * %s.mult + %d * %d.mult + %h * %h.mult + %p * %p.mult), $&
%RangedCombat = $calc(%r * %r.mult + %p * %p.mult + %d * %d.mult + %h * %h.mult), $&
%MagicCombat = $calc(%m * %m.mult + %p * %p.mult + %d * %d.mult + %h * %h.mult)
if ($prop == all) { return %MagicCombat %RangedCombat %MeleeCombat | halt }
if (%MagicCombat > %RangedCombat) && (%MagicCombat > %MeleeCombat) var %cmbstyle = Magic, %Combat = %MagicCombat
elseif (%RangedCombat > %MeleeCombat) var %cmbstyle = Ranged, %Combat = %RangedCombat
else var %cmbstyle = Melee, %combat = %MeleeCombat
var %cmb = $calc($ceil(%combat) - %combat))
%display $s2(%s2,%user) $s1(%s1,is) $s2(%s2,$round(%combat,2)) $s2(%s2,%cmbstyle) $s1(%s1,based)
%display $s1(%s1,Att:) $s2(%s2,%a) $s1(%s1,Str:) $s2(%s2,%s) $s1(%s1,Def:) $s2(%s2,%d) $s1(%s1,Hits:) $s2(%s2,%h) $&
$s1(%s1,Range:) $s2(%s2,%r) $s1(%s1,Pray:) $s2(%s2,%p) $s1(%s1,Mage:) $s2(%s2,%m)
%display $s1(%s1,Levels for) $s2(%s2,$int($calc(%combat +1))) $+ $s1(%s1,:) $&
$s1(%s1,Attack) $s2(%s2,$ceil($calc((%cmb)/( 1 / 3 )))) $&
$s1(%s1,Strength) $s2(%s2,$ceil($calc((%cmb) / ( 1 / 3 )))) $&
$s1(%s1,Defence) $s2(%s2,$ceil($calc((%cmb) / ( 1 / 4 )))) $&
$s1(%s1,HitPoints) $s2(%s2,$ceil($calc((%cmb) / ( 1 / 4 )))) $&
$s1(%s1,Prayer) $s2(%s2,$ceil($calc((%cmb) / ( 1 / 8 ))))
goto done
}
if (!%skill) goto done
if ($hget(%hash,%skill) == -1) {
%display $s1(%s1,The user) $s2(%s2,%user) $s1(%s1,does not feature in the) $s2(%s2,%skill) $s1(%s1,hiscores)
if ($hget(%hash)) .hfree %hash
halt
}
else {
tokenize 32 $hget(%hash,%skill)
if (%target < $2) var %target = $calc($2 + 1)
var %xp = $iif($2 >= 99,$calc(200000000 - $3),$calc($exp(%target) - $3))
%display $s1(%s1,Skill:) $s2(%s2,%skill) $s1(%s1,User:) $s2(%s2,%user)
%display $s1(%s1,Rank:) $s2(%s2,$bytes($1,b)) $s1(%s1,Level:) $s2(%s2,$bytes($2,b)) $s1(%s1,Exp:) $s2(%s2,$bytes($3,b)) $&
$iif(%skill != overall,$s1(%s1,Exp to lvl) $s2(%s2,%target) $+ $s1(%s1,:) $s2(%s2,$bytes(%xp,b)))
var %x = 1,%b = 0
while ($ini(Skills.ini,%skill,%x)) {
var %item = $ini(Skills.ini,%skill,%x)
var %exp = $ceil($calc(%xp / $readini(Skills.ini,%skill,%item)))
var %string = %string $s1(%s1,%item) $s2(%s2,$bytes(%exp,b))
inc %b
if (%b >= 15) {
%display %string
%b = 0
unset %string
}
inc %x
}
if (%string) %display %string
}
:done
if ($hget(%hash)) hfree %hash
}
alias add {
if (!$skills($1)) halt
var %skill = $skills($1)
var %x = 1
while ($token($2-,%x,44)) {
var %section = $token($2-,%x,44)
var %exp = $token(%section,$token(%section,0,32),32)
var %item = $token(%section,$+(1-,$calc($token(%section,0,32) -1)),32)
writeini -n Skills.ini %skill $replace(%item,$chr(32),-) %exp
inc %x
}
}
alias rems {
if (!$skills($1)) halt
var %skill = $skills($1)
remini Skills.ini %skill $replace($2-,$chr(32),-)
}
alias list {
if (!$skills($1)) halt
var %x = 1
while ($ini(Skills.ini,$skills($1),%x)) {
echo -a $ini(Skills.ini,$skills($1),%x) -- $readini(Skills.ini,$skills($1),$ini(Skills.ini,$skills($1),%x))
inc %x
}
}
alias skills {
if ($1 == 0) || ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall
elseif ($1 == 1) || ($regex($1,/^at(t|t?k|tack)$/Si)) return Attack
elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$/Si)) return Defence
elseif ($1 == 3) || ($regex($1,/^str(eng[th][th])?$/Si)) return Strength
elseif ($1 == 4) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints
elseif ($1 == 5) || ($regex($1,/^range?(r|d|ing)?$/Si)) return Ranged
elseif ($1 == 6) || ($regex($1,/^Pray(er)?$/Si)) return Prayer
elseif ($1 == 7) || ($regex($1,/^mag(e|ic)$/Si)) return Magic
elseif ($1 == 8) || ($regex($1,/^cook(ing)?$/Si)) return Cooking
elseif ($1 == 9) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting
elseif ($1 == 10) || ($regex($1,/^fletch(ing)?$/Si)) return Fletching
elseif ($1 == 11) || ($regex($1,/^fish(ing)?$/Si)) return Fishing
elseif ($1 == 12) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking
elseif ($1 == 13) || ($regex($1,/^craft(ing)?$/Si)) return Crafting
elseif ($1 == 14) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing
elseif ($1 == 15) || ($regex($1,/^mine?(ing)?$/Si)) return Mining
elseif ($1 == 16) || ($regex($1,/^herb(law|lore)?$/Si)) return Herblore
elseif ($1 == 17) || ($regex($1,/^agil?(ity)?$/Si)) return Agility
elseif ($1 == 18) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving
elseif ($1 == 19) || ($regex($1,/^slay(er|ing)?$/Si)) return Slayer
elseif ($1 == 20) || ($regex($1,/^farm(er|ing)?$/Si)) return Farming
elseif ($1 == 21) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft
elseif ($1 == 23) || ($regex($1,/^poh|cons?(truct)?(ion|ing)?|carp(entry)?$/si)) return Construction
elseif ($1 == 22) || ($regex($1,/^hunt(er|ing)?$/Si)) return Hunter
elseif ($regex($1,/^stats?$/Si)) return stats
elseif ($regex($1,/^(set|def)(rsn|name)$/Si)) return Defname
elseif ($regex($1,/^co?mba?t?$/Si)) return Combat
}
alias nohtml return $regsubex($1-,/<[^>]+>|&[^;]+;/g,)
alias exp {
var %x = 1, %level = $1 - 1, %xp = 0
while (%x <= %level) {
var %TempXp = $calc($floor($calc(%x + 300 * 2 ^ (%x / 7))) / 4)
inc %xp %TempXp
inc %x
}
return $int(%xp)
}
alias s1 {
if ($1 isnum 0-15) && ($2) return $+(,$iif($len($1) < 2,0) $+ $1,$2-,)
elseif (!$1) return $+($( $+ %color1,2),$2-,)
else return $+($( $+ %color1,2),$1-,)
}
alias s2 {
if ($1 isnum 0-15) && ($2) return $+(,$iif($len($1) < 2,0) $+ $1,$2-,)
elseif (!$1) && ($2) return $+($( $+ %color2,2),$2-,)
else return $+($( $+ %color2,2),$1-,)
}
alias rsnfind {
var %x = 1,%s,%t
while ($ini(RSNs.ini,%x)) {
%s = $v1
if ($1 iswm $readini(RSNs.ini,%s,rsn)) %t = %t $+ , $v2
inc %x
}
return $iif($mid(%t,2),$v1,$remove($1,$chr(42)))
}