elseif ($regex($1,/^[ $+ %trigger $+ ]co?mba?t?%?/Si)) {


  var %sn $+(st.,$right($ticks,5)),%host hiscore.runescape.com
  var %address $address($nick,3)
  var %rsn $iif(!$2,$iif($rini(Defname,%address),$v1,$nick),$fname($2-))
  hadd -m %sn output %o
  hadd %sn colour %3
  hadd %sn rsn %rsn
  hadd %sn prsn $iif($rini(Privacy,%address) && !$2,Hidden,%rsn)
  hadd %sn errorout .notice $nick
  hadd %sn cmb $iif(*% iswm $1,cmbperc,yes)
  hadd %sn host %host
  hadd %sn path $+(/index_lite.ws?player=,%rsn)
  sockopen %sn %host 80
}
elseif (st.* iswm $sockname) {
  var %s
  sockread %s
  if (Page isin %s) {
    $output($hget($sockname,output) $logo(%cn,Stats) $c2(%cn,The username) $c1(%cn,$hget($sockname,rsn)) $c2(%cn,was not found in the RuneScape Hiscores.))
    hfree $sockname
    sockclose $sockname
    halt
  }
  if (*unexpected condition* iswm %s) {
    $output($hget($sockname,output) $logo(%cn,Stats) Due to a technical issue Jagex have caused we are currently unable to process your request)
    hfree $sockname
    sockclose $sockname
    halt
  }
  if (*,*,* iswm %s) {
    hinc $sockname snum 1
    tokenize 44 %s
    $iif($hget($sockname,hl),hadd $sockname $+($gettok($s1($hget($sockname,snum)),1,32),Rank) $1)
    $iif($hget($sockname,skill) == $s1($hget($sockname,snum)),hadd $sockname skline %s)
    $iif($hget($sockname,cmb) == cmbperc,hadd $sockname expline $hget($sockname,expline) $3)
    hadd $sockname $gettok($s1($hget($sockname,snum)),1,32) $iif($hget($sockname,hl),$3,$2)
  }
  elseif ($hget($sockname,snum) >= 23) {
    var %b $iif($hget($sockname,hl),2,1)
    while (%b <= 26) {
      var %stat $hget($sockname,$gettok($s1(%b),1,32))
      var %c $gettok($hget($sockname,elg),2,46)
      var %t $gettok($hget($sockname,elg),1,46)
      hadd $sockname statsline $hget($sockname,statsline) $iif(-1 !isin %stat,$+($c1(%cn,$gettok($s3(%b),1,32)),$chr(58),$chr(32),$c2(%cn,%stat),$chr(44),$iif(%b <= 25,$c1(%cn,$chr(124))))))
      $iif($hget($sockname,cmb),hadd $sockname cmbline $hget($sockname,cmbline) %stat)
      $iif($hget($sockname,hl),hadd $sockname hline $hget($sockname,hline) $iif(-1 !isin %stat,$+($v2,$chr(96),$gettok($s1(%b),1,32))))
      $iif($hget($sockname,elg),hadd $sockname elgline $hget($sockname,elgline) $iif(%stat %t %c && -1 !isin %stat,$+($c1(%cn,$gettok($s3(%b),1,32)),$chr(58),$chr(32),$c2(%cn,%stat),$chr(44),$iif(%b <= 25,$c1(%cn,$chr(124))))))
      inc %b
    }
    elseif ($hget($sockname,cmb) == yes) {
      tokenize 32 $hget($sockname,cmbline)
      var %cmbstats $2 $4 $3 $5-8 $25
      if (-1 -1 -1 -1 -1 -1 -1 -1 !isin %cmbstats) {
        $output($hget($sockname,output) $logo(%cn,Combat) $c2(%cn,$hget($sockname,prsn)) $c1(%cn,is level) $c2(%cn,$cmb(%cmbstats)) $c1(%cn,F2P:) $c2(%cn,$gettok($cmb($gettok(%cmbstats,1-7,32)),1,32)) $c1(%cn,ASDCRPM(SU)) $c2(%cn,$remove(%cmbstats,$chr(45))))
        if ($($+($,nextlevel,$chr(40),%cmbstats,$chr(41),.,%cn),2)) {
          var %v1 $v1
          $iif(!$hget($sockname,autocmb),$output($hget($sockname,output) $logo(%cn,Combat) Next level in: %v1))
        }
      }
      else {
        $output($hget($sockname,output) $logo(%cn,Combat) Combat stats of $c2(%cn,$hget($sockname,rsn)) $c1(%cn,are unranked))
      }
      hfree $sockname
      sockclose $sockname
    }
    elseif ($hget($sockname,cmb) == cmbperc) {
      tokenize 32 $hget($sockname,expline)
      var %cmbxp $calc($replace($2-8,$chr(32),+) + $25)
      $output($hget($sockname,output) $logo(%cn,Cmb%) $c2(%cn,$hget($sockname,prsn)) $c1(%cn,has) $c2(%cn,$bytes(%cmbxp,bd)) $c1(%cn,combat exp and) $c2(%cn,$bytes($calc($1 - %cmbxp),bd)) $c1(%cn,skill exp, resulting in a combat percent of) $c2(%cn,$+($round($calc((%cmbxp / $1) *100),2),%)))
      hfree $sockname
      sockclose $sockname
    }

    else {
      var %line $hget($sockname,$iif($hget($sockname,elgline),elgline,statsline))
      var %numline $numtok(%line,124)
      var %line $remtok(%line,%numline,124),%elg $elg($gettok($hget($sockname,elg),1,46))
      var %logo $logo(%cn,$+(Stats,$iif(%elg,: %elg $gettok($hget($sockname,elg),2,46))))
      tokenize 44 %line
      $output($hget($sockname,output) %logo $+($c1(%cn,[),$c2(%cn,$hget($sockname,prsn)),$c1(%cn,])) $1-13)
      $iif(%numline >= 14,$output($hget($sockname,output) $logo(%cn,Stats) $remove($14,$chr(124)) $15-26))
      hfree $sockname
      sockclose $sockname
    }
  }
}