| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Cevap: Oto Nick İdentine İnce Ayar
| | Alıntı: | dialog bagLanti {
title " RapStar mIRC Bağlantı Menüsü© "
size -1 -1 214 144
option dbu
text "Nick:", 1, 3 12 25 8
text "YedekNick:", 2, 3 21 26 8
text "E-mail:", 3, 3 30 25 8
box "Bağlantı Menüsü", 4, 1 1 129 54
edit "", 5, 37 9 90 10
edit "", 6, 37 29 90 10
edit "", 7, 37 19 90 10
text "Fullname: ", 10, 3 39 25 8
edit "", 11, 37 39 90 10, autohs
box "Otomatik Tanımlar", 12, 131 1 68 99
text "Otomatik Giris", 13, 134 8 38 8
text "1.Kanal", 14, 134 18 25 8
edit "", 15, 162 17 33 10
text "2.Kanal", 16, 134 27 25 8
edit "", 17, 162 27 33 10
text "3.Kanal", 18, 134 37 25 8
edit "", 19, 162 37 33 10
text "Otomatik Nick Tanıtım", 20, 134 50 61 8
text "Nick", 21, 134 60 25 8
edit "", 22, 161 59 31 10, autohs
text "Sifre", 23, 135 70 25 8
edit "", 24, 161 69 31 10, pass autohs
box "Server", 26, 2 58 127 28
edit "MyNet", 30, 8 69 117 12, disable
button "Sohbete Gir", 34, 52 126 107 15
button "Kaydet ve Kapat", 35, 27 106 67 15, ok
button "İptal", 36, 112 106 62 15,cancel
check "Beni Hatırla", 8, 143 80 50 10
check "Beni Unut", 9, 143 89 50 10
}
on 1:diaLog:bagLanti:init:*:{
did -a bagLanti 5 $me
did -a bagLanti 7 $anick
did -a bagLanti 6 $emaiL
did -a bagLanti 11 $fuLLname
did -a baglanti 22 %mynet
did -a baglanti 24 %mynet2
did -a baglanti 15 %kanal1
did -a baglanti 17 %kanal2
did -a baglanti 19 %kanal3
}
on 1:diaLog:bagLanti:scLick:34:{
if ($did(22) != $null) { /nick $did(22) }
else { /nick $did(5) }
.set %one $did(15)
.set %two $did(17)
.set %three $did(19)
.set %nick $did(22)
.set %sifre $did(24)
.set %AnaNick $did(5)
.diaLog -x bagLanti bagLanti
.server %server
}
on 1:diaLog:bagLanti:scLick:27:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mynet.com }
on 1:diaLog:bagLanti:scLick:28:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mynet.com }
on 1:diaLog:bagLanti:scLick:29:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mynet.com }
on 1:diaLog:bagLanti:scLick:30:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mynet.com }
on 1:diaLog:bagLanti:scLick:31:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mynet.com }
on 1:diaLog:bagLanti:scLick:32:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.mynet.com }
on 1:dialog:baglanti:sclick:34: { set %ufuk $did(22) }
on 1:dialog:baglanti:sclick:35: {
set %mynet $did(22)
set %mynet2 $did(24)
set %kanal1 $did(15)
set %kanal2 $did(17)
set %kanal3 $did(19)
}
on 1:dialog:baglanti:sclick:9: {
did -r baglanti 22
did -r baglanti 24
did -r baglanti 15
did -r baglanti 17
did -r baglanti 19
}
on *:connect:{
.timer 1 1 .nick %ananick
if (%sifre == $null) { haltdef }
else {
.timer 1 2 .ns identify %sifre | echo -a 10Nick Sifreniz giriLiyor
}
if (%one != $null) { /j %one }
if (%two != $null) { /j %two }
if (%three != $null) { /j %three }
}
on *:disconnect:{ .unset %sifre | unset %one | unset %two | unset %three }
#baglanti end
| İstediğin olayı "Check" kullanarak hallettim. Ek olarak kanallarıda kaydedip, silme özelliği koydum. Beni Hatırla veya Beni Unut butonlarına tıklayıp Kaydet Kapat'a basınca işlemi tamamlıyor. Unutma; Checkleri seçtikten sonra "kaydet ve kapat" butonunu kullan. Ayrıca İPTAL kısmınada "cancel" ekledim. İyi kullanımlar Mynet'ci
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|