;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) { 
    hinc -mu tekrar $+($nick,.,$chan) 1
    if $hget(tekrar,$+($nick,.,$chan)) == 1 { msg $chan uyari vs.. }
    if $hget(tekrar,$+($nick,.,$chan)) == 2 { samode $chan +b $nick }
 unset %*_ [ $+ [ $nick ] ] |  


  } 
} 
#tekrar end