Here is what I came up with with a few little tweaks:
; DO NOT remove or edit this channel INPUT event, incase you use font codes.
on *:INPUT:#: {
if ($Left($1, 1) != /) {
var %Text = $Replacexcs($Regsubex($1-, /^([a-z])|\b(i)\b/g, $Upper(\t)), doesnt, doesn't, couldnt, couldn't, wouldnt, wouldn't, shouldnt, shouldn't, didnt, didn't, isnt, isn't, theyll, they'll, wasnt, wasn't, havent, haven't, dont, don't, thats, that's, cant, can't)
; For font selection
if ($MainSettings(FONT, DONT_USE) == 0) sockwrite -n $C_Sock(#) PRIVMSG # $Web_Font(%Text)
else sockwrite -n $C_Sock(#) PRIVMSG # : $+ %Text
if ($Nick(#, $Nick, ')) echo # $chr(91) $+ $asctime(h:nn tt) $+ $chr(93) [+Q] $+ $Nick $+ : %Text
elseif ($Nick(#, $Nick, .)) echo $chan $chr(91) $+ $asctime(h:nn tt) $+ $chr(93) [+q] $+ $Nick $+ : %Text
elseif ($Nick(#, $Nick, @)) echo $chan $chr(91) $+ $asctime(h:nn tt) $+ $chr(93) [+o] $+ $Nick $+ : %Text
elseif ($Nick(#, $Nick, %)) echo $chan $chr(91) $+ $asctime(h:nn tt) $+ $chr(93) [+h] $+ $Nick $+ : %Text
elseif ($Nick(#, $Nick, +)) echo $chan $chr(91) $+ $asctime(h:nn tt) $+ $chr(93) [+v] $+ $Nick $+ : %Text
else echo $chan $chr(91) $+ $asctime(h:nn tt) $+ $chr(93) $+ $Nick $+ : %Text
haltdef
}
}
on ^*:TEXT:*:#:{
var %Text = $1-
if ($Nick(#, $Nick, ')) echo # $chr(91) $+ $asctime(h:nn tt) $+ $chr(93) [+Q] $+ $Nick $+ : %Text
elseif ($Nick(#, $Nick, .)) echo $chan $chr(91) $+ $asctime(h:nn tt) $+ $chr(93) [+q] $+ $Nick $+ : %Text
elseif ($Nick(#, $Nick, @)) echo $chan $chr(91) $+ $asctime(h:nn tt) $+ $chr(93) [+o] $+ $Nick $+ : %Text
elseif ($Nick(#, $Nick, %)) echo $chan $chr(91) $+ $asctime(h:nn tt) $+ $chr(93) [+h] $+ $Nick $+ : %Text
elseif ($Nick(#, $Nick, +)) $chan echo $chr(91) $+ $asctime(h:nn tt) $+ $chr(93) [+v] $+ $Nick $+ : %Text
else echo $chan $chr(91) $+ $asctime(h:nn tt) $+ $chr(93) $+ $Nick $+ : %Text
halt
}