#uppergreet on

alias -l _c return #channel
alias startwithupper {
  if ( $1 ) {
    return $isupper($left($regsubex($$1,/\W+/g,$null),1))
  }
  else return $false
}


on *:JOIN:#channel:{
  if ( $startwithupper($nick) == $true ) {
    .timer 1 10 /msg $_c greetings Sir/Ma'am
  }
}
#uppergreet end