#1
|
|||
|
|||
Operator Paneli
alias oconsole { dialog -m console console } dialog console { title "Garip 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:{ 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 } p 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 } /dialog -m console console Popusta Nick List kısmına EkLersek Bu Komutla KullanabiLriz... |