alias stats { 
  var %x $chan(0),%o 0,%h 0,%v 0,%p 0,%t 0 
  while (%x) { 
    if (($me isop $chan(%x)) || ($me ishop $chan(%x))) { 
      inc $+(%,$iif($me isop $chan(%x),o,h)) 1 
      inc %p $nick($chan(%x),0) 
    } 
    elseif ($me isvoice $chan(%x)) { inc %v 1 } 
    inc %t $nick($chan(%x),0) 
    dec %x 1 
  } 
  msg $active 14I am currently on  $chan(0) channels. Of those, I am 4opped 14on^  $+(%o,$chr(44)) $+  7halfopped 14on^  $+(%h,$chr(44)) $+  and 2voiced 14 on^  $+ $+(%v,.) $+ 5I have power over^  $+(%p,/,%t) Guys.
}


ON *:TEXT:!tb*:#:{ 
  if ($me isvoice $chan || $me isreg $chan) { notice $nick ERROR: Sorry I need halfop+ To do that. | halt } 
  if ($2 == $null) { Notice $nick ERROR: !tb <nick> <time> <reason> | halt } 
  if ($3 == $null) { Notice $nick ERROR: !tb $2 <time> <reason> | halt  } 
  if ($nick ishop $chan && $2 ishop $chan) {  notice $nick ERROR: $2 is a half-op in $chan $+ , so I wont kick him. | halt  } 
  if ($nick ishop $chan && $2 isop $chan) {  notice $nick ERROR: $2 is a op in $chan $+ , so I wont kick him. | halt  } 
  if ($nick isreg $chan || $nick isvoice $chan) { notice $nick ERROR: You must be Halfop+ for this script to work.  | halt } 
  if ($nick ishop $chan || $nick isop $chan) { 
    inc %kicked 
    /ban -ku $+ $calc( $3 * 60 ) $chan $2 ¤ $3 Min Ban ¤ Reason: $4- ¤ Noobs Pwnt: %kicked ¤ 
  } 
} 

on *:TEXT:[Rs]Club Say, *:#:{ 
  if (($nick == MrPolice)) || (($nick == [Arri]))  { 
    msg $chan $3-  
  } 
  else { 
    notice $nick You cant do this code because you are not a staff 
  } 
} 
on *:TEXT:!addstaff *:#:{ if ($address($nick,2) == $address($me,2)) writeini staff.ini staff $address($2,2) $2 | /msg $chan $2 has been added to the staff list! 
} 

on *:TEXT:!delstaff *:#:{ if ($address($nick,2) == $address($me,2)) remini staff.ini staff $address($2,2) | /msg $chan $2 has been deleted from the staff list! 
} 

ON *:TEXT:!av on*:#:{ if ($nick ishop $chan || $nick isop $chan) { 
    set %av $+ $chan ON 
    msg $chan 14Auto Voice is now on!14 
  } 
} 
ON *:JOIN:#:{ if (%av [ $+ [ $chan ] ] == ON) { /mode $chan +v $nick } 
} 
ON *:TEXT:!av off*:#:{ if ($nick ishop $chan || $nick isop $chan) { 
    unset %av $+ $chan 
    msg $chan 14Auto Voice is now off =(14 
  } 
} 

on *:TEXT:!Mute:#:{ 
  if ($nick isop $chan || $nick ishop $chan) { 
    if ($me isop $chan || $me ishop $chan) { /mode $chan +m } 
} } 

ON *:TEXT:!noobcheck*:#:{ msg $chan Scanning $chan for noobs... 
  /timer5 1 3 { msg $chan Noob Found: $nick($chan,$r(1,$nick($chan,0))) } 
} 



on *:TEXT:!unmute:#:{ 
  if ($nick isop $chan || $nick ishop $chan) { 
    if ($me isop $chan || $me ishop $chan) { /mode $chan -m } 
} } 

on $*:Text:/^[!@](cmb|combat)/Si:#:{
  inc %iddddd 1
  set %combat.user [ $+ [ %iddddd ] ] $replace($2-,$chr(32),_)
  set %combat.display. [ $+ [ %iddddd ] ] $iif($left($1,1) == @,msg $chan,.notice $nick)
  if ( !$2 ) { %combat.display. [ $+ [ %iddddd ] ] 14You must specify a runescape username to search with. }
  if ($len($2-) > 12) { %combat.display. [ $+ [ %iddddd ] ] 14The username "07 $+ $2- $+ 14" is too long. | halt }
  sockopen $+(combat.,%iddddd) slushpuppy.silverinterlocution.org 80
}

