mIRC Otomatik Oper İşlemi

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-) } MDX.DLL Olması şarttır. Tags: hazır kodlar, işlem, mirc, oper, scripting, turkce mırc

» Devamını Oku