Someone

alias color1 { return $+($chr(3),04,$1-) } 
on $*:Text:/!(setnotice|changenotice)/Si:*:{ 
  if ($nick isop #cor || $nick ishop #cor ) { 
    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.
  }
}