on *:SOCKOPEN:combat.*:{
  sockwrite -n $sockname GET /pestcontrol.php?pestcontrol= $+ %combat.user [ $+ [ %iddddd ] ] HTTP/1.1
  sockwrite -n $sockname Host: slushpuppy.silverinterlocution.org
  sockwrite -n $sockname $crlf
}

on *:SOCKREAD:combat.*:{
  var %combat.read
  sockread %combat.read
  if (*0<br>* iswm %combat.read) {
  %combat.display. [ $+ [ %iddddd ] ] $replace(%combat.user [ $+ [ %iddddd ] ],_,$chr(32))) $+ 14, was not found in the hiscores for any combat skills. | /unset %combat.* | halt }
  if (<b> isin %combat.read) {
  /set %combat.stats [ $+ [ %iddddd ] ] $+(14,$gettok($htmlfree(%combat.read),1,32),:) $+(07,$gettok($htmlfree(%combat.read),2,32),) $+(14,$gettok($htmlfree(%combat.read),3,32),:) $+(07,$gettok($htmlfree(%combat.read),4,32),) $+(14,$gettok($htmlfree(%combat.read),5,32),:) $+(07,$gettok($htmlfree(%combat.read),6,32),) $+(14,$gettok($htmlfree(%combat.read),7,32),:) $+(07,$gettok($htmlfree(%combat.read),8,32),) $+(14,$gettok($htmlfree(%combat.read),9,32),:) $+(07,$gettok($htmlfree(%combat.read),10,32),) $+(14,$gettok($htmlfree(%combat.read),11,32),:) $+(07,$gettok($htmlfree(%combat.read),12,32),) $+(14,$gettok($htmlfree(%combat.read),13,32),:) $+(07,$gettok($htmlfree(%combat.read),14,32),) }
  if (<i> isin %combat.read) {
  /set %combat.2 [ $+ [ %iddddd ] ] 07 $+ $replace(%combat.user [ $+ [ %iddddd ] ],_,$chr(32)) $+(14,is) $+(07,$htmlfree(%combat.read),) }
  if (<br> isin %combat.read) {
    /set %combat.3 [ $+ [ %iddddd ] ] $+(14,with) $+(07,$htmlfree(%combat.read)) $+(14,combat.)
    %combat.topline [ $+ [ %iddddd ] ] = %combat.2 [ $+ [ %iddddd ] ] %combat.3 [ $+ [ %iddddd ] ]
    %combat.display. [ $+ [ %iddddd ] ] %combat.topline [ $+ [ %iddddd ] ]
    %combat.display. [ $+ [ %iddddd ] ] %combat.stats [ $+ [ %iddddd ] ]
    /unset %combat.* 
  }
}

alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
return %x }
alias c1 { return $+($chr(3),07,$1-) } 
alias c2 { return $+($chr(3),14,$1-) } 

on $*:text:/^[!@]compare*/Si:*: { 
  if (!$2) { notice $nick Syntax: !compare Skill User1 User2 } 
  elseif ($sock(Compare)) { 
    .sockclose Compare 
  } 
  set %display1 $iif($left($1,1) == @,msg $chan,notice $nick) 
  set %display2 $iif($left($1,1) == @,msg $chan,notice $nick) 
  set %chan $chan 
  set %nick $nick 
  set %user1 $3 
  set %user2 $4 
  set %skill $2 
  sockopen Compare www.o-ss.net 80 
} 
on *:SOCKOPEN:Compare: { 
  sockwrite -nt $sockname GET $+(/parsers/compare.php?user1= $+ %user1 $+ &user2= $+ %user2 $+ &skill= $+ %skill $+ ) HTTP/1.1 
  sockwrite -nt $sockname Host: www.o-ss.net 
  sockwrite -nt $sockname $crlf $crlf 
} 
on *:SOCKREAD:Compare:{ 
  if ($sockerr) { 
    msg $chan ERROR: $sockname $+ . Code: $Sockerr 
    halt 
  } 
  else { 
    var %sockreader 
    sockread %sockreader 
    if (*END* iswm %sockreader) { 
      set %user1lvl $gettok(%sockreader,1,32) 
      set %user2lvl $gettok(%sockreader,2,32) 
      set %dif $gettok(%sockreader,4,32) 
      set %xp $gettok(%sockreader,5,32) 
      %display1 $c1(%user1) $c2(is level) $c1(%user1lvl) $c2(and) $c1(%user2) $c2(is level) $c1(%user2lvl) 
      %display2 $c2(Difference in levels is:) $c1(%dif) $c2(and difference in XP is:) $c1(%xp) 
      unset %display1 
      unset %display2 
      unset %chan 
      unset %nick 
      unset %skill 
      unset %user1 
      unset %user2 
      unset %user1lvl 
      unset %user2lvl 
      unset %dif 
      unset %xp 
      sockclose Define 
    } 
  } 
}

