Something

on $*:text:/^[!]change */Si:#:{
  if ($nick !isop #pcstaff) {
    notice $nick 12Sorry, but you 4must12 be an 4Operator12 to set the world.
  }
  else {
    set %pcw.time $ctime
    set %pcw.world $2
    set %pcw.nick $nick
    msg #pestcontrol 1[4PC-World Update1] 1New World:4 %pcw.world 1(4 %pcw.nick 1)
} }

on $*:text:/^[!.](pcw|world) */Si:#pestcontrol:{  
  inc %pcw.count
  notice $nick 1- 12The current pc-world is:4 %pcw.world 1- 12Last update:4 $duration($calc($ctime - %pcw.time)) 12ago 1- 12Last updated by:4 %pcw.nick 1-12 The "!pcw" command count:4 %pcw.count 1-
}