on $*:TEXT:/^[!.]setpcw../Si:#rspc:{
  if (($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan))) {
    set %world $+($2,$chr(160),$nick,$chr(160),$ctime)
    msg $chan $nick has changed changed the world, type 4!PCW
  }

on $*:TEXT:/^[!.]pcw/Si:#rspc: {
    notice $nick The current world is:4 $gettok(%world,1,160) set by $gettok(%world,2,160) $+ , $duration($calc($ctime - $gettok(%world,3,160))) ago.
  }