Operator menusu ( dialog )

Operator menusu dialog seklınde nıcklıstesındekı kısılere gore secım yaparak chanserv komutuyla hareket ettirmenızı saglar
/opmenusu Yazarak Dialogu acabılırsınız...
mIRc ana klasorune mdx.dll atmayı unutmayın.
Eğer dll dosyanızın yeri değişikse asagıdakı sekılde duseltlmeler yapınız...
bu MIRc.exe nın bulundugu yerdedir = alias mdxdll { return $dll(mdx.dll,$1,$2-) }
bu Mırc\dll\mdx.dll klasorudur = alias mdxdll { return $dll(dll\mdx.dll,$1,$2-) }
bu sekılde duzeltmeler yapınız

Kod:
alias opmenusu { dialog -m console console }
dialog console {
title " RoSe ScRipt Kanal Operatör Menüsü"
size -1 -1 350 320
button "Bu Menüyü Kapa",1,33 283 285 30,ok flat
list 2, 195 30 140 237,sort
box "",3,6 6 339 267
box "ChanServ Komutları",4,20 19 165 130, flat
button "Aop Ekle",5,33 40 60 25, flat
button "Sop Ekle",6,33 75 60 25, flat
button "Aop Sil",7,110 40 60 25, flat
button "Sop Sil",8,110 75 60 25, flat
button "Akick Ekle",9,33 110 60 25, flat
button "Akick Sil",10,110 110 60 25, flat
button "Op Ver",11, 33 160 60 25, flat
button "Deop Yap",12,110 160 60 25, flat
button "Kick/Ban",13,33 195 60 25, flat
button "Kick At",14,110 195 60 25, flat
button "Voice Ver",15,33 230 60 25, flat
button "Voice Al",16,110 230 60 25, flat
text "",17, 235 17 70 13
}
on *:dialog:console:sclick:5:{ if ($me isop %c-cha) .chanserv aop %c-cha add $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:6:{ if ($me isop %c-cha) .chanserv sop %c-cha add $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:7:{ if ($me isop %c-cha) .chanserv aop %c-cha del $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:8:{ if ($me isop %c-cha) .chanserv sop %c-cha del $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:9:{ if ($me isop %c-cha) .chanserv akick %c-cha add $remove($did(console,2,$did(console,2).sel).text,@,+) | kick %c-cha $remove($did(console,2,$did(console,2).sel).text,@,+) $kickm(kick.txt) }
on *:dialog:console:sclick:10:{ if ($me isop %c-cha) .chanserv akick %c-cha del $remove($remove($did(console,2,$did(console,2).sel).text,@,+),@,+) }
on *:dialog:console:sclick:11:{ if ($me isop %c-cha) mode %c-cha +o $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:12:{ if ($me isop %c-cha) mode %c-cha -o $remove($did(console,2,$did(console,2).sel).text,@,+) }
on *:dialog:console:sclick:13:{ if ($me isop %c-cha) ban %c-cha $remove($did(console,2,$did(console,2).sel).text,@,+) 3 | kick %c-cha $remove($did(console,2,$did(console,2).sel).text,@,+) $kickm(kick.txt) }
on *:dialog:console:sclick:14:{ if ($me isop %c-cha) kick %c-cha $remove($did(console,2,$did(console,2).sel).text,@,+) $kickm(kick.txt) }
on *:dialog:console:sclick:15:{ if ($me isop %c-cha) mode %c-cha +v $remove($did(console,2,$did(console,2).sel).text,@,+) 3 }
on *:dialog:console:sclick:16:{ if ($me isop %c-cha) mode %c-cha -v $remove($did(console,2,$did(console,2).sel).text,@,+) 3 }
on *:dialog:console:init:0:{
mdxdll SetMircVersion $version
mdxdll MarkDialog $dname $dialog($dname).hwnd
mdxdll SetDialog [ $dname ] bgcolor [ $rgb(186,206,204) ]
mdxdll SetColor 2,3 textbg [ $rgb(0,0,0) ]
mdxdll SetColor 17 textbg [ $rgb(186,206,204) ]
mdxdll SetColor 2,3 text [ $rgb(186,206,204) ]
mdxdll SetColor 2,3 background [ $rgb(0,0,0) ]) ]
mdxdll SetColor 4,17 background [ $rgb(186,206,204) ]) ]
set %c-cha $active
did -a $dname 17 Toplam: $nick(%c-cha,0) Kişi
set %c-ops 0
set %c-voi 0
set %c-reg 0
:lewp-o
inc %c-ops
if ($opnick(%c-cha,%c-ops) != $null) goto op
else { goto lewp-v }
:op
did -a $dname 2 @ $+ $opnick(%c-cha,%c-ops)
goto lewp-o
:lewp-v
inc %c-voi
if ($vnick(%c-cha,%c-voi) != $null) goto voice
else goto lewp-r
:voice
did -a $dname 2 + $+ $vnick(%c-cha,%c-voi)
goto lewp-v
:lewp-r
inc %c-reg
if ($nick(%c-cha,%c-reg,r) != $null) goto regular
else halt
:regular
did -a $dname 2 $nick(%c-cha,%c-reg,r)
goto lewp-r
}
alias mdxdll { return $dll(mdx.dll,$1,$2-) }

Dll ile sekiller,renkler ve ayrıca list menusude eklendi...