Operatörlere Özel Op Paneli
Mirc Op Paneli, Mirc Op Paneli Kodu, Mirc, Mirc Kod, Mirc Kodlar, Mirc Addon, IRC Addon, Mirc Addonlar, Mirc indir, Mirc download, Mirc Yükle, Mirc Hazır Kodlar

Bu kod sayesinde sunucuda operatör olduğunuz global kanallarda çok işinize yarayacak ve bütün operatörlere yararlı olabilecek bir kod.

Not: Aşağıda vermiş olduğumuz kodu mIRC Scriptinizin Alt+R Remote Kısmına Ekleyiniz.

Ekleyeceğiniz Kod:


alias oppanel {
if ($dialog(oppanel)) {
dialog -x oppanel oppanel
dialog -m oppanel oppanel
}
else {
dialog -m oppanel oppanel
}
}
alias -l error {
if ($input($1-,ow,Op menü Hata Bildirimi)) { halt }
}
alias -l isop {
if (($me isop $did(oppanel,20).seltext) || (*o* iswm $usermode)) { paneluser | return $true }
}
alias -l panelchan {
return $did(oppanel,20).seltext
}
alias -l paneluser {
if ($did(oppanel,1).seltext = $null) { edialog Listeden Nick Seçmediniz! | halt }
else { return %onick }
}
alias -l refresh {
did -r oppanel 1,24,25
%c = $nick($did(oppanel,20).seltext,0)
%i = 1
while (%i <= %c) {
did -a oppanel 1 $nick($did(oppanel,20).seltext,%i).pnick
inc %i
}
if (($me isop $did(oppanel,20).seltext) || (*o* iswm $usermode)) {
did -ei oppanel 24 1 $chan($did(oppanel,20).seltext).topic
did -ei oppanel 25 1 $chan($did(oppanel,20).seltext).mode
did -e oppanel 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,22,23,24,25,28,29
}
else {
did -ib oppanel 24 1 $chan($did(oppanel,20).seltext).topic
did -ib oppanel 25 1 $chan($did(oppanel,20).seltext).mode
did -b oppanel 28,29
}
}
alias -l trefresh {
.timer -m 1 500 refresh
}
alias -l ccm {
;Teşekkürler
var %ccm.modes = mMiRcsptnlk
var %ccm.ch = $panelchan
if ($1 == $null) {
if ($len($gettok($chan(%ccm.ch).mode,1,32)) < { mode %ccm.ch $+(-,$remove($gettok($chan(%ccm.ch).mode,1,32),+)) $iif(k isin $gettok($chan(%ccm.ch).mode,1,32),$+(-,$chan(%ccm.ch).key)) | halt }
else {
var %ccm.m2 = $mid($gettok($chan(%ccm.ch).mode,1,32),8)
mode %ccm.ch $+(-,$remove($left($gettok($chan(%ccm.ch).mode,1,32),7),+)) $iif(k isin $left($gettok($chan(%ccm.ch).mode,1,32),7),$+(-,$chan(%ccm.ch).key))
mode %ccm.ch $+(-,%ccm.m2) $iif(k isin %ccm.m2,$+(-,$chan(%ccm.ch).key))
halt
}
}
var %ccm.nm = $1 | var %ccm.nparms $calc($0 - 1) | if (%ccm.nparms > 0) { var %ccm.nmp1 = $remove($2,+) } | if (%ccm.nparms > 1) { var %ccm.nmp2 = $remove($3,+) }
var %ccm.om = $remove($gettok($chan(%ccm.ch).mode,1,32),+)
if ((l isincs %ccm.om) && (k isincs %ccm.om)) {
if ($pos(%ccm.om,l,1) < $pos(%ccm.om,k,1) { var %ccm.oml = $gettok($chan(%ccm.ch).mode,2,32)) | var %ccm.omk = $remove($gettok($chan(%ccm.ch).mode,3,32),+) }
else { var %ccm.omk = $remove($gettok($chan(%ccm.ch).mode,2,32),+) | var %ccm.oml = $gettok($chan(%ccm.ch).mode,3,32) }
}
elseif (l isincs %ccm.om) { var %ccm.oml = $gettok($chan(%ccm.ch).mode,2,32) }
elseif (k isincs %ccm.om) { var %ccm.omk = $remove($gettok($chan(%ccm.ch).mode,2,32),+) }
if ((- isin %ccm.nm) && ($right(%ccm.nm,1) != -)) { echo 4 -a * | halt }
var %ccm.check = $remove(%ccm.nm,+) | var %ccm.c = 0 | var %ccm.n = $len(%ccm.check) | unset %ccm.nm
while (%ccm.c < %ccm.n) {
inc %ccm.c
if ($mid(%ccm.check,%ccm.c,1) !isincs %ccm.modes) {
halt
}
if ($mid(%ccm.check,%ccm.c,1) !isincs %ccm.nm) { var %ccm.nm = %ccm.nm $+ $mid(%ccm.check,%ccm.c,1) }
}
var %ccm.err = $calc($calc(%ccm.nparms - $iif(k isincs %ccm.nm,1)) - $iif(l isincs %ccm.nm,1))
if (%ccm.err < 0) {
echo 14 -a You entered: $+($1-,.)
if ((%ccm.err == -1) && (l isincs %ccm.nm) && (%ccm.nmp1 !isnum)) { echo 4 -a * }
else { echo 4 -a * }
halt
}
if (%ccm.err > 0) {
echo 14 -a You entered: $+($1-,.)
echo 4 -a *
if (%ccm.nparms < 3) { echo -a * }
echo 14 -a * )
halt
}
if ((l isincs %ccm.nm) && (k isincs %ccm.nm)) {
if ($pos(%ccm.nm,l,1) < $pos(%ccm.nm,k,1)) { var %ccm.nml = %ccm.nmp1 | var %ccm.nmk = %ccm.nmp2 }
else { var %ccm.nmk = %ccm.nmp1 | var %ccm.nml = %ccm.nmp2 }
}
elseif (l isincs %ccm.nm) { var %ccm.nml = %ccm.nmp1 }
elseif (k isincs %ccm.nm) { var %ccm.nmk = %ccm.nmp1 }
if ((%ccm.nml != $null) && (%ccm.nml !isnum)) { echo 14 -a * | halt }
var %ccm.n = $len(%ccm.om) | var %ccm.c = 0
while (%ccm.c < %ccm.n) { inc %ccm.c | if (($mid(%ccm.om,%ccm.c,1) !isincs %ccm.nm)) { var %ccm.negm = %ccm.negm $+ $mid(%ccm.om,%ccm.c,1) } }
var %ccm.n = $len(%ccm.nm) | var %ccm.c = 0
while (%ccm.c < %ccm.n) { inc %ccm.c | if (($mid(%ccm.nm,%ccm.c,1) !isincs %ccm.om) || ($mid(%ccm.nm,%ccm.c,1) == k) || ($mid(%ccm.nm,%ccm.c,1) == l)) { var %ccm.posm = %ccm.posm $+ $mid(%ccm.nm,%ccm.c,1) } }
if ((l isincs %ccm.posm) && (%ccm.nml === %ccm.oml)) { var %ccm.posm = $remove(%ccm.posm,l) }
if ((k isincs %ccm.posm) && (%ccm.nmk === %ccm.omk)) { var %ccm.posm = $remove(%ccm.posm,k) }
if ((k isincs %ccm.negm) && (k !isincs %ccm.posm)) { var %ccm.nmk = $+(-,%ccm.omk) }
var %ccm.tm = $calc($len(%ccm.negm) + $len(%ccm.posm))
if (%ccm.tm > 6) {
var %ccm.nm2 = $mid($+(%ccm.negm,%ccm.posm),7,1)
var %ccm.snm2 = $iif($len(%ccm.negm) <= 7,+,-)
}
if (%ccm.negm) { var %ccm.negm = – $+ %ccm.negm }
if (%ccm.posm) { var %ccm.posm = + $+ %ccm.posm }
var %ccm.negposm = $replace(%ccm.negm $+ %ccm.posm,++,+)
var %ccm.newmodes1 = $iif(%ccm.nm2,$left(%ccm.negposm,$calc($pos(%ccm.negposm,%ccm.nm2,1) – 1)),%ccm.negposm)
if ((l isincs %ccm.newmodes1) && (k isincs %ccm.newmodes1)) { var %ccm.newmodes1 = %ccm.newmodes1 $iif($pos(%ccm.newmodes1,l,1) < $pos(%ccm.newmodes1,k,1),%ccm.nml %ccm.nmk,%ccm.nmk %ccm.nml) }
else { var %ccm.newmodes1 = %ccm.newmodes1 $iif(l isincs %ccm.newmodes1,%ccm.nml) $iif(k isincs %ccm.newmodes1,%ccm.nmk) }
if (%ccm.nm2) {
var %ccm.newmodes2 = $+(%ccm.snm2,$mid(%ccm.negposm,$pos(%ccm.negposm,%ccm.nm2,1)))
if ((l isincs %ccm.newmodes2) && (k isincs %ccm.newmodes2)) { var %ccm.newmodes2 = %ccm.newmodes2 $iif($pos(%ccm.newmodes2,l,1) < $pos(%ccm.newmodes2,k,1),%ccm.nml %ccm.nmk,%ccm.nmk %ccm.nml) }
else { var %ccm.newmodes2 = %ccm.newmodes2 $iif(l isincs %ccm.newmodes2,%ccm.nml) $iif(k isincs %ccm.newmodes2,%ccm.nmk) }
}
if (%ccm.newmodes1) { mode %ccm.ch %ccm.newmodes1 | if (%ccm.newmodes2) { mode %ccm.ch %ccm.newmodes2 } }
}
dialog oppanel {
title “.::[ oPeratör Menü ]::.”
size -1 -1 131 187
option dbu
list 1, 3 6 67 126, size vsbar
button “Op”, 2, 71 7 28 12
button “Deop”, 3, 99 7 30 12
button “Voice”, 4, 71 19 28 12
button “Devoice”, 5, 99 19 30 12
button “+o/-v”, 6, 71 31 28 12
button “-o/+v”, 7, 99 31 30 12
button “Sop Yaz”, 8, 71 43 28 12
button “Sop Sil”, 9, 99 43 30 12
button “Aop Yaz”, 10, 71 55 28 12
button “Aop Sil”, 11, 99 55 30 12
button “+Vop”, 12, 71 67 28 12
button “-Vop”, 13, 99 67 30 12
button “Kick”, 14, 71 83 28 12
button “Akick”, 15, 99 83 30 12
button “Ban”, 16, 71 95 28 12
button “İp ban”, 17, 99 95 30 12
button “Kick+Ban”, 18, 71 107 28 12
button “KBan IP?”, 19, 99 107 30 12
combo 20, 20 161 70 100, size drop
text “Kanal”, 21, 1 162 17 8
button “Kapat”, 22, 93 174 37 10, ok cancel
button “Yenile”, 23, 93 161 37 10
edit “”, 24, 20 135 70 10, disable autohs
edit “”, 25, 20 147 70 10, disable autohs
text “Topik”, 26, 1 136 18 8
text “Modlar”, 27, 1 148 18 8
button “Topic Kaydet”, 28, 93 135 37 10, disable
button “Mod Kaydet”, 29, 93 148 37 10, disable
button “Süreli KB”, 30, 71 119 28 12
button “Süreli Ban”, 31, 99 119 30 12
}
on 1:dialog:oppanel:init:0: {
mdx MarkDialog $dname
mdx SetBorderStyle 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,22,23,28,29,30,31 staticedge
mdx SetFont 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 +a 13 500 tahoma
var %i = 1
while ($chan(%i)) {
did -a oppanel 20 $ifmatch
inc %i
}
did -c oppanel 20 1
%chan = $did(20).seltext
%i = 1
while ($nick(%chan,%i).pnick) {
did -a oppanel 1 $ifmatch
inc %i
}
did -a oppanel 24 $chan(%chan).topic
did -a oppanel 25 $chan(%chan).mode
if ((*o* iswm $usermode) || ($me isop %chan)) {
did -e oppanel 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,22,23,24,25,28,29
}
}
on 1:dialog:oppanel:close:0: {
unset %onick, %chan
}
on 1:dialog:oppanel:sclick:1: {
%formatnick = $did(oppanel,1).seltext
if ($left(%formatnick,1) isin @+%~?*!) {
set %onick $remove(%formatnick,$left(%formatnick,1))
unset %formatnick
if ($left(%onick,1) isin @+%~?*!) {
set %onick $remove(%onick,$left(%onick,1))
if ($left(%onick,1) isin @+%~?*!) {
set %onick $remove(%onicknick,$left(%onick,1))
}
}
}
else {
set %onick $did(oppanel,1).seltext
}
}
on 1:dialog:oppanel:sclick:2: {
if ($isop) { mode $panelchan +o $paneluser | trefresh }
}
on 1:dialog:oppanel:sclick:3: {
if ($isop) { mode $panelchan -o $paneluser | trefresh }
}
on 1:dialog:oppanel:sclick:4: {
if ($isop) { mode $panelchan +v $paneluser | trefresh }
}
on 1:dialog:oppanel:sclick:5: {
if ($isop) { mode $panelchan -v $paneluser | trefresh }
}
on 1:dialog:oppanel:sclick:6: {
if ($isop) { mode $panelchan -v+o $paneluser $paneluser | trefresh }
}
on 1:dialog:oppanel:sclick:7: {
if ($isop) { mode $panelchan -o+v $paneluser $paneluser | trefresh }
}
on 1:dialog:oppanel:sclick:8: {
if ($isop) { chanserv SOp $panelchan add $paneluser }
}
on 1:dialog:oppanel:sclick:9: {
if ($isop) { chanserv SOp $panelchan del $paneluser }
}
on 1:dialog:oppanel:sclick:10: {
if ($isop) { chanserv AOp $panelchan add $paneluser }
}
on 1:dialog:oppanel:sclick:11: {
if ($isop) { chanserv AOp $panelchan del $paneluser }
}
on 1:dialog:oppanel:sclick:12: {
if ($isop) { chanserv VOp $panelchan add $paneluser }
}
on 1:dialog:oppanel:sclick:13: {
if ($isop) { chanserv VOp $panelchan del $paneluser }
}
on 1:dialog:oppanel:sclick:14: {
if ($isop) { kick $panelchan $paneluser 1Kicked.! | trefresh }
}
on 1:dialog:oppanel:sclick:15: {
if ($isop) { chanserv akick $panelchan $?=”Add/Del?” $paneluser Auto Kick.! }
}
on 1:dialog:oppanel:sclick:16: {
if ($isop) { ban $panelchan $paneluser }
}
on 1:dialog:oppanel:sclick:17: {
if ($isop) { ban $panelchan $paneluser $?=”Ban Şekli?”) }
}
on 1:dialog:oppanel:sclick:18: {
if ($isop) { ban $panelchan $paneluser 2 | kick $panelchan $paneluser 2You are banned.! 7 $me | trefresh }
}
on 1:dialog:oppanel:sclick:19: {
if ($isop) { ban $panelchan $paneluser $?=”Ban Şekli?”) | kick $panelchan $paneluser 2You are banned.!7 $me | trefresh }
}
on 1:dialog:oppanel:sclick:20: {
did -r oppanel 1,24,25
%c = $nick($did(oppanel,20).seltext,0)
%i = 1
while (%i <= %c) {
did -a oppanel 1 $nick($did(oppanel,20).seltext,%i).pnick
inc %i
}
if (($me isop $did(oppanel,20).seltext) || (*o* iswm $usermode)) {
did -ei oppanel 24 1 $chan($did(oppanel,20).seltext).topic
did -ei oppanel 25 1 $chan($did(oppanel,20).seltext).mode
did -e oppanel 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,22,23,24,25,28,29
}
else {
did -ib oppanel 24 1 $chan($did(oppanel,20).seltext).topic
did -ib oppanel 25 1 $chan($did(oppanel,20).seltext).mode
did -b oppanel 28,29
}
}
on 1:dialog:oppanel:sclick:23: {
dialog -x oppanel oppanel
dialog -m oppanel oppanel
}
on 1:dialog:oppanel:sclick:28: {
%oldtopic = $chan($did(oppanel,20).seltext).topic
if (%oldtopic != $did(oppanel,24)) {
topic $did(oppanel,20).seltext $did(oppanel,24)
}
}
on 1:dialog:oppanel:sclick:29: {
ccm $did(oppanel,25)
}
on 1:dialog:oppanel:sclick:30: {
if ($isop) { ban $+(-u,$calc($input(Kaç Dakika Banlı olsun ban?,qe,Süreli Ban) * 60)) $panelchan $paneluser 2 | kick $panelchan $paneluser 2You are Kick+ban.! 7 $me | trefresh }
}
on 1:dialog:oppanel:sclick:31: {
if ($isop) { ban $+(-u,$calc($input(Kaç dakika? ban?,qe,Süreli Ban) * 60)) $panelchan $paneluser 2 }
}