on $*:text:/^[!@.]setpcw */Si:#:{
    set %pcc $ctime
    set %pc $2-
    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-
}