Someone

on *:TEXT:!setpcw*:?: { 
  if ($nick isop #fun || $nick ishop #fun ) { 
    set %world. [ $+ [ $chan ] ] $2 
    set %time. [ $+ [ $chan ] ] $ctime 
set %nick. [ $+ [ $chan ] ]
    msg #fun A new pc world has been set type !pcw or !world to see it! 
  } 
} 
on $*:text:/^!(pcw|world)/Si:#: {
notice $nick Pcw is %world. [ $+ [ $chan ] ] $+ . It was set $duration($calc( $ctime - %time. [ $+ [ $chan ] ] )) ago by %nick. [ $+ [ $chan ] ]
}