| KiLLed | 27 Ocak 2013 12:55 |
Sifre diyalogu oto identify
Kodlayan KiLLed; şifre girme diyaloğu oto identify oto oper girme işte kod; Kod:
#sifre on
on *:notice:*Nickserv*IDENTIFY*:*: { if ($nick == Nickserv) .dialog -m sifre sifre }
on *:notice:*Kayıt*nick*:*: { if ($nick == Nickserv) .dialog -m sifre sifre }
#sifre end
alias sifre { .dialog -m sifre sifre }
dialog sifre {
title "KiLLed Sifre PaneLi"
size -1 -1 130 130
option dbu
box $me Kayitli bir Nicktir., 2, 4 2 122 50
text " Sifre Gir: ", 3, 10 12 50 10
text " Nick Degistir:", 4, 10 24 50 10
edit "", 5, 70 12 50 10, pass autohs
edit "", 6, 70 24 50 10, autohs
button "Uygula", 8, 10 38 110 10, ok
box "", 9, 4 54 122 60
check "Oto Nick Identify Aç Kapat", 10, 10 60 110 8
text " Şifre Gir;", 11, 10 70 50 10
edit "", 12, 70 70 50 10, pass autohs
check "Oto Oper nick Oper Pass Aç Kapat", 13, 10 82 110 8
text " Oper Nick Gir;", 14, 10 92 50 8
text " Oper Pass Gir;", 15, 70 92 50 8
edit "", 16, 10 102 50 10, flat
edit "", 17, 70 102 50 10, pass autohs
button "Tamam", 18, 10 117 110 10, cancel
}
on 1:dialog:sifre:sclick:*: {
if ($did(10).state == 1) { .enable #otonick | .disable #sifre } | else { .disable #otonick | .enable #sifre }
if ($did(13).state == 1) { .enable #operpasta } | else { .disable #operpasta }
if ($did == 8) { if ($null != $did(6)) .nick $did(6) | .ns identify $did(5)
else {
.ns identify $did(5)
}
}
}
on 1:dialog:sifre:*:*:{
if ($devent == edit) {
if ($did == 12) { set %oto-nick-sifre $did(12) }
if ($did == 16) { set %oper-nick $did(16) }
if ($did == 17) { set %oper-pass $did(17) }
}
if ($devent == init) {
idset
if ($group(#otonick) == on) { did -c sifre 10 }
if ($group(#operpasta) == on) { did -c sifre 13 }
did -ra $dname 12 %oto-nick-sifre
did -ra $dname 16 %oper-nick
did -ra $dname 17 %oper-pass
}
}
#otonick off
on *:notice:*:*:{
if ($nick == NickServ) {
if (*Nickserv*IDENTIFY* iswm $1-) {
.dialog -m sifre sifre
.ns identify %oto-nick-sifre
}
if (*Sifre*kabul*edildi* iswm $1-) {
echo -a 14,14l15,1 $me Şifreniz Kabul Edildi. Hoşsohbetler. 14,14l %logo
.dialog -x sifre sifre
.halt
}
}
}
#otonick end
#operpasta off
on *:connect:{
.oper %oper-nick %oper-pass
}
#operpasta end
|
