MENU * {
  .İstenmeyen Kullanıcı İşlemleri : /dialog -m Engel Engel 
}
dialog Engel {
  title "ENGEL MENÜSÜ"
  size -1 -1 202 229
  option dbu
  text "İSTENMEYEN KULLANICI İŞLEMLERİ MENÜSÜ", 1, 32 2 125 12, center
  box "KANAL IGNORE", 2, 17 16 155 57
  text "KANALDA YAZDIKLARINI GÖRME", 3, 32 22 126 11, center
  edit "", 4, 57 42 77 12
  button "EKLE", 5, 57 57 37 12
  button "SİL", 6, 98 57 37 12
  box "OZEL ENGEL", 7, 17 77 155 54
  text "OZELDEN YAZMASINI ENGELLE", 8, 40 84 115 15, center
  edit "", 9, 52 101 83 12
  button "EKLE", 10, 53 114 37 12
  button "SİL", 11, 97 114 37 12
  box "KİŞİSEL BAN LİSTESİ", 12, 17 135 155 57
  text "BULUNDUĞUM KANALLARA GİRİŞ YAPAMASIN", 13, 49 142 97 15, center
  edit "", 14, 54 160 84 12
  button "EKLE", 15, 54 175 37 12
  button "SİL", 16, 99 175 37 12
  box "", 17, 44 215 115 31
  text "Kullanıcı İşlemleri Addonu ßy ßozkurt", 18, 54 218 89 11, center
}
on 1:dialog:Engel:*:*: {
  if ($devent == init) {
    did -a Engel 17 $null
  }
  if ($devent == sclick) {
    if ($did == 5 ) { /write ignore.txt $did(4) | /echo -a 0,4 $did(4) 0,1 Nickinin Kanalda Yazdıklarını Artık Görmeyeceksiniz. | /Notice $did(4) 0,1 Artık kanalda yazdıklarını görmeyeceğim. | /ignore -c $did(4) }
  }
  if ($devent == sclick) {
    if ($did == 6 ) { /write $+(,-dl,$did(4),) ignore.txt  | /echo -a 0,4 $did(4) 0,1 Nickinin Kanalda Yazdıklarını Artık Görebileceksiniz.. | /ignore -r $did(4) }
  }
  if ($devent == sclick) {
    if ($did == 10 ) { /write ozelengel.txt $did(9) | /echo -a 0,4 $did(9) 0,1 Nicki Artık Özelinize Yazamayacak.. | /Notice $did(9) 0,1 Özelime Yazmanızı Engelledim.Artık Nick Değiştirseniz de Yazdıklarınızı Görmeyeceğim.. }
  }
  if ($devent == sclick) {
    if ($did == 11 ) { /write $+(,-dl,$did(9),) ozelengel.txt  | /echo -a 0,4 $did(9) 0,1 Nicki Artık Özelinize Yazabilecek...  }
  } 
  if ($devent == sclick) {
    if ($did == 15 ) { /write ban.txt $did(14) | /echo -a 0,4 $did(14) 0,1 Nicki Artık Kişisel Ban Listenizde.Bulunduğunuz Kanallara Giremez... | /Notice $did(14) 0,1 Kişisel Ban Listeme Eklendiniz..Artık Nick Değiştirseniz de Bulunduğum Kanallara Giremezsiniz.. }
  }
  if ($devent == sclick) {
    if ($did == 16 ) { /write $+(,-dl,$did(14),) ban.txt  | /echo -a 0,4 $did(14) 0,1 Nickini Kişisel Ban Listenizden Sildiniz.Artık Kanallarınıza Giriş Yapabilir.  }
  }     
}
on *:join:#: { 
  if ($read(ban.txt,w,$nick)) {
    if (!$window(@KişiselBAN)) { window -en @KişiselBAN } | echo -t @KişiselBAN 0,1 Kişisel Ban Listesindeki 1,4 $nick 1,2 $chan 0,1Kanalından Uzaklaştırıldı.
    mode # +b $nick | kick # $nick 4,1 Kişisel Ban Listemdesiniz.
  } 
}
on 1:nick: { if $read(ban.txt,w,$nick) { echo -a Ban listesindeki $nick  $newnick nickini aldığı için ban listesine eklendi. | write ban.txt $newnick  | mode # +b $newnick | kick # $newnick 4,1Nick değiştirip kanalıma girmeye çalıştığınızı tespit ettim.  } }
on 2:nick:{ if $read(ignore.txt,w,$+(*,$nick,*)) { echo -a İgnore listesindeki $nick $newnick nickini aldığı için ignore listesine eklendi. | .write ignore.txt $newnick | .ignore -cp $newnick | msg $newnick 4,1 $newnick yeni nick alarak ignoreden kurtulamazsın. İgnore listeme eklendiniz.Artık yazdıklarınızı görmeyeceğim. | .closemsg $newnick } }
on *:open:?: { 
  if ($read(ozelengel.txt,w,$nick)) {
    if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Engel)) { window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Engel } | echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Engel 0,1 Özel Engel Listenizdeki $nick Size yazmaya çalıştı. Fakat Özel Penceresi otomatik olarak kapatıldı.
    msg $nick Özel engel listemdesin özel penceren otomatik olarak kapatıldı.
    closemsg $nick
  } 
}
on 3:nick: { if $read(ozelengel.txt,w,$nick) { echo -a Ozel engel listesindeki  $nick  $newnick nickini aldığı için yeni nicki engel listesine eklendi. | write ozelengel.txt $newnick  | closemsg $newnick  } }