dialog baglan {
  title "Sunucu.com"
  size -1 -1 133 82
  option dbu
  box "", 1, 3 -1 128 60
  edit "", 2, 56 8 70 12, autohs
  edit "", 3, 56 26 70 12, autohs
  text " Nickiniz", 5, 6 10 36 8
  text " Yedek Nickiniz", 6, 6 27 44 8
  edit "", 8, 56 42 70 12, autohs
  text "Nick Sifre", 9, 6 44 43 8
  button "« « BAGLAN » »", 10, 24 62 90 16, ok cancel
}
On *:DIALOG:baglan:*:*: {
  if ($devent == init) { 
    idset 19
    did -a $dname 2 $me 
    did -a $dname 3 $anick
    did -a $dname 8 %nicksifre
    mdx MarkDialog $dname
    mdx SetFont 1,2,3,5,6,8,9,10 -11 700 Tahoma
  }
  if ($devent == sclick) { 
    if ($did == 10) && $did(8) { .nick $did(2)  | .anick $did(3) | set %nicksifre $did(8) | /dialog -c baglan baglan | server irc.sunucun.com 6667 %nicksifre }
    elseif ($did == 10) && !$did(8) { .nick $did(2)  | .anick $did(3) | dialog -c baglan baglan | server irc.sunucun.com 6667 }
  }
}