#ServerCp off
on $*:snotice:/client\s(connecting|exiting)/Si: {
var %_reg = $regml(1),%_ip = $remove($gettok($10,2,64),$chr(41))
if ($(,%_reg) = connecting) {
hinc -m _ips %_ip 1
if ($hget(_ips,%_ip) = %csayi) {
if (%cShun == on) { shun $9 +10m %clogo | hdel _ips %_ip }
if (%ckill == on) { kill $9 %clogo | hdel _ips %_ip }
if (%cakill == on) { os killclones $9 | hdel _ips %_ip }
if (%cz-Line == on) { zline $9 +10m %clogo | hdel _ips %_ip }
}
if ($(,%_reg) = exiting) $iif($hget(_ips,%_ip),hdec _ips %_ip 1)
}
}
#ServerCp end
#chanCp on
on @*:join:#: {
if ($regex($site,/(*admin|*oper|ircop|helper)/i)) { halt }
if ($ialchan($wildsite,#,0) > %csayi) {
if ($nick isop #) && (%c@plar == on) { return }
if ($nick isvo #) && (%c+v == on) { return }
if (%cban == on) { ban $iif(%csure isnum,-u $+ %csure) # $nick 2 }
if (%ckick == on) { kick # $ialchan($wildsite,#,1).nick %clogo }
}
}
#chanCp end
alias cprot { .dialog -m cprot cprot }
dialog cprot {
title "by WeiL"
size -1 -1 173 71
option dbu
box "ayarLa", 1, 1 1 87 69
check " Z-Line ", 8, 130 50 27 10
check " KiLL", 9, 92 59 21 10
edit "", 10, 114 32 23 10
text "Saniye", 11, 138 33 20 8
box "Ayir", 12, 89 1 40 26
box "ceza", 112, 89 26 83 44
check "@plar", 13, 93 7 34 10
check "+v", 14, 93 16 30 10
check " AKiLL", 7, 130 59 27 10
check " Kick", 15, 92 41 21 10
check " Ban", 16, 92 32 21 10
check " Shun", 17, 92 50 26 10
box "Mod", 18, 132 1 40 26
radio "admin", 21, 135 7 26 10
radio "aop", 22, 135 16 26 10
button "kaydet ve çık", 5, 27 34 58 12, ok
edit "", 2, 6 9 13 8
text ">= cLone sayısı", 19, 19 9 42 9
edit "", 20, 19 21 66 10, disable
text "Şuan:", 23, 3 22 16 8
button "iptaL", 24, 4 34 21 12, cancel
box "", 3, 3 46 83 22
}
on *:dialog:cprot:init:*:{
did -a $dname 2 %csayi
did -a $dname 10 %csure
if %c@plar == on { did -c $dname 13 }
if %c+v == on { did -c $dname 14 }
if %cz-Line == on { did -c $dname 8 }
if %ckill == on { did -c $dname 9 }
if %cakill == on { did -c $dname 7 }
if %cShun == on { did -c $dname 17 }
if %cban == on { did -c $dname 16 }
if %cKick == on { did -c $dname 15 }
if ($group(#ServerCp) == on) { did -c $dname 21 }
if ($group(#chanCp) == on) { did -c $dname 22 }
}
on *:dialog:cprot:sclick:*:{
if ($did == 5) { set %csayi $did(2) | set %clogo cLone Yasak | set %cduruma admin mod devrede | set %cdurumo operator mod devrede }
if $istok(7 8 9 13 14 15 16 17 ,$did,32) { $iif($did($did).state == 1,set %c $+ $gettok($did($did).text,1,32) on,.set %c $+ $gettok($did($did).text,1,32) off) }
if ($did = 21) { .disable #chanCp | .enable #ServerCp | did -b cprot 10,11,13,14,15,16 | did -e cprot 7,8,9,17 | did -r $dname 20 | did -a $dname 20 %cduruma }
if ($did = 22) { .disable #ServerCp | .enable #chanCp | did -e cprot 10,11,13,14,15,16 | did -b cprot 7,8,9,17 | did -r $dname 20 | did -a $dname 20 %cdurumo }
}
on *:dialog:cprot:edit:*:{
%csure = $did(10)
}
Remoteye ekliyosunuz açmak için /cprot
----------
|
PeRSGuaRD Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
öncelikle bugune kadar yardımlarınız ıcın butun ircforumlari ailesine teşekkür ederim. bazı eksikilikler var mIRC ta mesela
nıckıme sag tıklayıpta opa cıkamıyorum anca komut yazmam gerekıyor cs op #kanal bunu nasıl halledebılırım.
clone addonu bulamadım mırcta yuklu olan var clone gırıs cıkıslarını gosterıyor addonda sadece at kick v.s. secenegı var.yıne kanala sag tıklayıpta addonu acıp clone tarama secenegı olan bır addon olursa daha ıyı olur dıye dusunuyorum.
|
Operator
. +o $$1:/mode # +ooooo $$1 $2 $3 $4 $5
. - o $$1:/mode # -ooooo $$1 $2 $3 $4 $5
.-
. +v $$1:/mode # +vvvvv $$1 $2 $3 $4 $5
. - v $$1:/mode # -vvvvv $$1 $2 $3 $4 $5
.-
. +h $$1:/mode # +hhhhh $$1 $2 $3 $4 $5
. - h $$1:/mode # -hhhhh $$1 $2 $3 $4 $5
.-
. +a $$1:/mode # +aaaaa $$1 $2 $3 $4 $5
. - a $$1:/mode # -aaaaa $$1 $2 $3 $4 $5
.-
. +q $$1:/mode # +qqqqq $$1 $2 $3 $4 $5
. - q $$1:/mode # -qqqqq $$1 $2 $3 $4 $5
.-
. - o +v $$1:/mode # -o+v $$1 $$1
-
ChanServ
.Op (+o):/cs op # $$1
.DeOp (-o):/cs deop # $$1
.-
.Voice (+v):/cs voice # $$1
.DeVoice (-v):/cs devoice # $$1
.Halfop (+h):/cs halfop # $$1
.DeHalfop (-h):/cs dehalfop # $$1
.Protect (+a):/cs protect # $$1
.DeProtect (-a):/cs deprotect # $$1
.-