IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Bağlantı menüsü arayanlar için düşündüm.Umarım yararlı olur.
==================================================
dialog baglantı {
title "Bağlantı Menüsü"
size -1 -1 158 128
option dbu
icon 1, 2 1 153 25
text "Nickiniz", 2, 13 35 25 8
edit "", 3, 55 34 61 10
text "Şifreniz", 4, 13 51 25 8
edit "", 5, 55 49 61 10, pass return autohs autovs
button "ZURNA", 6, 8 67 37 12
button "TTNET", 7, 57 67 37 12
button "E-KOLAY", 8, 108 67 37 12
button "AYNA", 9, 8 85 37 12
button "MUHABBET", 10, 57 85 37 12
button "KELEBEK", 11, 108 85 37 12
button "KLAVYE", 12, 8 104 37 12
button "ANET", 13, 57 104 37 12
button "YUZUK", 14, 108 104 37 12
}
alias -l close.dlg { dialog -x baglantı baglantı }
on *:dialog:baglantı:*:*:{
if ($devent == init) {
did -a $dname 3 $me
}
if ($devent == sclick) {
if ($did == 6) { set %xxx $did(5) | .nick $did(3) | server irc.zurna.net | close.dlg }
if ($did == 7) { set %xxx $did(5) | .nick $did(3) | server irc.ttnet.net.tr | close.dlg }
if ($did == 8) { set %xxx $did(5) | .nick $did(3) | server irc.e-kolay.net | close.dlg }
if ($did == 9) { set %xxx $did(5) | .nick $did(3) | server irc.ayna.org | close.dlg }
if ($did == 10) { set %xxx $did(5) | .nick $did(3) | server irc.muhabbet.net | close.dlg }
if ($did == 11) { set %xxx $did(5) | .nick $did(3) | server irc.kelebek.gen.tr | close.dlg }
if ($did == 12) { set %xxx $did(5) | .nick $did(3) | server irc.klavye.gen.tr | close.dlg }
if ($did == 13) { set %xxx $did(5) | .nick $did(3) | server irc.anet.net.tr | close.dlg }
if ($did == 14) { set %xxx $did(5) | .nick $did(3) | server irc.yuzuk.net | close.dlg }
}
}
on *:connect:{
if (%xxx != $null) { .msg nickserv identify %xxx | unset %xxx }
}
on *:start: {dialog -m baglantı baglantı }
================================================== ====