Mine

alias change {
    set %pcww. $1 
    set %nick. $me
    set $+(%,pcw.time,$chan) $ctime
    timerworld off
    timerworld 0 15 /msg $chan 2[ › ] 14The Current Pest Control World is: 2»7 $1 2«
    msg $chan 2¤¤¤7Pest Control Update2¤¤¤14 The Current 2¤7Pest Control2¤14 World has been changed to $+($chr(91),$c1,$chr(2)  $+ $1 $+ $chr(2),$c2,$chr(93)) by [7 $+ $me $+ 14]2¤¤¤
}
on *:text:!change *:#pc: { 
  if ($nick isop $chan || $nick ishop $chan) || $nick isvoice $chan && (%pcw. [ $+ [ $chan ] ] == on) && ($2 == 2 || $2 == 6 || $2 == 9 || $2 == 12 || $2 == 18 || $2 == 22 || $2 == 23 || $2 == 24 || $2 == 26 || $2 == 27 || $2 == 28 || $2 == 31 || $2 == 36 || $2 == 39 || $2 == 42 || $2 == 44 || $2 == 45 || $2 == 46 || $2 == 48 || $2 == 53 || $2 == 54 || $2 == 56 || $2 == 58 || $2 == 59 || $2 == 60 || $2 == 64 || $2 == 65 || $2 == 66 || $2 == 69 || $2 == 70 || $2 == 71 || $2 == 76 || $2 == 77 || $2 == 78 || $2 == 79 || $2 == 82 || $2 == 83 || $2 == 84 || $2 == 88 || $2 == 91 || $2 == 92 || $2 == 97 || $2 == 98 || $2 == 99 || $2 == 100 || $2 == 103 || $2 == 104 || $2 == 110 || $2 == 111 || $2 == 112 || $2 == 114 || $2 == 115 || $2 == 116 || $2 == 120 || $2 == 121 || $2 == 124 || $2 == 129 || $2 == 130 || $2 == 131 || $2 == 132 || $2 == 137 || $2 == 138 || $2 == 143 || $2 == 144)  { 
    set %pcww. $2 
    set %nick. $nick
    set $+(%,pcw.time,$chan) $ctime
    timerworld off
    timerworld 0 15 /msg $chan 2[ › ] 14The Current Pest Control World is: 2»7 $2 2«
    msg $chan 2¤¤¤7Pest Control Update2¤¤¤14 The Current 2¤7Pest Control2¤14 World has been changed to $+($chr(91),$c1,$chr(2)  $+ $2 $+ $chr(2),$c2,$chr(93)) by [7 $+ $nick $+ 14]2¤¤¤
  }
}
alias pcw {
echo -a The Current ¤7Pest Control2¤ World is:3 %pcww.  set by3 %nick. $nick  $duration($calc($ctime - $($+(%,pcw.time,$chan),2))) ago. Command used3 %pctimes  times.
}

on $*:TEXT:/^[!](pcw|world)/Si:#pc: { 
  inc %pctimes 1
  var %display = $iif($left($1,1) == @, msg $Chan, notice $nick) 
  if (%pcw. [ $+ [ $chan ] ] == on) {
    %display The Current ¤7Pest Control2¤ World is:3 %pcww.  set by3 %nick. $nick  $duration($calc($ctime - $($+(%,pcw.time,$chan),2))) ago. Command used3 %pctimes  times.
  } 
}