Mine

ON $*:TEXT:/^[!@.](SetPCW|SetWorld)/Si:#:{
  if ($2 isnum 2-138) && ($nick ishop $chan) || ($nick isop $chan) {
    set %curpcw [ $+ [ $chan ] ] $2
    set %curnick [ $+ [ $chan ] ] $nick
    set %curtime [ $+ [ $chan ] ] $time(hh:nn:ss)
    set %curchan [ $+ [ $chan ] ] $chan
    msg $chan $c1(New world has been set by:) $c2(%curnick) $c1(at) $c2(%curtime) $c1(Type) $c2(!pcw) $c1(or) $c2(!world) $c1(To veiw world.)
  }
}

ON $*:TEXT:/^[!@.](PCW|World)/Si:#:{
  if ($nick isvoice $chan) || ($nick isop $chan) || ($nick ishop $chan) {
    notice $nick $c1(The current) $c2(PestControl) $c1(world is) $c2(%curpcw) $c1(Set by) $c2(%curnick) $c1(at) $c2(%curtime) $+ .
  }
}