on $*:TEXT:/^[!@.](pcw?|world)/Si:#:{
  if ($nick !isreg $chan) { 
    notice $nick 11,1 The current pest control world is: 4 $eval($+(%,world,$chan),2)
  }
}
else  
notice $nick 4 $nick You NEED to be atleast Voiced to use this command

on *:TEXT:!setworld *:#:{
  if ($nick isop $chan) && ( $2 isnum 2-138 ) || ($nick ishop $chan) {
    set %world $+ $chan $2- 4,1 
    msg $chan 11,1 The PCW Has been changed by ,4,1 $nick
  }
}
else {
  notice $nick 4 You NEED Half Op or higher to use the !setevent command.