alias f1 /dialog -m bağlan bağlan
dialog Bağlan {
  title "mIRCLan Bağlantı Menüsü"
  size -1 -1 119 205
  option dbu
  text "NickName:", 1, 11 12 25 8
  edit "", 2, 35 10 75 10
  text "Alt.Nick:", 3, 11 25 20 8
  edit "", 4, 35 24 75 10
  box "Oturum Açma Bilgisi", 7, 3 1 115 37
  box "Server Bilgi", 8, 2 73 114 74
  combo 9, 35 82 75 46, size
  text "Server Adi:", 10, 6 83 27 8
  text "E-Mail:", 11, 6 135 16 8
  edit "", 12, 35 132 75 10, read
  button "Seçtiğin Sunucuya Bağlan", 13, 2 149 115 12, flat
  button "mIRCLana Bağlan", 14, 2 163 115 12, flat
  button "Rasgele Bağlan", 15, 2 177 115 12, flat
  link "www.mirclan.net", 16, 39 194 41 8
  text "Web:", 5, 4 50 16 8
  edit "", 6, 20 48 71 10
  button "Bağlan", 18, 39 59 23 10
  button "Bilgi", 19, 92 48 21 10
  box "Web Ayarlari", 20, 2 38 116 34
}
dialog mm-help {
  title "mIRCLan Web Bilgi"
  size -1 -1 337 111
  option pixels
  box "MM-Edition Web Bilgilendirme", 1, 3 4 332 83
  edit "Bağlantı Text Yerine Http:// Kullanmadan Siteyi Yazıp Bağlana Bastıgınızda  İe/Mozilla Hangisi Varsa Açilip Bağlanacaktır.Örnek: www.mirclan.net Yazdıgınızda Direk mIRCLan.Netin Resmi Sitesine Bağlanacaksınız... Hoş Sohbetler!                                                                                                                                                                                                                    ", 2, 7 19 322 62, read multi
  button "Anladım Kapat :D", 3, 119 88 103 19, ok
}



on *:dialog:bağlan:init:0: {
  did -a $dname 2 $readini mirc.ini mirc nick
  did -a $dname 4 $readini mirc.ini mirc anick
  did -a $dname 12 $readini mirc.ini mirc email
  did -a $dname 9 irc.mirclan.net
  did -a $dname 9 irc.mircmerkezi.net
  did -a $dname 9 irc.sohbet-turk.org

}
on *:DIALOG:bağlan:dclick:9: {
  var %mirclan = $did(9).text
  /.server %mirclan
}

on *:DIALOG:bağlan:sclick:13: {
  var %mirclan = $did(9).text
  if ( %mirclan == $null ) { /echo 12MM-Edition 4Uyari:7Lütfen Listeden Önce Bir Sunucu Seçiniz... | halt  }
  else { /dialog -x bağlan bağlan | /.server %mirclan | halt }
}
on *:DIALOG:bağlan:sclick:18: {
  var %mircweb = $did(6).text
  if ( %mircweb == $null ) { /echo 12MM-Edition 4Uyari:7Lütfen Önce Bir Web Sitesi Yazın | halt  }
  else { /dialog -x bağlan bağlan | //.run http:// $+ %mircweb | halt }
}
On *:DIALOG:bağlan:*:* {
  if ($devent == sclick) {
    if ($did == 14 ) { .nick $did(2) | .anick $did(4) | /dialog -x bağlan bağlan | server irc.mirclan.net 6667 }
    if ($did == 15 ) { .nick $did(2) | .anick $did(4) | /dialog -x bağlan bağlan | server irc.sohbet-turk.org 6667 }
    if ($did == 16 ) { /run http://www.mirclan.net }
    if ($did == 19 ) { dialog -m mm-help mm-help }
  }

}