dialog baglan {
  title "Bağlantı Menüsü"
  size -1 -1 170 90
  option dbu
  edit "", 25, 117 11 50 10, pass autohs
  edit "", 2, 117 24 50 10, pass autohs
  edit "", 4, 117 36 50 10, pass autohs
  edit "", 5, 30 11 50 10, autohs
  edit "", 6, 30 24 50 10, autohs
  edit "", 7, 30 36 50 10, autohs
  button "Sifreli Porttan Baglan", 9, 0 76 66 12
  box "Baglanti Ayarlari", 12, 1 1 82 62
  text "Nick Pass", 13, 90 12 26 8
  text "Text Label", 14, 95 35 25 0
  text "Oper Pass", 15, 90 25 27 8
  box "Sifre Ayarlari", 3, 87 1 82 62
  text "Nickname", 16, 5 12 24 8
  text "Fullname", 17, 5 25 24 8
  text "Identd", 18, 5 37 24 8
  text "Su Pass", 19, 90 37 25 8
  button "Normal Porttan Baglan", 8, 104 76 66 12
  edit "", 20, 30 48 50 10, autohs
  text "Sifreli Port", 21, 5 47 21 14
  text "Port Pass", 22, 90 49 25 8
  edit "", 23, 117 48 50 10, pass autohs
  check "Oto Sifreli Baglan", 10, 2 64 56 10
  check "Oto Normal Baglan", 11, 112 65 56 10
}
on *:dialog:baglan:*:*: {
  if $devent == sclick { 
    if $did == 9 { set %nickname $did(5) | set %fullname $did(6) | set %identd $did(7) | set %port $did(20) | set %nickpass $did(25) | set %operpass $did(2) | set %supass $did(4) | set %portpass $did(23) | /nick %nickname | /fullname %fullname | /emailaddr %identd | server %serveraddress $+ : $+ %port %portpass }
    if $did == 8 { set %nickname $did(5) | set %fullname $did(6) | set %identd $did(7) | set %port $did(20) | set %nickpass $did(25) | set %operpass $did(2) | set %supass $did(4) | set %portpass $did(23) | /nick %nickname | /fullname %fullname | /emailaddr %identd | server %serveraddress } 
    if $did(10).state == 1 { set %sk on } 
    if $did(11).state == 1 { set %sn on } 
    if $did(10).state == 0 { unset %sk } 
    if $did(11).state == 0 { unset %sn } 
  }
  if $devent == init { 
    mdx MarkDialog $dname
    ;mdx SetDialog $dname bgcolor $rgb(255,255,255)
    mdx SetFont $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,25 +b Turkish 12 600 Arial
    ;mdx SetColor $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,25 textbg $rgb(255,255,255)
    ;mdx SetColor $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,25 background $rgb(255,255,255)
    ;mdx SetColor $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,25 text $rgb(0000) 
    mdx SetDialog $dname style title tool sysmenu
    did -a $dname 5 $me
    if %sk == on { did -c $dname 10 } 
    if %sn == on { did -c $dname 11 }
    did -a $dname 6 %fullname | did -a $dname 7 %identd | did -a $dname 20 %port | did -a $dname 25 %nickpass | did -a $dname 2 %operpass | did -a $dname 4 %supass | did -a $dname 23 %portpass
  }
  if $devent == close { 
    set %fullname $did(6) | set %identd $did(7) | set %port $did(20) | set %nickpass $did(25) | set %operpass $did(2) | set %supass $did(4) | set %portpass $did(23)
  }
}
on *:connect: {
  update.toolbar
  .timer 1 5 /debug -i on test
  if $dialog(bagLan) { .timer 1 1 dialog -x bagLan bagLan } 
  if %nickpass != $null { .timer 1 15 /ns identify %nickpass }
  if %operpass != $null { .timer 1 25 /oper %opernick %operpass }
  if %supass != $null { .timer 1 40 /os su %supass } 
}

dialog baglan {
  title "Bağlantı Menüsü"
  size -1 -1 261 153
  option dbu
  edit "", 25, 179 17 70 15, pass autohs
  edit "", 2, 179 37 70 15, pass autohs
  edit "", 4, 179 58 70 15, pass autohs
  edit "", 5, 42 17 78 15, autohs
  edit "", 6, 42 39 78 15, autohs
  edit "", 7, 42 59 78 15, autohs
  box "BAĞLANTI AYARLARI", 12, 6 6 124 140
  text "Nick Şifresi", 13, 148 21 26 8
  text "Text Label", 14, 95 35 25 0
  text "Oper Şifresi", 15, 148 40 30 8
  text "Nick", 16, 14 20 24 8
  text "Fullname", 17, 14 42 23 8
  text "Identd", 18, 14 63 24 8
  text "Su Pass", 19, 148 62 25 8
  button "BAĞLANTI KUR", 8, 142 119 114 27
  edit "", 20, 46 111 38 11, autohs
  text "Port ve Şifre", 21, 11 112 30 9
  check "Oper Şifresini Gir", 10, 202 83 53 10, group flat
  check "Nick Şifresini Gir", 11, 147 83 53 10, group flat
  list 1, 10 91 116 14, size vsbar
  box "ŞİFRE AYARLARI", 9, 140 6 118 107
  text "Sunucu Bilgileri - (Sunucu bilgilerini hatırlar)", 3, 10 81 115 8
  check "Yeni Pencerede Bağlan", 24, 60 130 65 10, group flat
  check "Bilgileri Hatırla", 26, 11 130 47 10, group flat
  check "Supass Gir", 27, 202 96 38 10, group flat
  edit "", 22, 87 111 38 11, autohs
  text "Bağlantı Koparsa Tüm Şifreleri Tekrar Girer..", 23, 144 95 54 14
}