Tüm cL0ne'Ları ile Kick veya Kick+Ban...
 

;----------------------------------------------------
; IALKick ve IALKickBan
; C0ded by Cappystarjoe
;
; IALKick # nick sebep
; IALKickban # nick sebep
;
; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
;----------------------------------------------------

on *:join:#:{ .IAL ON }
alias IALKick {
.set %ial.adresi $address($2,2)
.set %ial.toplam $ialchan(%ial.adresi,$1,0)
.set %ial.say 0
while (%iaL.say <= %ial.toplam) {
if $ialchan(%ial.adresi,$1,%ial.say).nick ison $chan {
kick $1 $ialchan(%ial.adresi,$1,%ial.say).nick $3- -Vs2-
}
inc %ial.say 1
}
.unset %ial.*
.halt
}
alias IALKickBan {
.set %ial.adresi $address($2,2)
.set %ial.toplam $ialchan(%ial.adresi,$1,0)
.set %ial.say 0
mode $1 +b $address($2,2)
while (%iaL.say <= %ial.toplam) {
if $ialchan(%ial.adresi,$1,%ial.say).nick ison $chan {
kick $1 $ialchan(%ial.adresi,$1,%ial.say).nick $3- -Vs2-
}
inc %ial.say 1
}
.unset %ial.*
.halt
}

Menu NickList {
Tüm Adresler $$1
.Tüm Adreslerine Kick...:ialkick # $$1 $?:"Sebep?:"
.Tüm Adreslerine Kick+Ban...:ialkickban # $$1 $?:"Sebep?:"
}
;-------------------------------------------------------

Bu 2 komutla Nick Listesinden seçeceğiniz 1 user a kanaldaki bütün clone ları ile kick veya kickban uygulama şansınız var.

Isterseniz bir de clone koruması yapabilirsiniz.
Örneğin:

#CloneKoruması ON
on &@*:join:#: {
if ($ialchan($wildsite,#,0) > %cLone.say) { ialkickban # $ialchan($wildsite,#,1).nick 4cL0ne Koruması -!-2 %clone.say 4cL0ne'dan fazla cL0ne2 $chan 4kanalına giremez!!! -Vs2- }
}
#CloneKoruması End

Burada %cLone.say variables ını ayarladığınız zaman istediğiniz sayıda clone dan fazlası sizin kanalınıza giremeyecek!

Sevgiler... Saygılar...

Zamanında bana UOnur abim bir kod yazmisti :D
Bak ne adamlar, senin kodu kac satirda hallediyor :) (Saka manada soledim yannis annama)

valla eline koluna sağlık dostum. İkiside iş görür bunların:)

Doğru haklısın requiem :)
napalim zamanında elimizden bu kadar geliyormuş. Bunu çok önce yazdım ben o zamanlar benim için kodun kısa olup olmamasının önemi yoktu (önemini sonra anladım:p)daha yeni yeni başlamıştım yazmaya... :)
hatta bakarsan $1 ve $2 yi ayrı ayrı setlemişim % ile kullanmışım halbuki hiç setlemeden identifierların kendileriyle de kullanabilirim. % leri çıkarırsan zaten aynı kod olduğunu göreceksin :) Katkı olsun diye koydum buraya.

Neyse yinede saol kardeşim.

Sevgiler... Saygılar...

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Yukardaki linke de bakmanı tavsiye ederim.

evet el33t orada yazdığın code harika çalışıyo ama tek sorunun cs ban olayına çevirince ara sıra takılması belkide yanlış yaptım bilmiyorum şuan ona bakıyorum inş düzeltebilirim

erdem sen takılıyo dediğin kodu kopyalasana buraya ona gore bi bakalım nerde hata yapmışsın neden tekliyo arada

aCaba DiyeLim ilk öNce

maelstrom işte kod bu
on @!*:JOIN:#:{
if ($ialchan($wildsite,#,0) > 1) {
var %' = $ifmatch, %. | while %' {
var %7 = $gettok($ialchan($wildsite,#,%'),1,33)
if (%7 !isop #) { %. = $addtok(%.,%7,44) | dec %' } | else { return } }
if %. { mode # +b $wildsite | var %~ = $numtok(%.,44) | while %~ { kick # $gettok(%.,%~,44) clone | dec %~ } }
}
}

bu şekilde gayet iyi çalışıyor ama cs olayına çevirince bi banlayıp bi banlamayınca kodu kaldırmıştım şimdide bulamıyorum o kodu yani yazabileceğim şuanda sadece bu

$gettok(%.,%~,44)
bu kodda burası nicki belirtir.
on @!*:JOIN:#:{
if ($ialchan($wildsite,#,0) > 1) {
var %' = $ifmatch, %. | while %' {
var %7 = $gettok($ialchan($wildsite,#,%'),1,33)
if (%7 !isop #) { %. = $addtok(%.,%7,44) | dec %' } | else { return } }
if %. { mode # +b $wildsite | var %~ = $numtok(%.,44) | while %~ { cs akick # add $+($gettok(%.,%~,44),!*@*) clone | cs akick # enforce | cs akick # del $+($gettok(%.,%~,44),!*@*) | dec %~ } }
}
}
kodu bu şekilde değiştirdim.umarım çalışır.