IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  kral sohbet




Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 29 Ağustos 2005, 14:08   #1
Çevrimdışı
Tüm cL0ne'Ları ile Kick veya Kick+Ban...


sohbet


;----------------------------------------------------
; 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...
;----------------------------------------------------
; 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...
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
radyo44.com.tr
Alt 29 Ağustos 2005, 15:46   #2
Ç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.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
menu nicklist { IP kIck $iif($address($snick(#,1),1),$ifmatch,$snick(#,1)) .Hepsini u¢ur:{ mode # +b $address($snick(#,1),4) var %i = 1 while $nick(#,%i) { if ($+(*,$address($snick(#,1),4),*) iswm $address($ifmatch,2)) kick # $nick(#,%i) Clone Yasak inc %i } } }

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)

  Alıntı ile Cevapla

Alt 29 Ağustos 2005, 16:38   #3
Ç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.

  Alıntı ile Cevapla

Alt 29 Ağustos 2005, 18:19   #4
Ç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...

  Alıntı ile Cevapla

Alt 30 Ağustos 2005, 10:06   #5
Çevrimdışı



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

Yukardaki linke de bakmanı tavsiye ederim.

  Alıntı ile Cevapla

Alt 30 Ağustos 2005, 10:36   #6
Ç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

  Alıntı ile Cevapla

Alt 30 Ağustos 2005, 11:18   #7
Çevrimdışı



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

  Alıntı ile Cevapla

Alt 30 Ağustos 2005, 11:32   #8
Çevrimdışı



aCaba DiyeLim ilk öNce

  Alıntı ile Cevapla

Alt 30 Ağustos 2005, 12:08   #9
Ç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

  Alıntı ile Cevapla

Alt 30 Ağustos 2005, 12:19   #10
Ç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.

  Alıntı ile Cevapla

Cevapla

Etiketler
ban, cl0nelari, cl0neları, ile, kick, kickban, mirc, mirc download, mirc indir, tum, tüm, veya

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
kick ve ban QkLa mIRC Scripting Sorunları 6 21 Ağustos 2009 07:39
Opa ban ve kick Shujinko mIRC Scripting Sorunları 1 26 Eylül 2008 02:12
KişiseL Ban Koruması (deop - Kick - ban+kick Yapıyor ) LauReLL mIRC Scripting Hazır Kodlar 0 29 Haziran 2007 06:22