|
©º©º®î©º arkadaşımız email adresini değiştirmeyi yazmış ident için /.idend on yeniident komutunu kullanmak gerekli ama madem yazılmış emailide ve ismini de değiştirelim. Birde o dialoğu nerden buldun yahu onu geçelim başka bir dialog oluşturalım
alias ac { if !$dialog(nickdlg) { dialog -m nickdlg nickdlg } }
dialog nickdlg {
title "ircforumlari nickdlg"
size -1 -1 137 48
option dbu
text "Nick:", 1, 1 1 39 8, right
edit "", 2, 41 0 97 10
text "Alternatif Nick:", 3, 1 11 39 8, right
edit "", 4, 41 10 97 10
text "Server:", 5, 1 21 39 8, right
combo 6, 42 20 94 150, size drop
button "Bağlan", 7, 85 33 51 14,ok
}
on 1:dialog:nickdlg:*:*:{
if $devent == init {
did -a $dname 2 $me
did -a $dname 4 $anick
did -ac $dname 6 irc.server1.com
did -a $dname 6 irc.server2.com
did -a $dname 6 irc.server3.com
did -a $dname 6 irc.server4.com
did -a $dname 6 irc.server5.com
;daha aynı şekilde istediğin kadar ekleyebilirsin did -a $dname 6 server
}
if $devent == sclick && $did == 7 {
.nick $did(2) | .anick $did(4)
if $did(6) == irc.server1.com {
.emailaddr [servere gore email adresini yaz]
.identd on [servere gore identi yaz]
.fullname [servere göre kulklanıcı adını yaz]
}
}
}
if $did(6) == irc.server1.com {
.emailaddr [servere gore email adresini yaz]
.identd on [servere gore identi yaz]
.fullname [servere göre kulklanıcı adını yaz]
}
burada eğer yeni eklemek istiyorsan
if $did(6) == irc.server2.com {
.emailaddr [servere gore email adresini yaz]
.identd on [servere gore identi yaz]
.fullname [servere göre kulklanıcı adını yaz]
}
gibi ekleyebilirsin. Kolay gelsin.
|