Something

on $*:TEXT:/^[!@.]s(et)?world/Si:#:{
  if ($nick isop $chan || $nick ishop $chan) && ($2 isnum) { 
    set %pcw.time. [ $+ [ $chan ] ] $ctime
    set %pcw.nick. [ $+ [ $chan ] ] $nick
    set %pcw.world. [ $+ [ $chan ] ] $2
    notice $nick The pcw is now: $2
  }
}
on $*:TEXT:/^[!@.](world|pcw)/Si:#:{
  notice $nick The pc is: %pcw.world. [ $+ [ $chan ] ] set by %pcw.nick. [ $+ [ $chan ] ] $duration($calc($ctime - $eval($+(%,pcw.time.,$chan),2)))  ago
}