Mirc Script Bağlantı Menüsü

alias bmenu { dialog -m bmenu bmenu }

dialog bmenu {
title "Bağlanti Menüsü"
size -1 -1 265 168
option pixels
text "Rumuz Giriniz :", 2, 16 51 77 20
edit "", 3, 99 51 144 20, autohs
button "SOHBET BAŞLASIN", 19, 61 22 147 20, flat ok
edit "", 1, 99 77 144 20, autohs
text "Yedek Rumuz :", 4, 16 77 77 20
edit "", 5, 99 105 144 20, autohs
text "İdent Giriniz :", 6, 16 105 77 20
button "Kapat", 7, 95 134 62 20, ok
}
on *:dialog:bmenu:*:*:{
if ($devent == init) {
did -a $dname 3 %Nick
did -a $dname 1 %anick
did -a $dname 5 $emailaddr

}
if ($devent == sclick) {
if ($did == 19) {
.nick $did(3) | .anick $did(1) | emailaddr $did(5)
.server irc.mircx.net 6667 | dialog -x bmenu
}

}
if ($devent == edit) {
if ($did == 5) {
if ($did(5).text == $null) { .emailaddr mİRCX@ }
else { .emailaddr $did(5).text }
}
if ($did == 3) {
if ($did(3).text == $null) { nick %nick }
else { .nick $did(3).text | set %nick $did(3).text }
}
if ($did == 1) {
if ($did(1).text == $null) { nick %anick }
else { .anick $did(1).text | set %anick $did(1).text }
}

}

}

on *:snotice:*: {
if (*Kodu*GIRIS*Kod* iswm $1-) {
dialog -m Giriskodu Giriskodu
did -a Giriskodu 3 Rakamı yazın
}
}

dialog Giriskodu {
title "Giriş Kodunu Yazınız"
size -1 -1 120 47
option dbu
box "Tamam butonuna basarak sohbete bağlanın..", 1, 2 1 116 44
edit "", 3, 30 12 55 11 , center
button "Tamam", 4, 30 27 55 12, ok
}
on *:dialog:Giriskodu:*:*:{
if ($devent == init) {
}
if ($devent == sclick) {
if ($did($dname,3)) .giris $did($dname,3)
}
}