on *:active:*:{
  while ($window($active).type == channel) {  
    while ($editbox($active,1) == $null) { editbox -q1 $active } .
    .timerlen_kontrol -h 0 300 /_len_kontrol $active
  } .
  while ($window($active).type != channel) {
    .timerlen_kontrol off
  } .
}
alias _len_kontrol { 
  while $window($1).type == channel {
  editbox -oq1 $1 Karakter Sayisi: $len($editbox($1)) } .
}