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