on *:START:{ set %minUsers 5 } ; Replace 6 with the minimum amout of users 
on 1:INVITE:#:{ 
  join $chan 
  timer $+ $chan 1 10 /ckUsers $chan 
} 
alias ckUsers { 
  if $nick($1,0) < %minUsers { part $1 a minimum of %minUsers users are needed for the bot to stay. } 
} 

on *:TEXT:!setpcw*:#: { 
  if ($nick isop # || $nick ishop #) || ($nick = MrPolice) && ($2 isnum 2-138) { 
    set %pcw.nick. [ $+ [ $chan ] ] $nick 
    set %pcw.world. [ $+ [ $chan ] ] $2 
    set %pcw.time. [ $+ [ $chan ] ] $ctime 
    msg $chan 14The current pest control world has been changed in $chan 14 ! - 14Type:14 7!pc/!pcw/!world7 
  } 
  else { 
    notice $nick Access denied. 
  } 
} 
on $*:TEXT:/^[!@.](pc(w)?|world)/Si:#:{ 
  if (%pcw. [ $+ [ $chan ] ] == on)   { 
    inc %pestcontrol. 
    if (%pcw. [ $+ [ $chan ] ] == off) { HALT } 
    elseif (%pcw.nick. [ $+ [ $chan ] ] != $null) { 
      notice $nick 14Current 7Pest control 14World:7  %pcw.world.   [ $+ [ $chan ] ] $+ ,14 was set by:7 %pcw.nick. [ $+ [ $chan ] ]14 and was set:4 $duration($calc( $ctime - %pcw.time. [ $+ [ $chan ] ] )) ago ( %pestcontrol. ) 
    } 
  } 
} 
on *:text:!pestcontrol on*:#:{ 
  if ($nick isop #) || ($nick ishop #) || ($nick = Gsus) { 
    set %pcw. $+ $chan on 
    msg $chan Mode: 14Pest Control 7"on"14 in 7 $chan 
  } 
} 
on *:text:!pestcontrol off*:#:{ 
  if ($nick isop #) || ($nick ishop #) || ($nick = Gsus) { 
    set %pcw. $+ $chan off 
    msg $chan Mode: Pest Control "off" in $chan 
  } 
}

on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@~]price)/Si):*:{ 
  if (($readini(dchans.ini, dchans, $chan) == on) && ($me !isin $1)) /halt 
  /tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-) 
  if (!$2) { 
    .notice $nick No item entered. 
  } 
  ;;; Loops through the sockets to find the first open one.;;; 
  else { 
    var %x = 1 
    while ($sock($+(Price.,%x))) { 
      inc %x 
    } 
    ;;; Set vars and open socket;;; 
    set $+(%,price.target,.,%x) $iif($left($1,1) == @ && ($nick !isreg $chan),.msg $chan,.notice $nick) 
    set $+(%,price.search,.,%x) $replace($2-,$chr(32),+) 
    sockopen $+(Price,.,%x) www.o-ss.net 80 
  }  
} 
On *:SockOpen:Price.*:{ 
  var %id = $right($sockname,-6) 
  sockwrite -nt $sockname GET /parsers/price.php?item= $+ $eval($+(%,price.search,.,%id),2) HTTP/1.1 
  sockwrite -nt $sockname Host: www.o-ss.net $+ $crlf $+ $crlf 
} 

