Set a PCW:

on $*:text:/^[!@.]set pcw */Si:#: {
  if ($nick isop #) || ($nick ishop #) {
    set %pcc $ctime
    set %pc $3-
    set %pcwnick $nick
    msg #rs-e 1[4PC-World Update1] 12Type 4"!pcw" 1(12 $+ $nick $+ 1)
} }

The "!pcw" Command:

on *:Text:!pcw*:#:{ if ($nick isreg $chan) {  
    inc %pcwcount
    notice $nick 1- 12The current pc-world is:4 %pc 1- 12Last update:4 $duration($calc($ctime - %pcc)) 12ago 1- 12Last updated by:4 %pcwnick 1-12 The "!pcw" command count:4 %pcwcount 1-
  }