Someone

on $*:TEXT:/^[!@.](setpcw|change)/si:#:{
  if ($nick isop $chan || $nick ishop $chan || $nick isvoice $chan) {
    set %world $2-
    set %worldsetnick $nick
    set %worldsettime $ctime
    msg $chan  10The PCW for 7 $+ $chan 10has been changed to  $+ 7 $2- 10by 7 $+ $nick $+ 10.
  }
  on $*:TEXT:/^[!@.](pcw|world)/si:#:{
    Notice $nick 10The current PCW world for 7 $chan 10Is: 7 %world  10This was set by 7 %worldsetnick  7 $duration($calc($ctime - %worldsettime)) 10ago.
  }
  on $*:TEXT:/^[!@](w)?suggest/si:#:{
    if ($nick isreg $chan) {
      if ($2 isnum 2-140) {
        msg $chan 7 $nick 10has suggested world 7 $2
      }
    }