on *: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))