Adds colours based on status in channel, and adds caps + "uncaps" and a . at the end if it doesent have one :D, aswell as bold/underline if you want.
Just though i'd post :3

/All [On|Off] = Bold, Underline && Colour.
/Bolded [On|Off] = Bolded.
/ULine [On|Off] = UnderLined.
/Colour [On|Off] = Colourised.

Teal = Half[Help]-Op.
Red = Op.
Blue = Voice..
Grey = Regular.

on *:Input:*: {
  if ($Chan && !$Regex($1-,^[\/.@!+-](.*)) && !$InPaste && !$Regex($Chan(#).mode,c) && !$CtrlEnter) {
    HaltDef
    if ($me isop $Chan) { Say $+($iif(%UnderLine,$chr(31)),$iif(%Bold,$chr(2)),$iif(%Colour,$+($chr(3),04)),$upper($left($1,1)),$lower($right($1,-1)) $lower($2-),$iif($Right($1-,1) != .,.),$chr(15)) | halt }
    if ($me ishop $Chan) { Say $+($iif(%UnderLine,$chr(31)),$iif(%Bold,$chr(2)),$iif(%Colour,$+($chr(3),10)),$upper($left($1,1)),$lower($right($1,-1)) $lower($2-),$iif($Right($1-,1) != .,.),$chr(15)) | Halt }
    if ($me isvoice $chan) { Say $+($iif(%UnderLine,$chr(31)),$iif(%Bold,$chr(2)),$iif(%Colour,$+($chr(3),12)),$upper($left($1,1)),$lower($right($1,-1)) $lower($2-),$iif($Right($1-,1) != .,.),$chr(15)) | Halt }
    if ($Me isreg $Chan) { Say $+($iif(%UnderLine,$chr(31)),$iif(%Bold,$chr(2)),$iif(%Colour,$+($chr(3),14)),$upper($left($1,1)),$lower($right($1,-1)) $lower($2-),$iif($Right($1-,1) != .,.),$chr(15)) | Halt }
  }
}
alias h { return $+($chr(3),12,$chr(2),$chr(2),$1-,$chr(3),$chr(2),$chr(2),$chr(15)) }
alias hh { return $+($chr(3),14,$chr(2),$chr(2),$1-,$chr(3),$chr(2),$chr(2),$chr(15)) }
alias uline { 
  $iif($1 == on, Set %UnderLine On, Unset %UnderLine)
  $iif($1 == on, Echo -a $hh(UnderLine:) $h(On.), Echo -a $hh(UnderLine:) $h(Off.))
  Echo -a $hh(C:) $iif(%Colour,$h(On.),$hh(Off.)) $hh(B:) $iif(%Bold,$h(On.),$h(Off.)) $hh(U:) $iif(%UnderLine,$h(On.),$h(Off.))

}
alias bolded { 
  $iif($1 == on, Set %Bold On, Unset %Bold)
  $iif($1 == on, Echo -a $hh(Bold:) $h(On.), Echo -a $hh(Bold:) $h(Off.))
  Echo -a $hh(C:) $iif(%Colour,$h(On.),$hh(Off.)) $hh(B:) $iif(%Bold,$h(On.),$h(Off.)) $hh(U:) $iif(%UnderLine,$h(On.),$h(Off.))

}
alias colour { 
  $iif($1 == on, Set %Colour On, Unset %Colour)
  $iif($1 == on, Echo -a $hh(Colour:) $h(On.), Echo -a $hh(Colour:) Off.)
  Echo -a $hh(C:) $iif(%Colour,$h(On.),$hh(Off.)) $hh(B:) $iif(%Bold,$h(On.),$h(Off.)) $hh(U:) $iif(%UnderLine,$h(On.),$h(Off.))
}
Alias All {
  $iif($1 == on, Set %Bold On, Unset %Bold)
  $iif($1 == on, Set %UnderLine On, Unset %UnderLine)
  $iif($1 == on, Set %Colour On, Unset %Colour)
  $iif($1 == on, Echo -a $hh(Underline, Bold, And Colour:) $h(On.), Echo -a $hh(Underline, Bold, And Colour:) Off.)
  Echo -a $hh(C:) $iif(%Colour,$h(On.),$hh(Off.)) $hh(B:) $iif(%Bold,$h(On.),$h(Off.)) $hh(U:) $iif(%UnderLine,$h(On.),$h(Off.))
}