Herhangi bir servere bağlı iken bağlantı menüsünü tıklayarak ikinci bir servere yeni server penceresinde bağlanıcam ama farklı nickte ve farklı identle bağlanmak istiyorum nici yazarken bağlı bulundugum serverdeki nicimide değişiyor bu menüde bu sorunun çözümü konusunda yardımcı olursanız sevinirim
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias baglan {
if (!$dialog(baglan)) { dialog -m baglan baglan }
else { dialog -v baglan }
}
alias dx dialog -x $dname $dname
dialog baglan {
title "mircScript"
size -1 -1 147 106
option dbu
icon $mircdirimg\Silver.ico, 0
text "Nick'iniz:", 2, 8 14 35 8, right
text "Identiniz:", 3, 8 27 35 8, right
edit "", 6, 47 13 90 10, autohs
edit "", 7, 47 26 90 10, autohs
check "", 9, 47 66 8 10
combo 11, 47 39 91 61, size edit drop
text "Server:", 12, 17 40 27 8, right
button "IRC Serverine Bağlan", 13, 10 80 128 15
box "Bağlantı Ayarları", 1, 4 3 139 98
button "Ekle", 4, 46 53 30 10
button "Sil", 5, 77 53 30 10
button "Düzenle", 8, 108 53 30 10
text "Yeni Server Penceresi Aç", 10, 56 67 85 8
}
on 1:dialog:baglan:*:*:{
if $devent == init {
mdx MarkDialog $dname
mdx SetDialog $dname bgcolor $bgcolor
var %idset2 = 13
set %idset 0
:idset
inc %idset 1
mdx MarkDialog $dname
mdx SetDialog $dname bgcolor $rgb(47,163,204)
mdx SetFont $dname 2,3,5,6,7,8,9,10,11,12,13,16,17 +b Turkish 12 600 Arial
mdx SetColor $dname 2,3,5,6,7,8,9,10,11,12,13,16,17 textbg $rgb(47,163,204)
mdx SetColor $dname 2,3,5,6,7,8,9,10,11,12,13,16,17 background $rgb(47,163,204)
mdx SetColor $dname 2,3,5,6,7,8,9,10,11,12,13,16,17 text $rgb(0,0,0)
did -a $dname 6 $nick
did -a $dname 7 $emailaddr
loadserver $dname
}
if $devent == edit {
if $did == 6 {
if ($did(6).text == $null) { halt }
else { .nick $did(6).text }
}
if $did == 7 {
if ($did(7).text == $null) { halt }
else { .emailaddr $did(7).text }
}
}
if $devent == sclick {
if $did == 13 {
if $did(9).state == 1 { var %m -m }
if (!$did(11).text) { server irc.sunucu.com | dx | halt }
else { server %m $did(11).text | dx }
}
if $did == 4 { sadd }
if $did == 5 {
var %s = $did(11).text
$iif($input(%s Sunucusunu Silmek İstediğinize Eminmisiniz?,yw,Uyarı),write -ds $+ %s Script\servers.txt,return)
loadserver $dname
}
if $did == 8 { set %dsunucu $did(11).text | schg }
}
if $devent == close {
if (!$server) { server irc.sunucu.com }
}
}
dialog sadd {
title "mircScript"
size -1 -1 113 65
option dbu
icon $mircdirimg\Silver.ico, 0
box "Sunucu Ekle", 1, 4 4 106 39
text "Eklenecek Sunucu:", 2, 10 15 96 8
edit "", 3, 10 28 94 10, autohs
button "Ekle", 4, 13 46 40 15, flat
button "Iptal", 5, 61 46 40 15, flat cancel
}
alias sadd dialog -m sadd sadd
on 1:dialog:sadd:*:*:{
if $devent == init {
idset 5
}
if $devent == sclick {
if $did == 4 { write Script\servers.txt $did(3).text | loadserver baglan | dx }
}
}
dialog schg {
title "mircScript"
size -1 -1 113 65
option dbu
icon $mircdirikon\6.ico, 0
box "Sunucu Değiştir", 1, 4 4 106 39
text "Değiştirilecek Sunucu:", 2, 10 15 96 8
edit "", 3, 10 28 94 10, autohs
button "Ekle", 4, 13 46 40 15, flat
button "Iptal", 5, 61 46 40 15, flat cancel
}
alias schg dialog -m schg schg
on 1:dialog:schg:*:*:{
if $devent == init {
idset 5
did -a $dname 3 %dsunucu
}
if $devent == sclick {
if $did == 4 {
write -ds $+ %dsunucu Script\servers.txt
write Script\servers.txt $did(3).text
loadserver baglan
dx
}
}
}
alias loadserver {
did -r $1 11
did -a $1 11 irc.sunucu.com
var %servers = $lines(Script\servers.txt)
var %s2vers = 1
while (%s2vers <= %servers) {
did -a $1 11 $read(Script\servers.txt,%s2vers)
inc %s2vers 1
}
did -c $1 11 1
}
on *:start: {dialog -m baglan baglan }
15 Nisan 2013, 19:52
Benzer Konular 
Normal
