Mirc Script Programına Eklenecek Op Ekle ve Op Sil Remotesi
- Aşağıda Bulunan kodu remote sayfanızın boş bir kısmına ekleyin.
- Ekledikten sonra kanal ortasında sağ tıkladığınızda “Op Ekle Sil” butonunu göreceksiniz.
- Tıkladığınızda sıralanan nicklerden seçiminizi yapın ve uygulamak istediğiniz butona tıklayın.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 |
menu status,menubar,channel { - » Op Ekle Sil:/oconsole - } alias oconsole { dialog -m console console } dialog console { title "Op Ekle Sil" size -1 -1 350 320 button "Bu Menüyü Kapat",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 } :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 } |
