on *:text:*:#: {
if ($nick !isop $chan) || ($nick !ishop $chan) || ($chan != #oyun) {
var %i $lines(argo.txt)
while (0 < %i) {
if ($read(argo.txt,%i) iswm $strip($1-)) {
if ($istok(%unickler,$nick,32)) == $false {
.set %unickler $addtok(%unickler,$nick,32)
.timer 1 180 $remtok(%unickler,$nick,32)
echo -a 0,4 Uyarı :12 $nick # 12kanalında argo kelime kullandı kullandıgı kelime: $+ $ifmatch
msg # Uyarı: $nick ; Lütfen kanal genelinde konuşmalarınıza dikkat edin... Aksi halde kanala banlanacaksınız... !
} else {
samode # +b $wildsite
set %unickler $remtok(%unickler,$nick,32)
}
}
dec %i
}
}
}
on *:connect: {
unset %unickler
}
on *:disconnect: {
unset %unickler
}

alias ayikla {
  var %i 1 , %r
  while %i <= $len($1-) {
    %f = $mid($1-,%i,1)
    if %f != $right(%r,1) {
      %r = $+(%r,$mid($1-,%i,1))
    }
    inc %i
  }
  return %r
}
on *:text:*:#: {
  if $nick isreg # {
    inc -u60 %t. [ $+ [ $+($nick,#,$ayikla($strip($1-))) ] ] 1
    if %t. [ $+ [ $+($nick,#,$ayikla($strip($1-))) ] ] == 3 {
      kick # $nick tekrar korumasi
    }
  }
}