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

alias xp {
  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
  }
  if ($prop == format) $bytes($int(%xp),b)
  else return $int(%xp)
}
alias xp2next {
  var %lvl = $1, %xp = $remove($2,$chr(44)), %nextlvl = $calc(%lvl + 1), %nextxp = $xp(%nextlvl)
  if (%lvl >= 99) return -
  elseif ($prop == format) return $bytes($calc(%nextxp - %xp),b)
  else return $calc(%nextxp - %xp)
}




____________________________________________________________________________________________________



on $*:text:/^((\[[a-z]{2}\])?Generic )?[@`.,!]stats */Si:#GenericDev,#theclan: { 
  if ($hget(disabled,$chan)) && ($1 != $me) halt
  if ($1 == $me) tokenize 32 $2-
  if ($1 != $me) && ($remove($1,$left($1,1)) != stats) halt
  if (!$2) $iif($left($1,1) == @,msg $chan,notice $nick) 14You must specify a04 Username14 to lookup!
  if ($2) {
    if ($len($2-) > 12) notice $nick 14Usernames must be under a length of 12 characters
    if ($len($2) < 12) {
      inc %statsid 1
      set -u60 %StatsType [ $+ [ %statsid ] ] Stats
      set -u60 %StatsName [ $+ [ %statsid ] ] $replace($2-,$chr(32),$chr(95),$chr(35),$chr(45))
      set -u60 %statsnick [ $+ [ %statsid ] ] $nick
      set -u60 %statschan [ $+ [ %statsid ] ] $chan
      set -u60 %statsmsg [ $+ [ %statsid ] ] $iif($left($1,1) == @,msg $chan,notice $nick)
      sockopen $+(rsstats,%statsid) hiscore.runescape.com 80
    }
  }
}
on *:SOCKOPEN:Rsstats*:{
  sockwrite -n $sockname GET /hiscorepersonal.ws?user1= $+ %StatsName [ $+ [ $right($sockname,-7) ] ] HTTP/1.1
  sockwrite -n $sockname Host: hiscore.runescape.com $+ $str($crlf,2)
}

on *:SOCKREAD:rsstats*:{
  var %stats.read
  sockread %stats.read
  if (does not feature in the hiscores isin %Stats.read) { 
    %statsmsg [ $+ [ $right($sockname,-7) ] ] $+(04,%StatsName [ $+ [ $right($sockname,-7) ] ]) 14Did not appear in the highscores.
    set -u60 %nubstats [ $+ [ $right($sockname,-7) ] ] yes
  }
  if ($regex(%Stats.read,/(Overall|Attack|Defence|Strength|Hitpoints|Woodcutting|Fletching|Hunter|Construction|Fishing|Cooking|Prayer|Magic|Ranged|Firemaking|Crafting|Smithing|Herblore|Mining|Agility|Thieving|Slayer|Farming|RuneCraft) */iS) == 1) && (<a href !isin %stats.read) && (img !isin %stats.read) && (<form action !isin %stats.read) { 
    set %Statname %Stats.read
  }
  if ((<td align="right"> isin %stats.read && </td> isin %stats.read) && ($remove($htmlfree(%stats.read),$chr(44)) isnum)) || (Not Ranked isin $htmlfree(%stats.read)) {
    if (Not Ranked isin $htmlfree(%stats.read)) {
      if (%Statname == Overall) {
        set %Overall [ $+ [ $right($sockname,-7) ] ] -
      }
      if (%statname == Attack) {
        %message [ $+ [ $right($sockname,-7) ] ] = $+(14,%statname,$chr(58),04,$chr(32),-)
        set -u60 %attack [ $+ [ $right($sockname,-7) ] ] 1
      }
      if (%statname != Attack && %statname != Overall) {
        %data = %message [ $+ [ $right($sockname,-7) ] ] $+(14,%statname,$chr(58),04,$chr(32),-)
        %message [ $+ [ $right($sockname,-7) ] ] = %data
      }
      set -u60 $+(%,%statname,$right($sockname,-7)) 1
    }
    if (%id [ $+ [ %statname ] $+ [ $right($sockname,-7) ] ] == 2) {
      set -u30 $+(%,xp,%statname,$right($sockname,-7)) $htmlfree(%stats.read)
    }    
    if (%id [ $+ [ %statname ] $+ [ $right($sockname,-7) ] ] == 1) {
      set -u30 $+(%,%statname,$right($sockname,-7)) $htmlfree(%stats.read)
      if (%statname == attack) {
        %message [ $+ [ $right($sockname,-7) ] ] = $+(14,%statname,$chr(58),04,$chr(32),$htmlfree(%stats.read))
      }
      if (%statname != attack && %STatname != Overall) {
        %data = %message [ $+ [ $right($sockname,-7) ] ] $+(14,%statname,$chr(58),04,$chr(32),$htmlfree(%stats.read))
        %message [ $+ [ $right($sockname,-7) ] ] = %data
      }
      inc %id [ $+ [ %statname ] $+ [ $right($sockname,-7) ] ] 1
    }
    if (!%id [ $+ [ %statname ] $+ [ $right($sockname,-7) ] ]) {
      set -u30 $+(%,rank,%statname,$right($sockname,-7)) $htmlfree(%stats.read)
      set -u10 %id [ $+ [ %statname ] $+ [ $right($sockname,-7) ] ] 1
    }
  }
}
on *:sockclose:Rsstats*: {
  if (%nubstats [ $+ [ $right($sockname,-7) ] ]) halt
  else {
    var %def = $calc(%defence [ $+ [ $right($sockname,-7) ] ] * 100)
    var %hp = $calc(%hitpoints [ $+ [ $right($sockname,-7) ] ] * 100)
    var %base = $calc(($calc(%defence [ $+ [ $right($sockname,-7) ] ] * 100) + $calc(%hitpoints [ $+ [ $right($sockname,-7) ] ] * 100) + $iif($regex($right(%prayer [ $+ [ $right($sockname,-7) ] ],1),[02468]),$calc(%prayer [ $+ [ $right($sockname,-7) ] ] * 50),$calc((%prayer [ $+ [ $right($sockname,-7) ] ] - 1) * 50))) / 400)
    var %melee = $calc(($calc(%attack [ $+ [ $right($sockname,-7) ] ] * 130) + $calc(%strength [ $+ [ $right($sockname,-7) ] ] * 130)) / 400)
    var %ranger = $calc($iif($regex($right(%ranged [ $+ [ $right($sockname,-7) ] ],1),[02468]),$calc(%ranged [ $+ [ $right($sockname,-7) ] ] * 195),$calc((%ranged [ $+ [ $right($sockname,-7) ] ] * 195) - 65)) / 400)
    var %mage = $calc($iif($regex($right(%magic [ $+ [ $right($sockname,-7) ] ],1),[02468]),$calc(%magic [ $+ [ $right($sockname,-7) ] ] * 195),$calc((%magic [ $+ [ $right($sockname,-7) ] ] * 195) - 65)) / 400)
    if (%melee > %ranger) && (%melee > %mage) {
      var %style = Melee
      var %combat = $calc(%melee + %base)
    }
    if (%ranger > %melee) && (%ranger > %mage) {
      var %style = Ranger
      var %combat = $calc(%ranger + %base)
    }
    if (%mage > %melee) && (%mage > %ranger) {
      var %style = Mage
      var %combat = $calc(%mage + %base)
    }
    else {
      var %style = Melee
      var %combat = $calc(%melee + %base)
    }
    if (%StatsType [ $+ [ $right($sockname,-7) ] ] == Stats) {
      %statsmsg [ $+ [ $right($sockname,-7) ] ] 14Stats for04 $replace(%StatsName [ $+ [ $right($sockname,-7) ] ],$chr(95),$chr(32)) 14- Overall14:04 %Overall [ $+ [ $right($sockname,-7) ] ] 14Combat:04 %combat
      %statsmsg [ $+ [ $right($sockname,-7) ] ] %message [ $+ [ $right($sockname,-7) ] ]   
      unset %message [ $+ [ $right($sockname,-7) ] ]
      unset %id* [ $+ [ $right($sockname,-7) ] ]
    }
    if (%StatsType [ $+ [ $right($sockname,-7) ] ] == cmb) {
      %statsmsg [ $+ [ $right($sockname,-7) ] ] 14Name:04 $replace(%StatsName [ $+ [ $right($sockname,-7) ] ],$chr(95),$chr(32)) 14Combat:04 %combat 14(04 $+ %Style Based14)
      %statsmsg [ $+ [ $right($sockname,-7) ] ] 14Att:04 %Attack [ $+ [ $right($sockname,-7) ] ] 14Def:04 %Defence [ $+ [ $right($sockname,-7) ] ] 14Str:04 %Strength [ $+ [ $right($sockname,-7) ] ] 14Hits:04 %hitpoints [ $+ [ $right($sockname,-7) ] ] 14Range:04 %ranged [ $+ [ $right($sockname,-7) ] ] 14Pray:04 %Prayer [ $+ [ $right($sockname,-7) ] ] 14Mage:04 %magic [ $+ [ $right($sockname,-7) ] ]
    }
    if (%StatsType [ $+ [ $right($sockname,-7) ] ] == skill) {
      %skill = %skill [ $+ [ $right($sockname,-7) ] ]
      %statsmsg [ $+ [ $right($sockname,-7) ] ] 14 $+ %skill [ $+ [ $right($sockname,-7) ] ] for04 $replace(%StatsName [ $+ [ $right($sockname,-7) ] ],$chr(95),$chr(32)) $+ 14:
      %statsmsg [ $+ [ $right($sockname,-7) ] ] 14Rank:04 %rank [ $+ [ %skill ] $+ [ $right($sockname,-7) ] ] 14Level:04 $($+(%,%skill,$right($sockname,-7)),2) 14XP:04 $($+(%,xp,%skill,$right($sockname,-7)),2) 14XP To Next Level:04 $bytes($xp2next($($+(%,%skill,$right($sockname,-7)),2),$($+(%,xp,%skill,$right($sockname,-7)),2)),db)
    }
    if (%StatsType [ $+ [ $right($sockname,-7) ] ] == Percent) {
      %cmbxp = $calc($do($($+(%,xp,Attack,$right($sockname,-7)),2)) + $do($($+(%,xp,Strength,$right($sockname,-7)),2)) + $do($($+(%,xp,Defence,$right($sockname,-7)),2)) + $do($($+(%,xp,Hitpoints,$right($sockname,-7)),2)) + $do($($+(%,xp,Prayer,$right($sockname,-7)),2)) + $do($($+(%,xp,Ranged,$right($sockname,-7)),2)) + $do($($+(%,xp,magic,$right($sockname,-7)),2)))
      %noncmbxp = $calc($do($($+(%,xp,Overall,$right($sockname,-7)),2)) - %cmbxp)
      %statsmsg [ $+ [ $right($sockname,-7) ] ] 14Combat Percent for:04 $replace(%StatsName [ $+ [ $right($sockname,-7) ] ],$chr(95),$chr(32)) $+ 14:
      %statsmsg [ $+ [ $right($sockname,-7) ] ] 14Cmb Based XP:04 $bytes(%cmbxp,db) 14Non-Cmb Based XP:04 $bytes(%noncmbxp,db) 14Cmb Percent:04 $round($calc((%cmbxp / $do($($+(%,xp,Overall,$right($sockname,-7)),2)) )*100),2) $+ $chr(37)
    }
    if (%StatsType [ $+ [ $right($sockname,-7) ] ] == PestControl) {
      if (!%pcgoal [ $+ [ $right($sockname,-7) ] ]) {
        %nextlevel = $xp2next($do($($+(%,%skill,$right($sockname,-7)),2)),$($+(%,xp,%skill,$right($sockname,-7)),2))
        %skill = %skill [ $+ [ $right($sockname,-7) ] ]
        %pcpoints = $pest($($+(%,%skill,$right($sockname,-7)),2),%skill,$calc($($+(%,%skill,$right($sockname,-7)),2) +1),%nextlevel)
        %statsmsg [ $+ [ $right($sockname,-7) ] ] 04 $+ $replace(%StatsName [ $+ [ $right($sockname,-7) ] ],$chr(95),$chr(32)) 14needs04 $calc($remove(%pcpoints,$left(%pcpoints,1)) +1) 14PestControl Points for04 $iif(%PcGoal [ $+ [ $right($sockname,-7) ] ],%PcGoal [ $+ [ $right($sockname,-7) ] ],$calc($do($($+(%,%skill,$right($sockname,-7)),2)) +1)) 14 $+ %skill [ $+ [ $right($sockname,-7) ] ]
      }
      if (%pcgoal [ $+ [ $right($sockname,-7) ] ]) {
        %nextlevel = $calc($xp(%pcgoal [ $+ [ $right($sockname,-7) ] ]) - $do($($+(%,xp,%skill,$right($sockname,-7)),2)))
        %skill = %skill [ $+ [ $right($sockname,-7) ] ]
        %pcpoints = $pest($do($($+(%,%skill,$right($sockname,-7)),2)),%skill,%pcgoal [ $+ [ $right($sockname,-7) ] ],%nextlevel))
        %statsmsg [ $+ [ $right($sockname,-7) ] ] 04 $+ $replace(%StatsName [ $+ [ $right($sockname,-7) ] ],$chr(95),$chr(32)) 14needs04 $remove(%pcpoints,$left(%pcpoints,1)) 14PestControl Points for04 %pcgoal [ $+ [ $right($sockname,-7) ] ] 14 $+ %skill [ $+ [ $right($sockname,-7) ] ]
      }
    }
  }
}
alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}

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

alias SkillTrigger {
  if ($regex($1,/^(st|(skill)?total|overall)$/Si)) $iif($2,return yes,return Overall)
  elseif ($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) 
  elseif ($regex($1,/^cook(ing)?$/Si)) $iif($2,return yes,return Cooking) 
  elseif ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) $iif($2,return yes,return Woodcutting) 
  elseif ($regex($1,/^fletch(ing)?$/Si)) $iif($2,return yes,return Fletching) 
  elseif ($regex($1,/^fish(ing)?$/Si)) $iif($2,return yes,return Fishing) 
  elseif ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) $iif($2,return yes,return Firemaking) 
  elseif ($regex($1,/^craft(ing)?$/Si)) $iif($2,return yes,return Crafting) 
  elseif ($regex($1,/^(smith|smelt)(ing)?$/Si)) $iif($2,return yes,return Smithing) 
  elseif ($regex($1,/^(mine|Mining)$/Si)) $iif($2,return yes,return Mining) 
  elseif ($regex($1,/^herb(law|lore)?$/Si)) $iif($2,return yes,return Herblore) 
  elseif ($regex($1,/^agil(ity)?$/Si)) $iif($2,return yes,return Agility)
  elseif ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) $iif($2,return yes,return Thieving) 
  elseif ($regex($1,/^slay(er|ing)?$/Si)) $iif($2,return yes,return Slayer)
  elseif ($regex($1,/^farm(er|ing)?$/Si)) $iif($2,return yes,return Farming)
  elseif ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) $iif($2,return yes,return Runecraft) 
  elseif ($regex($1,/^cons(truct(ion)?)?$/Si)) $iif($2,return yes,return Construction)
  elseif ($regex($1,/^hunt(er|ing)?$/Si)) $iif($2,return yes,return Hunter)
}

alias -l do {
  return $remove($1,$chr(44))
}



____________________________________________________________________________________________________


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 (!$2) $iif($left($1,1) == @,msg $chan,notice $nick) 14You must specify a04 Username14 to lookup!
  if ($2) {
    if ($len($2-) > 12) notice $nick 14Usernames must be under a length of 12 characters
    if ($len($2-) < 12) {
      inc %statsid 1
      set -u60 %StatsType [ $+ [ %statsid ] ] PestControl
      set -u60 %StatsName [ $+ [ %statsid ] ] $replace($2-,$chr(32),$chr(95),$chr(35),$chr(45))
      set -u60 %statsnick [ $+ [ %statsid ] ] $nick
      set -u60 %statschan [ $+ [ %statsid ] ] $chan
      set -u60 %statsmsg [ $+ [ %statsid ] ] $iif($left($1,1) == @,msg $chan,notice $nick)
      sockopen $+(rsstats,%statsid) hiscore.runescape.com 80
    }
  }
}


____________________________________________________________________________________________________



on $*:text:/^((\[[a-z]{2}\])?Generic )?[@`.,!](cmb|combat)*/Si:#GenericDev,#theclan: { 
  if ($hget(disabled,$chan)) && ($1 != $me) halt
  if ($1 == $me) tokenize 32 $2-
  if ($1 != $me) && ($remove($1,$left($1,1)) != cmb-est)  halt
  if (!$8) $iif($left($1,1) == @,msg $chan,notice $nick) 14Estimates of stats must be in the format of 04A-D-S-H-R-P-M14.
  if ($2) {
    var %a = $2
    var %d = $3
    var %s = $4
    var %h = $5
    var %r = $6
    var %p = $7
    var %m = $8
    var %def = $calc($3 * 100)
    var %hp = $calc($5 * 100)
    var %base = $calc(($calc($3 * 100) + $calc($5 * 100) + $iif($regex($right($7,1),[02468]),$calc($7 * 50),$calc(($7 - 1) * 50))) / 400)
    var %melee = $calc(($calc($2 * 130) + $calc($4 * 130)) / 400)
    var %ranger = $calc($iif($regex($right($6,1),[02468]),$calc($6 * 195),$calc(($6 * 195) - 65)) / 400)
    var %mage = $calc($iif($regex($right($8,1),[02468]),$calc($8 * 195),$calc(($8 * 195) - 65)) / 400)
    if (%melee > %ranger) && (%melee > %mage) {
      var %style = Melee
      var %combat = $calc(%melee + %base)
    }
    if (%ranger > %melee) && (%ranger > %mage) {
      var %style = Ranger
      var %combat = $calc(%ranger + %base)
    }
    if (%mage > %melee) && (%mage > %ranger) {
      var %style = Mage
      var %combat = $calc(%mage + %base)
    }
    else {
      var %style = Melee
      var %combat = $calc(%melee + %base)
    }
    $iif($left($1,1) == @,msg $chan,notice $nick) 14Combat Estimate:04 %combat 14(04 $+ %Style Based14)
    $iif($left($1,1) == @,msg $chan,notice $nick) 14Att:04 $2 14Def:04 $3 14Str:04 $4 14Hits:04 $5 14Range:04 $6 14Pray:04 $7 14Mage:04 $8
  }
}

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 (!$3) $iif($left($1,1) == @,msg $chan,notice $nick) 14You must specify a04 Username14 to lookup!
  if ($3) {
    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($3-,$chr(32),$chr(95),$chr(35),$chr(45))
      set -u60 %statsnick [ $+ [ %statsid ] ] $nick
      set -u60 %statschan [ $+ [ %statsid ] ] $chan
      set -u60 %statsmsg [ $+ [ %statsid ] ] $iif($left($1,1) == @,msg $chan,notice $nick)
      sockopen $+(rsstats,%statsid) hiscore.runescape.com 80
    }
  }
}


___________________________________________________________________________



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) {a
        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) 
}