;Tekrar Koruması! 
 
#tekrar on 
on 1:text:*:#:{ 
  if $nick isop $chan { halt } 
  if $nick ison #kanal { halt } 
  if (%>reps_ [ $+ [ $nick ] ] == $1- ) { inc %>repsa_ [ $+ [ $nick ] ] } 
  if (%>reps_ [ $+ [ $nick ] ] == $null)  { set -u10 %>reps_ [ $+ [ $nick ] ] $1- | inc -u10 %>repsa_ [ $+ [ $nick ] ] } 
  if (%>repsa_ [ $+ [ $nick ] ] == 3) { 
    samode $chan +b $nick 
    unset %*_ [ $+ [ $nick ] ] |  
  } 
} 
#tekrar end 
 
 
----------------------------------------------- 

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) { 
    capsban $nick  
    unset %CAPS. $+ $nick  
  } 
} 
 
#caps end 

on *:text:*:#: { 
  if !$istok(Nick1 Nick2 Nick3 Nick4,$nick,32) { 
    if $regex($1-,/([[:print:]])11/gi) >= 8 {  
    samode # +b $nick   }  
  } 
}