on $*:TEXT:/^[!.]set(pcw|world)/Si:#:{
  if (($nick isop $chan) || ($nick ishop $chan)) { set %world $2 | msg $chan new pcw set!!! }
  else .notice $nick you arn't allowed to use this command.
}
on $*:TEXT:/^[!.](pcw|world)/Si:#:{
  if ($nick isreg $chan) halt
  else .notice $nick the pcw is $iif(%world,$v1,not set.)
}