op paneli ( oplara özel )


irc serverlerda kanallardaki operatör arkadaşlar için yararli bir kod olan op paneli.

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

Eylül 2, 2010 tarihinde Genel, Hazır Kodlar içinde yayınlandı ve , , , olarak etiketlendi. Kalıcı bağlantıyı yer imlerinize ekleyin. Yorum yapın.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: