Mine

on $*:TEXT:/^!set(pcw|world|pc)/Si:*:{
  if ($nick isop #pang) {
    set %pcw $2 | set %setnick $nick | set %settime $ctime
    msg #pang New world set by $nick $+ ! Type !pcw or !world to get i
  }
}

on $*:TEXT:/^!(pcw|world)/Si:#pang:{
  if ($nick !isreg $chan) {
    notice $nick World is %pcw
    notice $nick World was set by %setnick about $duration($calc($ctime - %settime)) ago
  }
}