Miscellany

alias color1 { return $+($chr(3),04,$1-) } 
alias color2 { return $+($chr(3),01,$1-) } 
on $*:Text:/!(setnotice|changenotice)/Si:*:{ 
  if ($nick isop #cor) { 
    set %noticeinfo $2- 
    set %noticenick $nick 
    set %noticetime $fulldate
    msg #cor $color2(Notice Board Updated!), $color1(Type !notice to View it.)
    notice $nick $color2(Your notice of) $color1($2-) $color1(Has Successfully been written at) $color2($fulldate EST.)
  } 
} 
on $*:TEXT:/!(notice|corinfo)/Si:#cor:{ 
  inc %counter 
  if ($nick isvoice $chan || $nick ishop $chan || $nick isop $chan) { 
    notice $nick $color2(The current notice info is) $color1(%noticeinfo) $color2(set by) $color1(%noticenick) $color2(at) $color1(%noticetime EST) $color2(this command has been used) $color1(%counter) $color2(times.)
  }
}