on $*:text:/^[!@.]set pcw */Si:#: {
  if ($nick isop $chan) {
    set %pcc $ctime
    set %pc $3-
    set %pcwnick $nick
    amsg 1[4PC-World Update1] 12New world:4 %pc 1(12 $+ %pcwnick $+ 1)
} }

on *:Text:!pcw*:#,?:{  
  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-
}