Anonymous

#capitalize OFF
on *:input:#:{ if ($left($$1,1) != /) { my $$1- | halt } } 
alias my {
  if (!%sentence) { set %sentence $null }
  if ($active == $chan) || ($active == $query) {
    %sentence = $1-
    if ($chr(46) isin $1-) || ($chr(63) isin $1-) || ($chr(33) isin $1-) {
      var %n 1
      while (%n <= $numtok(%sentence,32)) {
        if ($right($gettok(%sentence,%n,32),1) == $chr(46)) || ($right($gettok(%sentence,%n,32),1) == $chr(63)) || ($right($gettok(%sentence,%n,32),1) == $chr(33)) {
          %sentence = $puttok(%sentence,$upper($left($gettok(%sentence,$calc(%n + 1),32),1)) $+ $left($gettok(%sentence,$calc(%n + 1),32),-1),$calc(%n + 1),32)
          msg # %sentence
        }
        inc %n
      }
    }
    else { msg # $upper($left($$1,1)) $+ $lower($right($$1-,-1)) }
  }
}
#capitalize end