Kod:
##KraLaz
alias penikapat { dialog -c startpen startpen }
alias startpen { dialog -m startpen startpen }
dialog startpen {
title "Bağlanti Menüsü"
size -1 -1 361 150
;; yer üst - yüksek
button "LOGIN AYARLARI" ,53, 10 10 110 50, flat
button "Mirc LOGO" ,54, 120 10 110 50, flat
text "Nick (Rumuz) :" ,2, 30 80 80 30
edit "" ,3, 105 80 130 20, autohs
text "Sunucu :" ,13, 30 105 60 20
combo 14, 105 105 131 130 ,drop edit size , flat
text "Port:" ,16, 243 105 30 20
edit "" , 17, 269 105 38 22 , edit
button "Gir !" ,5, 320 105 36 20, flat
button "B A Ğ L A N " ,19, 240 10 110 90, ok, flat
}
on *:dialog:startpen:*:*:{
if ($devent == init) {
did -c startpen 5
did -a startpen 14 %operserver %operbilgi
did -c startpen 14 1
did -a startpen 17 6667
did -c startpen 17 1
did -a startpen 3 %yedeknick
did -c startpen 3 1
did -f startpen 5
}
if ($devent == sclick) && ($did == 14) { /set %servername $did(14) }
if ($devent == sclick) && ($did == 17) { /set %serverport $did(17) }
if ($devent == sclick) && ($did == 53) {
/set %yedeknick $$?="Bağlantı nicki sqline koruma yüzünden yedek nick yazınız" | echo -a 3,30 *** Kayit: 1 Bağlantı Nickiniz ayarlandı 10 %yedeknick 1 Sunucudaki Sqline koruması yüzünden yedek nickiniz ile bağlantı yapıp asıl nickinize geçeceksiniz.
/set %nick $$?="Oper nickiniz" | echo -a 3,30 *** Kayit: 1 Nickiniz ayarlandı 10 %nick |
/set %nicksifre $$?="Nick Şifreniz" | echo -a 3,30 *** Kayit: 1 Nick şifreniz ayarlandı. 10 %nicksifre
/set %operserver $$?="Operserver:port Örnek: oper.sohbet.net:9000" | echo -a 3,30 *** Kayit: 1 Oper Admin Serveriniz Ayarlandı 10 %operserver
/set %operbilgi $$?="Oper:Şifre Örnek: admin:123654" | echo -a 3,30 *** Kayit: 1 Oper loginayarlandi. 10 %operbilgi
/set %fullname $$?="Fullnamenizi yazın" | echo -a 3,30 *** Kayit: 1 Fullname Ayarladı. 1 %fullname
echo -a 3 Ayarlar başarıyla kayıt edildi. Bağlantıya hazır.
timer 1 2 /penikapat
timer 1 4 /startpen
}
if ($devent == sclick) && ($did == 54) { /set %logo $$?="Logonuz" | echo -a %logo Logonuz ayarlandı. }
if ($devent == sclick) {
if ($did == 5) { .server $did(14) $did(5) | .nick $did(3) | penikapat }
if ($did == 172) {
penikapat
dialog -m startpen startpen
}
if ($did == 19) { server $did(14) $did(17) | .nick $did(3) | penikapat }
}
}
on *:connect:{
timer 1 2 /nick %nick
timer 1 4 /ns identify %nicksifre
timer 1 6 /echo -a %logo 3 Başarılı bir şekilde login oldunuz.
}