menu status,menubar,channel {
  .-
  .» Uzun Yazi Koruması
  ..Acık:.enable #Longtext | .echo -a 0,10 Uzun Yazi Koruması Açıldı 
  ..Kapalı:.disable #Longtext | .echo -a 10 Uzun Yazi Koruması Kapatıldı 
  .-
}
#longtext on
on @*:TEXT:*:#:{
  set -u1200 %lt. [ $+ [ $address($nick,3) ] ] $calc( %lt. [ $+ [ $address($nick,3) ] ] + 1)
  if (%lt. [ $+ [ $address($nick,3) ] ] == 1) {
    if $me !isop $chan { halt }
    if $nick !isop $chan { halt }
    if (*!*@mirctr.org iswm $fulladdress) { halt }
    if (BAYQUESTION!*@* iswm $nick) { halt }
    if ($len($strip($1-)) > %lenght) {
      mode # +b $Nick | /kick # $Nick 1,9 ~ Uzun Yazı Koruması ~ 9,1 %Lenght 1,9 Harften Fazla Yazamazsınız! 
    }
  }
  if (%lt. [ $+ [ $address($nick,3) ] ] >= 2) {
    if $me !isop $chan { halt }
    if $nick !isop $chan { halt }
    if (*!*@mirctr.org iswm $fulladdress) { halt }
    if (BAYQUESTION!*@* iswm $nick) { halt }
    if ($len($strip($1-)) > %lenght) {
      mode # +b $Nick | /kick # $Nick 1,9 ~ Uzun Yazı Koruması ~ 9,1 %Lenght 1,9  Harften Fazla Yazamazsınız! 
      unset %lt. [ $+ [ $address($nick,3) ] ]
    }
  }
}
#longtext end

alias capsban { if (%ipban == on) { //Ban -u $+ 900 # $nick 2 } | mode # +b $$1 }

#caps on
on @*:TEXT:*:#: {
  if $me !isop $chan { halt } | if $nick isop $chan { halt }
  if ($len($1-) < 50) || ($nick isop #) return
  var %text = $strip($remove($1-,$chr(32)))
  var %non.caps = $len($removecs(%text,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z))
  var %full.line = $len($strip($remove(%text,$chr(32))))
  var %percent = $calc(1 - (%non.caps / %full.line)) 
  if (%percent >= 0.8) {
    /mode $chan +b $address($nick,2) | /kick $chan $nick 7¤ 13CAPS LOCK/OFF2 [14!2] 7¤ ( $+ % $+ $calc(%percent * 100) $+ )
    unset %CAPS. $+ $nick 
  }
}

#caps end