Stuff

on $*:TEXT:/^[!@.](cmb|combat)/Si:#:{
  if (!$2) { notice $nick You must supply a rsn }
  else {
    var %n = $ticks
    set $+(%,cmb.rsn.,%n) $replace($2-,$chr(32),+)
    set $+(%,cmb.style.,%n) $iif($left($1,1) == @,msg $chan,notice $nick) *** [ $($+(%,cmb.rsn.,%n),2) ]:
    sockopen $+(rs.,%ID) hiscore.runescape.com 80

  }
}
on *:SOCKOPEN:cmb.*:{
  var %id = $gettok($sockname,2,46)
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ $($+(%,rs.rsn.,%ID),2) HTTP/1.0

  sockwrite -nt $sockname Host: hiscore.runescape.com $+ $str($crlf,2)
  sockwrite -n $sockname $+($crlf,$crlf)
}

on *:SOCKREAD:cmb.*:{
  var %id = $gettok($sockname,2,46)
  var %rsn = $($+(%,cmb.rsn.,%id),2), $&
    %style = $($+(%,cmb.style.,%id),2)
  if ($sockerr) {
    %style An error occured while connecting
    unset $+(%,cmb.*)
    sockclose $+(cmb.,%id)
  }
  else {
    var %read
    sockread %read
    tokenize 32 $remove(%read,:)
    if ($1 == END) {
      unset $+(%,cmb.active.,%id)
      tokenize 32 $($+(%,cmb.info.,%id),2)
      %style Combat-Level ( $+ $9 $+ ): $8 ADSRMPH: $1-7
      %style Needed for $calc( $floor($8) + 1) Combat: Attack: $10 Defence: $11 Strength: $12 Hitpoints: $13 Ranged: $14 Magic: $15 Prayer: $16
      unset $+(%,cmb.*)
      sockclose $+(cmb.,%id)
    }
    if ($($+(%,cmb.active.,%id),2)) {
      set $+(%,cmb.info.,%id) $($+(%,cmb.info.,%id),2) $2
    }
    if ($1 == Attack) { 
      set $+(%,cmb.active.,%id) true
      set $+(%,cmb.info.,%id) $2
    }
  }
}