on $*:text:/^[!@]blah/Si:#: { 
  if ($2 == $null) {
    inc %ssshc 
    set %hway [ $+ [ %ssshc ] ] $iif($left($1,1) == @,msg $chan,notice $nick) 
    set %hsearch [ $+ [ %ssshc ] ] $nick
    sockopen $+(rsstats.,%ssshc) hiscore.runescape.com 80 
  }
  else {
    inc %ssshc 
    set %hway [ $+ [ %ssshc ] ] $iif($left($1,1) == @,msg $chan,notice $nick) 
    set %hsearch [ $+ [ %ssshc ] ] $replace($2-,$chr(32),+)
    sockopen $+(rsstats.,%ssshc) hiscore.runescape.com 80 
  }
}
on *:sockopen:rsstats.*: {
  sockwrite -nt $sockname GET /hiscorepersonal.ws?user1= $+ %hsearch [ $+ [ $gettok($sockname,2,46) ] ] HTTP/1.1
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname $crlf
}
on *:sockread:rsstats.*: {
  var %htext
  sockread %htext
  if (<td align="left">* iswm %htext) {
    sockread %htext | sockread %no | sockread %rank | sockread %level | sockread %xp 
    if ($htmlfree(%level) != $null) {
      set %hvar [ $+ [ $gettok($sockname,2,46) ] ] %hvar [ $+ [ $gettok($sockname,2,46) ] ] $c1 $+ %htext $c2 $+ $htmlfree(%level)
    } 
    if (%hvar [ $+ [ $gettok($sockname,2,46) ] ] == $null) && (%htext == construction) {
      %hway [ $+ [ $gettok($sockname,2,46) ] ] 13 $+ %hsearch [ $+ [ $gettok($sockname,2,46) ] ] 12was13 not12 featured13 on12 the13 runescape12 highscores
      halt
      unset %hway [ $+ [ $gettok($sockname,2,46) ] ]
      unset %hvar [ $+ [ $gettok($sockname,2,46) ] ]
      unset %hsearch [ $+ [ $gettok($sockname,2,46) ] ]  
      sockclose $sockname 
    }      
    if (%htext == overall) {
      set %overallxp $htmlfree(%xp)
    }
    if ($regex(%htext,/^(att|str|def|hit|mag|ran|pra)/Si)) {
      Set %cmb %cmb $iif($htmlfree(%level),$v1,$iif(%htext == hitpoints,10,1))
    }  
    if (%htext == construction) && (%overallxp == $null) {
      %hway [ $+ [ $gettok($sockname,2,46) ] ] 13Stats12 for13 %hsearch [ $+ [ $gettok($sockname,2,46) ] ] $+ 12: Combat: $cmb(%cmb)
      %hway [ $+ [ $gettok($sockname,2,46) ] ] %hvar [ $+ [ $gettok($sockname,2,46) ] ]
      unset %hway [ $+ [ $gettok($sockname,2,46) ] ]
      unset %hvar [ $+ [ $gettok($sockname,2,46) ] ]
      unset %hsearch [ $+ [ $gettok($sockname,2,46) ] ]     
      sockclose $sockname
      halt 
    } 
    if (%htext == construction) {
      %hway [ $+ [ $gettok($sockname,2,46) ] ] 13Stats12 for13 %hsearch [ $+ [ $gettok($sockname,2,46) ] ] $+ 12:13 Total12 Xp:13 %overallxp Combat: $cmb(%cmb)
      %hway [ $+ [ $gettok($sockname,2,46) ] ] %hvar [ $+ [ $gettok($sockname,2,46) ] ]
      unset %hway [ $+ [ $gettok($sockname,2,46) ] ]
      unset %hvar [ $+ [ $gettok($sockname,2,46) ] ]
      unset %hsearch [ $+ [ $gettok($sockname,2,46) ] ]
      sockclose $sockname
    }
  }
}

;and what I have in alias:

cmb {
  tokenize 32 $1-
  var %rsc1 = $calc((($1 * 130) + ($3 * 130)) / 400)
  var %rsc2 = $calc($iif($and($5,1) == 0,$calc($5 * 195),$calc((($5 - 1) + ($5 * 2)) * 65)) / 400)
  var %rsc3 = $calc($iif($and($7,1) == 0,$calc($7 * 195),$calc((($7 - 1) + ($7 * 2)) * 65)) / 400)
  if ((%rsc1 >= %rsc2) && (%rsc1 >= %rsc3)) return $calc(%rsc1 + ((($2 * 100) + ($4 * 100) + ($iif($and($6,1) == 0,$6,$calc($6 - 1)) * 50)) / 400)) Melee Based
  elseif ((%rsc2 >= %rsc3) && (%rsc2 >= %rsc1)) return $calc(%rsc2 + ((($2 * 100) + ($4 * 100) + $iif($and($6,1) == 0,$6,$calc($6 - 1)) * 50) / 400)) Ranged Based
  elseif ((%rsc3 >= %rsc1) && (%rsc3 >= %rsc2)) return $calc(%rsc3 + ((($2 * 100) + ($4 * 100) + $iif($and($6,1) == 0,$6,$calc($6 - 1)) * 50) / 400)) Magic Based
}