#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
}
}
}