on $*:TEXT:*:#: {
  if (($left($1,1) != $chr(64)) && ($left($1,1) != $chr(33)) && ($left($1,1) != $chr(46))) { Halt }
  if ($smart($right($1,-1)) != stats && $smart($right($1,-1)) != combat && $smart($right($1,-1)) != duel) { halt }
  var %class4 = $+($r(0,9),$r(0,9),$r(0,9),$r(0,9),$r(0,9),$r(0,9))
  var %valid $smart($right($1,-1))
  if ($smart(%valid) != nomatch) {
    set %skill.skill %valid
    if (!$3) {
      if ($readini(rsn.ini,$address($replace($2-,$chr(32),_),3),rsn)) { var %nick = $readini(rsn.ini,$address($replace($2-,$chr(32),_),3),rsn) }
      if (!$readini(rsn.ini,$address($replace($2-,$chr(32),_),3),rsn)) { var %nick = $capwords($replace($2-,$chr(32),_,-,_)) }
    }
    if ($left($3,1) == $chr(35) || $left($3,1) == $chr(60) || $left($3,1) == $chr(62) || $left($2,1) == $chr(64)) {
      if ($readini(rsn.ini,$address($replace($2,$chr(32),_),3),rsn)) { var %nick = $readini(rsn.ini,$address($replace($2,$chr(32),_),3),rsn) }
      if (!$readini(rsn.ini,$address($replace($2,$chr(32),_),3),rsn)) { var %nick = $capwords($replace($2,$chr(32),_,-,_)) }
      var %2 = $left($3,1)
      $iif($left($3,1) == $chr(64),hadd -m $+(c,%class4) goal $3,hadd -m $+(c,%class4) goal %1 $+ $calc($remove($replace($3,k,*1000,m,*1000000),%1)))
    }
    if ($left($3,1) != $chr(35) && $left($3,1) != $chr(60) && $left($3,1) != $chr(62)) {
      if ($readini(rsn.ini,$address($replace($2-,$chr(32),_),3),rsn)) { var %nick = $readini(rsn.ini,$address($replace($2-,$chr(32),_),3),rsn) }
      if (!$readini(rsn.ini,$address($replace($2-,$chr(32),_),3),rsn)) { var %nick = $capwords($replace($2-,$chr(32),_,-,_)) }
    }
  }
  if ($left($2,1) == $chr(35) || $left($2,1) == $chr(60) || $left($2,1) == $chr(62) || $left($2,1) == $chr(64)) {
    if ($readini(rsn.ini,$address($nick,3),rsn)) { var %nick = $readini(rsn.ini,$address($nick,3),rsn) }
    if (!$readini(rsn.ini,$address($nick,3),rsn)) { var %nick = $capwords($nick) }
    var %1 = $left($2,1)
    $iif($left($2,1) == $chr(64),hadd -m $+(c,%class4) goal $2,hadd -m $+(c,%class4) goal %1 $+ $calc($remove($replace($2,k,*1000,m,*1000000),%1)))
  }
  if (!$2) {
    if ($readini(rsn.ini,$address($nick,3),rsn)) { var %nick = $readini(rsn.ini,$address($nick,3),rsn) }
    if (!$readini(rsn.ini,$address($nick,3),rsn)) { var %nick = $capwords($nick) }
  }
  hadd -m $+(c,%class4) nick %nick
  hadd -m $+(c,%class4) out $iif($left($1,1) == @,.msg $chan,.notice $nick)
  sockopen $+(cmb.,$+(c,%class4)) hiscore.runescape.com 80
}
on *:sockopen:cmb.*: {
  .sockwrite -n $sockname GET /index_lite.ws?player= $+ $hget($gettok($sockname,2,46),nick) HTTP/1.1
  .sockwrite -n $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
}
on *:sockread:cmb.*: {
  if ($sockerr) {
    $hget($gettok($sockname,2,46),out) There was a socket error.
    halt
  }
  .sockread %skill
  if ($numtok(%skill,44) == 3) {
    if (* iswm %skill && %skill.hunt && !%skill.con) { set %skill.con $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.conxp $replace($gettok(%skill,3,44),-1,0)) | set %skill.conlvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.conrank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && %skill.rc && !%skill.hunt) { set %skill.hunt $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.huntxp $replace($gettok(%skill,3,44),-1,0)) | set %skill.huntlvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.huntrank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && %skill.farm && !%skill.rc) { set %skill.rc $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.rcxp $replace($gettok(%skill,3,44),-1,0)) | set %skill.rclvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.rcrank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && %skill.slay && !%skill.farm) { set %skill.farm $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.farmxp $replace($gettok(%skill,3,44),-1,0)) | set %skill.farmlvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.farmrank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && %skill.thieve && !%skill.slay) { set %skill.slay $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.slayxp $replace($gettok(%skill,3,44),-1,0)) | set %skill.slaylvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.slayrank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && %skill.agil && !%skill.thieve) { set %skill.thieve $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.thievexp $replace($gettok(%skill,3,44),-1,0)) | set %skill.thievelvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.thieverank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && %skill.herb && !%skill.agil) { set %skill.agil $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.agilxp $replace($gettok(%skill,3,44),-1,0)) | set %skill.agillvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.agilrank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && %skill.mine && !%skill.herb) { set %skill.herb $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.herbxp $replace($gettok(%skill,3,44),-1,0)) | set %skill.herblvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.herbrank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && %skill.smith && !%skill.mine) { set %skill.mine $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.minexp $replace($gettok(%skill,3,44),-1,0)) | set %skill.minelvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.minerank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && %skill.craft && !%skill.smith) { set %skill.smith $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.smithxp $replace($gettok(%skill,3,44),-1,0)) | set %skill.smithlvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.smithrank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && %skill.fm && !%skill.craft) { set %skill.craft $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.craftxp $replace($gettok(%skill,3,44),-1,0)) | set %skill.craftlvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.craftrank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && %skill.fish && !%skill.fm) { set %skill.fm $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.fmxp $replace($gettok(%skill,3,44),-1,0)) | set %skill.fmlvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.fmrank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && %skill.fletch && !%skill.fish) { set %skill.fish $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.fishxp $replace($gettok(%skill,3,44),-1,0)) | set %skill.fishlvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.fishrank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && %skill.wc && !%skill.fletch) { set %skill.fletch $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.fletchxp $replace($gettok(%skill,3,44),-1,0)) | set %skill.fletchlvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.fletchrank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && %skill.cook && !%skill.wc) { set %skill.wc $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.wcxp $replace($gettok(%skill,3,44),-1,0)) | set %skill.wclvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.wcrank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && %skill.mage && !%skill.cook) { set %skill.cook $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.cookxp $replace($gettok(%skill,3,44),-1,0)) | set %skill.cooklvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.cookrank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && %skill.pray && !%skill.mage) { set %skill.mage $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.magexp $replace($gettok(%skill,3,44),-1,0)) | set %skill.magelvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.magerank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && %skill.range && !%skill.pray) { set %skill.pray $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.prayxp $replace($gettok(%skill,3,44),-1,0)) | set %skill.praylvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.prayrank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && %skill.hp && !%skill.range) { set %skill.range $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.rangexp $replace($gettok(%skill,3,44),-1,0)) | set %skill.rangelvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.rangerank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && %skill.str && !%skill.hp) { set %skill.hp $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.hpxp $replace($gettok(%skill,3,44),-1,0)) | set %skill.hplvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.hprank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && %skill.def && !%skill.str) { set %skill.str $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.strxp $replace($gettok(%skill,3,44),-1,0)) | set %skill.strlvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.strrank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && %skill.att && !%skill.def) { set %skill.def $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.defxp $replace($gettok(%skill,3,44),-1,0)) | set %skill.deflvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.defrank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && %skill.overall && !%skill.att) { set %skill.att $replace($gettok(%skill,2,44),-1,1) | $iif(%skill > 0,set %skill.attxp $replace($gettok(%skill,3,44),-1,0)) | set %skill.attlvl $virtual($replace($gettok(%skill,3,44),-1,0)) | set %skill.attrank $replace($gettok(%skill,1,44),-1,0) }
    if (* iswm %skill && !%skill.overall) { set %skill.overall $replace($gettok(%skill,2,44),-1,1) | set %skill.oarank $remove($gettok(%skill,1,44),-) | set %skill.oaxp $replace($gettok(%skill,3,44),-1,1) }
  }
  if ($numtok(%skill,44) == 2) { set %skill.duel $remove($gettok(%skill,2,44),-) | set %skill.duelrank $replace($gettok(%skill,1,44),-1,1000000) }
  if (*404 - Page not found* iswm %skill) { $hget($gettok($sockname,2,46),out) User7 $hget($gettok($sockname,2,46),nick) not found on Hiscores. | .set %404 $false }
}
on *:sockclose:cmb.*: {
  if (%404 != $false) {
    if (%skill.skill == stats && !$hget($gettok($sockname,2,46),goal)) {
      set %avg $round($calc(%skill.overall /23),1)
      $hget($gettok($sockname,2,46),out) Stats for7 $hget($gettok($sockname,2,46),nick) - Overall7 %skill.overall (Avg Lvl07 $round($calc( %skill.overall / 23 ),1) $+ ) - Exp7 $bytes(%skill.oaxp,db) - Rank7 $bytes(%skill.oarank,db)
      $hget($gettok($sockname,2,46),out) 07Cmb stats - $colavg(%skill.attlvl) Attack; $colavg(%skill.strlvl) Strength; $colavg(%skill.deflvl) Defence; $colavg(%skill.hplvl) Hitpoints; $colavg(%skill.praylvl) Prayer; $colavg(%skill.magelvl) Magic; $colavg(%skill.rangelvl) Ranged;
      $hget($gettok($sockname,2,46),out) 07Other stats - $colavg(%skill.cooklvl) Cooking; $colavg(%skill.fishlvl) Fishing; $colavg(%skill.rclvl) Runecraft; $colavg(%skill.agillvl) Agility; $colavg(%skill.conlvl) Construction; $colavg(%skill.herblvl) Herblore; $&
        $colavg(%skill.thievelvl) Thieving; $colavg(%skill.craftlvl) Crafting; $colavg(%skill.fletchlvl) Fletching; $colavg(%skill.slaylvl) Slayer; $colavg(%skill.minelvl) Mining; $colavg(%skill.smithlvl) Smithing; $colavg(%skill.fmlvl) Firemaking; $&
        $colavg(%skill.wclvl) Woodcutting; $colavg(%skill.farmlvl) Farming; $colavg(%skill.huntlvl) Hunter;
      if (%skill.duel > 1000) { $hget($gettok($sockname,2,46),out) 07Minigames - Dueling $iif($calc(%skill.duel - %skill.overall) >= 50,$+(03,%skill.duel,),$iif($calc(%skill.duel - %skill.overall) < -50,$+(04,%skill.duel,),$+(07,%skill.duel,))) }
    }
    if (%skill.skill == stats && $right($hget($gettok($sockname,2,46),goal),-1) < 127 && $left($hget($gettok($sockname,2,46),goal),1) != $chr(64)) {
      set %avg $round($calc(%skill.overall /23),1)
      $hget($gettok($sockname,2,46),out) Stats $iif($left($hget($gettok($sockname,2,46),goal),1) == $chr(60),less than07 $right($hget($gettok($sockname,2,46),goal),-1) $+ ,$iif($left($hget($gettok($sockname,2,46),goal),1) == $chr(62),greater than07 $right($hget($gettok($sockname,2,46),goal),-1) $+ ,lvl07 $right($hget($gettok($sockname,2,46),goal),-1) $+ )) for7 $hget($gettok($sockname,2,46),nick) - Overall7 %skill.overall (Avg Lvl07 $round($calc( %skill.overall / 23 ),1) $+ ) - Exp7 $bytes(%skill.oaxp,db) - Rank7 $bytes(%skill.oarank,db)
      $hget($gettok($sockname,2,46),out) 07Cmb stats - $statatt $statstr $statdef $stathp $statpray $statmage $statrange
      $hget($gettok($sockname,2,46),out) 07Other stats - $statcook $statfish $statrc $statagil $statcon $statherb $&
        $statthieve $statcraft $statfletch $statslay $statmine $statsmith $statfm $statwc $statfarm $stathunt
      if (%skill.duel > 1000) { $hget($gettok($sockname,2,46),out) 07Minigames - Dueling $iif($calc(%skill.duel - %skill.overall) >= 50,$+(03,%skill.duel,),$iif($calc(%skill.duel - %skill.overall) < -50,$+(04,%skill.duel,),$+(07,%skill.duel,))) }
    }
    if (%skill.skill == stats && $right($hget($gettok($sockname,2,46),goal),-1) > 126 && $left($hget($gettok($sockname,2,46),goal),1) != $chr(64)) {
      set %avg $round($calc(%skill.overall /23),1)
      $hget($gettok($sockname,2,46),out) Stats $iif($left($hget($gettok($sockname,2,46),goal),1) == $chr(60),less than07 $iif($remove($hget($gettok($sockname,2,46),goal),$chr(60)) > 999999,$+($round($calc($remove($hget($gettok($sockname,2,46),goal),$chr(60))/1000000),1),M),$+($round($calc($remove($hget($gettok($sockname,2,46),goal),$chr(60))/1000),1),k)), $& 
        greater than07 $iif($remove($hget($gettok($sockname,2,46),goal),$chr(62)) > 999999,$+($round($calc($remove($hget($gettok($sockname,2,46),goal),$chr(62))/1000000),1),M),$+($round($calc($remove($hget($gettok($sockname,2,46),goal),$chr(62))/1000),1),k))) Exp for7 $hget($gettok($sockname,2,46),nick) - Overall7 %skill.overall (Avg Lvl07 $round($calc( %skill.overall / 23 ),1) $+ ) - Exp7 $bytes(%skill.oaxp,db) - Rank7 $bytes(%skill.oarank,db)
      $hget($gettok($sockname,2,46),out) 07Cmb stats - $statattxp $statstrxp $statdefxp $stathpxp $statprayxp $statmagexp $statrangexp
      $hget($gettok($sockname,2,46),out) 07Other stats - $statcookxp $statfishxp $statrcxp $statagilxp $statconxp $statherbxp $&
        $statthievexp $statcraftxp $statfletchxp $statslayxp $statminexp $statsmithxp $statfmxp $statwcxp $statfarmxp $stathuntxp
      if (%skill.duel > 1000) { $hget($gettok($sockname,2,46),out) 07Minigames - Dueling $iif($calc(%skill.duel - %skill.overall) >= 50,$+(03,%skill.duel,),$iif($calc(%skill.duel - %skill.overall) < -50,$+(04,%skill.duel,),$+(07,%skill.duel,))) }
    }
    if (%skill.skill == stats && $left($hget($gettok($sockname,2,46),goal),1) == $chr(64) && $cutey($right($hget($gettok($sockname,2,46),goal),-1)) == xp) {
      $hget($gettok($sockname,2,46),out) Stats for7 $hget($gettok($sockname,2,46),nick) - Overall7 %skill.overall (Avg Lvl07 $round($calc( %skill.overall / 23 ),1) $+ ) - Exp7 $bytes(%skill.oaxp,db) - Rank7 $bytes(%skill.oarank,db)
      $hget($gettok($sockname,2,46),out) 07Cmb stats -07 $bytes(%skill.attxp,db) Attack;07 $bytes(%skill.strxp,db) Strength;07 $bytes(%skill.defxp,db) Defence;07 $bytes(%skill.hpxp,db) Hitpoints;07 $bytes(%skill.prayxp,db) Prayer;07 $bytes(%skill.magexp,db) Magic;07 $bytes(%skill.rangexp,db) Ranged;
      $hget($gettok($sockname,2,46),out) 07Other stats -07 $bytes(%skill.cookxp,db) Cooking;07 $bytes(%skill.fishxp,db) Fishing;07 $bytes(%skill.rcxp,db) Runecraft;07 $bytes(%skill.agilxp,db) Agility;07 $bytes(%skill.conxp,db) Construction;07 $bytes(%skill.herbxp,db) Herblore;07 $&
        $bytes(%skill.thievexp,db) Thieving;07 $bytes(%skill.craftxp,db) Crafting;07 $bytes(%skill.fletchxp,db) Fletching;07 $bytes(%skill.slayxp,db) Slayer;07 $bytes(%skill.minexp,db) Mining;07 $bytes(%skill.smithxp,db) Smithing;07 $bytes(%skill.fmxp,db) Firemaking;07 $&
        $bytes(%skill.wcxp,db) Woodcutting;07 $bytes(%skill.farmxp,db) Farming;07 $bytes(%skill.huntxp,db) Hunter;
    }
    if (%skill.skill == stats && $left($hget($gettok($sockname,2,46),goal),1) == $chr(64) && $cutey($right($hget($gettok($sockname,2,46),goal),-1)) == rank) {
      $hget($gettok($sockname,2,46),out) Stats for7 $hget($gettok($sockname,2,46),nick) - Overall7 %skill.overall (Avg Lvl07 $round($calc( %skill.overall / 23 ),1) $+ ) - Exp7 $bytes(%skill.oaxp,db) - Rank7 $bytes(%skill.oarank,db)
      $hget($gettok($sockname,2,46),out) 07Cmb stats -07 $bytes(%skill.attrank,db) Attack;07 $bytes(%skill.strrank,db) Strength;07 $bytes(%skill.defrank,db) Defence;07 $bytes(%skill.hprank,db) Hitpoints;07 $bytes(%skill.prayrank,db) Prayer;07 $bytes(%skill.magerank,db) Magic;07 $bytes(%skill.rangerank,db) Ranged;
      $hget($gettok($sockname,2,46),out) 07Other stats -07 $bytes(%skill.cookrank,db) Cooking;07 $bytes(%skill.fishrank,db) Fishing;07 $bytes(%skill.rcrank,db) Runecraft;07 $bytes(%skill.agilrank,db) Agility;07 $bytes(%skill.conrank,db) Construction;07 $bytes(%skill.herbrank,db) Herblore;07 $&
        $bytes(%skill.thieverank,db) Thieving;07 $bytes(%skill.craftrank,db) Crafting;07 $bytes(%skill.fletchrank,db) Fletching;07 $bytes(%skill.slayrank,db) Slayer;07 $bytes(%skill.minerank,db) Mining;07 $bytes(%skill.smithrank,db) Smithing;07 $bytes(%skill.fmrank,db) Firemaking;07 $&
        $bytes(%skill.wcrank,db) Woodcutting;07 $bytes(%skill.farmrank,db) Farming;07 $bytes(%skill.huntrank,db) Hunter;
    }
    if (%skill.skill == combat) {
      var %melee = $round($calc( $calc( %skill.att * 0.325 ) + $calc( %skill.str * 0.325 ) + $calc( %skill.def * 0.25 ) + $calc( %skill.hp * 0.25 ) + $calc($round($calc(( %skill.pray /2)-0.1),0)*0.25) ),3)
      var %range = $round($calc( $calc( %skill.def * 0.25 ) + $calc( %skill.hp * 0.25 ) + $calc( %skill.range * 0.486 ) + $calc($round($calc(( %skill.pray /2)-0.1),0)*0.25) ),3)
      var %mage = $round($calc( $calc( %skill.def * 0.25 ) + $calc( %skill.hp * 0.25 ) + $calc($round($calc(( %skill.pray /2)-0.1),0)*0.25) + $calc( %skill.mage * 0.486 ) ),3)
      if (!$hget($gettok($sockname,2,46),goal) || $left($hget($gettok($sockname,2,46),goal),1) != $chr(35)) {
        if ((%mage == %range) && (%mage >= %melee) && (%mage <= 110) && (%melee <= 110) && (%range <= 110)) {
          $hget($gettok($sockname,2,46),out) Combat stats for7 $hget($gettok($sockname,2,46),nick)
          $hget($gettok($sockname,2,46),out) Combat Lvl7 $round(%mage,2) Attack7 %skill.att  $+ $chr(124) Strength7 %skill.str  $+ $chr(124) Defence7 %skill.def  $+ $chr(124) Hitpoints7 %skill.hp  $+ $chr(124) Ranged7 %skill.range  $+ $chr(124) Prayer7 %skill.pray  $+ $chr(124) Magic7 %skill.mage
          $hget($gettok($sockname,2,46),out) Skills to07 $round($calc( ($round(%mage,2) - 0.5) + 1 ),0) $+ : Magic/Range:07 $round($calc((($round($calc( %mage + 0.4999 ),0) - %mage ) / 0.486) + 0.4999 ),0) Def/Hp:07 $round($calc((($round($calc( $round(%mage,2) + 0.4999 ),0) - %mage ) / 0.25) + 0.4999 ),0) Prayer:07 $round($calc((($round($calc( $round(%mage,2) + 0.4999 ),0) - %mage ) / 0.125) + 0.4999 ),0)
          goto unset
        }
        if ((%range >= %mage) && (%range >= %melee)) {
          $hget($gettok($sockname,2,46),out) Combat stats for7 $hget($gettok($sockname,2,46),nick)
          $hget($gettok($sockname,2,46),out) Combat Lvl7 $round(%range,2) Attack7 %skill.att  $+ $chr(124) Strength7 %skill.str  $+ $chr(124) Defence7 %skill.def  $+ $chr(124) Hitpoints7 %skill.hp  $+ $chr(124) Ranged7 %skill.range  $+ $chr(124) Prayer7 %skill.pray  $+ $chr(124) Magic7 %skill.mage
          $hget($gettok($sockname,2,46),out) Skills to07 $round($calc( ($round(%range,2) - 0.5) + 1 ),0) $+ : Magic/Range:07 $round($calc((($round($calc( %range + 0.4999 ),0) - %range ) / 0.486) + 0.4999 ),0) Def/Hp:07 $round($calc((($round($calc( $round(%range,2) + 0.4999 ),0) - %range ) / 0.25) + 0.4999 ),0) Prayer:07 $round($calc((($round($calc( $round(%range,2) + 0.4999 ),0) - %range ) / 0.125) + 0.4999 ),0)
        }
        if ((%mage >= %range) && (%mage >= %melee)) {
          $hget($gettok($sockname,2,46),out) Combat stats for7 $hget($gettok($sockname,2,46),nick)
          $hget($gettok($sockname,2,46),out) Combat Lvl7 $round(%mage,2) Attack7 %skill.att  $+ $chr(124) Strength7 %skill.str  $+ $chr(124) Defence7 %skill.def  $+ $chr(124) Hitpoints7 %skill.hp  $+ $chr(124) Ranged7 %skill.range  $+ $chr(124) Prayer7 %skill.pray  $+ $chr(124) Magic7 %skill.mage
          $hget($gettok($sockname,2,46),out) Skills to07 $round($calc( ($round(%mage,2) - 0.5) + 1 ),0) $+ : Magic/Range:07 $round($calc((($round($calc( %mage + 0.4999 ),0) - %melee ) / 0.325) + 0.4999 ),0) Def/Hp:07 $round($calc((($round($calc( $round(%mage,2) + 0.4999 ),0) - %mage ) / 0.25) + 0.4999 ),0) Prayer:07 $round($calc((($round($calc( $round(%mage,2) + 0.4999 ),0) - %mage ) / 0.125) + 0.4999 ),0)
        }
        if ((%melee >= %mage) && (%melee >= %range)) {
          $hget($gettok($sockname,2,46),out) Combat stats for7 $hget($gettok($sockname,2,46),nick)
          $hget($gettok($sockname,2,46),out) Combat Lvl7 %melee  $+ $chr(124) Attack7 %skill.att  $+ $chr(124) Strength7 %skill.str  $+ $chr(124) Defence7 %skill.def  $+ $chr(124) Hitpoints7 %skill.hp  $+ $chr(124) Ranged7 %skill.range  $+ $chr(124) Prayer7 %skill.pray  $+ $chr(124) Magic7 %skill.mage
          $hget($gettok($sockname,2,46),out) Skills to07 $round($calc( ($round(%melee,2) - 0.5) +1 ),0) $+ : Att/Str:07 $round($calc((($round($calc( %melee + 0.4999 ),0) - %melee ) / 0.325) + 0.4999 ),0) Def/Hp:07 $round($calc((($round($calc( $round(%melee,2) + 0.4999 ),0) - %melee ) / 0.25) + 0.4999 ),0) Prayer:07 $round($calc((($round($calc( $round(%melee,2) + 0.4999 ),0) - %melee ) / 0.125) + 0.4999 ),0)
        }
      }
      if ($left($hget($gettok($sockname,2,46),goal),1) == $chr(35)) {
        if ((%mage == %range) && (%mage >= %melee) && (%mage <= 110) && (%melee <= 110) && (%range <= 110)) {
          $hget($gettok($sockname,2,46),out) Combat stats for7 $hget($gettok($sockname,2,46),nick)
          $hget($gettok($sockname,2,46),out) Combat Lvl7 $round(%mage,2) Attack7 %skill.att  $+ $chr(124) Strength7 %skill.str  $+ $chr(124) Defence7 %skill.def  $+ $chr(124) Hitpoints7 %skill.hp  $+ $chr(124) Ranged7 %skill.range  $+ $chr(124) Prayer7 %skill.pray  $+ $chr(124) Magic7 %skill.mage
          $hget($gettok($sockname,2,46),out) Skills to07 $remove($hget($gettok($sockname,2,46),goal),$chr(35)) $+ : Magic/Range:07 $round($calc(((($remove($hget($gettok($sockname,2,46),goal),$chr(35))- %mage )/0.486)-0.5)+1),0) Def/Hp:07 $round($calc(((($remove($hget($gettok($sockname,2,46),goal),$chr(35))- %mage )/0.25)-0.5)+1),0) Prayer:07 $round($calc(((($hget($gettok($sockname,2,46),goal),$chr(35))- %mage )/0.125)-0.5)+1),0)
          goto unset
        }
        if ((%range >= %mage) && (%range >= %melee)) {
          $hget($gettok($sockname,2,46),out) Combat stats for7 $hget($gettok($sockname,2,46),nick)
          $hget($gettok($sockname,2,46),out) Combat Lvl7 $round(%range,2) Attack7 %skill.att  $+ $chr(124) Strength7 %skill.str  $+ $chr(124) Defence7 %skill.def  $+ $chr(124) Hitpoints7 %skill.hp  $+ $chr(124) Ranged7 %skill.range  $+ $chr(124) Prayer7 %skill.pray  $+ $chr(124) Magic7 %skill.mage
          $hget($gettok($sockname,2,46),out) Skills to07 $remove($hget($gettok($sockname,2,46),goal),$chr(35)) $+ : Range:07 $round($calc(((($remove($hget($gettok($sockname,2,46),goal),$chr(35))- %range)/0.486)-0.5)+1),0) Def/Hp:07 $round($calc(((($remove($hget($gettok($sockname,2,46),goal),$chr(35))- %range)/0.25)-0.5)+1),0) Prayer:07 $round($calc(((($remove($hget($gettok($sockname,2,46),goal),$chr(35))- %range)/0.125)-0.5)+1),0)
        }
        if ((%mage >= %range) && (%mage >= %melee)) {
          $hget($gettok($sockname,2,46),out) Combat stats for7 $hget($gettok($sockname,2,46),nick)
          $hget($gettok($sockname,2,46),out) Combat Lvl7 $round(%mage,2) Attack7 %skill.att  $+ $chr(124) Strength7 %skill.str  $+ $chr(124) Defence7 %skill.def  $+ $chr(124) Hitpoints7 %skill.hp  $+ $chr(124) Ranged7 %skill.range  $+ $chr(124) Prayer7 %skill.pray  $+ $chr(124) Magic7 %skill.mage
          $hget($gettok($sockname,2,46),out) Skills to07 $remove($hget($gettok($sockname,2,46),goal),$chr(35)) $+ : Magic:07 $round($calc(((($remove($hget($gettok($sockname,2,46),goal),$chr(35))- %melee )/0.325)-0.5)+1),0) Def/Hp:07 $round($calc(((($remove($hget($gettok($sockname,2,46),goal),$chr(35))- %mage )/0.25)-0.5)+1),0) Prayer:07 $round($calc(((($remove($hget($gettok($sockname,2,46),goal),$chr(35))- %mage )/0.125)-0.5)+1),0)
        }
        if ((%melee >= %mage) && (%melee >= %range)) {
          $hget($gettok($sockname,2,46),out) Combat stats for7 $hget($gettok($sockname,2,46),nick)
          $hget($gettok($sockname,2,46),out) Combat Lvl7 %melee  $+ $chr(124) Attack7 %skill.att  $+ $chr(124) Strength7 %skill.str  $+ $chr(124) Defence7 %skill.def  $+ $chr(124) Hitpoints7 %skill.hp  $+ $chr(124) Ranged7 %skill.range  $+ $chr(124) Prayer7 %skill.pray  $+ $chr(124) Magic7 %skill.mage
          $hget($gettok($sockname,2,46),out) Skills to07 $remove($hget($gettok($sockname,2,46),goal),$chr(35)) $+ : Att/Str:07 $round($calc(((($remove($hget($gettok($sockname,2,46),goal),$chr(35))- %melee )/0.325)-0.5)+1),0) Def/Hp:07 $round($calc(((($remove($hget($gettok($sockname,2,46),goal),$chr(35))- %melee )/0.25)- 0.5)+1),0) Prayer:07 $round($calc(((($remove($hget($gettok($sockname,2,46),goal),$chr(35))- %melee )/0.125)-0.5)+1),0)
        }
      }
    }
    if (%skill.skill == duel && %skill.duel >= 1900) {
      $hget($gettok($sockname,2,46),out) Tornament stats for07 $hget($gettok($sockname,2,46),nick)
      $hget($gettok($sockname,2,46),out) Rank:07 %skill.duelrank Score:07 %skill.duel
    }
    if (%skill.skill == duel && %skill.duel < 1900) {
      $hget($gettok($sockname,2,46),out) 07 $+ $hget($gettok($sockname,2,46),nick) Unranked
    }
  }
  :unset
  unset %avg
  unset %saystyle.s
  unset %skill.*
  unset %skill
  unset %404
}