dialog baglan {
  title "BaGlanti Paneli - Sunucu.Com"
  size -1 -1 133 117
  option dbu
  box "", 1, 3 -1 128 93
  edit "", 2, 56 8 70 12, autohs
  edit "", 3, 56 26 70 12, autohs
  edit "", 4, 56 41 70 12, autohs
  text " Nickiniz", 5, 6 10 36 8
  text " Yedek Nickiniz", 6, 6 27 44 8
  text " IRC Sunucu", 7, 7 44 44 8
  edit "", 8, 56 60 70 12, autohs
  text " IRC Sifre", 9, 6 61 43 8
  button "« « BAGLAN » »", 10, 25 98 90 16, ok cancel
  edit "", 11, 56 74 70 12, autohs
  text "Nick Şifresi", 12, 6 77 43 8
}
On *:DIALOG:baglan:*:*: {
  if ($devent == init) { 
    idset 19
    did -a $dname 2 $me 
    did -a $dname 3 $anick
    did -a $dname 4 %server
    did -a $dname 8 %nicksifre
    did -a $dname 11 %kimimben
    mdx MarkDialog $dname
    mdx SetFont 1,2,3,4,5,6,7,8,9,10 -11 700 Tahoma
  }
  if ($devent == sclick) { 
    if ($did == 10) && $did(8) { .nick $did(2)  | .anick $did(3) | set %server $did(4) | set %nicksifre $did(8) | set %kimimben $did(11) | /dialog -c baglan baglan | server $+(%server,:,6667) %nicksifre | .timerdf 1 1 /ns identify %kimimben | .dialog -x idpass idpass }
    elseif ($did == 10) && !$did(8) { .nick $did(2)  | .anick $did(3) | set %server $did(4) | set %kimimben $did(11) | dialog -c baglan baglan | server $+(%server,:,6667) | .timerdf 1 1 /ns identify %kimimben | .dialog -x idpass idpass }
  }
}