mIRC Operatör Menüsü Özel

**Nokta** · 29.01.12

Operatörlere Özel Op Paneli
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.

PHP- Kodu:

 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 }
 }