mIRCMerkez | Flood Koruması »
Kullanışlı Bir Op Paneli
Yazar admin | Ocak 24, 2008
Kod Hakkında Bilgi: Kullanışlı bir operatör panelidir, kodu çalıştırmak için  aÅŸağııdaki kodu mIRC’ınızda Remote bölümüne (alt+r) eklemeniz gerekmektedir. Ardından manual çalışmak isterseniz. “/dialog -m conslone console” komutunu kullanabilir veya menü’den seçebilirsiniz..
Kod Yazarı: Anonim
————————————–
alias oconsole { dialog -m console console }
dialog console {
title “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 }
: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
}
Kategori: mIRC Hazır Kodları | Kullanışlı Bir Op Paneli
|Bugun 0 toplam 84 kere okundu.
Benzer mIRC Konulari;
