##############################
# Coder By KiLLed #
##############################
menu status,channel {
-
» Bağlantı Menüsü:.killed12
-
}
on *:start:{ KiLLed12 }
alias KiLLed12 { dialog -m KiLLed12 KiLLed12 }
dialog KiLLed12 {
title "KiLLed Script Bağlantı Menüsü"
size -1 -1 186 150
option dbu
box "", 1, 2 1 182 118
text " Nickiniz", 2, 6 9 26 10
edit "", 3, 38 9 51 10, return autohs
text " Identiniz", 4, 6 23 26 10
edit "", 5, 38 22 51 10, return autohs
text " Yedeknick", 6, 6 37 26 10
edit "", 7, 38 37 51 10, return autohs
text " Fullname", 8, 6 51 26 10
edit "", 9, 38 51 51 10, return autohs
edit "", 10, 104 9 76 10, return autohs
button "Server Ekle", 11, 104 23 36 10
button "Server Sil", 12, 144 23 36 10
button "Kapat", 13, 6 196 83 16,ok
text " Şifreniz", 14, 6 65 26 10
edit "", 17, 38 65 51 10, return autohs pass
text " Port", 18, 6 79 26 10
edit "", 19, 38 79 51 10
text " Oto Şifre", 21, 6 93 26 10
check "", 22, 38 93 6 10
text " Aç / Kapat", 24, 44 93 45 10
text " irc.sunucu.com Şeklinde Ekleyin", 23, 6 107 83 8
list 15, 104 37 76 54, size
edit "KiLLed Bağlantı", 20, 6 124 174 20, read center
button "Listeden Sunucu Seç Bağlan", 16, 104 94 76 20
}
on *:dialog:KiLLed12:sclick:*: {
if ($did(22).state == 1) { .enable #sfr } | else { .disable #sfr }
if ($did == 11) { write server.txt $did(10) | did -a KiLLed12 15 $did(10) | did -r $dname 10 }
if ($did == 12) { write -dl $did(15).sel server.txt | did -d KiLLed12 15 $did(15).sel }
if ($did == 16) { .nick $did(3) | .emailaddr $did(5) | .setname $did(9) | .server $did(15).seltext $+ : $+ $did(19) | .dialog -x KiLLed12 KiLLed12
else {
.nick $did(3) | .emailaddr $did(5) $+ @ | .setname $did(9) | .server $did(15).seltext $+ : $+ $did(19) | .dialog -x KiLLed12 KiLLed12
}
}
}
on *:dialog:KiLLed12:init:*: {
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetBorderStyle 2,4,6,8,14,18,20
mdx SetDialog [ $dname ] bgcolor [ $rgb(28,96,113) ]
mdx SetColor 2,3,4,5,6,7,8,9,10,14,15,17,18,19,20,21,22,23,24 textbg [ $rgb(0,0,0) ]
mdx SetColor $dname 2,3,4,5,6,7,8,9,10,14,15,17,18,19,20,21,22,23,24 text $rgb(28,96,113)
mdx SetFont $dname 20 Turkish 36 750 Arial
mdx SetColor 2,3,4,5,6,7,8,9,10,14,15,17,18,19,20,21,22,23,24 background [ $rgb(0,0,0) ]
did -a $dname 3 $me
did -a $dname 5 $emailaddr
did -a $dname 7 $anick
did -a $dname 9 $fullname
did -ra $dname 17 %n-pass
did -a $dname 19 $port
if ($group(#sfr) == on) { did -c KiLLed12 22 }
var %he 1
while %he <= $lines(server.txt) {
did -a KiLLed12 15 $read(server.txt,%he)
inc %he
}
}
on *:dialog:KiLLed12:edit:*:{
if ($did == 17) { set %n-pass $did(17) }
}
#sfr on
on *:notice:*:*:{
if ($nick == NickServ) {
if (*Nickserv*IDENTIFY* iswm $1-) || (*Kayıt*nick* iswm $1-) {
.ns identify %n-pass
}
}
}
#sfr end
