dialog bagla {
  title "mIRC Baglanti Menusu "
  size -1 -1 219 95
  option dbu
  text "İdent", 1, 6 38 36 8, center
  text "YedekNickiniz", 2, 6 24 36 8, center
  text "Nickiniz", 3, 6 11 36 8, center
  edit "", 4, 46 10 50 10, return autohs
  edit "", 5, 46 23 50 10, return autohs
  edit "", 6, 46 37 50 10, return autohs
  box "Bağlantı Menüsü", 7, 1 0 109 62
  button "Sohbetim.Com", 8, 119 10 42 12
  button "Siberchat.Net", 9, 169 10 42 12
  button "Sohbet.net", 10, 119 29 42 12
  button "Sohbetik.Com", 11, 169 29 42 12
  button "Turkgurbet.Com", 12, 119 47 42 12
  button "Chatruya.Com", 13, 169 47 42 12
  box "Sunucular", 14, 114 0 104 62
  text "Server ", 15, 6 72 36 8, center
  edit "", 16, 46 71 50 10, return autohs
  box "Sunucuya Gir", 17, 2 62 215 32
  button "Gir", 18, 60 83 25 9
  button "Tamam", 19, 119 70 42 20, ok
  button "Kapat", 20, 170 70 42 20, cancel
  edit "", 21, 46 50 50 10, return autohs
  text "Fullname", 22, 6 51 36 8, center
}

on *:dialog:bagla:init:*:{
  mdx SetMircVersion $version 
  mdx MarkDialog $dname
  mdx SetBorderStyle ,4,6,8,14
  mdx SetDialog [ $dname ] bgcolor [ $rgb(253,254,255) ]
  mdx SetColor 4,5,6,21,23,24 textbg [ $rgb(0,0,0) ]
  mdx SetColor $dname 4,5,6,21,23,24 text $rgb(253,255,250) 
  mdx SetFont $dname Turkish 36 750 Arial
  mdx SetColor 4,5,6,21,23,24 background [ $rgb(0,0,0) ] 
  did -a bagla 4 $me
  did -a bagla 5 $anick
  did -a bagla 6 $email
  did -a bagla 21 $fullname
}

on *:dialog:bagla:sclick:8: { server irc.sohbetim.com }
on *:dialog:bagla:sclick:9: { server irc.siberchat.net }
on *:dialog:bagla:sclick:10: { server irc.sohbet.net }
on *:dialog:bagla:sclick:11: { server irc.sohbetik.com }
on *:dialog:bagla:sclick:12: { server irc.turkgurbet.com }
on *:dialog:bagla:sclick:13: { server irc.chatruya.com }

on *:dialog:bagla:sclick:18: { if $did(16) == $null) { echo -a sunucu ismi yazdıktan sonra buttona basınız. örnek sunucu; irc.sunucu.com | return }
  else { server $did(16) }
}