on !*:join:#sohbet:{

  var %1 = 1 

  while ($read(dosya.txt,%1)) { 

    if ($v1 isin $nick) { 

      inc %_bnick 

      timerlmr 1 3 /msg #opers .shun $nick Tedbir.

      timerlms 1 4 /msg #xxx 4 $date $time 1tarihinde5 $nick 1giriş yaptı ve shun atıldı. 

      break 

    } 

    inc %1 

  } 

}

on *:input:*: {

  if !$istok(#opers #opersohbet,$chan,32) {

    if $regex($1,/^([.!]shun)/Si) {

      if $2 == $null {

        msg #xxx 4HATA: 2Yetersiz ya da eksik kullanım. Lütfen seçenek belirtin; 4!shun ekle|sil|list

      }

      else {

        if $2 == list {

          if $lines(dosya.txt) == 0 {

            msg #xxx 2Shun listesinde kullanıcı bulunamadı.

          }

          else {

            msg #xxx 4Shun listesi sıralanıyor.

            msg #xxx $str(-,20)

            var %1 1

            while %1 <= $lines(dosya.txt) {

              msg $chan %1 - $read(dosya.txt,%1)

              inc %1

            }

          }

        }

        if $2 == ekle {

          if $3 == $null {

            msg #xxx 2Lütfen bir nick seçiniz 4Kullanımı; !shun ekle nick

            .halt

          }

          if $read(dosya.txt,w,$3) {

            msg #xxx 4 $+ $3 $+ , 2zaten listede ekli.

          }

          else {

            write dosya.txt $3

            msg #xxx 4 $+ $3 $+ , 2ceza listesine eklenmiştir.

          }

        }

        if $2 == sil {

          if $3 == $null {

            msg #xxx 2Lütfen bir nick seçiniz 4Kullanımı; !ceza sil nick

            .halt

          }

          if !$read(dosya.txt,w,$3) {

            msg #xxx 4 $+ $3 $+ , 2listede bulunamadı.

          }

          else {

            write -dw $+ $3 dosya.txt

            msg #xxx 4 $+ $3 $+ , 2Shun listesinden silinmiştir.

          }

        }

      }

    }

  }

}