| ZaLiM1979 | 26 Kasım 2025 21:34 |
Cevap: Nicklistte nick arama
Alıntı:
Enes Nickli Üyeden Alıntı
(Mesaj 1042660147)
diyalog olduğu için sanırım sağ tık olayı vs. olmuyor. Alttaki kapat seçeneği gibi, tıklanan nicke farklı işlemler uygulama için mesela kutucuklar eklenebilir mi ?
Örneğin ; voice | KickBan | Shun | Gzline < gibi bir menü
|
Konu-Hortlatma oldu ama elimde öyle bi addon var, yükleyim belki lazim olur. Yapimci ben degilim. Kod:
menu * {
» OP ToolBar:/dialog -m oppanel oppanel
-
}
on *:OP:#: {
if ($opnick == $me) {
/dialog -m oppanel oppanel
}
}
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 {
;Tesekkü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 135 190
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 "Ip 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 1Kick Nedeni: $?="Kick Nedeni?" | 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 Sekli?") }
}
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 Sekli?") | 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 Banli 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 }
}
|
