on 1:text:* lan *:#:{ 
  if ($me isop $chan) {
    if ($nick isop $chan) { halt }
    if ($nick == $me) { halt }
    /msg $chan 0,1 UYARI :4,0 $nick 1,0 Lütfen argo terimler kullanmayiniz. Aksi takdirde atilacaksiniz!
  }
}

on 1:text:* lam *:#:{ 
  if ($me isop $chan) {
    if ($nick isop $chan) { halt }
    if ($nick == $me) { halt }
    /msg $chan 0,1 UYARI :4,0 $nick 1,0 Lütfen argo terimler kullanmayiniz. Aksi takdirde atilacaksiniz!
  }
}

on 1:text:* ulan *:#:{ 
  if ($me isop $chan) {
    if ($nick isop $chan) { halt }
    if ($nick == $me) { halt }
    /msg $chan 0,1 UYARI :4,0 $nick 1,0 Lütfen argo terimler kullanmayiniz. Aksi takdirde atilacaksiniz!

  }
}
on @*:text:*:#: {
  if $nick isop # || $read(oper.txt,w,$nick) || $read(admin.txt,w,$nick) || $read(root.txt,w,$nick)  { halt }
  if ($nick isvo $chan) { halt }
  if ($chan == #yönetim) { halt }
  if ($chan == #dj) { halt }
  if ($chan == #istek) { halt }
  if ($chan == #operhelp) { halt }
  if ($chan == #help) { halt }
  if ($chan == #35+) { halt }
  if ($chan == #radyo) { halt }
  if $regex($1-,/([[:print:]])\1\1/gi) >= 4 {
    hinc -mu20 uzunharf $+($chan,.,$nick) 1
    if $hget(uzunharf,$+($chan,.,$nick)) == 1 {
      .msg # 4 $nick 2 $chan 5Kanalında Lütfen Harfleri Uzatmadan Yazınız...
    }
    if $hget(uzunharf,$+($chan,.,$nick)) == 2 {
      .ban # $nick 5
      .kick # $nick 2 $chan 5Kanalında Lütfen Harfleri Uzatmadan Yazmaniz Konusunda Uyarıyı Dikkate Almadiniz..
      .hdel -s uzunharf $+($chan,.,$nick))
    }
  }
}