dialog Mess {
  title "                                Messenger"
  size -1 -1 187 166
  option dbu
  list 1, 130 14 52 93, size
  edit "", 2, 68 23 50 10
  text "Kişi Ekle", 4, 79 12 31 8
  radio "Sadece Msn Listemdekiler mesaj yollaya bilsin", 5, 2 127 183 10
  radio "Herkes Mesaj Yollayabilsin", 7, 2 140 184 10
  list 11, 63 153 50 8, size
  list 3, 57 41 32 8, size
  list 6, 3 14 52 93, size
  text "Bay", 8, 18 4 17 8
  text "Bayan", 9, 148 4 22 8
  list 10, 92 40 35 8, size
  list 13, 57 67 32 8, size
  list 14, 94 67 32 8, size
  list 16, 3 111 51 8, size
  list 17, 131 111 51 8, size
  text "Kişi Sil", 12, 80 55 33 8
}
on *:dialog:mess:init:*:{
  dll $mdx SetMircVersion $version
  dll $mdx MarkDialog $dname
  dll $mdx SetColor $dname 6 background $rgb(9,1,1)
  dll $mdx SetColor $dname 1 background $rgb(200,1,200)
  dll $mdx SetColor $dname 1,6 textbg $rgb(9,1,1)
  dll $mdx SetColor $dname 1 textbg $rgb(200,1,200)
  dll $mdx SetColor $dname 1,6  text $rgb(255,252,252)
  dll $mdx SetColor $dname 2  text $rgb(2,2,2)
  dll $mdx SetColor $dname 2 textbg $rgb(206,215,186)
  dll $mdx SetColor $dname 2 background $rgb(206,215,186)
  dll $mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,16,17 +a 13 600 Tahoma
  dll $mdx  SetControlMDX $dname 3,10,11,13,14,16,17 ToolBar flat wrap arrows nodivider list > $bars
  dll $mdx SetBorderStyle $dname 3,10,11,13,14,16,17
  did -i $dname 3 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
  did -i $dname 3 1 bmpsize 17 17 
  did -i $dname 3 1 setimage icon large 0, $+ sistem\Sercan3\msn.ico
  did -a $dname 3 +a 1 $chr(32) Bay $chr(9) $+ Baylistesine kişi ekler
  did -i $dname 10 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
  did -i $dname 10 1 bmpsize 17 17 
  did -i $dname 10 1 setimage icon large 0, $+ sistem\Sercan3\msn.ico
  did -a $dname 10 +a 1 $chr(32) Bayan $chr(9) $+ Bayan listesine Kişi Ekler
  did -i $dname 13 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
  did -i $dname 13 1 bmpsize 17 17 
  did -i $dname 13 1 setimage icon large 0, $+ sistem\Sercan3\engel.ico
  did -a $dname 13 +a 1 $chr(32) Bay $chr(9) $+ Bay listesinden Kişi Siler
  did -i $dname 14 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
  did -i $dname 14 1 bmpsize 17 17 
  did -i $dname 14 1 setimage icon large 0, $+ sistem\Sercan3\engel.ico
  did -a $dname 14 +a 1 $chr(32) Bayan $chr(9) $+ Bayan Listesinden Siler
  did -i $dname 16 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
  did -i $dname 16 1 bmpsize 17 17 
  did -i $dname 16 1 setimage icon large 0, $+ sistem\Sercan3\engel.ico
  did -a $dname 16 +a 1 $chr(32) Listeyi Sil $chr(9) $+ Erkek Listesini temizler
  did -i $dname 17 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
  did -i $dname 17 1 bmpsize 17 17 
  did -i $dname 17 1 setimage icon large 0, $+ sistem\Sercan3\engel.ico
  did -a $dname 17 +a 1 $chr(32) Listeyi Sil $chr(9) $+ Bayan listesini Temizler
  did -i $dname 11 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
  did -i $dname 11 1 bmpsize 17 17 
  did -i $dname 11 1 setimage icon large 0, $+ sistem\Sercan3\Ex.ico
  did -a $dname 11 +a 1 $chr(32) Kapat $chr(9) $+ Kapat
  loadbuf -o $dname 6 sistem\Msn\msnbay.txt | did -c $dname 6 6
  loadbuf -o $dname 1 sistem\Msn\msnbayan.txt | did -c $dname 1 1
}
on *:dialog:mess:Sclick:3: {
  var %ekle1 = $did(2).text
  if $read(sistem\Msn\msnbay.txt,w,%ekle1) { 
    Hata %ekle1 Zaten Kişi Listenizde.
  }
  else {
    EsrardaIsrar
    write sistem\Msn\liste.txt %ekle1
    write sistem\Msn\msnbay.txt %ekle1 
    did -a $dname 6 %ekle1 
    did -d $dname 6 $did(6).text 
    did -r $dname 2 
  }
}
on *:dialog:mess:Sclick:10: {
  var %ekle = $did(2).text
  if $read(sistem\Msn\msnbayan.txt,w,%ekle) { 
    Hata %ekle Zaten Kişi Listenizde.
  }
  else {
    EsrardaIsrar
    write sistem\Msn\liste.txt %ekle
    write sistem\Msn\msnbayan.txt %ekle 
    did -a $dname 1 %ekle 
    did -d $dname 1 $did(1).text 
    did -r $dname 2  
  }
}
on *:dialog:mess:Sclick:14: {
  if $read(sistem\Msn\msnbayan.txt,w,$did(1).seltext) { 
    write $+(-dl,$readn) sistem\Msn\msnbayan.txt
    write $+(-dl,$readn) sistem\Msn\liste.txt 
    /echo -a 4 $did(1).seltext 2Nicki Messenger Listenizden Silindi. 
    did -d $dname 1 $did(1).sel
  }
}
on *:dialog:mess:Sclick:13: {
  if $read(sistem\Msn\msnbay.txt,w,$did(6).seltext) { 
    write $+(-dl,$readn) sistem\Msn\msnbay.txt 
    write $+(-dl,$readn) sistem\Msn\liste.txt 
    /echo -a 4 $did(6).seltext 2Nicki Messenger Listenizden Silindi. 
    did -d $dname 6 $did(6).sel
  }
}
on *:dialog:mess:Sclick:16: {
  if ($$?!="Messenger Listenizi Sıfırlamak İstediğiniz Eminmisiniz?" == $true) {
    set %saynicka $lines(sistem\Msn\msnbay.txt) 
    write -c sistem\Msn\msnbay.txt | did -r $dname 6
    echo -a 2Messenger Listesindeki4 %saynicka 2 Adet rumuz Silindi. 
    unset %saynicka
  } 
  else { 
    return 
  }
}
on *:dialog:mess:Sclick:17: {
  if ($$?!="Messenger Listenizi Sıfırlamak İstediğiniz Eminmisiniz?" == $true) {
    set %saynick $lines(sistem\Msn\msnbayan.txt) 
    write -c sistem\Msn\msnbayan.txt 
    did -r $dname 1 
    echo -a 2Messenger Listesindeki4 %saynick 2 Adet rumuz Silindi. 
    unset %saynick 
  }
  else { 
    return 
  }
}
on *:dialog:mess:Sclick:5,7: {
  if ($did == 5) {
    .enable #open 
    hata Özelinize Sadece mIRCMsn Listenizde Olanlar Yazabilicek.. 
  }
  if ($did == 7) {
    .disable #open 
    hata Artık Herkez Özelinize Gelicek
  }
}
Alias EsrardaIsrar { 
  if  $did(mess,2) == $null { 
    hata Nick Girmediniz.
  }
}

$did($dname,6).seltext

$did($dname,6).sel