harika bir Addondur denedim ben gayet güzel çalışıyor sorunsuzdur .
HTML:
menu * {
Oto Şifre Girici :dialog -m sifremm sifremm
}
alias mdx { return $dll(dll\mdx.dll,$1,$2-) }
alias mdx.dll { return $dll(dll\mdx.dll,$1,$2-) }
alias setup.sifremm { dialog -m sifremm sifremm }
on *:LOAD:{
echo -a 4Otomatik Oper Girisi yüklediğiniz için teşekkür ederiz...
}
#sifre on
;on *:notice:*Nickserv*IDENTIFY*:*: { if ($nick == Nickserv) .dialog -m sifremm sifremm }
#sifre end
alias sifremm { .dialog -m sifremm sifremm }
dialog sifremm {
title "Otomatik Oper Sifre"
size -1 -1 130 130
option dbu
box , 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 Ac Kapat", 10, 10 60 110 8
text " Sifre Gir;", 11, 10 70 50 10
edit "", 12, 70 70 50 10, pass autohs
check "Oto Oper nick Oper Pass Ac 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:sifremm: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:sifremm:*:*:{
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) {
mdx.dll MarkDialog $dname
mdx.dll SetColor $dname 1,2,3,14,16,18,20,21,22 background $rgb(010,180,255)
mdx SetColor $dname 1,16,18 textbg $rgb(010,180,255)
mdx SetDialog [ $dname ] bgcolor $rgb(010,180,255)
idset
if ($group(#otonick) == on) { did -c sifremm 10 }
if ($group(#operpasta) == on) { did -c sifremm 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 sifremm sifremm
.ns identify %oto-nick-sifre
}
if (*Sifre*kabul*edildi* iswm $1-) {
echo -a 14,14l15,1 $me Şifreniz Kabul Edildi.14,14l %logo
.dialog -x sifremm sifremm
.halt
}
}
}
#otonick end
#operpasta off
on *:connect:{
.oper %oper-nick %oper-pass
}
Son düzenleme:
