on *:TEXT:*brb*:#:{
  if (%gone. [ $+ [ $nick ] ] == $null) {
    /set %gone. [ $+ [ $nick ] ] $ctime
    /set %reason [ $+ [ $nick ] ] $2-
    /msg $chan $nick is now away, because $2- 
  }
}
on *:TEXT:*back*:#:{
  if (%gone. [ $+ [ $nick ] ] != $null) {
    /msg $chan $nick is back from %reason [ $+ [ $nick ] ] . Time Gone $duration($calc($ctime - %gone. [ $+ [ $nick ] ] $ctime)))
    /unset %gone. [ $+ [ $nick ] ]
  }
} 

on *:text:!timer:#:{ timer 1 10 msg $chan 4give a big congratz to josh for makeing me really do something i love you joshahahahaha 5(roflmao) !!!! }
on $*:TEXT:/^[!@.](rs)?stats */Si:#: {
  if (!$2) { .notice $nick Enter an RSN to look up! | halt }
  if ($len($2) > 12) { .notice $nick RSN too long! | halt }
  var %x = 1
  while ($sock(rsstats. $+ %x)) inc %x
  .set %target. $+ %x $iif($left($1,1) == @,.msg $chan,.notice $nick)
  .set %rsn. $+ %x $replace($2-,$chr(32),+)
  sockopen rsstats. $+ %x parsers.o-ss.net 80
}
on *:sockopen:rsstats.*: {
  var %x = $right($sockname,1)
  if ($sockerr > 0) { %target. [ $+ [ %x ] ] Socket Error: $sockerr | cleanup $sockname | halt }
  sockwrite -nt $sockname GET /oneline/stats.php?user= $+ %rsn. [ $+ [ %x ] ] $+ &showcmb=1&showcollons=1 HTTP/1.1
  sockwrite -nt $sockname Host: parsers.o-ss.net
  sockwrite -nt $sockname $crlf
}
on *:sockread:rsstats.*: {
  var %x = $right($sockname,1)
  if ($sockerr > 0) { %target. [ $+ [ %x ] ] Socket Error: $sockerr | cleanup $sockname | halt }
  var %read | sockread %read
  if (: 0 isin %read) { %target. [ $+ [ %x ] ] %rsn. [ $+ [ %x ] ] is not in the Hi-Scores.  You have to be in the top million of any skill with a skill level of at least 30. | cleanup $sockname }
  if (combat isin %read) { %target. [ $+ [ %x ] ] $remove(%read,END) }
  if (overall isin %read) { %target. [ $+ [ %x ] ] $remove(%read,END,|) | cleanup $sockname }
}
alias cleanup {
  unset %target. $+ $right($1,1)
  unset %rsn. $+ $right($1,1)
  sockclose $1
}

on *:TEXT:!Calc*:#: {
  notice $nick 8,1.4,1::8,1.0,1The answer to $2 is: $calc($replace($2,x,*))8,1.4,1::8,1.
}
on *:TEXT:!8ball*:#:{
  /set %8ball $rand(1,6) 
  if (%8ball == 1) .msg $chan 10No! 
  if (%8ball == 2) .msg $chan 10Yes 
  if (%8ball == 3) .msg $chan 10Maybe 
  if (%8ball == 4) .msg $chan 10Of course 
  if (%8ball == 5) .msg $chan 10Are you crazy?!?! 
  if (%8ball == 6) /msg $chan 10How should I know? 
}
on *:Text:!meet*:#:{ 
  set %meetname $nick 
  set %meetworld $3 
  notice $2 %meetname would like to meet you for verification, please go to world %meetworld at pest control. 
}
on *:OP:#: { 
  if ($opnick == $me) { 
    inc %op 
    msg $chan 4Thanks So Much!!for the Op $nick Do You Have A Partyhat You Own That Bad I Bet You Got One $+ . I've been opped %op times 
  } 
}
on *:DEOP:#: { 
  if ($opnick == $me) { 
    inc %deop 
    msg $chan 8OMFG I Want My Gold Star Back Your probley a big fat noooby man better give me gold star back Nub  $nick $+ !! I've been deopped %deop times 
  } 
}
on *:HELP:#: { 
  if ($hnick == $me) { 
    inc %halfop 
    msg $chan 12Thanks for the Halfop You Own You Know That? $nick $+ .  I've been halfopped %halfop times 
  } 
}
on *:DEHELP:#: { 
  if ($Hnick == $me) { 
    inc %dehalfop 
    msg $chan 9Omfg give me my half op back you fucking noob!  $nick $+ . I've been dehalfopped %dehalfop times 
  } 
} 
on *:VOICE:#: { 
  if ($vnick == $me) { 
    inc %voice 
    msg $chan 7Thanks for the voice $nick I Beat You Pown Your Levels $+ . I've been voiced %voice times 
  } 
}
on *:DEVOICE:#: { 
  if ($vnick == $me) { 
    inc %devoice 
    msg $chan 13Gime Me Back My Voice.. you mean basterd  $nick $+ !! I've been devoiced %devoice times 
  } 
}
on *:TEXT:!gratz*:#: { 
  msg $chan *****12Congratulations 4  $2- ***** 
}
on $*:text:/^[!](world|pcw) */Si:#:{ 
  if (%pcoff) { | halt } 
  inc %pcused | inc %res | rescheck 
notice $nick The current Pest Control World is: %pcworld set by %pcnick $+($duration($calc($ctime - %pctime)),) ago. Command used %pcused times. } 
on *:text:!pcon:#:{ if ($nick isop $chan || $nick ishop $chan) { 
    if (!%pcoff) { notice $nick Status is already ON! | halt } 
    msg $chan PCW-ENABLED! 
unset %pcoff } } 
on *:text:!pcoff:#:{ if ($nick isop $chan || $nick ishop $chan) { 
    if (%pcoff) { notice $nick Status is already OFF! | halt } 
    msg $chan PCW-DISABLED! 
set %pcoff on } } 
alias rescheck { if (%res >= 45) { timer 1 45 quit Command Restart | server irc.swiftirc.net -j #pc,#pcstaff } } 
on *:text:!setpcw*:#:{ 
  if ($nick isreg $chan) { notice $nick You cannot change the world! | halt } 
  if (%pcoff) { | halt } 
  set %pctime $ctime | set %pcnick $nick | set %pcworld $2- | inc %res | rescheck 
  msg $chan 5**[[UPDATE]]4World Changed to [ %pcworld ] by [ %pcnick ]** 
} 
on $*:TEXT:/^[!@.]/Si:#: { 
  if ($remove($1,!,@,.) == stats) { 
    if ($2 == -rank) { set %stats.style rank } 
    elseif ($2 == -exp) { set %stats.style exp } 
    elseif ($2 == -level) { set %stats.style level } 
    else { set %stats.style level } 
  } 
  elseif ($regex($remove($1,!,@,.),/^(def(ault)?|set)(rsn|name)/i)) { 
    writeini -n RSNs.ini RSNs $address($nick,2) $replace($2-,$chr(32),_) 
    notice $nick $c1(Your RSN) $+(",$c2,$replace($2-,$chr(32),_),$c1,") $c1(for the hostname) $c2($address($nick,2)) $c1(has been set successfully.) 
    halt 
  } 
  elseif ($statstrue($remove($1,!,@,.))) && ($remove($1,!,@,.) !isnum) { set %stats.style $+(skill.,$v1) } 
  elseif ($regex($remove($1,!,@,.),/^co?mb(at)?|duel/i)) { set %stats.style combat } 
  else { halt } 
  set %stats.display $iif($left($1,1) == @,msg $chan,notice $nick) 
  set %stats.n 0 
  if ($left($2,1) == -) { tokenize 32 $2- } 
  if ($2) { 
    if (* isin $2-) { 
      tokenize 32 $remove($1-,*) 
      if ($2 !ison $chan) { notice $nick $c1(The username) $+(",$c2,$2-,$c1,") $c1(was not found on the channel.) | unset %stats.* | halt } 
      elseif (!$readini(RSNs.ini,n,RSNs,$address($2,2))) { notice $nick $c1(The username) $+(",$c2,$2-,$c1,") $c1(has not set a default RSN.) | unset %stats.* | halt } 
      else { set %stats.user $readini(RSNs.ini,n,RSNs,$address($2,2)) } 
    } 
    else { set %stats.user $replace($2-,$chr(32),_) } 
  } 
  else { set %stats.user $readini(RSNs.ini,n,RSNs,$address($nick,2)) } 
  sockopen stats hiscore.runescape.com 80 
} 

on *:SOCKOPEN:stats: { 
  sockwrite -n $sockname GET $+(/hiscorepersonal.ws?user1=,%stats.user) HTTP/1.1 
  sockwrite -n $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf 
} 

on *:SOCKREAD:stats: { 
  var %i | sockread %i 
  if (*does not feature* iswm %i) { 
    %stats.display $c1(The username ") $+ $c2(%stats.user) $+ $c1(" does not appear in the Runescape Hiscores.) 
    unset %stats.* | sockclose stats 
  } 
  elseif ($statstrue(%i)) { set %stats.skill %i | set %stats.n 1 } 
  elseif (%stats.n isnum 3-5) { 
    set $+(%,stats.,%stats.skill,.,$statstype(%stats.n)) $gettok($gettok(%i,2,62),1,60) 
    if (%stats.n == 5) { set %stats.n 0 } 
  } 
  elseif (*</table>* iswm %i) { 
    if ($left(%stats.style,5) == skill) { 
      if ($($+(%,stats.,$gettok(%stats.style,2,46),.exp),2)) { 
        var %rank = $($+(%,stats.,$gettok(%stats.style,2,46),.rank),2) 
        var %exp = $($+(%,stats.,$gettok(%stats.style,2,46),.exp),2) 
        var %level = $($+(%,stats.,$gettok(%stats.style,2,46),.level),2) 
        %stats.display $c1($statstrue($gettok(%stats.style,2,46)) stats for) $+($c2,%stats.user,$c1,:) 
        %stats.display $c1(Level:) $c2(%level) $c1(Rank:) $c2(%rank) $c1(Exp:) $c2(%exp) $& 
          $c1(Exp until $calc(%level + 1) $+ :) $c2($bytes($calc($statsxp($calc(%level + 1)) - $remove(%exp,$chr(44))),b)) 
      } 
      else { 
        %stats.display $c1(The username ") $+ $c2(%stats.user) $+ $c1(" does not appear in the Runescape Hiscores for) $+($c2,$gettok(%stats.style,2,46),$c1,.) 
      } 
      unset %stats.* | sockclose stats 
    } 
    elseif (%stats.style == combat) { 
      var %a = $iif(%stats.Attack.level,$v1,1) 
      var %d = $iif(%stats.Defence.level,$v1,1) 
      var %s = $iif(%stats.Strength.level,$v1,1) 
      var %h = $iif(%stats.Hitpoints.level,$v1,10) 
      var %r = $iif(%stats.Ranged.level,$v1,1) 
      var %p = $iif(%stats.Prayer.level,$v1,1) 
      var %m = $iif(%stats.Magic.level,$v1,1) 
      { 
        var %base = $calc(($calc((%d *100)+(%h *100)) + $iif($isodd(%p),$calc(%p -1) *50,%p *50))/400) 
        var %melee = $calc(((%a *130)+(%s *130))/400) 
        var %range = $calc($iif($isodd(%r),$calc(((%r -1)+(%r *2))*65),$calc(%r *195))/400) 
        var %mage = $calc($iif($isodd(%m),$calc(((%m -1)+(%m *2))*65),$calc(%m *195))/400) 
        if (%range >= %mage) && (%range >= %melee) { var %combat = $calc(%range + %base) | var %class = Ranged } 
        elseif (%mage >= %range) && (%mage >= %melee) { var %combat = $calc(%mage + %base) | var %class = Magic } 
        else { var %combat = $calc(%melee + %base) | var %class = Melee } 
      } 
      %stats.display $c1(Combat stats for) $c2(%stats.user) $+($c1,$chr(40),%class,-,based Combat,:,$chr(32),$c2,%combat,$c1,$chr(41),:) 
      %stats.display $c1(Attack:) $c2(%a) $c1(Defence:) $c2(%d) $c1(Strength:) $c2(%s) $c1(Hitpoints:) $c2(%h) $c1(Ranged:) $c2(%r) $c1(Prayer:) $c2(%p) $c1(Magic:) $c2(%m) 
      unset %stats.* | sockclose stats 
    } 
    else { 
      var %x = 1 
      while (%x <= 23) { 
        var %statline = %statline $iif($($+(%,stats.,$statstrue(%x),.level),2),$c1($statstrue(%x) $+ :) $c2($($+(%,stats.,$statstrue(%x),.,%stats.style),2)),$null) 
        inc %x 
      } 
      %stats.display $c1(Stats for) $c2(%stats.user) $+($c1,$chr(40),Overall: $iif(%stats.Overall.level,$c2($($+(%,stats.Overall.,%stats.style),2)),$c2(N/A)),$c1,$chr(41),:) 
      %stats.display %statline | unset %stats.* | sockclose stats 
    } 
  } 
  if (%stats.n isnum 1-5) { inc %stats.n } 
} 