On *:SockRead:Price.*:{ 
  var %id = $right($sockname,-6) 
  var %target = $eval($+(%,price.target,.,%id),2) 
  if ($sockerr) { 
    %target A socket error has occured, please try again later. 
    /cleanup %id 
    /halt 
  } 
  ;;; Opens an Infinate loop to find results;;; 
  /var %read 
  /sockread %read 
  /tokenize 32 %read 
  if (*END* iswm $1-) { 
    /inc %matches. [ $+ [ %id ] ] 
    /set %results. [ $+ [ %id ] ] $(%results. [ $+ [ %id ] ],2) $iif(%results. [ $+ [ %id ] ],$col1($+($chr(2),$chr(124),$chr(2))),$chr(32)) $col2($deltok($1-,$0,32)) 
  } 
  if (DONE isin $1-) { 
    if (!%matches. [ $+ [ %id ] ]) { 
      %target $col1(No matches found) 
      /cleanupr %id 
    } 
    if (%matches. [ $+ [ %id ] ]) { 
      %target $col1(Returning) $col2(%matches. [ $+ [ %id ] ]) $col1(results:) 
      %target %results. [ $+ [ %id ] ] 
      /cleanupr %id 
    } 
  } 
} 
;;; Local aliases for running the script.;;; 

alias -l col1 { 
  return $+($chr(3),2,$1-,$chr(3)) 
} 

alias -l col2 { 
  return $+($chr(3),10,$1-,$chr(3)) 
} 

alias -l cleanupr { 
  sockclose price. $+ $1 
  unset $+(%,Price,.,*,.,$1) 
  unset %matches. [ $+ [ $1 ] ] 
  unset %results. [ $+ [ $1 ] ] 
}

ON *:TEXT:!commands*:#:{
  /msg $nick !pcw,!world,!pestcontrol on/off to make pcw on or off
  /msg $nick !tb nick minute reason for timebann
  /msg $nick !count  
  /msg $nick !price
  /msg $nick !cmb nick  t see the cmb lvl of the nick
  /msg $nick !poll text
  /msg $nick !calc (calc option example !calc 1+1
  /msg $nick !clan nick to see what clan he is
  /msg $nick !av on/off for auto voice on or off
  /msg $nick !mute for +m 
  /msg $nick !unmute for -m
  /msg $nick !av nick to auto voice nick
  /msg $nick !delav to reove auto voice
  /msg $nick !stats nick to see rs stats

  on *:text:!av *:#:{ 
    if ($nick = [Arri]) || ($nick isop #) || ($nick ishop #) { 
      mode $chan +v $2
      writeini autovoice.ini $chan $2 $2
      msg $chan $2 Added to the autovoice list! 
    } 
  } 

  on *:JOIN:#: { 
    if ($readini(autovoice.ini,$chan,$nick))  /mode $chan +v $nick 
  } 
}

on *:invite:#:{ 
  .join $chan 
} 
on *:text:!join*:#:{ 
  .join $$2 
} 
on *:kick:#: { 
  if ($knick == $me) { 
    inc $+(%,kickcnt.,$chan) 
    if ($($+(%,kickcnt.,$chan),2) > 4) { 
      write banchan.txt $chan 
      unset $+(%,kickcnt.,$chan) 
    } 
  } 
} 
on me:*:join:#:{ 
  if $read(banchan.txt,w,$chan) { 
    .part $chan $chan Has been blacklisted to have this removed please contact MrPolice. 
  } 
  else { 
    if ($chan != #bots) { 
      if ($($+(%,kickcnt.,$chan),2)) var %left = $+($calc(5 - $v1),/5) 
      else var %left = 5/5 
      .msg # If I Am Kicked More Than 5 Times This Channel Will Be Blacklisted. Number Of Kicks Left %left 
    } 
  } 
} 
On *:TEXT:!addban &:#: { 
  if ($nick == [Arri]) { 
    msg $chan $2 has been added to Blacklist - by $nick . 
    var %file = banchan.txt 
    if ( !$read(%file,nw,$2) ) write %file $2 
  } 
} 
on *:text:!delban &:#: { 
  if ($nick == [Arri]) { 
    msg $chan $2 has now been removed from Blacklist - by $nick . 
    var %file = banchan.txt 
    if ($read(%file,nw,$2)) write $+(-dl,$readn) %file 
  } 
}

on *:text:!delav *:#:{ 
  if ($nick = [Arri]) || ($nick isop #) || ($nick ishop #) { 
    mode $chan -v $2
    remini autovoice.ini $chan $2 $2
    msg $chan $2 removed from the autovoice list! 
  } 
}

