on $*:TEXT:/^[!@.]pcstart/Si:#: {
 if ($readini(pcw.ini,$chan,vset) && $nick !isreg $chan) || ($nick ishop $chan || $nick isop $chan) {
   if ($readini(pcw.ini,$chan,world)) {
     if (!$readini(pcw.ini,$chan,repeat)) {
       writeini -n pcw.ini $chan repeat $iif($2,$2,35)
       pcrepeat $chan
     }
     else {
       notice $nick $c1(There is already a pest control repeater running! Type) $c2(!pcstop) $c1(to stop it.)
     }
   }
   else {
     notice $nick $c1(There is currently no pest control world for) $+($c2($chan),$c1($chr(46)))
   }
 }
 else {
   notice $nick $c1(Permission denied.)
 }
}
on $*:TEXT:/^[!@.]pcstop/Si:#: {
 if ($readini(pcw.ini,$chan,vset) && $nick !isreg $chan) || ($nick ishop $chan || $nick isop $chan) {
   if ($readini(pcw.ini,$chan,repeat)) {
     msg $chan $c1(Pest control repeater halted by) $c2($nick)
     remini pcw.ini $chan repeat
     pcrepeat
   }
   else {
     notice $nick $c1(There is currently no pest control world repeater for) $+($c2($chan),$c1($chr(46)))
   }
 }
 else {
   notice $nick $c1(Permission denied.)
 }
}
on $*:TEXT:/^[!@.](pcw(orld)?|world)/Si:#: {
 if ($readini(pcw.ini,$chan,world)) {
   $iif($left($1,1) == @,msg $chan,notice $nick) $c1(The current pest control world is:) $c2($readini(pcw.ini,$chan,world)) $c1(set by:) $c2($readini(pcw.ini,$chan,nick)) $+ $c1(,) $c2($duration($calc($ctime - $readini(pcw.ini,$chan,time)))) $c1(ago.)
   halt
 }
 notice $nick $c1(There is no pest control world set for) $+($c2($chan),$c1(.))
}
on $*:TEXT:/^[!@.]sets/Si:#: {
 if (!$readini(pcw.ini,$chan,sets $+ $iif($2,$2,$nick))) {
   $iif($left($1,1) == @,msg $chan,notice $nick) $c2($iif($2,$2,$nick)) $c1(has not set any worlds in) $c2($chan) $+ $c1(.)
 }
 else {
   $iif($left($1,1) == @,msg $chan,notice $nick) $c2($iif($2,$2,$nick)) $c1(has set) $c2($readini(pcw.ini,$chan,sets $+ $iif($2,$2,$nick))) $c1($iif($readini(pcw.ini,$chan,sets $+ $iif($2,$2,$nick)) == 1,world,worlds) in) $c2($chan) $+ $c1(.)
 }
}
on $*:TEXT:/^[!@.]set(pcw|w(orld)?)/Si:#: {
 if ($readini(pcw.ini,$chan,vset) && $nick !isreg $chan) || ($nick ishop $chan || $nick isop $chan) {
   if ($2 isnum 2-144) {
     writeini -n pcw.ini $chan world $2
     writeini -n pcw.ini $chan nick $nick
     writeini -n pcw.ini $chan time $ctime
     writeini -n pcw.ini $chan sets $+ $nick $calc($readini(pcw.ini,$chan,sets $+ $nick) + 1)
     msg $chan $c1(The pest control world for) $c2($chan) $c1(has been changed by) $c2($nick) $+ $c1(. Type) $c2(!pcw) $c1(to view it.)
   }
   else {
     notice $nick $c1(Please specify a valid world number.)
   }
 }
 else {
   notice $nick $c1(Permission denied.)
 }
}
on $*:TEXT:/^[!@.](clear|del|un(set)?)pcw/Si:#: {
 if ($readini(pcw.ini,$chan,vset) && $nick !isreg $chan) || ($nick ishop $chan || $nick isop $chan) {
   if ($readini(pcw.ini,$chan,world)) {
     remini pcw.ini $chan time
     remini pcw.ini $chan world
     remini pcw.ini $chan nick
     msg $chan $c1(The pest control world for) $c2($chan) $c1(has been deleted.)
   }
   else {
     notice $nick $c1(There is currently no pest control world for) $+($c2($chan),$c1($chr(46)))
   }
 }
 else {
   notice $nick $c1(Permission denied.)
 }
}
on $*:TEXT:/^[!@.]suggest/Si:#: {
 if (!$readini(pcw.ini,$chan,suggest)) {
   if ($2 isnum 2-144) {
     writeini -n pcw.ini $chan suggestworld $readini(pcw.ini,$chan,suggestworld) $2
     msg $chan $c1(A new world has been suggested by) $+($c2($nick),$c1($chr(44))) $c1(type) $c2(!vsuggest) $c1(to view it.)
   }
 }
 else {
   notice $nick $c1(Suggesting worlds for) $c2($chan) $c1(has been disabled by) $c2($readini(pcw.ini,$chan,suggest))
 }
}
on $*:TEXT:/^[!@.]v(iew)?suggest/Si:#: {
 if ($readini(pcw.ini,$chan,suggestworld)) {
   $iif($left($1,1) == @,msg $chan,notice $nick) $c1(The suggested worlds for) $c2($chan) $c1(are:) $+($c2($replace($readini(pcw.ini,$chan,suggestworld),$chr(32),$+($chr(44),$chr(32)))),$c1($chr(46)))  
 }
 else {
   notice $nick $c1(There are currently no suggested worlds for) $+($c2($chan),$c1($chr(46)))
 }
}
on $*:TEXT:/^[!@.](d(e(l)?)?suggest|c(lear)?suggest)/Si:#: {
 if ($readini(pcw.ini,$chan,vset) && $nick !isreg $chan) || ($nick ishop $chan || $nick isop $chan) {
   if ($readini(pcw.ini,$chan,suggestworld)) {
     remini pcw.ini $chan suggestworld
     msg $chan $c1(All of the suggested worlds for) $c2($chan) $c1(have been deleted by) $+($c2($nick),$c1($chr(46)))
   }
 }
 else {
   notice $nick $c1(There are currently no suggested worlds for) $+($c2($chan),$c1($chr(46)))
 }
 else {
   notice $nick $c1(Permission denied.)
 }
}
on $*:TEXT:/^[!@.]vset (on|off)?/Si:#: {
 if ($nick ishop $chan || $nick isop $chan) {
   if (!$2) {
     notice $nick $c1(Please specify on or off.)
     halt
   }
   if ($2 == on) {
     writeini -n pcw.ini $chan vset $nick
     msg $chan $c1(Voice power has been set) $c2($2) $c1(for) $+($c2($chan),$c1($chr(46)))
   }
   if ($2 == off) {
     remini pcw.ini $chan vset
     msg $chan $c1(Voice power has been set) $c2($2) $c1(for) $+($c2($chan),$c1($chr(46)))
   }
 }
 else {
   notice $nick $c1(Permission denied.)
 }
}
on $*:TEXT:/^[!@.]setsuggest (on|off)?/Si:#: {
 if ($nick ishop $chan || $nick isop $chan) {
   if (!$2) {
     notice $nick $c1(Please specify on or off.)
     halt
   }
   if ($2 == off) {
     writeini -n pcw.ini $chan suggest $nick
     msg $chan $c1(Suggesting worlds for) $c2($chan) $c1(has been turned) $c2($2) $c1(by) $c2($nick) $+ $c1(.)
   }
   if ($2 == on) {
     remini pcw.ini $chan suggest
     msg $chan $c1(Suggesting worlds for) $c2($chan) $c1(has been turned) $c2($2) $c1(by) $c2($nick) $+ $c1(.)
   }
 }
 else {
   notice $nick $c1(Permission denied.)
 }
}
alias pcrepeat {
 if ($readini(pcw.ini,$1,repeat)) {
   msg $1 $c1(The current pest control world is:) $c2($readini(pcw.ini,$1,world)) $c1(set by:) $c2($readini(pcw.ini,$1,nick)) $+ $c1(,) $c2($duration($calc($ctime - $readini(pcw.ini,$1,time)))) $c1(ago.)
   timer 1 $readini(pcw.ini,$1,repeat) pcrepeat $1
 }
}
on $*:TEXT:/^[!@.]setpcw/Si:?: {
 if ($me ison $2) {
   if ($readini(pcw.ini,$2,vset) && $nick !isreg $2) || ($nick ishop $2 || $nick isop $2) {
     if ($3 isnum 2-144) {
       writeini -n pcw.ini $2 world $3
       writeini -n pcw.ini $2 nick $nick
       writeini -n pcw.ini $2 time $ctime
       msg $2 $c1(The pest control world for) $c2($2) $c1(has been changed by) $c2($nick) $+ $c1(. Type) $c2(!pcw) $c1(to view it.)
     }
     else {
       msg $nick $c1(Please specify a valid world number.)
     }
   }
   else {
     msg $nick $c1(Permission denied.)
   }
 }
 else {
   msg $nick $c1(I'm not on) $c2($2) $+ $c1(!)
 }
}