Mine

ON $*:TEXT:/^[!@.](pc|pcw|world)/Si:#:{
  if ($2 == on) { unset %pc [ $+ [ $chan ] ] }
  if ($2 == off) { set %pc [ $+ [ $chan ] ] off }
  if (%pc [ $+ [ $chan ] ] == off) { notice $nick 7The pcw script 12has been turned 4 off | halt }
  notice $nick 7The current pc world 12for $chan is %pc. [ $+ [ $chan ] ] its set 7by %pcn. [ $+ [ $chan ] ] And its  $duration($calc( $ctime - %pct. [ $+ [ $chan ] ] )) old!
}
ON $*:TEXT:/^[!@.]set(pc|pcw|world)/Si:#:{
  if (%pc [ $+ [ $chan ] ] == off) { notice $nick 7The pcw script 12has been turned 4 off | halt }
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %pc. [ $+ [ $chan ] ] $2
    set %pcn. [ $+ [ $chan ] ] $nick
    set %pct. [ $+ [ $chan ] ] $ctime
    msg $chan 7pc world has12 been changed!
  }
  else { notice $nick 12u need 7halfop or op 12to do that }
}