Someone

on $*:TEXT:/^[!](set(pcw|world)|change)/Si:#: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %setwrld [ $+ [ $chan ] ] $2
    set %pctime [ $+ [ $chan ] ] $fulldate
    set %setpcname [ $+ [ $chan ] ] $nick
    set %setwrldstatus [ $+ [ $chan ] ] on
    msg $chan 4|[7» 14World changed to4 %setwrld [ $+ [ $chan ] ]  7«4]|4[7» 14Set by: 4 %setpcname [ $+ [ $chan ] ] 7«4]|
  }
  else notice $nick 4|[7» 14Access denied. You do not have the correct user settings. 7«4]|
}