Unnamed

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 ) { 
    $iif($left($1,1) == @,msg $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.
  }
}