on *:text:*:#: { 
  if !$istok(Nick1 Nick2 Nick3 Nick4,$nick,32) { 
    if $regex($1-,/([[:print:]])11/gi) >= 8 {  
   hinc -mu uzat $+($nick,.,$chan) 1
    if $hget(uzat,$+($nick,.,$chan)) == 1 { msg $chan uyari sözcükleri uzatmayiniz }
    if $hget(uzat,$+($nick,.,$chan)) == 2 { samode $chan +b $nick }
    }  
  } 
}

alias capsban { /samode # +b $$1 } 

#caps on 
on *:TEXT:*:#: { 
  if ($nick ison #myops) { halt } 
  if ($nick ison #mynet) { halt } 
  if ($chan == #yardim) { halt } 
  if ($chan == #kanal) { halt } 
  if ($chan == #admin) { halt } 
  if ($len($1-) < 30) || ($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) { 
    hinc -mu caps $+($nick,.,$chan) 1
    if $hget(caps,$+($nick,.,$chan)) == 1 { msg $chan uyari vs.. }
    if $hget(caps,$+($nick,.,$chan)) == 2 { capsban $nick  }
    unset %CAPS. $+ $nick  
  } 
} 

#caps end