| LauReLL | 28 Ağustos 2007 20:07 |
Otomatik Oper İşlemi...
Kod:
alias otooper { if ($dialog(otooper)) dialog -v otooper | else dialog -m otooper otooper }
dialog otooper {
size -1 -1 251 145
title "Otomatik Oper |LauReLL|"
button "Ok",1, 160 110 85 20, OK
box "",2, 5 8 240 97
text "Server'i :",3, 15 20 45 20
edit "",4, 70 20 115 20, autohs
text "Nickiniz :",5, 15 50 55 20
edit "",6, 70 48 115 20, autohs
text "OperPass :",7, 15 80 55 20
edit "",8, 70 78 115 20, autohs %oper.pass
button "SiL",10, 190 20 40 20
button "SiL",11, 190 48 40 20
button "SiL",12, 190 78 40 20
radio "Aç",13, 5 110 35 20,
radio "Kapat",14, 45 110 45 20,
}
on *:DIALOG:otooper:edit:*: {
if ($did == 6) { set %oper.nick $did(6) }
if ($did == 8) { set %oper.pass $did(8).text }
if ($did == 4) { set %oper.serv $did(4) }
}
on *:dialog:otooper:init:0:{
laurellrenk
did -o otooper 6 1 %oper.nick $did(6)
did -o otooper 8 1 %oper.pass $did(8).text
did -o otooper 4 1 %oper.serv $did(4)
if (%oto.oper == on) { did -c otooper 13 1 %oto.oper $did(13) }
if (%oto.oper == off) { did -c otooper 14 1 %oto.oper $did(14) }
if (%oto.oper == off) { did -b $dname 3,4,5,6,7,8 }
if (%oto.oper == on) { did -e $dname 3,4,5,6,7,8 }
}
on *:dialog:otooper:sclick:*:{
if ($did == 10) { unset %oper.serv | did -o otooper 4 1 %oper.serv }
if ($did == 11) { unset %oper.nick | did -o otooper 6 1 %oper.nick }
if ($did == 12) { unset %oper.pass | did -o otooper 8 1 %oper.pass }
if ($did == 13) { set %oto.oper on | did -e $dname 3,4,5,6,7,8 }
if ($did == 14) { set %oto.oper off | did -b $dname 3,4,5,6,7,8 }
}
on *:connect: {
if (%oper.nick != $null) && (%oper.pass != $null) && ($server == %oper.serv) && (%oto.oper == on) { oper %oper.nick %oper.pass }
}
alias laurellrenk {
mdxdll SetMircVersion $version
mdxdll MarkDialog $dname
mdxdll SetDialog [ $dname ] bgcolor [ $rgb(190,190,190) ]
mdxdll SetColor 3,5,7,13,14 textbg [ $rgb(190,190,190) ]
mdxdll SetColor 3,5,7,13,14 background [ $rgb(190,190,190) ]
mdxdll SetColor $dname 3,5,7,13,14 text $rgb(178,0,0)
mdxdll SetColor $dname 4,6,8 text $rgb(200,200,200)
mdxdll SetColor 4,6,8 textbg [ $rgb(0,64,128) ]
mdxdll SetColor 4,6,8 background [ $rgb(0,64,128) ]
}
alias mdxdll { return $shortfn(DLL\mdx.dll,$1,$2-) }
c:\D:\bilmemnemIRC\dll\mdx.dLL Olmazı lazım yoksa dosya düzgün ÇalışmayabiLir... |
