on *:TEXT:!setworld *:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %worldtime $ctime
    set %pc.nick. $nick
    set %pc.world. $+ #arpc $2
    set %pc.world. $+ #ana $2
    /msg #arpc  $nick has changed the world, type .w to see it! 
  }
}
on *:TEXT:.w:#arpc,#ana:{
  if ($nick isvoice $chan) /notice $nick  The Current PCW is %pc.world. [ $+ [ $chan ] ] Set by %pc.nick. $duration($calc($ctime - %worldtime),2) ago
  if ($nick ishop $chan) /notice $nick  The Current PCW is %pc.world. [ $+ [ $chan ] ] Set by %pc.nick. $duration($calc($ctime - %worldtime),2) ago
  if ($nick isop $chan) /notice $nick  The Current PCW is %pc.world. [ $+ [ $chan ] ] Set by %pc.nick. $duration($calc($ctime - %worldtime),2) ago
}