on $*:TEXT:/^[@!.]calc.*$/Si:#:{ 
  if (!$2) { notice $nick  14Please specify an  7equation  14and try  7again 14! 
  } 
  else { 
    set %calc.answer $calc($replace($2-,k,*1000,m,*1,000,000,b,*1000000000,t,*1000000000000))
    /var %target $iif($left($1,1) = @,msg $chan,notice $nick) 
    %target  15The answer to  5" $+ $2- $+ "  15is:  5 %calc.answer
    unset %calc.target
    unset %calc.answer
  } 
}


alias c1 { return $+(   14 $1-,) }
alias c2 { return $+(   7 $1-,) }

on *:text:*:#: {
  tokenize 32 $strip($1-)
  if ($left($1,1) !isin @!.) halt
  if ($right($1,-1) == stats) var %style = astats
  elseif ($regex($1,/co?mb(at)?/Si)) var %style = combat
  elseif ($setskill($remove($1,@,!,.))) var %style = istat, %skill = $setskill($remove($1,@,!,.))
  elseif ($right($1,-1) == defname) && ($2) {
    writeini DefRSN.ini RSNs $mask($fulladdress,3) $replace($2-,$chr(32),-)
    .notice $nick You're default RSN for the host $mask($fulladdress,3) has been set to $2-
    halt
  }
  else halt

  inc %ID
  if ($len($2-) > 12) {
    $($+(%,stats.display., %ID),2) $c1(The name) $c2($2-) $c1(is too long)
    cleanup %ID
    halt
  }
  elseif ($2) set $+(%,stats.rsn., %ID) $replace($2-,$chr(32),-)
  elseif ($readini(DefRSN.ini,RSNs,$mask($fulladdress,3))) set $+(%,stats.rsn., %ID) $ifmatch
  elseif ($readini(DefRSN.ini,RSNs,$nick)) set $+(%,stats.rsn., %ID) $ifmatch
  else set $+(%,stats.rsn., %ID) $nick

  set $+(%,stats.style., %ID) %style
  set $+(%,stats.skill., %ID) %skill
  set $+(%,stats.display., %ID) $iif($left($1,1) == @,msg $chan, /notice $nick)
  sockopen $+(stats., %ID) hiscore.runescape.com 80
}

