on *:join:#sohbet: {
if $read(shunn.txt,w,$+($3,¿,*)) { 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 } 
    if !$2 { msg #takip 2Lütfen parametre belirtiniz.4 !shun at|listele|atma | return }
  }
  if $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
    }
  }
  if $2 == at {
    if !$3 { msg #takip 2Lütfen nick belirtiniz.4 !shun at nick | return }
    if $read(shunn.txt,w,$+($3,¿,*)) { msg #takip 2Eklemeye çalıştığınız nick zaten listede ekli, tekrar ekleyemezsiniz. | return }
    write shunn.txt $+($3,¿,$iif($4 == $null,Belirsiz,$4-))
    msg #takip 4 $+ $3 $+ , 2shun listesine eklenmiştir. 4Sebep:2 $iif($4 == $null,Belirsiz,$4-)
  }
  if $2 == atma {
    if !$3 { msg #takip 2Lütfen nick belirtiniz.4 !shun atma nick | return }
    if !$read(shunn.txt,w,$+($3,¿,*)) { msg #takip 4 $+ $3 $+ , 2listede bulunamadı. | return }
    write -dw $+ $+($3,¿,*) shunn.txt
    msg #takip 4 $+ $3 $+ , 2Shun listesinden silinmiştir.
  }
}