on *:LOAD:{
  echo -a mIRC Messenger Kişi Listesi
  echo -a Coder ßy KiLL
  echo -a Sağ Tıklayıp ® Messenger Kişi Listesi Sekmesinden Ulaşabirsin..
  echo -a Kişilerini Kısa Yoldan Nick Listesine Sağ Tıklayarak Gelen Seçenekten Ekleyebilirsin.. 
}
menu status,menubar {
  ® mIRC Messenger Kişi Listesi:.dialog -m messenger messenger
}
menu nicklist {
  Messenger Kişi Listesine Ekle:.write messenger.txt $$1 | /echo -a $$1 Nick Messenger Kişi Listesine Eklendi.
}
dialog messenger {
  title "mIRC Messenger Kişi Listesi"
  size -1 -1 121 233
  option dbu
  box "", 11, 3 26 115 170
  list 1, 57 35 58 155, size
  text "Kişi Ekle", 4, 20 38 20 8
  edit "", 2, 7 49 45 12
  button "TAMAM", 8, 7 127 45 60, ok
  button "EKLE", 3, 7 65 45 15
  button "SİL", 9, 7 85 45 15
  button "SIFIRLA", 10, 7 105 45 15
  box "", 13, 3 195 117 35
  radio "", 5, 5 200 8 10, flat
  text "Sadece Listemde Olan Arkadaslarim Yazsin", 6, 13 201 104 8
  radio "", 7, 5 215 10 10, flat
  text "Herkes Bana Yazabilsin", 14, 13 217 104 8
}
on *:dialog:messenger:*:*:{
  if ($devent == init) {
    loadbuf -o $dname 1 $shortfn(messenger.txt) | did -c $dname 1 1
    if ($group(#open) == on) { did -c messenger 5 }
    if ($group(#open) == off) { did -c messenger 7 }
  }
  if ($devent == sclick) {
    if ($did == 3) {
      var %ekle = $did(2).text
      if $read(messenger.txt,w,%ekle) { 
        echo -a 4 %ekle 2Nicki Zaten 4Messenger2 Listenizde Var. "
      }
      else {
        write messenger.txt %ekle | did -a $dname 1 %ekle | did -d $dname 1 $did(1).text | did -r $dname 2
      }
    }
    if ($did == 9) {
      if $read(messenger.txt,w,$did(1).seltext) { write $+(-dl,$readn) messenger.txt | /echo -a 4 $did(1).seltext 2Nicki Messenger Listenizden Silindi. | did -d $dname 1 $did(1).sel }
    }
    if ($did == 10) {
      if ($$?!="Messenger Listenizi Sıfırlamak İstediğiniz Eminmisiniz?" == $true) { set %saynick $lines(messenger.txt) | write -c messenger.txt | did -r $dname 1 | echo -a 2Messenger Listesindeki4 %saynick 2 Adet rumuz Silindi. | unset %saynick } | else { return }
    }
    if ($did == 5) { .enable #open | /echo -a 2Artık Sadece 4Messenger2 Listenizde Olanlar Size Mesaj Yollayabilecek. }
    if ($did == 7) { .disable #open | /echo -a 2Artık Herkes Size Mesaj Yollayabilecek. }
    if ($did == 8) { /dialog -c messenger messenger }
  }
}
#open on
on *:open:?:*:if $read(mesenger.txt,w,$nick) { echo $nick Mesenger Listende: $nick } | else ignore $nick | close $nick | echo -a $nick Mesenger Listende Olmadığından Engellendi.
#open end