on *:JOIN:#: {
  var %estrand = $rand(1,9) $+ $rand(1,9) $+ $rand(1,9) $+ $rand(1,9) $+ $rand(1,9)
  set %cmbtarget. [ $+ [ %estrand ] ] $nick
  set %cmbchan. [ $+ [ %estrand ] ] $chan
  sockopen cmb. [ $+ [ %estrand ] ] hiscore.runescape.com 80
}
on *:sockopen:cmb.*:{
  sockwrite -nt $sockname GET $+(/index_lite.ws?player=,%cmbtarget. [ $+ [ $right($sockname,5) ] ]) HTTP/1.1
  sockwrite -nt $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
}
on *:sockread:cmb.*:{
  if ($sockerr) {
    msg %cmbchan. [ $+ [ $right($sockname,5) ] ] Error:7 $sockerr $+ .
  }
  else {
    var %ee
    $event %ee
    var %x 0
    while (%x <= 28) {
      if ($regex(%ee,/(-)?\d+\x2C(-)?(\d+)(.*)?/g)) {
        var %stats %stats $statsx($calc(%x +1)) $+ : $bytes($regml(1),b)
        sockread %ee
      }
      inc %x
    }
    if (%x == 29) && (%stats != $null) {
      tokenize 32 $strip(%stats)
      noop $regex(stats,%stats,/(?:Attack|Defence|Strength|Hitpoints|Ranged|Prayer|Magic|Summoning): \-?(\d+)\s/gSi)
      var %z $left($regsubex($str(~,$regml(stats,0)),/~/g,$iif(0 != $regml(stats,\n),$regml(stats,\n),1) $+ $chr(44)),-1)
      msg %cmbchan. [ $+ [ $right($sockname,5) ] ] %cmbtarget. [ $+ [ $right($sockname,5) ] ] $+ 's 12,4estimated combat is $cmbp2p( [ %z ] ) $+ .ASDHRPMS: $replace(%z,$chr(44),$chr(32))
      sockclose $sockname
    }
  }
}
alias statsx { return $gettok(Overall: Attack: Defence: Strength: Hitpoints: Ranged: Prayer: Magic: Cooking: Woodcutting: Fletching: Fishing: Firemaking: Crafting: Smithing: Mining: Herblore: Agility: Thieving: Slayer: Farming: Runecraft: Hunter: Construction: Summoning: Dueling: Bounty Hunter: Bounty Hunter Rogue: Fist Of Guthix:,$1,58) }
alias cmbp2p {
  ;$cmb(attack,defence,strength,hitpoints,ranged,prayer,magic,summoning)
  var %a = $calc($2 * 100), %b = $calc($4 * 100), %e = $calc($1 * 130), %f = $calc($3 * 130)
  var %c = $iif($and($6,1) == 1,$calc($calc($6 - 1) * 50),$calc($6 * 50)), %d = $iif($and($8,1) == 1,$calc($calc($8 - 1) * 50),$calc($8 * 50))
  var %g = $iif($and($5,1) == 1,$calc($calc($calc($5 - 1) + $calc($5 * 2)) * 65),$calc($5 * 195)), %h = $iif($and($7,1) == 1,$calc($calc($calc($7 - 1) + $calc($7 * 2)) * 65),$calc($7 * 195))
  var %base = $calc($calc(%a + %b + %c + %d) / 400), %mclass = $calc($calc(%e + %f) / 400), %rclass = $calc(%g / 400), %maclass = $calc(%h / 400)
  if ((%mclass > %rclass) && (%mclass > %maclass)) { return $calc(%mclass + %base) Melee Based }
  elseif ((%rclass > %mclass) && (%rclass > %maclass)) { return $calc(%rclass + %base) Ranged Based }
  elseif ((%maclass > %mclass) && (%maclass > %rclass)) { return $calc(%maclass + %base) Magic Based }
}