Mine

}

/* 
Coded by Pc_Dark 
OSS Team - #OSS 
IRC.SwiftIRC.net 
!pest <Stat> <RSN> 
@pest <stat> <rsn> 
*/ 
on $*:TEXT:/^[!@.](pc|pest) */Si:#: { 
  ;;; Check if it's a valid skill, sockopen, and set vars. ;;; 
  if ($getskill($2)) { 
    /var %x = 1 
    /while ($sock(pc. $+ %x)) { 
      /inc %x 
    } 
    if (#* iswm $4) { 
      /notice $nick Syntax: !Pest <Skill> <RSN>  - Alternative: !Pest <Skill> <Level To Get> <RSN> 
      /halt 
    } 
    if (#* iswm $3) { 
      /set %level. $+ %x $right($3,-1) 
    } 
    ;;; Set Vars ;;; 
    /set %target. $+ %x $iif($left($1,1) == @,msg $chan,.notice $nick) 
    /set %rsn. $+ %x $iif(*#* !iswm $3,$replace($3-,$chr(32),+),$replace($4-,$chr(32),+)) 
    /set %skill. $+ %x $getskill($2) 
    /sockopen pc. $+ %x www.o-ss.net 80 
    /halt 
  } 
  /notice $nick Specify a valid skill to look up.  EX: !pest attack Pc_Darkness 
} 
alias -l cleanup { 
  ;;; Clean up the socket, unset vars, close it ;;; 
  /sockclose $1 
  /unset %level. $+ $right($1,1) 
  /unset %target. $+ $right($1,1) 
  /unset %rsn. $+ $right($1,1) 
  /unset %skill. $+ $right($1,1) 
} 
on *:sockopen:pc.*: { 
  ;;; Go to the file ;;; 
  /var %x = $right($sockname,1) 
  if ($sockerr > 0) /return 
  /sockwrite -nt $sockname GET $+(/parsers/skills.php?user=,%rsn. [ $+ [ %x ] ],&skill=,%skill. [ $+ [ %x ] ]) HTTP/1.1 
  /sockwrite -nt $sockname Host: www.o-ss.net 
  /sockwrite -nt $sockname $crlf $crlf 
} 
on *:sockread:pc.*: { 
  ;;; Get the data, tokenize, and do checks to output. ;;; 
  if ($sockerr) /return 
  /var %x = $right($sockname,1) 
  /var %read | /sockread %read 
  /tokenize 32 %read 
  if (*</TITLE>* iswm $1-) { %target. [ $+ [ %x ] ] $replace(%rsn. [ $+ [ %x ] ],+,$chr(32)) Does Not Feature in the Hi-Scores for %skill. [ $+ [ %x ] ] $+ . | /cleanup $sockname | /halt } 
  if ($3 == does) { %target. [ $+ [ %x ] ] $replace(%rsn. [ $+ [ %x ] ],+,$chr(32)) Does Not feature in the Hi-Scores. | /cleanup $sockname | /halt } 
  if ($0 == 4) { %target. [ $+ [ %x ] ] Pest control points needed to get level $iif(%level. [ $+ [ %x ] ],%level. [ $+ [ %x ] ],$calc(($2)+1)) in %skill. [ $+ [ %x ] ] $+ : $iif(%level. [ $+ [ %x ] ],$pestget(%skill. [ $+ [ %x ] ],%level. [ $+ [ %x ] ],$calc($xp(%level. [ $+ [ %x ] ])-($remove($3,$chr(44))))),$pestget(%skill. [ $+ [ %x ] ],$calc(($2)+1),$calc($xp($calc($2 + 1))- $remove($3,$chr(44))))) | /cleanup $sockname } 
} 
alias -l /getskill { 
  ;;; Regex to return skills ;;; 
  if ($regex($1,/^over(all)?/Si)) return overall 
  elseif ($regex($1,/^at(t|k|tack)?/Si)) return attack 
  elseif ($regex($1,/^def(en[cs]e)?/Si)) return defence 
  elseif ($regex($1,/^hp|hit(s|points?)?/Si)) return hitpoints 
  elseif ($regex($1,/^range(r|d|ing)?/Si)) return ranged 
  elseif ($regex($1,/^Pray(er)?/Si)) return prayer 
  elseif ($regex($1,/^mag(e|ic)?/Si)) return magic 
  elseif ($regex($1,/^str(ength)?/Si)) return strength 
} 
alias /pest { 
  ;;; Pest alias to retrive skill points per ticket ;;; 
  /var %type = $iif($1 == prayer,12,6) 
  /return $ceil($calc(($2)*($2)/(%type))) 
} 
alias /pestget { 
  ;;; Gets amount of tickets. ;;; 
  /var %skill = $1 
  /var %exp = $remove($3,$chr(44)) 
  /var %level = $2 
  /var %gstring = $pest(%skill,%level) 
  /return $bytes($ceil($calc((%exp)/(%gstring))),b) 
} 
alias /xp { 
  ;;; Calculates XP to level ;;; 
  /var %x = 1, %level = $calc($1 - 1), %xp = 0 
  /while (%x <= %level) { 
    /var %tempxp = $calc($floor($calc(%x + 300 * 2 ^ (%x / 7))) / 4) 
    /inc %xp %tempxp 
    /inc %x 
  } 
  /return $int(%xp)