#pcw on
alias -l br1 { return 06[04 $1- 06] }
alias -l br2 { return 06[03 $1- 06] }
alias -l br3 { return 04[12 $1- 04] }
alias -l br4 { return 1204 $1- 12 }
alias -l br5 { return 12••4 $1- 12•• }
alias -l c1 { return $+(03,$1-,) }
alias -l c2 { return $+(06,$1-,) }
alias -l c3 { return $+(04,$1-,) }

on $*:TEXT:/^[!@>~.](pcw|world) */Si:#rspc:{
  if (%pcstatus != on) { halt }
  if (@* iswm $1) && ($nick isreg $chan) halt
  if ($($+(%,pcw.get.ignore.,$nick),2)) && ($nick isreg $chan) {
    halt
  }
  else {
    $iif($left($1,1) == @,msg $chan,.notice $nick) $c1(The current) $c3(#RSPC) $c1(Pest Control Worlds are) $br3(40+ $br5(%pcw.world.40)) $br3(70+ $br5(%pcw.world.70)) $br3(100+ $br5(%pcw.world.100))
    set -z $+(%,pcw.get.ignore.,$nick) 30
  }
}
on $*:TEXT:/^[!@>~.](setpc|setw|change) */Si:#RSPC,#rspc-staff,#iKick.test:{
  if ($network == NitrousIRC) || ($network == SeersIRC) || ($network == GameSurge) || ($network == NeonIRC) { halt }
  if ($nick !isreg $chan) {
    ;;    if ($($+(%,pcw.set.ignore.,$nick),2)) {
    ;;      $iif(%pcstatus == on,.notice $nick $c1(You can only use this command once every) $c2(5) $c1(minutes. Please use .correct world instead.))
    ;;      halt
    ;; }
    if (!$3) {
      $iif(%pcstatus == on,.notice $nick $c1(Syntax error:) $c2(!setpcw -level world ))
      halt
    }
    if (!$istok(2|6|9|12|18|22|23|24|26|27|28|31|36|39|41|42|44|45|46|48|53|54|56|58|59|60|64|65|66|69|70|71|76|77|78|79|82|83|84|88|89|91|92|97|98|99|100|103|104|110|111|112|114|115|116|120|121|123|124|126|129|130|131|132|137|138|140|143|144,$3,124)) {
      $iif(%pcstatus == on,.notice $nick $c1(The world you have specified is not a members world.))
      halt
    }
    if (!$istok(40|70|100,$remove($2,$chr(45)),124)) {
      $iif(%pcstatus == on,.notice $nick $c1(The level requirement you have specified is not valid. Levels available: 40, 70, 100))
      halt
    }
    else {
      if ($3 == %pcw.world. [ $+ [ $remove($2,$chr(45)) ] ]) { $iif(%pcstatus == on,.notice $nick 03The $remove($2,$chr(45)) $+ $chr(43) world is already set to12 %pcw.world. [ $+ [ $remove($2,$chr(45)) ] ] $+ .) | halt }
      if ($3 == 2) { $iif(%pcstatus == on,.notice $nick Abuse detected: an abuse report has been logged with your nick. | ms send Sara $nick has been caught setting w2.) | halt }
      if ($3 == 140) { $iif(%pcstatus == on,.notice $nick We can't set w140 here because many users don't know how to get there. Feel free to PC there yourself though!) | halt }
      set %pcw.time. [ $+ [ $remove($2,$chr(45)) ] ] $ctime
      set %oldworld. [ $+ [ $remove($2,$chr(45)) ] ] %pcw.world. [ $+ [ $remove($2,$chr(45)) ] ]
      set %runeboards.world. [ $+ [ $remove($2,$chr(45)) ] ] $3
      if ($chan != #iKick.test) { 
        set %runeboards.nick. [ $+ [ $remove($2,$chr(45)) ] ] $nick
      }
      elseif ($chan == #iKick.test) {
        set %runeboards.nick. [ $+ [ $remove($2,$chr(45)) ] ] God
      }
      set %pcw.world. [ $+ [ $remove($2,$chr(45)) ] ] $3 | $iif(%pcstatus == on,.notice $nick The $remove($2,$chr(45)) $+ $chr(43) world has been set to $3 $+ .)
      elseif ($ulevel == 1000) || ($chan == #rspc-staff) || ($chan == #iKick.test) { set %pcw.nick God }
      else { set %pcw.nick. [ $+ [ $remove($2,$chr(45)) ] ] $nick }
      $iif(%pcstatus == on,msg #rspc 12 %pcw.nick has updated the $remove($2,$chr(45)) $+ $chr(43) PC world!)
      $iif(%pcstatus == on,msg #rspc 12 The new world has been said - $3 $+ ! $3 $+ ! $3 $+ !)
      set -z $+(%,pcw.set.ignore.,$nick) 300
      set %pcw.set.time. [ $+ [ $remove($2,$chr(45)) ] ] $ctime
      if ($chan != #iKick.test) {
        $iif(%pcstatus == on,msg #rspc-staff 02 $remove($2,$chr(45)) $+ $chr(43) world changed to04 $remove($$3,$chr(45)) 02by $nick $+ .)
      }
      ;;      $iif(%pcstatus == on,timerpcset off)
      ;;      $iif(%pcstatus == on,timerpcset2 off)
      ;;      $iif(%pcstatus == on,timerpcset 1 1500 annoythefkoutofrspcstaff)
      ;;      $iif(%pcstatus == on,timerpcset2 1 1200 msg #rspc-staff You have4 5 minutes before I highlight spam the fuck out of you. Start looking for a new world.)
      write PCLog.txt Date: $date(mm-dd-yyyy) --- Time: $time(hh:nn:tt) --- World: $2 --- $nick
      writeini SetCount.ini worlds $nick $calc($readini(SetCount.ini, worlds, $nick) + 1)
      $iif(%pcstatus == on,.notice $nick You have set $readini(SetCount.ini, worlds, $nick) worlds for #rspc.)
      if (%suggest.name. [ $+ [ $3 ] ]) { 
        set %pcw.scout %suggest.name. [ $+ [ $3 ] ] 
        writeini SetCount.ini scouts %pcw.scout $calc($readini(SetCount.ini, scouts, %pcw.scout) + 1) 
        $iif(%pcstatus == on,.notice $nick $c2(%pcw.scout) $c1(has been set as the scout by default for being the first one to suggest this world.))
        if ($readini(SetCount.ini, scouts, %pcw.scout) == 10) {
          scoutvoice
        }
      }
      elseif ($4) { 
        if ($4 ison #rspc-staff) { $iif(%pcstatus == on,.notice $nick Don't set staff members as the scout! Staff's world sets are recorded in a different section of the file.) | halt }
        set %pcw.scout $4 
        writeini SetCount.ini scouts $4 $calc($readini(SetCount.ini, scouts, $4) + 1)
        if ($readini(SetCount.ini, scouts, %pcw.scout) == 10) {
          scoutvoice
        }
      }
      else {
        unset %pcw.scout
      }
      unset %suggest.name.*
      unset %suggest.times.*
      unset %pcw.correct.*
    }
  }
  else { $iif(%pcstatus == on,.notice $nick You do not have the access required to use this command, please use !suggest instead.) }
}
on $*:TEXT:/^[!@>~.](pcw|world) */Si:#rspc:{
  if ($network == NitrousIRC) || ($network == SeersIRC) || ($network == RuneboardsIRC) || ($network == NeonIRC) { halt }
  if ($readini(ChanPrefs.ini,$chan,pcw)) || (%pcw.timer == on) || (%pcstatus != on) { halt }
  if (!* !iswm $1) && ($nick isreg $chan) halt
  if ($($+(%,pcw.get.ignore.,$nick),2)) && ($nick !isop $chan) {
    halt
  }
  if (!%pcw.world) {
    $iif(!* iswm $1,.notice $nick,msg $chan) $c1(There is no currently set world.)
    halt
  }
  else {
    inc %world.time | inc %pc.restart
    $iif(!* iswm $1,halt,msg $chan) $c1(The current) $c3(#RSPC) $c1(Pest Control World is) $br4(%pcw.world)  $+ $c3(,) $c1(set by) $br3(%pcw.nick) $+ $c1($iif(%pcw.scout,$chr(32) $+ - scouted by %pcw.scout)) $+ $c1(.)
  }
}
alias pcworld {
  ;;;  $iif(%pcstatus == on && $ulevel != 1000,
  msg $1 $c1(The current) $c3(#RSPC) $c1(Pest Control Worlds are) $br3(40+ $br5(%pcw.world.40)) $br3(70+ $br5(%pcw.world.70)) $br3(100+ $br5(%pcw.world.100))
  ;;;  $+ $c3(,) $c1(set by) $br3(%pcw.nick) $+ $c1($iif(%pcw.scout,$chr(32) $+ - scouted by %pcw.scout)) $+ $c1(.))
}



alias annoythefkoutofrspcstaff {
  msg #rspc-staff [highlight] $pplz(#rspc-staff)
  msg #rspc-staff [highlight] $pplz(#rspc-staff)
  msg #rspc-staff 04THE WORLD HAS BEEN SET FOR 25 MINUTES, CHANGE IT NOW OR FACE SARA'S WRATH!!!!!
}

alias annoythefkoutofrspcstaff2 {
  msg #rspc-staff You have4 $duration($calc( $ctime - %pcw.set.time)) left before I highlight spam the fuck out of you. $iif($duration($calc( $ctime - %pcw.set.time)) < 5,Start looking for a new world.)
}

alias -l scoutvoice {
  .notice %pcw.scout $c1(You have scouted 10 worlds for #RSPC, and will now receive temporary voice. To set worlds: !setpcw world)
  mode #RSPC +v %pcw.scout
  remini SetCount.ini scouts %pcw.scout
  $iif(%pcstatus == on,msg #RSPC-staff $c1(%pcw.scout has been given temp voice for scouting 10 worlds.))
  $iif(%pcstatus == on,ms send #iKick.test %pcw.scout given temp voice for scouting 10 worlds.)
}


alias pplz {
  var %chan $1
  var %a $nick(%chan,0)
  var %b 1
  while (%b <= %a) {
    var %pplz = %pplz $iif($nick(%chan,%b) !== $nick(%chan,$nick(%chan,0)),$nick(%chan,%b) $+ $chr(44), and $nick(%chan,%b) $+ $chr(46))
    inc %b
  }
  return %pplz
}


on *:TEXT:.setscout &:#rspc-staff: {
  if (%pcw.scout) { $iif(%pcstatus == on,.notice $nick $c1(There is already a scout set for this world.)) | halt }
  set %pcw.scout $2
  writeini SetCount.ini scouts $2 $calc($readini(SetCount.ini, worlds, $2) + 1)
  $iif(%pcstatus == on,.notice $nick $c2($$2) $c1(has been set as the scout.))
}

on *:TEXT:?count*:#: {
  if (!$istok(#rspc #rspc-staff #iKick.test, $chan, 32) && ($ulevel != 1000)) || (($chan != iKick.test) && (%pcstatus != on) && ($ulevel != 1000)) { halt }
  if ($nick isreg #rspc) && ($nick !ison #rspc-staff) { halt }
  var %msgcount $iif($left($1,1) == !,.notice $nick,msg $chan)
  if (($nick == Jparker) && (!$2)) || ($2 == Jparker) { msg $chan $c2(Jparker) $c1(is too busy being Sara's sex toy to set worlds!) | halt }
  if ($2 == reset) && ($address($nick,2) == *!*@on.foniks.wurkd.4.me) {
    if (!$readini(SetCount.ini, worlds, $$3)) { 
      %msgcount $c2($3) has not set any worlds for #RSPC. | halt
    }
    writeini SetCount.ini oldcount $$3 $readini(SetCount.ini, worlds, $3)
    remini SetCount.ini worlds $$3
    %msgcount $c2($3 $+ 's) $c1(set count has been reset.)
  }
  elseif ($2 == transfer) && ($ulevel > 998) {
    writeini SetCount.ini worlds $$4 $calc($readini(SetCount.ini, worlds, $$3) + $readini(SetCount.ini, worlds, $$4))
    remini SetCount.ini worlds $$3
    msg $chan $c2($$3 $+ 's) $c1(setcount has been transferred to) $c2($$4 $+ 's) $c1(setcount.)
    halt
  }
  elseif ($2 == -s) {
    if (!$readini(SetCount.ini, scouts, $3)) { 
      %msgcount $c2($3) $c1(has not scouted any worlds.)
      halt 
    }
    %msgcount $c2($3) $c1(has scouted)  $+ $c2($readini(SetCount.ini, scouts, $3)) $+  $c1($iif($readini(SetCount.ini, scouts, $3) == 1, world., worlds.))
    halt
  }
  elseif (!$2) {
    %msgcount $c2($nick) $c1(has set)  $+ $c2($iif(!$readini(SetCount.ini, worlds, $nick),0,$readini(SetCount.ini, worlds, $nick))) $+  $c1(worlds.)
  }
  else {
    %msgcount $c2($2) $c1(has set)  $+ $c2($iif(!$readini(SetCount.ini, worlds, $2),0,$readini(SetCount.ini, worlds, $2))) $+  $c1(worlds.)
  }
}
on *:TEXT:.pcinfo*:#rspc,#rspc-staff,#iKick.test: {
  if ($chan == #rspc) && ($nick isreg $chan) { halt }
  pcinfo $2-
}
alias pcinfo {
  if ($1 == -40) {
    $iif($chan == #rspc,.notice $nick,msg $chan) 12[ Current 40+ world:04 %pcw.world.40 12] [ Set by:04 %runeboards.nick.40 $iif(%pcw.scout,12Scouted by:04 %pcw.scout) 12] [ Time:04 $duration($calc( $ctime - %pcw.time.40)) 12ago 12] [ Last world:04 %oldworld.40 12]  [ Last suggested:04 %suggestworld 12By: 04 %suggestnick 12]
    halt
  }
  elseif ($1 == -70) {
    $iif($chan == #rspc,.notice $nick,msg $chan) 12[ Current 70+ world:04 %pcw.world.70 12] [ Set by:04 %runeboards.nick.70 $iif(%pcw.scout,12Scouted by:04 %pcw.scout) 12] [ Time:04 $duration($calc( $ctime - %pcw.time.70)) 12ago 12] [ Last world:04 %oldworld.70 12]  [ Last suggested:04 %suggestworld 12By: 04 %suggestnick 12]
    halt
  }
  elseif ($1 == -100) {
    $iif($chan == #rspc,.notice $nick,msg $chan) 12[ Current 100+ world:04 %pcw.world.100 12] [ Set by:04 %runeboards.nick.100 $iif(%pcw.scout,12Scouted by:04 %pcw.scout) 12] [ Time:04 $duration($calc( $ctime - %pcw.time.100)) 12ago 12] [ Last world:04 %oldworld.100 12]  [ Last suggested:04 %suggestworld 12By: 04 %suggestnick 12]
    halt
  }
  $iif($chan == #rspc,.notice $nick,msg $chan) 12[ Current worlds ] [ 40+:04 %pcw.world.40 12 || Time:04 $duration($calc( $ctime - %pcw.time.40)) 12] [ 70+:04 %pcw.world.70 12 || Time:04 $duration($calc( $ctime - %pcw.time.70)) 12] [ 100+:04 %pcw.world.100 12 || Time:04 $duration($calc( $ctime - %pcw.time.100)) 12]
}


on *:TEXT:!suggest *:#RSPC:{  
  if ($2 == %pcw.world) {
    $iif(%pcstatus == on,.notice $nick Don't waste my time suggesting worlds that are already set, find a new one!)
    halt
  }
  if ($($+(%,suggest.ignore.,$nick),2)) {
    $iif(%pcstatus == on,.notice $nick 03You can only suggest a world once every 5 minutes.)
    halt
  }
  if (!$istok(2|6|9|12|18|22|23|24|26|27|28|31|36|39|41|42|44|45|46|48|53|54|56|58|59|60|64|65|66|69|70|71|76|77|78|79|82|83|84|88|89|91|92|97|98|99|100|103|104|110|111|112|114|115|116|120|121|123|124|126|129|130|131|132|137|138|140|143|144,$2,124)) {
    $iif(%pcstatus == on,.notice $nick 03The world you have suggested is not a members world.)
    halt
  }
  if ($2 == 2) { $iif(%pcstatus == on,kick #rspc $nick Don't be stupid.) | halt }
  if ($2 == 78) { $iif(%pcstatus == on,.notice $nick 78 always has people and is always bad... best-known noob PC world. Please pick another. :)) | halt }
  if ($2 == 140) { $iif(%pcstatus == on,.notice $nick We can't set w140 here because many users don't know how to get there. Feel free to PC there yourself though!) | halt }
  set -z $+(%,suggest.ignore.,$nick) 300
  set %suggestnick $nick | set %suggestworld $$2
  if (!%suggest.name. [ $+ [ $2 ] ]) { set %suggest.name. [ $+ [ $2 ] ] $nick }
  inc %suggest.times. [ $+ [ $2 ] ]
  $iif(%pcstatus == on,.notice $nick 03Thank you for your suggestion.)
  if ($3) {
  $iif(%pcstatus == on,msg #rspc-staff 12 $nick has suggested world4 $2  12- Reason: $3-) }
  elseif (($2) && (!$3)) {
  $iif(%pcstatus == on,msg #rspc-staff 12 $nick has suggested world4 $2 ) }
}

on *:TEXT:.correct &:#rspc,#rspc-staff: {
  if (%pcstatus == on) {
    if ($nick isreg $chan) { halt }
    if ($nick != %runeboards.nick) { .notice $nick Only the person who set the world can correct it! | halt }
    if (%pcw.correct. [ $+ [ $nick ] == 3) { .notice $nick Abuse detected: you can only .correct the world twice! An abuse report has been logged with your nick. | ms send Sara $nick has abused the .correct function. | halt }
    if (!$istok(2|6|9|12|18|22|23|24|26|27|28|31|36|39|41|42|44|45|46|48|53|54|56|58|59|60|64|65|66|69|70|71|76|77|78|79|82|83|84|88|89|91|92|97|98|99|100|103|104|110|111|112|114|115|116|120|121|123|124|126|129|130|131|132|137|138|140|143|144,$2,124)) {
      .notice $nick $c1(The world you have specified is not a members world.)
      halt
    }
    msg #rspc,#rspc-staff $c1(World correction has been made: the current PCW is $2 $+ .)
    inc %pcw.correct. [ $+ [ $nick ] ]
  }
  set %pcw.world $2 | set %runeboards.world $2
}

on *:TEXT:.suggestions:#rspc-staff,#iKick.test: {
  if (%pcstatus != on) { halt }
  if (!$var(%suggest.times.*,1)) { msg $chan $c1(No worlds have been suggested yet.) | halt }
  var %a = 1, %val.string, %var.string, %b = 1
  while ($var(%suggest.times.*,%a)) {
    %val.string = %val.string $($v1,3)
    %val.string = $sorttok(%val.string,32,nr)
    %var.string = $instok(%var.string,$gettok($v1,3,46),$findtok(%val.string,$($v1,3),1,32),32)
    inc %a
  }
  while (%b <= 5 && $gettok(%var.string,%b,32)) {
    var %line = %line $c2($gettok(%var.string,%b,32)) $+($c1([,$gettok(%val.string,%b,32),$chr(32),$iif($gettok(%val.string,%b,32) == 1,time,times),]),$chr(44))
    inc %b
  }
  %line = $left(%line,-1)
  msg $chan $c1(The most suggested worlds are:) %line
  set %bestsuggestion %suggest.name. [ $+ [ $gettok(%line,1,32) ] ]
}

on *:TEXT:.check &:#rspc-staff,#iKick.test: {
  if (%pcstatus != on) { halt }
  if (!%suggest.name. [ $+ [ $$2 ] ]) { msg $chan $c1(That world has not been suggested.) | halt }
  msg $chan $c1(World) $c2($$2) $c1(was first suggested by) $c2(%suggest.name. [ $+ [ $$2 ] ]) $c1(-- it has been suggested) $c2(%suggest.times. [ $+ [ $$2 ] ]) $c1($iif(%suggest.times. [ $+ [ $$2 ] ] == 1,time.,times.))
}

on *:TEXT:.current:#rspc,#rspc-staff: {
  if (%pcstatus != on) && ($ulevel != 1000) { halt }
  if ($nick isop #rspc) || ($nick ishop #rspc) {
    var %a = 1
    while ($timer(%a)) {
      .notice $nick * $+(Timer,$timer(%a)) $timer(%a).reps $+($timer(%a).delay,s) $timer(%a).com
      inc %a
    }
  }
}

on $*:TEXT:/^[.!@~]top */Si:#rspc-staff,#iKick.test:{
  if (%pcstatus != on) && ($chan != iKick.test) && ($ulevel != 1000) { halt }
  if ($2 <= 12) && ($2 >= 3) {
    var %a = 1, %b = 1
    while ($ini(SetCount.ini,worlds,%a)) {
      set $+(%,pcs.,$readini(SetCount.ini,worlds,$v1)) $($+(%,pcs.,$readini(SetCount.ini,worlds,$v1)),2) & $v1
      var %#str = $sorttok($addtok(%#str,$readini(SetCount.ini,worlds,$v1),46),46,nr)
      inc %a
    }
    while (%b <= $2) {
      var %str = %str $c1($+(%b,$chr(41))) $c2($right($($+(%,pcs.,$gettok(%#str,%b,46)),2),-2)) $c3($+([,$gettok(%#str,%b,46),]))
      inc %b
    }
    $iif($left($1,1) == !, .notice $nick, msg $chan) The Top $2 World Setters are: %str
    unset %pcs.*
  }
}

on 1000:TEXT:?redo *:#rspc-staff,#iKick.test: {
  writeini SetCount.ini worlds $$2 $$3
}

on *:TEXT:.help:#rspc,#rspc-staff: {
  if (%pcstatus != on) { halt }
  if ($nick isop #rspc) || ($nick ishop #rspc) {
    timer 1 1 .notice $nick To view the current timers, type .current
    timer 1 2 .notice $nick To start a new timer, type .timer # of seconds inbetween messages message
    timer 1 3 .notice $nick To turn off a timer, type .off timer # 
    timer 1 4 .notice $nick To turn on the general PCW timer, type .timer on [# of seconds] 
    timer 1 5 .notice $nick To turn off all currently running timers, type .off all
  } 
}

on *:TEXT:!timer *:#rspc,#rspc-staff,#ikick.test: {
  if ($nick isop #rspc) || ($nick ishop #rspc) {
    if ($2 isnum 10-10000) {
      timer 0 $$2 /msg #rspc $$3-
      msg #rspc 6New timer set - I will message #RSPC with " $+ $$3- $+ " every $$2 seconds.
      halt
    } 
    if ($2 == on) {
      if (%pcw.timer == on) { .notice $nick My timer is already running! To disable it type !timer off | halt }
      if (%pcstatus != on) { set %pcstatus on }
      set %pcw.timer on
      msg #RSPC 6I will now announce the PC world every $iif($3,$3,25) seconds.
      if (!$3) { timerrspc 0 25 /pcworld #rspc | halt }
      else {
        timerrspc 0 $$3 pcworld #rspc
        halt
      }
    }
    if ($2 == off) {
      unset %pcw.timer
      unset %pcw.delay
      timers off
      halt
    }
    else {
      .notice $nick Syntax: !timer [on|off|number] <-- depending on what you want to do (Number must be between 10 and 10000)
    halt }
  } 
}

on *:TEXT:.off *:#rspc,#rspc-staff: {
  if (%pcstatus != on) { halt }
  if ($nick isop #rspc) || ($nick ishop #rspc) {
    if ($2 isnum) {
      timer $+ $$2 off
      msg #rspc 06Timer $$2 has been turned off.
    }
    elseif ($2 == all) {
      unset %pcw.timer
      timers off
      msg #rspc 06 All timers have been turned off in #RSPC.
    }
  } 
}

on *:TEXT:#*:#rspc: {
  if ($network != SwiftIRC) { halt }
  if ($nick !isreg $chan) || ($left($1,1) isin @!.) { halt }
  set %chan.ad $matchtok($1-, $chr(35), 1, 32)
  if (!$regex($1-,/#(?![r\?\*][s\?\*][p\?\*][c\?\*])/i)) { halt }
  if ($istok(#RShelp #rspc #rscw #rs-market #rsprices #iKick #rspc-staff #irchelp #swiftirc #lunar #rsradio #rstrivia #swiftswitch,%chan.ad,32)) || ($left($1,1) isin @!) halt
  mode $chan +b ~c: $+ %chan.ad
  unset %chan.ad
  ban -ku1200 $chan $nick 2 Advertising is not allowed! 20 minute ban.
}

on *:BAN:#rspc: { 
  if ($istok(~c:#rspc ~c:#rshelp ~c:#rscw ~c:#rs-market ~c:#rsprices ~c:#rse ~c:#rsmarket ~c:#swiftswitch ~c:#irchelp ~c:#swiftirc ~c:#*,$banmask,32)) || (!$regex($banmask,/#(?![r\?\*][s\?\*][p\?\*][c\?\*])/i) && (*#* iswm $banmask)) {
    mode #rspc -b $banmask 
  } 
}
#pcw end

on *:DISCONNECT: {
  unset %pcw.timer
  server illusion.tx.us.swiftirc.net
}

on *:TEXT:!update:#RSPC-Staff:{
  if (!$istok(hookd@on.foniks.wurkd.4.me allen@127.0.0.1,$address,32)) halt
  var %a = 1, %t = 0, %s
  while ($ini(SetCount.ini,worlds,%a)) {
    %s = %s $+($v1,=,$readini(SetCount.ini,worlds,$v1))
    if ($numtok(%s,32) == 10) {
      .timer 1 %t msg iKick $+(SC:,%s)
      inc %t 1.5
      var %s
    }
    inc %a
  }
  if (%s) {
    .timer 1 %t msg iKick $+(SC:,%s)
    inc %t 1.5
  }
  .timer 1 %t msg iKick SCE
  inc %t 1.5
  .timer 1 %t close -m iKick
  .timer 1 %t msg #RSPC-Staff Update finished.
}
on *:TEXT:*:?:{
  if ($address == i@kick.ur.butt) && (SC:* iswm $1-) {
    tokenize 32 $right($1-,-3)
    var %a = 1
    while ($gettok($1-,%a,32)) {
      writeini SetCount.ini worlds $replace($v1,=,$chr(32))
      inc %a
    }
  }
}