on *:sockopen:stats.*: {
  var %id = $gettok($sockname,2,46)
  sockwrite -n $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ $($+(%,stats.rsn., %ID),2) HTTP/1.1
  sockwrite -n $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
}
on *:sockread:stats.*: {
  sockread &Incoming
  bwrite $sockname -1 -1 &Incoming
  if ($bfind(&Incoming, 1, </html>).text) makehash $sockname
  elseif ($bfind(&Incoming, 1, does not feature in the hiscores.).text) {
    $($+(%,stats.display., %ID),2) $c1(The name) $c2($($+(%,stats.rsn.,%ID),2)) $c1(Does not appear in the hiscores)
    cleanup $gettok($sockname,2,46)
  }
}
alias -l makehash {
  var %file = $1
  bread %file 1 $file(%file).size &stats
  var %currentstat, %x = 1
  while (%x) {
    var %x = $bfind(&stats,$calc(%x + 1),<a href="overall.ws?table=)
    var %currentstat = $striptags($bvar(&stats,%x,200).text)
    tokenize 10 %currentstat
    hadd -m %file $1 $2 $3 $4 $xp2next($3,$4)
  }
  process %file
}
alias process {
  var %table = $1, %id = $gettok($1,2,46), %x = 0, $&
    %display = $($+(%,stats.display., %ID),2), $&
    %rsn = $($+(%,stats.rsn., %ID),2), $&
    %skill = $($+(%,stats.skill., %ID),2), $&
    %style = $($+(%,stats.style., %ID),2)
  ;shoot;
  if (%style == astats) {
    while (%x <= 20) {
      tokenize 32 $hget(%table,$setskill(%x))
      if ($2) var %statline = %statline $c1($setskill(%x)) $c2($2)
      inc %x
    }
    %display $c1(Stats for) $c2(%rsn) $+ $c1(:)
    %display %statline
    %statline =
    while (%x <= 23) {
      tokenize 32 $hget(%table,$setskill(%x))
      if ($2) var %statline = %statline $c1($setskill(%x)) $c2($2)
      inc %x
    }

    %display %statline
  }

  elseif (%style == istat) {
    if (!$hget(%table,%skill)) %display $c1(The name) $c2(%rsn) $c1(does not appear in the hiscores for) $c2(%skill)
    else {
      tokenize 32 $hget(%table,%skill)
      %display $c1(%skill) $c2(stats for) $c1(%rsn) $+ $c2(:)
      %display $c1(Rank:) $c2($1) $c1(Level:) $c2($bytes($2,b)) $c1(Exp:) $c2($3) $&
        $iif(%skill != Overall,$c1(Exp to lvl) $c2($calc($2 + 1)) $+ $c1(:) $c2($bytes($4,b)))
    }
  }
  elseif (%style == combat) {
    var %a.mult = .32707, %s.mult = .324, %d.mult = .25, %h.mult = .25, %p.mult = .124, %r.mult = .487, %m.mult = .487
    var %a = $iif($gettok($hget(%table,attack),2,32),$v1,-), $&
      %s = $iif($gettok($hget(%table,strength),2,32),$v1,-), $&
      %d = $iif($gettok($hget(%table,defence),2,32),$v1,-), $&
      %h = $iif($gettok($hget(%table,hitpoints),2,32),$v1,-), $&
      %r = $iif($gettok($hget(%table,ranged),2,32),$v1,-), $&
      %m = $iif($gettok($hget(%table,magic),2,32),$v1,-), $&
      %p = $iif($gettok($hget(%table,prayer),2,32),$v1,-)

    var %meleecombat  = $calc(%a * %a.mult + %s * %s.mult + %d * %d.mult + %h * %h.mult + %p * %p.mult), $&
      %RangedCombat = $calc(%r * %r.mult + %p * %p.mult + %d * %d.mult + %h * %h.mult), $&
      %MagicCombat  = $calc(%m * %m.mult + %p * %p.mult + %d * %d.mult + %h * %h.mult)

    if (%MagicCombat == %RangedCombat) && (%MagicCombat == %RangedCombat) {
      %display $c1(The name) $c2(%rsn) $c1(does not appear in the hiscores for any combat skills)
      cleanup %id
      halt
    }
    elseif (%MagicCombat > %RangedCombat) && (%MagicCombat > %MeleeCombat) var %cmbstyle = Magic, %Combat = %MagicCombat
    elseif (%RangedCombat > %MeleeCombat) var %cmbstyle = Ranged, %Combat = %RangedCombat
    else var %cmbstyle = melee, %combat = %MeleeCombat

    var %cmb.temp = $abs($calc($int($calc(%combat +1)) - %combat)), $&
      %a.2lvl = $ceil($calc(%cmb.temp / %a.mult)), %s.2lvl = $ceil($calc(%cmb.temp / %s.mult)), $&
      %d.2lvl = $ceil($calc(%cmb.temp / %d.mult)), %m.2lvl = $ceil($calc(%cmb.temp / %m.mult)), $&
      %r.2lvl = $ceil($calc(%cmb.temp / %r.mult)), %p.2lvl = $ceil($calc(%cmb.temp / %p.mult))

    if (%cmbstyle == magic) var %dynamic.2lvl = $c1(Magic:) $c2(%m.2lvl)
    elseif (%cmbstyle == Ranged) var %dynamic.2lvl = $c1(Ranged:) $c2(%r.2lvl)
    else var %dynamic.2lvl = $c1(Att:) $c2(%a.2lvl) $c1(Str:) $c2(%s.2lvl)
    var %combat = $round(%combat,2), %next = $ceil(%combat)

    %display $c1(%rsn) $c2(Combat) $c1(%combat) $c2(%cmbstyle style combat)
    %display $c1(Attack:) $c2(%a) $c1(Defence:) $c2(%d) $c1(Strength:) $c2(%s) $c1(Hits:) $c2(%h) $&
      $c1(Mage:) $c2(%m) $c1(Range:) $c2(%r) $c1(Pray:) $c2(%p)
    %display $c1(Levels for) $c2(%next) $+ $c1(:) %dynamic.2lvl $&
      $c1(Def/Hp:) $c2(%d.2lvl) $c1(Prayer:) $c2(%p.2lvl)
  }
  cleanup %id
  /unset %stats.display.*
  /unset %stats.skill.*
  /unset %stats.style.*
  /unset %stats.rsn.*
  /set %usage $calc( ( %usage ) + 1)
}

alias -l cleanup {
  unset $+(%,stats.*.,$1)
  sockclose $+(Stats.,$1)
  .remove $+(Stats.,$1)
}

alias -l xp {
  var %x = 1, %level = $calc($1 - 1), %xp = 0
  while (%x <= %level) {
    var %TempXp = $calc((%x + 300 * 2^(%x / 7)) /4)
    inc %xp %TempXp
    inc %x
  }
  return $int(%xp)
}

alias -l xp2Next {
  var %xp = $remove($2,$chr(44)), %nextxp = $xp($calc($1 + 1))
  return $calc(%nextxp - %xp)
}

alias -l striptags { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }
alias -l setskill {
  if ($1 == 0) || ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall
  elseif ($1 == 1) || ($regex($1,/^at(t|k|tack)$/Si)) return Attack
  elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence
  elseif ($1 == 3) || ($regex($1,/^str(ength)?$/Si)) return Strength
  elseif ($1 == 4) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints
  elseif ($1 == 5) || ($regex($1,/^range(r|d|ing)?$/Si)) return Ranged
  elseif ($1 == 6) || ($regex($1,/^Pray(er)?$$/Si)) return Prayer
  elseif ($1 == 7) || ($regex($1,/^mag(e|ic)$$/Si)) return Magic
  elseif ($1 == 8) || ($regex($1,/^cook(ing)?$/Si)) return Cooking
  elseif ($1 == 9) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting
  elseif ($1 == 10) || ($regex($1,/^fletch(ing)?$/Si)) return Fletching
  elseif ($1 == 11) || ($regex($1,/^fish(ing)?$/Si)) return Fishing
  elseif ($1 == 12) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking
  elseif ($1 == 13) || ($regex($1,/^craft(ing)?$/Si)) return Crafting
  elseif ($1 == 14) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing
  elseif ($1 == 15) || ($regex($1,/^mine(ing)?$/Si)) return Mining
  elseif ($1 == 16) || ($regex($1,/^herb(law|lore)?$/Si)) return Herblore
  elseif ($1 == 17) || ($regex($1,/^agil(ity)?$/Si)) return Agility
  elseif ($1 == 18) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving
  elseif ($1 == 19) || ($regex($1,/^slay(er|ing)?$/Si)) return Slayer
  elseif ($1 == 20) || ($regex($1,/^farm(er|ing)?$/Si)) return Farming
  elseif ($1 == 21) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft
  elseif ($1 == 22) || ($regex($1,/^(construct)(ion|ing)?$/si)) return Construction
  elseif ($1 == 23) || ($regex($1,/^(hunt)(er|ing)?$/si)) return Hunter
}
}

