Something

on *:JOIN:#BKA:{
  if ($nick == $me) || (%whois == off) { halt }
  set %nickname $nick
  set %chan #BKAStaff
  set %jchan $chan | .whois $nick
  if (%joinmsg == off) || ($readini(botinfo.ini,n,defname,$address($nick,3)) != $null) { halt }
  else { 
    notice $nick 4»1 Please Read: Upon joining please type !defname your-rsn then hop for our cmb check. If you are here to only ask a qustion then ask it.
  } 
  if ($nick == $me) || (%cmbcheck == off) { halt }
  else {
    var %name  $readini(botinfo.ini,n,defname,$address($nick,3))
  }
  var %x 1
  while ($sock(cmb. $+ %x)) {
    inc %x
  }
  sockopen $+(cmb.,%x) hiscore.runescape.com 80
  sockmark $+(cmb.,%x) -1 $+ ~ $+ msg %chan $+ ~ $+ $nick $+ ~ $+ %name
}
on *:SOCKOPEN:cmb.*: {
  sockwrite -n $sockname GET /index_lite.ws?player= $+ $gettok($sock($sockname).mark,4,126) HTTP/1.1
  sockwrite -n $sockname Host: hiscore.runescape.com
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:cmb.*: {
  var %read
  var %att
  var %str
  var %def
  var %hp
  var %range
  var %prayer
  var %magic
  var %summon
  sockread %read
  if (*404 - page not* iswm %read) {
    $gettok($sock($sockname).mark,2,126) *** $+($chr(91),$c1($gettok($sock($sockname).mark,3,126),Combat),$chr(93),:) $c2($gettok($sock($sockname).mark,3,126),Combat stats of) $qt($c1($gettok($sock($sockname).mark,3,126),$gettok($sock($sockname).mark,4,126))) $c2($gettok($sock($sockname).mark,3,126),not found.)
    sockclose $sockname
    halt
  }
  if (*,*,* iswm %read) {
    sockread %att
    sockread %def
    sockread %str
    sockread %hp
    sockread %range
    sockread %prayer
    sockread %magic
    var %1 1
    while (%1 <= 17) {
      sockread %summon
      inc %1
    }
    var %att $iif($gettok(%att,2,44) == -1,1,$v1)
    var %def $iif($gettok(%def,2,44) == -1,1,$v1)
    var %str $iif($gettok(%str,2,44) == -1,1,$v1)
    var %hp $iif($gettok(%hp,2,44) == -1,10,$v1)
    var %range $iif($gettok(%range,2,44) == -1,1,$v1)
    var %prayer $iif($gettok(%prayer,2,44) == -1,1,$v1)
    var %magic $iif($gettok(%magic,2,44) == -1,1,$v1)
    var %summon $iif($gettok(%summon,2,44) == -1,1,$v1)
    var %info $cmblvl(%att,%str,%def,%hp,%range,%prayer,%magic,%summon)
    var %f2pcmb $f2pcmblvl(%att,%str,%def,%hp,%range,%prayer,%magic)
    var %info2 $nextcmblvl(,%att,%str,%def,%hp,%range,%prayer,%magic)
    $gettok($sock($sockname).mark,2,126) *** $+($chr(91),$c1($gettok($sock($sockname).mark,3,126),Combat),$chr(93),:) $c1($gettok($sock($sockname).mark,3,126),$gettok($sock($sockname).mark,4,126)) $c2($gettok($sock($sockname).mark,3,126),is level) $c1($gettok($sock($sockname).mark,3,126),$gettok(%info,1,32)) $+($chr(40),$c1($gettok($sock($sockname).mark,3,126),F2P $gettok(%f2pcmb,1,32)),$chr(41)) $+($chr(91),$c1($gettok($sock($sockname).mark,3,126),$gettok(%info,2,32)),$chr(93)) $chr(124) $c2($gettok($sock($sockname).mark,3,126),$+(ASD,$chr(2),H,$chr(2),RPMU)) $+ : $c1($gettok($sock($sockname).mark,3,126),%att %str %def $+($chr(2),%hp,$chr(2)) %range %prayer %magic %summon)
    sockclose $sockname
    halt
  }
  if ($readini(botinfo.ini,peak,$chan) <= $nick($chan,0)) {
    writeini botinfo.ini peak $chan $nick($chan,0)
  }
  elseif (!$readini(botinfo.ini,peak,$chan)) {
    writeini botinfo.ini peak $chan $nick($chan,0)
  }
}