Mine

alias color1 { return $+($chr(3),04,$1-) } 
on $*:Text:/!(setnotice|changenotice)/Si:#cor:{ 
  if ($nick isop $chan || $nick ishop $chan ) { 
    set %noticeinfo $2- 
    set %noticenick $nick 
    set %noticetime $fulldate
  } 
} 
on $*:TEXT:/!(notice|corinfo)/Si:#cor:{ 
  inc %counter 
  if ( $nick isvoice $chan || $nick ishop $chan || $nick isop $chan ) { 
    notice $nick The current notice info is $color1(%noticeinfo) set by $color1(%noticenick) at $color1(%noticetime EST) this command has been used $color1(%counter) times.
  }
}
on $*:TEXT:/@(notice|corinfo)/Si:#cor:{
  inc %counter
  if ( $nick ishop $chan ) {
    var %f = 1 
    while (%f <= $nick($chan,0)) { 
      if ($nick($chan,%f) isvoice $chan) { 
        notice $nick($chan,%f) The current notice info is $color1(%noticeinfo) set by $color1(%noticenick) at $color1(%noticetime EST) this command has been used $color1(%counter) times.
        inc %f 
      } 
      else inc %f 
    } 
  }
}