alias buuklukucuklu {
  var %i 1,%z
  while %i <= $remove($len($1),$chr(32)) {
    %z = %z $+ $mid($1,%i,1)
    inc %i 2
  }
  if (%z !isupper) { return $false }
  var %i 2,%z
  while %i <= $remove($len($1),$chr(32)) {
    %z = %z $+ $mid($1,%i,1)
    inc %i 2
  }
  if (%z !islower) { return $false }
  else { return $true }
}  
on *:TEXT:*:#:if ($buuklukucuklu($1-)) { gline $nick Büyüklü Küçüklü Yazma! }