dialog baglan {
title “BaGlanti Paneli”
size -1 -1 133 100
option dbu
box “”, 1, 3 -1 128 78
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 80 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 4 %server
did -a $dname 8 %nicksifre
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) | /dialog -c baglan baglan | server $+(%server,:,6667) %nicksifre }
elseif ($did == 10) && !$did(8) { .nick $did(2)  | .anick $did(3) | set %server $did(4) | dialog -c baglan baglan | server $+(%server,:,6667)  }
}
}