dialog baglantı {
  title "Bağlantı Menüsü"
  size -1 -1 158 128
  option dbu
  icon 1, 2 1 153 25
  text "Nickiniz", 2, 13 35 25 8
  edit "", 3, 55 34 61 10
  text "Şifreniz", 4, 13 51 25 8
  edit "", 5, 55 49 61 10, pass return autohs autovs
  button "ZURNA", 6, 8 67 37 12
  button "TTNET", 7, 57 67 37 12
  button "E-KOLAY", 8, 108 67 37 12
  button "AYNA", 9, 8 85 37 12
  button "SohbetLivE", 10, 57 85 37 12
  button "KELEBEK", 11, 108 85 37 12
  button "KLAVYE", 12, 8 104 37 12
  button "ANET", 13, 57 104 37 12
  button "YUZUK", 14, 108 104 37 12
  button "DorukNET", 15, 108 104 37 12
}
alias -l close.dlg { dialog -x baglantı baglantı }
on *:dialog:baglantı:*:*:{
  if ($devent == init) {
    did -a $dname 3 $me
  }
  if ($devent == sclick) {
    if ($did == 6) { set %xxx $did(5) | .nick $did(3) | server irc.zurna.net | close.dlg }
    if ($did == 7) { set %xxx $did(5) | .nick $did(3) | server irc.ttnet.net.tr | close.dlg }
    if ($did ==  { set %xxx $did(5) | .nick $did(3) | server irc.e-kolay.net | close.dlg }
    if ($did == 9) { set %xxx $did(5) | .nick $did(3) | server irc.ayna.org | close.dlg }
    if ($did == 10) { set %xxx $did(5) | .nick $did(3) | server irc.SohbetLive.Com | close.dlg }
    if ($did == 11) { set %xxx $did(5) | .nick $did(3) | server irc.kelebek.gen.tr | close.dlg }
    if ($did == 12) { set %xxx $did(5) | .nick $did(3) | server irc.klavye.gen.tr | close.dlg }
    if ($did == 13) { set %xxx $did(5) | .nick $did(3) | server irc.anet.net.tr | close.dlg }
    if ($did == 14) { set %xxx $did(5) | .nick $did(3) | server irc.yuzuk.net | close.dlg }
    if ($did == 15) { set %xxx $did(5) | .nick $did(3) | server irc.Doruk.net | close.dlg }
  }
}
on *:connect:{
  if (%xxx != $null) { .msg nickserv identify %xxx | unset %xxx }
}
on *:start: {dialog -m baglantı baglantı }