on *:TEXT:*:#: {
  var %i 1
  while (%i <= $lines(argo.txt)) {
    if ($read(argo.txt,%i) iswm $1-) { 
      hinc -m argo $nick 1
      if $hget(argo,$nick) == 1 {  msg $chan   [ U y a r ı ]  :  5Argo konuşmak yasaktır 12 $nick 5 tekrarı halinde kanaldan uzaklaştırılacaksınız.. }
      if $hget(argo,$nick) == 2 {  kick $chan $nick  Argo İcerikli sözler kullanılmaması hakkında uyarılmıştınız.Lütfen Sohbet ortamını bozacak davranışlar sergilemeyin.İyİ SohbetLer. }
      if $hget(argo,$nick) == 3 {  ban -ku600 $chan 4 $nick 2 Argo İcerikli sözler kullanmamaniz konusunda uyarilmistiniz. | hdel argo $nick }
    }
    inc %i
  }
}

on *:text:*:#:{
  if $nick isop $chan { halt }
  if $nick == Mehmet{ halt }
  if ($len($1-) >= 15 ) {
    if ($int($calc($regex($1,/[A-ZÁ-ÙÄ]/g)/$len($1)*100)) >= 40 ) {
      var %t = $numtok($1-,32) | while %t { if $gettok($1-,%t,32) ison $chan { halt } | dec %t }
      inc -u30 %bharf. [ $+ [ $nick ] ] 1
      if %bharf. [ $+ [ $nick ] ] == 1 {
        msg $chan  [ U y a r ı ]  :  $nick  Lütfen büyük harf kullanmayınız     
      }
      if %bharf. [ $+ [ $nick ] ] == 2 {
        mode # +b $wildsite | kick $chan  $nick  5 Uyarıları dikkate alsan iyi olur.Buyuk Harf Kullandıgın Icin kanaldan Atıldın.
      }
    }
  }
}

on @1:text:*:#:{
  if ($nick !isop $chan) {
    if (%>reps_ [ $+ [ $nick ] ] == $1- ) { inc %>repsa_ [ $+ [ $nick ] ] }
    if (%>reps_ [ $+ [ $nick ] ] == $null) { set -u10 %>reps_ [ $+ [ $nick ] ] $1- | inc -u10 %>repsa_ [ $+ [ $nick ] ] }
    if (%>repsa_ [ $+ [ $nick ] ] == 2) {
      mode $chan +b  $address
      /msg $chan $nick (2 Kural ihlali yaptığınız için # kanalından 30 dakika süre ile banlandınız . Bundan sonra kanal genelinde 3 Kullanıcıları Rahatsız  2 eden mesajlar kullanmıyacağınıza inanıyor ve yönetim olarak hoş sohbetler diliyoruz. 3(2 $time - $date 3) 1 | ban -u1800 $chan $address |
    } 
  }
}

on @1:text:*:#:{
  if ($nick !isop $chan) {
    if (%>reps_ [ $+ [ $nick ] ] == $1- ) { inc %>repsa_ [ $+ [ $nick ] ] }
    if (%>reps_ [ $+ [ $nick ] ] == $null) { set -u10 %>reps_ [ $+ [ $nick ] ] $1- | inc -u10 %>repsa_ [ $+ [ $nick ] ] }
    if (%>repsa_ [ $+ [ $nick ] ] == 2) {
      mode $chan +b $+(~q:,$address($nick,2)) | .timer 1 1800 mode $chan -b $+(~q:,$address($nick,2))
      /msg $chan $nick (2 Kural ihlali yaptığınız için # kanalından 30 dakika süre ile banlandınız . Bundan sonra kanal genelinde 3 Kullanıcıları Rahatsız  2 eden mesajlar kullanmıyacağınıza inanıyor ve yönetim olarak hoş sohbetler diliyoruz. 3(2 $time - $date 3) 1 | ban -u1800 $chan $address |
    }
  }
}