ON $*:TEXT:/^[@!.]defname/Si:#: {
if ($2-) {
if ($len($2-) < 12) {
notice $nick [Defname]: Defname for $address($nick,3) set to: $2-
writeini defname.ini name $address($nick,3) $2-
}
else { notice $nick [Defname]: The runescape name can only be 12 letters long! }
}
}
ON $*:TEXT:/^[@!.]stats/Si:#: {
set %o $iif($left($1,1) == @, msg $chan, notice $nick)
set %r $iif(!$2,$iif($readini(defname.ini,name,$address($nick,3)),$v1,$nick),$regsubex($replace($2-,$chr(32),_),/\b(\w)/g,$upper(\1))))
sockopen stats hiscore.runescape.com 80
}
ON *:SOCKOPEN:stats: {
sockwrite -nt $sockname GET /index_lite.ws?player= $+ %r HTTP/1.1
sockwrite -nt $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
}
ON *:SOCKREAD:stats: {
var %stat | sockread %stat
if (*404 - Page not found* iswm %stat) { %o User Was not Found | sockclose $sockname }
if (*,*,* iswm %stat) set %stats %stats $gettok(%stat,2,44)
}
ON *:SOCKCLOSE:stats:{
tokenize 32 %stats
%o *** Stats For $chr(91) %r $chr(93) Overall $1 $b Att $2 $b Def $3 $b Str $4 $b Hp $5 $b Range $6 $b Prayer $7 $b Magic $8 $b Cooking $9 $b Wc $10 $b Fletching $11 $b Fishing $12 $b Fm $13 $b Craft $14 $b Smith $15 $b Mining $16 $b Herb $17 $b Agility $18 $b Thieving $19 $b Slayer $20 $b Farm $21 $b Rc $22 $b hunt $23 $b Con $24 $b Summon $25 $26 $27 $28 $29 $30
unset %stats
unset %o
unset %r
}
Alias B return $chr(124)
on $*:TEXT:/^[!@]/Si:#:{
if ($skill($remove($1,!,@))) {
set %o $iif($left($1,1) == @, msg $chan, notice $nick)
set %r $2
set %skill $skill($remove($1,!,@)))
set %level $xp $3
sockopen stats1 hiscore.runescape.com 80
}
}
ON *:SOCKOPEN:stats1: {
sockwrite -nt $sockname GET /index_lite.ws?player= $+ %r HTTP/1.1
sockwrite -nt $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
}
ON *:SOCKREAD:stats1: {
var %stat | sockread %stat
if (*404 - Page not found* iswm %stat) { %o User Was not Found | sockclose $sockname }
if (*,*,* iswm %stat) set %stats %stats $gettok(%stat,2,44)
if (*,*,* iswm %stat) set %rank %rank $gettok(%stat,1,44)
if (*,*,* iswm %stat) set %xp %xp $gettok(%stat,3,44)
}
ON *:SOCKCLOSE:stats1:{
$id
if (%lvl == 99) { set %nlvl N/A
}
else { set %nlvl $calc(%lvl + 1) }
$xp1
$xp
%o *** %skill For $chr(91) %r $chr(93) : %lvl $chr(124) Exp: %xp1 $chr(124) Rank: %rank1 Exp Needed till %nlvl : $+ %bbb $+ %aaa
unset %stats
unset %o
unset %r
unset %skill
unset %lvl
unset %xp
unset %xp1
unset %rank
unset %rank1
unset %nlvl
unset %level
unset %aaa
unset %bbb
}
alias skill {
if ($regex($1,/^(overal|overall)/Si)) { Return Overall }
if ($regex($1,/^(att|atk|attack)/Si)) { Return Attack }
if ($regex($1,/^(str|strenth|strength)/Si)) { Return Strength }
if ($regex($1,/^(def|defend|defence)/Si)) { Return Defence }
if ($regex($1,/^(hp|hits|hitpoints|hit)/Si)) { Return Hitpoints }
if ($regex($1,/^(range|ranging|arch|archery|arching)/Si)) { Return Range }
if ($regex($1,/^(pray|prayer|praying)/Si)) { Return Prayer $7 }
if ($regex($1,/^(mage|magic)/Si)) { Return Magic $8 }
if ($regex($1,/^(cook|cooking)/Si)) { Return Cooking $9 }
if ($regex($1,/^(wc|wood|woodcut|woodcutting)/Si)) { Return Woodcutting $10 }
if ($regex($1,/^(fletch|fletching)/Si)) { Return Fletching $11 }
if ($regex($1,/^(Fishing|fishing|fishcatching)/Si)) { Return Fishing $12 }
if ($regex($1,/^(fm|fire|firemaking)/Si)) { Return Firemaking $13 }
if ($regex($1,/^(craft|crafting)/Si)) { Return Crafting $14 }
if ($regex($1,/^(smithing|metalmaking|smith)/Si)) { Return Smithing $15 }
if ($regex($1,/^(Mine|mining)/Si)) { Return Mining $16 }
if ($regex($1,/^(Herb|Herblore)/Si)) { Return Herblore $17 }
if ($regex($1,/^(Agil|agi|Agility)/Si)) { Return Agility $18 }
if ($regex($1,/^(Theif|theiv|thiev|theiving|thieving)/Si)) { return Thieving $19 }
if ($regex($1,/^(slay|Slayer)/Si)) { Return Slayer $20 }
if ($regex($1,/^(farm|Farming|planting)/Si)) { Return Farming $21 }
if ($regex($1,/^(rune|rc|runecrafting|runecraft)/Si)) { Return Runecrafting $22 }
if ($regex($1,/^(hunt|hunting|hunter)/Si)) { return Hunter $23 }
if ($regex($1,/^(con|construct|construction|poh)/si)) { return Construction $24 }
if ($regex($1,/^(sum|summon|summoning)/si)) { return Summoning $25 }
}
alias id {
if (%skill == Attack || %skill == att) { tokenize 32 %stats | set %lvl $remove($2,
) | tokenize 32 %xp | set %xp1 $2 | tokenize 32 %rank | set %rank1 $+($bytes($2,db)) }
if (%skill == overall || %skill == overal) { tokenize 32 %stats | set %lvl $remove($1,
) }
if (%skill == def || %skill == defence || %skill == defense) { tokenize 32 %stats | set %lvl $remove($3,
) }
if (%skill == str || %skill == strength) { tokenize 32 %stats | set %lvl $remove($4,
) }
if (%skill == hp || %skill == hitpoits || %skill == hits) { tokenize 32 %stats | set %lvl $remove($5,
) }
if (%skill == range || %skill == ranged || %skill == ranging) { tokenize 32 %stats | set %lvl $remove($6,
) }
if (%skill == pray || %skill == prayer || %skill == praying) { tokenize 32 %stats | set %lvl $remove($7,
) }
if (%skill == mage || %skill == magic || %skill == magik) { tokenize 32 %stats | set %lvl $remove($8,
) }
if (%skill == cook || %skill == cooking) { tokenize 32 %stats | set %lvl $remove($9,
) }
if (%skill == wc || %skill == woodcut || %skill == woodcutting) { tokenize 32 %stats | set %lvl $remove(%skill0,
) }
if (%skill == fletch || %skill == fletching) { tokenize 32 %stats | set %lvl $remove(%skill1,
) }
if (%skill == fishing || %skill == fish) { tokenize 32 %stats | set %lvl $remove(%skill2,
) }
if (%skill == fm || %skill == firemaking) { tokenize 32 %stats | set %lvl $remove(%skill3,
) }
if (%skill == craft || %skill == crafting) { tokenize 32 %stats | set %lvl $remove(%skill4,
) }
if (%skill == smith || %skill == smithing) { tokenize 32 %stats | set %lvl $remove(%skill5,
) }
if (%skill == mining) { tokenize 32 %stats | set %lvl $remove(%skill6,
) }
if (%skill == herb || %skill == herblore || %skill == harblaw) { tokenize 32 %stats | set %lvl $remove(%skill7,
) }
if (%skill == agility || %skill == agil) { return tokenize 32 %stats | set %lvl $remove(%skill8,
) }
if (%skill == thiev || %skill == thieving) { return tokenize 32 %stats | set %lvl $remove(%skill9,
) }
if (%skill == slay || %skill == slaying || %skill == slayer) { tokenize 32 %stats | set %lvl $remove($20,
) }
if (%skill == farm || %skill == farming) { tokenize 32 %stats | set %lvl $remove($21,
) }
if (%skill == rc || %skill == runecraft || %skill == runecrafting) { tokenize 32 %stats | set %lvl $remove($22,
) }
if (%skill == poh || %skill == construct || %skill == con || %skill == construction) { tokenize 32 %stats | set %lvl $remove($23,
) }
if (%skill == hunt || %skill == hunter || %skill == hunting) { tokenize 32 %stats | set %lvl $remove($24,
) }
if (%skill == summ || %skill == sum || %skill == summo || %skill == summon || %skill == summoning) { tokenize 32 %stats | set %lvl $remove($25,
) }
}
alias xp {
if (%level == 83) { set %aaa $calc(2673114 - %xp1) }
}
alias xp1 {
if (%nlvl == 83) { set %bbb $calc(2673114 - %xp1) }
}