PestScript

alias pest {
  var %exp $iif($2 != Prayer,$calc(($1 ^2)/6),$calc(($1 ^2)/12)), %xp.diff $calc($exp($3) - $4), %point $calc(%xp.diff / %exp)
  if (%point >= 100) { var %point $calc(%xp.diff / ((%exp * 0.1)+ %exp)) }
  return $gettok(%point,1,46)
} 

on $*:text:/^((\[[a-z]{2}\])?Generic )?[@`.,!](Pest|pc)*/Si:#GenericDev,#theclan: { 
  if ($hget(disabled,$chan)) && ($1 != $me) halt
  if ($1 == $me) tokenize 32 $2-
  if ($1 != $me) && ($regex($remove($1,$left($1,1)),/(Pc|Pest)/i) != 1) halt
  if ($pctrigger($2,check) !=  yes) halt
  if (!$3) $iif($left($1,1) == @,msg $chan,notice $nick) 14You must specify a04 Username14 to lookup!
  if ($3) {
    if ($chr(35) == $left($3,1)) { 
      if ($4) {
        set -u60 %PcGoal [ $+ [ %statsid ] ] $remove($3,$left($3,1))
      }
      if (!$4) {
        $iif($left($1,1) == @,msg $chan,notice $nick) 14You must specify a04 Username14 to lookup!
        halt
      }
    }  
    if ($chr(35) == $left($3,1)) && ($4) set -u60 %PcGoal [ $+ [ %statsid ] ] $remove($3,$left($3,1))
    if ($len($3-) > 12) notice $nick 14Usernames must be under a length of 12 characters
    if ($len($3-) < 12) {
      inc %statsid 1
      set -u60 %StatsType [ $+ [ %statsid ] ] PestControl
      set -u60 %StatsName [ $+ [ %statsid ] ] $replace($iif($chr(35) isin $3,$4-,$3),$chr(32),$chr(95),$chr(35),$chr(45))
      set -u60 %statsnick [ $+ [ %statsid ] ] $nick
      set -u60 %statschan [ $+ [ %statsid ] ] $chan
      set -u60 %skill [ $+ [ %statsid ] ] $pctrigger($2)
      set -u60 %statsmsg [ $+ [ %statsid ] ] $iif($left($1,1) == @,msg $chan,notice $nick)
      sockopen $+(rsstats,%statsid) hiscore.runescape.com 80
    }
  }
}

alias PcTrigger {
  if ($regex($1,/^at(t|k|tack)$/Si)) $iif($2,return yes,return Attack) 
  elseif ($regex($1,/^def(en[cs]e)?$$/Si)) $iif($2,return yes,return Defence) 
  elseif ($regex($1,/^str(ength)?$/Si)) $iif($2,return yes,return Strength) 
  elseif ($regex($1,/^hp|hits(points)??$/Si)) $iif($2,return yes,return Hitpoints) 
  elseif ($regex($1,/^range(r|d|ing)?$/Si)) $iif($2,return yes,return Ranged) 
  elseif ($regex($1,/^Pray(er)?$$/Si)) $iif($2,return yes,return Prayer) 
  elseif ($regex($1,/^mag(e|ic)$$/Si)) $iif($2,return yes,return Magic) 
}