; By DAVEOH from Hawkee
on *:TEXT:*:#:{
  if ($regex($1-,/^[^a-zA-Z]*[A-Z]/)) { echo -agt First word begins with a capital letter. }
  else { echo -agt First word does NOT begind with a capital letter. }
  if ($regex($1-,/(\b[^ ]+\b)(?:\.+?|!+?|\?+?) ?([a-zA-Z])/g)) {
    if ($regml(0)) {
      var %1 = 1,%2 = 2
      while (%2 <= $regml(0)) {
        if ($regml(%2) === $upper($regml(%2))) { echo -agt First letter after word $qt($regml(%1)) is uppercase. }
        else { echo -agt First letter after word $qt($regml(%1)) is MISSING a capital letter. }
        inc %1 2 | inc %2 2
      }
      echo -ag $str(-,30)
    }
  }
}