on $*:TEXT:/^[!@`.](set|setworld|change)/Si:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == $me) set %pcw $2
  if ($2 isnum) msg $chan 4The2 Pest4 Control2 World4 Has2 Been4 Changed.2 Type4 !pcw2 or4 !world2 to4 see2 it. 
  if ($2 !isnum) { halt }
} 
}

on *:TEXT:!pcw:#:{ msg $chan 14The2 Pest14 Control2 World14 For2 $chan 14Is2 %pcw 14 }