Kod: Kodu kopyalamak için üzerine çift tıklayın!
dialog baglan {
title "# Bağlantı #"
size -1 -1 226 250
option dbu
icon 1, 4 4 218 51, $mircdirYouMyCure\tvlogo.png, 0, noborder
box "Hızlı Bağlantı Ayarı", 2, 4 62 108 123
radio "IRC.Geveze.ORG", 3, 10 77 54 10
radio "IRC.TRSohbet.Com", 4, 10 86 58 10
radio "IRC.Soyle.Net", 5, 10 95 50 10
radio "IRC.Zurna.Net", 6, 10 104 50 10
radio "IRC.Chat.TC", 7, 10 113 50 10
radio "IRC.mIRCScripting.Net", 8, 10 122 64 10
radio "IRC.Esohbet.Net", 9, 10 131 70 10
button "Bağlan", 10, 14 155 85 25
box "Nick Ayarları", 11, 115 62 107 42
text "Nick", 12, 123 74 25 8
edit "", 13, 149 73 65 10
text "Altarnatif", 14, 123 85 25 8
edit "", 15, 149 84 65 10
box "Serveri Kendin Sec", 16, 115 107 107 78
text "Server Adı: IRC.YouMyCure.Net Gibi", 17, 120 117 91 13, center
edit "", 18, 119 137 99 14
button "Bağlan", 19, 125 155 85 25
button "KAPAT!", 20, 4 191 217 43, ok
link "Coded by YouMyCure", 21, 161 237 60 8
}
on *:dialog:baglan:*:*: {
if ($devent == edit) {
if $did == 13 { set %:_ymcnick $did(13) | .nick $did(13) }
if $did == 15 { set %:_ymcanick $did(15) | .anick $did(15) }
if $did == 18 { set %:_ymcserver1 $did(18) }
}
if $devent == init {
.did -a $dname 13 $me
.did -a $dname 15 $anick
}
if $devent == sclick {
if $did == 3 { set %:_ymcserver2 IRC.Geveze.ORG }
if $did == 4 { set %:_ymcserver2 IRC.TRSohbet.Com }
if $did == 5 { set %:_ymcserver2 IRC.Soyle.Net }
if $did == 6 { set %:_ymcserver2 IRC.Zurna.Net }
if $did == 7 { set %:_ymcserver2 IRC.Chat.TC }
if $did == 8 { set %:_ymcserver2 IRC.mIRCScripting.Net }
if $did == 9 { set %:_ymcserver2 IRC.Esohbet.Net }
if $did == 10 { .server %:_ymcserver2 6667 | dialog -x baglan baglan }
if $did == 19 { .server %:_ymcserver1 6667 | dialog -x baglan baglan }
if $did == 21 { web
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
dialog -x baglan baglan }
if $istok(3 4 5 6 7 8 9,$did,32) { echo -a %logo 4,1 Bağlanılacak Server11:0 %:_ymcserver2 }
}
}