on *:join:#sohbet:{
  if $read(shunn.txt,w,$+($nick,¿*)) {
    msg #takip $nick kanala giriş yaptı ve shun atıldı.
    shun $nick $network tedbir!
  }
}
on *:input:#:{
  if $regex($1,/^[.!]shun/Si) {
    if !$read(master.txt,w,$nick) { msg #takip 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. | return } 
    elseif !$regex($2,/(at|atma|l[ıiİ]stele)/Si) { msg #takip 2Hatalı kullanım:4 !shun at|listele|atma | return }
    elseif $2 == listele {
      if $lines(shunn.txt) <= 0 { msg #takip 2Shun kayiti bulunamadi. | halt }
      msg #takip 2Shun listesi siralaniyor.
      var %massacre 1 | while (%massacre <= $lines(shunn.txt)) {
        msg #takip $+(%massacre,-,$chr(41),) 4Nick:2 $token($read(shunn.txt,%massacre),1,191) 4Sebep:2 $token($read(shunn.txt,%massacre),2,191)
        inc %massacre
      }
    }
    elseif $2 == at {
      if !$3 { msg #takip 2Lütfen nick belirtiniz.4 !shun at nick | return }
      elseif $read(shunn.txt,w,$+($3,¿*)) { msg #takip 2Eklemeye çalıştığınız nick zaten listede ekli, tekrar ekleyemezsiniz. | return }
      else {
        write shunn.txt $+($3,¿,$iif($4 == $null,Belirsiz,$4-))
        msg #takip 4 $+ $3 $+ , 2shun listesine eklenmiştir. 4Sebep:2 $iif($4 == $null,Belirsiz,$4-)
      }
    }
    elseif $2 == atma {
      if !$3 { msg #takip 2Lütfen nick belirtiniz.4 !shun atma nick | return }
      elseif !$read(shunn.txt,w,$+($3,¿*)) { msg #takip 4 $+ $3 $+ , 2listede bulunamadı. | return }
      else {
        write $+(-,dl,$readn) shunn.txt
        msg #takip 4 $+ $3 $+ , 2Shun listesinden silinmiştir.
      }
    }
  }
}