alias statstype { 
  if ($1 == 3) { return rank } 
  elseif ($1 == 4) { return level } 
  else { return exp } 
} 

alias statstrue { 
  if ($regex($1,/^0|overall|total/i)) { return Overall } 
  elseif ($regex($1,/^1$|at(k|tack)/i)) { return Attack } 
  elseif ($regex($1,/^2$|def(en[sc]e)?/i)) { return Defence } 
  elseif ($regex($1,/^3$|str(ength)?/i)) { return Strength } 
  elseif ($regex($1,/^4$|hp|hit(point)?s/i)) { return Hitpoints } 
  elseif ($regex($1,/^5$|range[rd]?/i)) { return Ranged } 
  elseif ($regex($1,/^6$|pray(er|ing?)?/i)) { return Prayer } 
  elseif ($regex($1,/^7$|mag(e|ick?)?/i)) { return Magic } 
  elseif ($regex($1,/^8$|cook(ing?)?/i)) { return Cooking } 
  elseif ($regex($1,/^9$|wc|woodcut(ting?)?/i)) { return Woodcutting } 
  elseif ($regex($1,/^10$|fletch(ing?)?/i)) { return Fletching } 
  elseif ($regex($1,/^11$|f(i|ee)sh(ing?)?/i)) { return Fishing } 
  elseif ($regex($1,/^12$|fm|firemake?(ing?)?/i)) { return Firemaking } 
  elseif ($regex($1,/^13$|craft(ing?)?/i)) { return Crafting } 
  elseif ($regex($1,/^14$|smith(ing?)?/i)) { return Smithing } 
  elseif ($regex($1,/^15$|mine?(ing?)?/i)) { return Mining } 
  elseif ($regex($1,/^16$|herb(lore?|al(ism)?)?/i)) { return Herblore } 
  elseif ($regex($1,/^17$|agil(ity)?/i)) { return Agility } 
  elseif ($regex($1,/^18$|th(ie|ei)[fv](ing?)?/i)) { return Thieving } 
  elseif ($regex($1,/^19$|slay(er|ing?)?/i)) { return Slayer } 
  elseif ($regex($1,/^20$|farm(er|ing?)?/i)) { return Farming } 
  elseif ($regex($1,/^21$|(rc|runecraft)(ing?)?/i)) { return Runecraft } 
  elseif ($regex($1,/^22$|hunt(er|ing?)?/i)) { return Hunter } 
  elseif ($regex($1,/^23$|cons(truct(io?ng?)?)?/i)) { return Construction } 
  else return $null 
} 

alias statsxp { 
  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