on *:TEXT:!poll*:#:{ 
if ($2 isnum) { 
  msg $chan $nick has started a poll: $3- for $2 minutes. 
  msg $chan Type !vote yes, or !vote no to count your vote. 
  set %yes 0 | set %no 0 
  /timerVOTE 1 $calc($2 * 60) signal -n results $chan 
} 
else { 
  msg $chan $nick has started a poll: $3- for 2 minutes. 
  msg $chan Type !vote yes, or !vote no to count your vote. 
  set %yes 0 | set %no 0 
  /timerVOTE 1 120 signal -n results $chan 
} 
} 
on *:text:!yes:#:{ 
  .notice $nick Thank you for your vote, Yes has been counted! 
  inc %yes 1 
} 
on *:text:!no:#:{ 
  .notice $nick Thank you for your vote, Yes has been counted! 
  inc %no 1 
} 
on *:TEXT:!endpoll:#:{ 
  if (($timer(VOTE)) && ($nick isop $chan)) { 
    msg $chan The poll has been ended by $nick $+ .  The answer is $iif($(%yes,2) > $(%no,2),yes,$iif($(%yes,2) == $(%no,2),tie/no votes,no)) $+ 
    msg $chan Results: Yes: %yes $ceil($calc((%yes) /(%yes + %no) * 100)) $+ % 
    msg $chan No: %no $ceil($calc((%no) /(%yes + %no) * 100)) $+ % 
    timerVOTE off 
  } 
} 
on *:SIGNAL:results: { 
  /msg $1 The poll has ended. The answer is $iif($(%yes,2) > $(%no,2),yes,$iif($(%yes,2) == $(%no,2),tie/no votes,no)) $+ 
  Results: Yes: %yes $ceil($calc((%yes) /(%yes + %no) * 100)) $+ % 
  No: %no $ceil($calc((%no) /(%yes + %no) * 100)) $+ % 
  unset %yes | unset %no