ON $*:TEXT:/[!@.](Set|SetPCW|setWorld)/Si:#:{
if ($readini(PCW.ini,$chan,Status) == OFF) { halt }
if ($3 != $null) { halt }
if (!$2) {
notice $nick 4Error:14 $1 <World>
halt
}
if (($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) && ($2 isnum 2-138)) {
writeini PCW.ini $chan World $2
writeini PCW.ini $chan Nick $nick
writeini PCW.ini $chan Time $CTime
msg $chan 14The 4PestControl14 world has been changed by4 $nick
halt
}
if ($nick isvoice $chan || $nick isreg $chan) {
notice $nick 14You must be 4Halfop14 Plus to use this command.
halt
}
if ($2 >= 139) {
notice $nick 14The world must be Between4 214 and4 138
halt
}
else {
notice $nick 14A 4PestControl14 world must be a number.
}
}