rendered paste bodyon *:TEXT:*:#:{ if ($chan == #arkane) && ($me != Arkane) halt
var %c = 1 | while ($nick($chan,%c) != $null) { var %a = $nick($chan,%c) | if ([*]*script ison $chan) { var %b = true } | inc %c } | if (%b = true) { halt }
if ($1- == %triva [ $+ [ $chan ] ]) {
if ($readini(blacklist.ini,trivia,$address($nick,2))) { notice $nick $q1(You're blacklisted with the reason:) $q2($readini(blacklist.ini,trivia,$address($nick,2)))
halt }
inc %vragengoed [ $+ [ $chan ] ] [ $+ [ $nick ] ]
triva $nick $chan }
if ($regex($1,/^[.!](set)?(def)?(rsn|(rs)?n(ic?k|ame))$/Si)) {
if (!$2) { notice $nick $q1(No RSname) $q2(Specified.) | halt }
if (*$finddir*$mircdir,*.*,0, iswm $2) { notice $nick shut the fuck up!
halt }
if ($len($2-) > 12) { notice $nick Nickname to long | halt }
if ($remove($2-,$chr(32),_,-) !isalnum) { notice $nick Unknown charchaters | halt }
/writeini stats.ini defname $address($nick,2) $replace($2-,$chr(32),_)
notice $nick $q1($regsubex($replace($2-,_,$chr(32),-,$chr(32)),/\b(\w)/g,$upper(\1))) $q2(changed to the Defname on) $q1($address($nick,2))
halt }
if ($regex($1,/^[!.@]e?xp(points)?/Si)) {
if ($left($1,1) == @) && ($readini(settings.ini,$chan,public)) { notice $nick Public commands for this channel are turned off by $readini(settings.ini,$chan,public) | halt }
if ($readini(blacklisting.ini,$nick,1)) { notice $nick You're blacklisted, ask an operator in #Arkane for information | halt }
var %re = $iif(@ isin $1, msg $chan, notice $nick)
if ($2 !isnum 1-99) { %re $q1(Unknown level) | halt }
var %xp = $readini(xp.ini,level,$2)
%re $q1(XP needed for level) $q2($2) $+ $q1(:) $q2($bytes($readini(xp.ini,level,$2),bd)) ( $+ $q1($iif($len(%xp) >= 7,$round($calc(%xp / 1000000),2) $+ M,$iif($len(%xp) >= 4,$round($calc(%xp / 1000),2) $+ K))) $+ )
}
var %x = ² $+ $r(1000,9999)
set %skill [ $+ [ %x ] ] $skillset($remove($1,.,!,@))
if (%skill [ $+ [ %x ] ] == niets) || ($regex($1-,/^[!.@]/) != 1) { unset %skill [ $+ [ %x ] ]
halt }
set %targ [ $+ [ %x ] ] $iif($3,$regsubex($replace($3-,_,$chr(32),-,$chr(32)),/\b(\w)/g,$upper(\1)),$iif($Readini(stats.ini,defname,$address($nick,2)),$v1,$nick))
if ($left($1,1) == @) && ($readini(settings.ini,$chan,public)) { notice $nick Public commands for this channel are turned off by $readini(settings.ini,$chan,public) | halt }
if ($readini(blacklisting.ini,$nick,1)) { notice $nick You're blacklisted, ask an operator in #Arkane for information | halt }
if (< isin $2 || > isin $2) && (*<*>* !iswm $2) && ($skillset($remove($1,.,!,@)) == stats) && ($remove($2,<,>) isnum) {
if ($remove($2,<,>) > 99) || ($remove($2,<,>) < 30) { notice $nick $q1(To high/low) | halt }
set %hoog [ $+ [ %x ] ] $left($2,1) $+ =
seT %hoeveel [ $+ [ %x ] ] $remove($2,<,>)
}
if ($left($1,1) != !) && ($left($1,1) != .) && ($left($1,1) != @) halt
set %display [ $+ [ %x ] ] $iif($left($1,1) == @,/msg $chan,/notice $nick)
set %targ [ $+ [ %x ] ] $iif(!$3,$iif(!$2,$iif($readini(stats.ini,defname,$address($nick,2)),$readini(stats.ini,defname,$address($nick,2)),$nick),$iif($regex($2-,/(<|>)/ig),$iif($readini(stats.ini,defname,$address($nick,2)),$readini(stats.ini,defname,$address($nick,2)),$nick),$regsubex($replace($2-,_,$chr(32),-,$chr(32)),/\b(\w)/g,$upper(\1)))),$iif($regex($2-,/(<|>)/ig),$regsubex($replace($3-,_,$chr(32),-,$chr(32)),/\b(\w)/g,$upper(\1)),$regsubex($replace($2-,_,$chr(32),-,$chr(32)),/\b(\w)/g,$upper(\1))))
if ($len($3) <= 3) && ($regex($3,/#+[0-9]/)) {
if ($remove($3,$chr(35)) isnum 30-99) { set %nextxp [ $+ [ %x ] ] $readini(xp.ini,level,$remove($3,$chr(35)))
set %nextlvl [ $+ [ %x ] ] $remove($3,$chr(35)) }
set %targ [ $+ [ %x ] ] $regsubex($replace($2,_,$chr(32),-,$chr(32)),/\b(\w)/g,$upper(\1))
}
if ($regex($2,/#+[0-9]/)) && ($len($2) <= 3) {
if ($remove($2,$chr(35)) isnum 1-99) { set %nextxp [ $+ [ %x ] ] $readini(xp.ini,level,$remove($2,$chr(35)))
set %nextlvl [ $+ [ %x ] ] $remove($2,$chr(35))
set %targ [ $+ [ %x ] ] $iif($readini(stats.ini,defname,$address($nick,2)),$v1,$nick) }
}
sockopen skc. [ $+ [ %x ] ] hiscore.runescape.com 80
}
on *:sockopen:skc.*:{
Sockwrite -nt $sockname GET /index_lite.ws?player= $+ $replace(%targ [ $+ [ $right($sockname,5) ] ],$chr(32),+) HTTP/1.1
sockwrite -nt $sockname Host: hiscore.runescape.com
sockwrite -nt $sockname $crlf
}
on *:sockread:skc.*:{
if ($sockerr) {
/echo -a sockerror: $sockerr
sockclose $sockname | halt
halt
}
var %rsc
sockread %rsc
//tokenize 44 %rsc
if (%skill [ $+ [ $right($sockname,5) ] ] == stats) {
inc %rcheck [ $+ [ $right($sockname,5) ] ]
if (Sorry, the page you were looking for was not found. isin %rsc) { %display [ $+ [ $right($sockname,5) ] ] $q1(%targ [ $+ [ $Right($sockname,5) ] ]) $q2(not found in the HighScores for any skill)
delvars $right($sockname,5)
sockclose $sockname | halt }
if (%rcheck [ $+ [ $right($sockname,5) ] ] == 12) {
set %rsdone [ $+ [ $right($sockname,5) ] ] 1
}
if (%rsdone [ $+ [ $right($sockname,5) ] ]) {
if (!%hoog [ $+ [ $right($sockname,5) ] ]) { $iif(-1 !isin $1,set %stats [ $+ [ $Right($sockname,5) ] ] %stats [ $+ [ $right($sockname,5) ] ] $q1($skillcheck(%rsdone [ $+ [ $right($sockname,5) ] ])) $bytes($2,bd))
}
elseif (-1 !isin $1) { $iif($2 %hoog [ $+ [ $right($sockname,5) ] ] %hoeveel [ $+ [ $right($sockname,5) ] ],set %stats [ $+ [ $Right($sockname,5) ] ] %stats [ $+ [ $right($sockname,5) ] ] $q1($skillcheck(%rsdone [ $+ [ $right($sockname,5) ] ])) $2) }
if ($skillcmb(%rsdone [ $+ [ $right($sockname,5) ] ])) {
$cmbc($2,$right($sockname,5))
}
inc %rsdone [ $+ [ $right($sockname,5) ] ] }
if (%rsdone [ $+ [ $right($sockname,5) ] ] == 26) {
if (!%stats [ $+ [ $right($sockname,5) ] ]) { %display [ $+ [ $right($sockname,5) ] ] $q1(No stats found for) $q2(%Targ [ $+ [ $Right($sockname,5) ] ]) $q1($iif(%hoog [ $+ [ $right($sockname,5) ] ] == >,lower,higher) then (or equal to)) $q2(%hoeveel [ $+ [ $Right($sockname,5) ] ])
delvars $right($sockname,5)
halt }
var %ploxbone = $cmbc(12,$right($sockname,5))
%display [ $+ [ $right($sockname,5) ] ] $q1(Stats for) %targ [ $+ [ $right($sockname,5) ] ] $q1(Combat:) $$iif(not found !isin %ploxbone,$gettok(%ploxbone,1,32),3)) $q2([) $+ $q1($iif(not found !isin %ploxbone,$gettok(%ploxbone,2,32) based,Melee based)) $+ $q2(])
%display [ $+ [ $right($sockname,5) ] ] %stats [ $+ [ $right($sockname,5) ] ]
delvars $right($sockname,5) }
}
elseif (%skill [ $+ [ $Right($sockname,5) ] ] != combat) {
if (Sorry, the page you were looking for was not found. isin %rsc) { %display [ $+ [ $right($sockname,5) ] ] $q1(%targ [ $+ [ $Right($sockname,5) ] ]) $q2(not found in the HighScores for any skill)
delvars $right($sockname,5)
sockclose $sockname | halt }
inc %rcheck [ $+ [ $right($sockname,5) ] ]
if (%rcheck [ $+ [ $right($sockname,5) ] ] == 12) {
set %rsdone [ $+ [ $right($sockname,5) ] ] 1
}
if (%rsdone [ $+ [ $right($sockname,5) ] ]) {
if ($skillcheck(%rsdone [ $+ [ $Right($sockname,5) ] ]) == %skill [ $+ [ $Right($sockname,5) ] ]) || (%skill [ $+ [ $right($sockname,5) ] ] == Duel tournament && %rsdone [ $+ [ $right($sockname,5) ] ] == 25) {
if ($1 == -1) { %display [ $+ [ $right($sockname,5) ] ] $q1(%targ [ $+ [ $Right($sockname,5) ] ]) $q2(not found in the HighScores) $q1(for the skill) $q2(%skill [ $+ [ $Right($sockname,5) ] ])
delvars $right($sockname,5)
sockclose $sockname
halt }
var %skill = %skill [ $+ [ $Right($sockname,5) ] ]
if (%skill == Duel Tournament) {
%display [ $+ [ $right($sockname,5) ] ] $q1(%skill [ $+ [ $Right($sockname,5) ] ]) $q2(Stats for) $q1(%targ [ $+ [ $right($sockname,5) ] ])
%display [ $+ [ $right($sockname,5) ] ] $q1(Points:) $q2($bytes($2,bd)) $q1(Rank:) $q2($bytes($1,bd))
delvars $right($sockname,5)
sockclose $sockname
halt }
var %nextlvl = $iif(%nextlvl [ $+ [ $right($sockname,5) ] ],$v1,$calc($2 + 1))
var %nextxp = $calc($readini(xp.ini,level,%nextlvl) - $remove($3,$chr(44)))
if ($regex(%skill,/^(defence|attack|Strength|ranged)$/i)) { var %skill = combat }
var %monster1 = $q2($readini(name.ini,%skill,1) $+ :) $q1($bytes($ceil($calc(%nextxp / $readini(xp.ini,%skill,1))),bd))
var %monster2 = $q2($readini(name.ini,%skill,2) $+ :) $q1($bytes($ceil($calc(%nextxp / $readini(xp.ini,%skill,2))),bd))
var %monster3 = $q2($readini(name.ini,%skill,3) $+ :) $q1($bytes($ceil($calc(%nextxp / $readini(xp.ini,%skill,3))),bd))
var %monster4 = $q2($readini(name.ini,%skill,4) $+ :) $q1($bytes($ceil($calc(%nextxp / $readini(xp.ini,%skill,4))),bd))
var %monster5 = $q2($readini(name.ini,%skill,5) $+ :) $q1($bytes($ceil($calc(%nextxp / $readini(xp.ini,%skill,5))),bd))
var %monster6 = $q2($readini(name.ini,%skill,6) $+ :) $q1($bytes($ceil($calc(%nextxp / $readini(xp.ini,%skill,6))),bd))
var %monster7 = $q2($readini(name.ini,%skill,7) $+ :) $q1($bytes($ceil($calc(%nextxp / $readini(xp.ini,%skill,7))),bd))
if ($2 != 99) && (%skill != overall) {
%display [ $+ [ $right($sockname,5) ] ] $q2(%skill [ $+ [ $Right($sockname,5) ] ]) $q1(Stats for) $q2(%targ [ $+ [ $right($sockname,5) ] ] $+ :) $q1(Level:) $q2($2) $q1(Rank:) $q2($bytes($1,bd)) $q1(XP:) $q2($bytes($3,bd)) $+ . $q1(For level) $q2(%nextlvl) $q1(%targ [ $+ [ $Right($sockname,5) ] ]) $q2(need) $q1($bytes(%nextxp,bd) $+ xp) }
else { %display [ $+ [ $right($sockname,5) ] ] $q2(%skill [ $+ [ $Right($sockname,5) ] ]) $q1(Stats for) $q2(%targ [ $+ [ $right($sockname,5) ] ] $+ :) $q1(Level:) $q2($2) $q1(Rank:) $q2($bytes($1,bd)) $q1(XP:) $q2($bytes($3,bd)) $+ . }
if ($2 != 99) && (%skill != overall) {
%display [ $+ [ $right($sockname,5) ] ] %monster1 $q2(|) %monster2 $q2(|) %monster3 $q2(|) %monster4 $q2(|) %monster5 $q2(|) %monster6 $q2(|) %monster7 }
delvars $right($sockname,5)
sockclose $sockname | halt }
inc %rsdone [ $+ [ $right($sockname,5) ] ]
} }
if (%skill [ $+ [ $right($sockname,5) ] ] == combat) {
inc %rcheck [ $+ [ $right($sockname,5) ] ]
if (Sorry, the page you were looking for was not found. isin %rsc) { %display [ $+ [ $right($sockname,5) ] ] $q1(%targ [ $+ [ $Right($sockname,5) ] ]) $q2(not found in the HighScores for any skill)
delvars $right($sockname,5)
sockclose $sockname | halt }
if (%rcheck [ $+ [ $right($sockname,5) ] ] == 12) {
set %rsdone [ $+ [ $right($sockname,5) ] ] 1
}
if (%rsdone [ $+ [ $right($sockname,5) ] ]) {
if ($skillcmb(%rsdone [ $+ [ $right($sockname,5) ] ])) {
if ($v1 == hitpoints) $cmbc($iif($2 == -1,10,$2),$right($sockname,5))
else $cmbc($iif($2 == -1,1,$2),$right($sockname,5))
}
inc %rsdone [ $+ [ $right($sockname,5) ] ] }
if (%rsdone [ $+ [ $right($sockname,5) ] ] == 9) {
var %ploxbone = $cmbc(12,$right($sockname,5))
if (not found == %ploxbone) { %display [ $+ [ $right($sockname,5) ] ] $q1(%targ [ $+ [ $right($sockname,5) ] ]) $q2(not found in the HighScores) $q1(for any combat skill.) }
else { %display [ $+ [ $right($sockname,5) ] ] $q1(Combat of) $q2(%Targ [ $+ [ $right($sockname,5) ] ]) $q1(is:) $q2($gettok(%ploxbone,1,32)) $q2([) $+ $q1($gettok(%ploxbone,2,32) based) $+ $q2(])
%display [ $+ [ $right($sockname,5) ] ] $q1(Attack:) $q2(%att [ $+ [ $right($sockname,5) ] ]) $q1(Strenght:) $q2(%str [ $+ [ $right($sockname,5) ] ]) $q1(Defence:) $q2(%def [ $+ [ $right($sockname,5) ] ]) $q1(Hitpoints:) $q2(%hp [ $+ [ $right($sockname,5) ] ]) $q1(Ranged:) $q2(%rang [ $+ [ $right($sockname,5) ] ]) $q1(Magic:) $q2(%mage [ $+ [ $right($sockname,5) ] ]) $q1(Prayer:) $q2(%pray [ $+ [ $right($sockname,5) ] ]) }
if (126 !isin %ploxbone) %display [ $+ [ $right($sockname,5) ] ] $q1(Levels for combat level) $q2($ceil($gettok(%ploxbone,1,32))) $q1(for) $q2(%targ [ $+ [ $right($sockname,5) ] ] $+ :) %noobplox
unset %noobplox
delvars $right($sockname,5)
sockclose $sockname | halt
}
}
}
alias cmbc {
if (!%att [ $+ [ $2 ] ]) { set %att [ $+ [ $2 ] ] $1 }
elseif (!%def [ $+ [ $2 ] ]) { set %def [ $+ [ $2 ] ] $1 }
elseif (!%str [ $+ [ $2 ] ]) { set %str [ $+ [ $2 ] ] $1 }
elseif (!%hp [ $+ [ $2 ] ]) { set %hp [ $+ [ $2 ] ] $1 }
elseif (!%rang [ $+ [ $2 ] ]) { seT %rang [ $+ [ $2 ] ] $1 }
elseif (!%pray [ $+ [ $2 ] ]) { set %pray [ $+ [ $2 ] ] $1 }
elseif (!%mage [ $+ [ $2 ] ]) { set %mage [ $+ [ $2 ] ] $1 }
else { return $iif($gettok($cmbc2(%att [ $+ [ $2 ] ] $+ , $+ %def [ $+ [ $2 ] ] $+ , $+ %str [ $+ [ $2 ] ] $+ , $+ %hp [ $+ [ $2 ] ] $+ , $+ %rang [ $+ [ $2 ] ] $+ , $+ %pray [ $+ [ $2 ] ] $+ , $+ %mage [ $+ [ $2 ] ]),1,32) >= 10,$cmbc2(%att [ $+ [ $2 ] ] $+ , $+ %def [ $+ [ $2 ] ] $+ , $+ %str [ $+ [ $2 ] ] $+ , $+ %hp [ $+ [ $2 ] ] $+ , $+ %rang [ $+ [ $2 ] ] $+ , $+ %pray [ $+ [ $2 ] ] $+ , $+ %mage [ $+ [ $2 ] ] , $2),not found)
unset %att [ $+ [ $2 ] ]
unset %def [ $+ [ $2 ] ]
unset %str [ $+ [ $2 ] ]
unset %hp [ $+ [ $2 ] ]
unset %rang [ $+ [ $2 ] ]
unset %pray [ $+ [ $2 ] ]
unset %mage [ $+ [ $2 ] ]
}
}
on *:sockclose:skc.*:{
unset %att [ $+ [ $right($sockname,5) ] ]
unset %def [ $+ [ $right($sockname,5) ] ]
unset %str [ $+ [ $right($sockname,5) ] ]
unset %hp [ $+ [ $right($sockname,5) ] ]
unset %rang [ $+ [ $right($sockname,5) ] ]
unset %pray [ $+ [ $right($sockname,5) ] ]
unset %mage [ $+ [ $right($sockname,5) ] ]
unset %skill [ $+ [ $right($sockname,5) ] ]
unset %cmb [ $+ [ $right($sockname,5) ] ]
unset %hoog [ $+ [ $right($sockname,5) ] ]
unseT %hoeveel [ $+ [ $right($sockname,5) ] ]
unset %rcheck [ $+ [ $right($sockname,5) ] ]
unset %rsdone [ $+ [ $right($sockname,5) ] ]
unset %stats [ $+ [ $right($sockname,5) ] ]
unset %rc [ $+ [ $right($sockname,5) ] ]
unset %display [ $+ [ $right($sockname,5) ] ]
unset %targ [ $+ [ $right($sockname,5) ] ]
unset %rcheck [ $+ [ $right($sockname,5) ] ] }
alias cmbc2 {
var %def = $calc($2 * 100), %pray = $iif($and($6,1),$calc(($6 - 1) * 50),$calc($6 * 50)), %hp = $calc($4 * 100), %base = $calc((%hp + %def + %pray) / 400)
var %range = $iif($and($5,1),$calc((($5 - 1) * 2) * 65),$calc($5 * 195))
var %mage = $iif($and($7,1),$calc((($7 - 1) * 2) * 65),$calc($7 * 195))
var %att = $calc($1 * 130)
var %str = $calc($3 * 130)
var %mage $calc(%mage / 400)
var %range $calc(%range / 400)
var %melee $calc((%att + %str) / 400)
if (%melee >= %mage) && (%melee >= %range) { var %oth = %melee | var %turn = Melee }
elseif (%range >= %mage) && (%range >= %melee) { var %oth = %range | var %turn = Ranged }
elseif (%mage >= %range) && (%mage >= %melee) { var %oth = %mage | var %turn = Maged }
/checknext $calc(%oth + %base) %turn $1 $3 $7 $5
return $calc(%oth + %base) %turn
unset %att [ $+ [ $8 ] ]
unset %def [ $+ [ $8 ] ]
unset %str [ $+ [ $8 ] ]
unset %hp [ $+ [ $8 ] ]
unset %rang [ $+ [ $8 ] ]
unset %pray [ $+ [ $8 ] ]
unset %mage [ $+ [ $8 ] ]
}
alias checknext {
var %NextLvls = $calc($iif($chr(46) !isin $1,$calc($1 +1),$ceil($1)) - $1)
var %nextstr = $ceil($calc((%NextLvls) /(1/3)))
var %nextdef = $ceil($calc((%NextLvls) /(1/4)))
var %nexthp = $ceil($calc((%NextLvls) /(1/4)))
var %nextprayer = $ceil($calc((%NextLvls) /(1/8)))
set %noobplox $q1(Attack:) $q2(%nextstr) $q1(Strength:) $q2(%nextstr) $q1(Defence:) $q2(%nextdef) $q1(Hitpoints) $q2(%nextdef) $q1(Pray:) $q2(%nextprayer)
}
alias delvars {
$iif($1,unset %* $+ $1)
}
alias skillcmb {
if ($1 == 2) { return Attack }
elseif ($1 == 3) { return Defence }
elseif ($1 == 4) { return Strength }
elseif ($1 == 5) { return HitPoints }
elseif ($1 == 6) { return Ranged }
elseif ($1 == 7) { return Prayer }
elseif ($1 == 8) { return Magic }
}
alias skillcheck {
if ($1 == 1) return Overall
if ($1 == 2) { return Attack }
elseif ($1 == 3) { return Defence }
elseif ($1 == 4) { return Strength }
elseif ($1 == 5) { return HitPoints }
elseif ($1 == 6) { return Ranged }
elseif ($1 == 7) { return Prayer }
elseif ($1 == 8) { return Magic }
elseif ($1 == 9) { return Cooking }
elseif ($1 == 10) { return Woodcutting }
elseif ($1 == 11) { return Fletching }
elseif ($1 == 12) { return Fishing }
elseif ($1 == 13) { return Firemaking }
elseif ($1 == 14) { return Crafting }
elseif ($1 == 15) { return Smithing }
elseif ($1 == 16) { return Mining }
elseif ($1 == 17) { return Herblore }
elseif ($1 == 18) { return Agility }
elseif ($1 == 19) { return Thieving }
elseif ($1 == 20) { return Slayer }
elseif ($1 == 21) { return Farming }
elseif ($1 == 22) { return RuneCraft }
elseif ($1 == 23) { return Hunter }
elseif ($1 == 24) { return Construction }
elseif ($1 == 25) { return Duel }
}
alias skillset {
if ($regex($1,/^at(t|k|tack)?$/Si)) { return Attack }
elseif ($regex($1,/^def(en[cs]e)?$$/Si)) { return Defence }
elseif ($regex($1,/^str(eng(th|ht))?$/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,/^fi(sh|hs)(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(e|ing)?$/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,/^(hunt)(er|ing)?$/Si)) { return Hunter }
elseif ($regex($1,/^(con)(struct(ion)?)?$/Si)) { return Construction }
elseif ($regex($1,/^stats?$/Si)) { /return Stats }
elseif ($regex($1,/^(overall?|total(l(eve|v)l)?)$/Si)) { return Overall }
elseif ($regex($1,/^co?m(b|bat)?$/Si)) { /return Combat }
elseif ($regex($1,/^Duel ?(Arena|tournament)?$/Si)) { return Duel Tournament }
else { return niets }
}
alias htm return $regsubex($regsubex($1-,/(^[^<]+|<.*>|<[^>]+$|&[^#].*;)/gU,),/&#(.*);/gU,$chr(\1))