Something

on $*:TEXT:/^!set(pcw|world) .+/Si:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($address($nick,2) == $address($me,2)) {
    set %pcw $2
    msg $chan New Pest Control World has been set by $nick $+ . Type  $+ !pcw $+  or  $+ !world $+  to get the new world
  }
}
on $*:TEXT:/^[!@](pcw|world|pcworld)/Si:#: {
  notice $nick Pest control world is: %pcw
}