Someone

on $*:TEXT:/^[!@.]cmb%( .*)?$/Si:#iNicko,#RunePKers:{
  cleanup
  if (%statswaittime > 0) { halt }
  if (!%rsn [ $+ [ $address($nick,2) ] ]) && (!$2-) { notice $nick 4Please either set a nick 7(!setrsn)4 or enter one. | halt }
  set %cmbper.name $iif($2-,$replace($2-,$chr(32),+),%rsn [ $+ [ $address($nick,2) ] ])
  set %target $iif($left($1,1) == @,.msg $chan,.notice $nick)
  sockopen cmbper hiscore.runescape.com 80
  set %statswaittime 5
  dec -c %statswaittime 1
}
on *:sockopen:cmbper*:{
  sockwrite -nt $sockname GET /index_lite.ws?player= $+ %cmbper.name HTTP/1.1
  sockwrite -nt $sockname Host: hiscore.runescape.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:cmbper*:{
  var %rn %stats.rn
  set %stats.rn $calc(%rn + 1)
  sockread -f %r
  if (*404 - Page not found* iswm %r) {
    %target  $+ %color2 $+ %cmbper.name  $+ %color1 $+ is not featured in the highscores
    cleanup $sockname
  }
  if (%rn == 11) {
    if (%r != -1,1,0) { hadd -m $sockname Exp $gettok(%r,3,44) }
  }
  if (%rn isnum 12-17) {
    if (%r != -1,1,0) { inc %cmbper.exp $gettok(%r,3,44) }
  }
if (%rn == 18) {
  %target  $+ %color3 $+ [ $+ %color2 $+ CMB$+ $chr($asc(%)) $+  $+ %color3 $+ ]  $+ %color2 $+ $upper(%cmbper.exp)  $+ %color1 $+ has $+ %color2 $chr($asc(%)) $+ $calc($hget($sockname,Exp) / %cmbper.exp * 100)  $+ %color1 of their total exp being combat.
cleanup
}
}
on *:TEXT:!setrsn*:#inicko:{
  if ($+(*,$chr(36),*) iswm $2-) { 
    notice $nick 4Do not try and exploit me, 7noob4!!
    halt 
  }
  elseif ($len($2-) < 13) {
    if (%rsn [ $+ [ $address($nick,2) ] ]) {
      notice $nick 4You already have a nick set to your address, to change it, message me:7 !change runescapename
      set %change [ $+ [ $address($nick,2) ] ] on
      halt
    }
    set %rsn [ $+ [ $address($nick,2) ] ] $replace($2-,$chr(32),+)
    notice $nick 4The nick7 $2- 4has been set with the address7 $address($nick,2)
  }
}
on *:TEXT:!change*:?:{
  if (%change [ $+ [ $address($nick,2) ] ] == on) {
    if ($+(*,$chr(36),*) iswm $2-) { 
      notice $nick 4Do not try and exploit me, 7noob4!!
      halt 
    }
    elseif ($len($2-) < 13) {
      var %rsnold [ $+ [ $address($nick,2) ] ] $replace(%rsn [ $+ [ $address($nick,2) ] ],+,$chr(32))
      set %rsn [ $+ [ $address($nick,2) ] ] $replace($2-,$chr(32),+)
      notice $nick 4You have replaced7 %rsnold [ $+ [ $address($nick,2) ] ] 4with7 $2-
      unset %change [ $+ [ $address($nick,2) ] ]
    }
  }
}
alias -l skillname {
  if ($1 == 1) return Overall
  elseif ($1 == 2) return Attack
  elseif ($1 == 3) return Defence
  elseif ($1 == 4) return Strength
  elseif ($1 == 5) return Hitpoints
  elseif ($1 == 6) return Ranged
  elseif ($1 == 7) return Prayer
  elseif ($1 == 8) return Magic
  elseif ($1 == 9) return Cooking
  elseif ($1 == 10) return Woodcutting
  elseif ($1 == 11) return Fletching
  elseif ($1 == 12) return Fishing
  elseif ($1 == 13) return Firemaking
  elseif ($1 == 14) return Crafting
  elseif ($1 == 15) return Smithing
  elseif ($1 == 16) return Mining
  elseif ($1 == 17) return Herblore
  elseif ($1 == 18) return Agility
  elseif ($1 == 19) return Thieving
  elseif ($1 == 20) return Slayer
  elseif ($1 == 21) return Farming
  elseif ($1 == 22) return Runecraft
  elseif ($1 == 23) return Hunter
  elseif ($1 == 24) return Construction
}
alias -l cleanup {
  unset %target
  unset %rn
  unset %r
  unset %cmbper.*
  unset %rsn*
  unset %rsnlookup
}