Mine

on *::!next*:#: {
  if (runescript ison $chan || %runescript ison $chan || $chan == #rs) { halt }
  if ($readini(Combatcheck.ini,$chan,$network) == on || $chan == #fireworkingarea) { 
    if ($sock(whatever)) sockclose whatever
    set %next.nick $2
    set %next.display msg $chan
    set %color.nick $nick
    sockopen next www.rscript.org 80 
  }
}
on *:sockopen:next: { 
  sockwrite -nt $sockname GET /lookup.php?type=stats&user= $+ %next.nick HTTP/1.1
  sockwrite -nt $sockname Host: www.rscript.org
  sockwrite -nt $sockname $crlf 
}
on *:sockread:next: {
  if ($sockerr) { %exp.display Error please inform $me about this error | halt
  }
  var %sockreader
  sockread %sockreader 
  if (*stat* iswm %sockreader) { hadd -m next $remove(%sockreader,STAT:,) }
  if (*STAT: not found* iswm %sockreader) { %next.display $c1(%next.nick) $c2(Does not show in the High Scores page.) | sockclose $sockname | halt }
  if (*end* iswm %sockreader) {  
    set %test $hget(next,attack)
    set %x 2
    while (%x <= 25) { 
      tokenize 32 $hget(next,$setskill(%x))
      set %nextlevel $calc($2 + 1)
      set %next. $+ setskill(%x) $calc($readini(experiance.ini,skills,%nextlevel) - $3)
    }
    sockclose $sockname
  }
}
alias -l setskill { 
  if ($regex($1,/^(total|overall)/Si)) || ($1 == 1) { Return Overall } 
  elseif ($regex($1,/^(att|atk|attack)/Si)) || ($1 == 2) { Return Attack } 
  elseif ($regex($1,/^(str|strenth|strength)/Si)) || ($1 == 4) { Return Strength } 
  elseif ($regex($1,/^(def|defend|defence)/Si)) || ($1 == 3) { Return Defence } 
  elseif ($regex($1,/^(hp|hits|hitpoints|hit)/Si)) || ($1 == 5) { Return Hitpoints } 
  elseif ($regex($1,/^(range|ranging|arch|archery|arching)/Si)) || ($1 == 6) { Return Ranged } 
  elseif ($regex($1,/^(pray|prayer|praying)/Si)) || ($1 == 7) { Return Prayer } 
  elseif ($regex($1,/^(mage|magic)/Si)) || ($1 == 8) { Return Magic } 
  elseif ($regex($1,/^(cook|cooking)/Si)) || ($1 == 9) { Return Cooking } 
  elseif ($regex($1,/^(wc|wood|woodcut|woodcutting)/Si)) || ($1 == 10) { Return Woodcutting } 
  elseif ($regex($1,/^(fletch|fletching)/Si)) || ($1 == 11) { Return Fletching } 
  elseif ($regex($1,/^(Fish(ing)?|fishing|fishcatching)/Si)) || ($1 == 12) { Return Fishing } 
  elseif ($regex($1,/^(fm|fire|firemaking)/Si)) || ($1 == 13) { Return Firemaking } 
  elseif ($regex($1,/^(craft|crafting)/Si)) || ($1 == 14) { Return Crafting } 
  elseif ($regex($1,/^(smithing|metalmaking|smith)/Si)) || ($1 == 15) { Return Smithing } 
  elseif ($regex($1,/^(Mine|mining)/Si)) || ($1 == 16) { Return Mining } 
  elseif ($regex($1,/^(Herb|Herblore)/Si)) || ($1 == 17) { Return Herblore } 
  elseif ($regex($1,/^(Agil|agi|Agility)/Si)) || ($1 == 18) { Return Agility } 
  elseif ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) || ($1 == 19) { return Thieving } 
  elseif ($regex($1,/^(slay|slayer)/Si)) || ($1 == 20) { Return Slayer } 
  elseif ($regex($1,/^(farm|Farming|planting)/Si)) || ($1 == 21) { Return Farming } 
  elseif ($regex($1,/^(rune|rc|runecrafting|runecraft)/Si)) || ($1 == 22) { Return Runecraft } 
  elseif ($regex($1,/^(hunt|hunting|hunter)/Si)) || ($1 == 23) { return Hunter } 
  elseif ($regex($1,/^con(scruct)?(tion)?/Si)) || ($1 == 24) { return Construction } 
  elseif ($regex($1,/^(sum|summon|summoning)/Si)) || ($1 == 25) { return Summoning } 
}