Çevrimdışı

;----------------------------------------------------
; 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...

 

Çevrimdışı

Zamanında bana UOnur abim bir kod yazmisti
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Bak ne adamlar, senin kodu kac satirda hallediyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
(Saka manada soledim yannis annama)

 

Çevrimdışı

valla eline koluna sağlık dostum. İkiside iş görür bunların
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

Doğru haklısın requiem
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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...
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Katkı olsun diye koydum buraya.

Neyse yinede saol kardeşim.

Sevgiler... Saygılar...

 

Çevrimdışı

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

Yukardaki linke de bakmanı tavsiye ederim.

 

Çevrimdışı

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

 

Çevrimdışı

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

 

Çevrimdışı

aCaba DiyeLim ilk öNce

 

Çevrimdışı

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

 

Çevrimdışı

$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.