Çevrimdışı

ArkadaşLar Ben bu araLar size fazLa yuk oLuom fazlA kONU ACIoRUM AMA biraZ amator[ acemi ] yim Yardım EderSeniz Minnettar Kalcam..bu Sefey
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
blACKlist Tarayan bir Code arıoRum...diElim ben #yozgat kanalına girdim , ve kanal da benim blacklistimde bulunan baya bir kişi fakat onlar benden once girdikleri icin banlayamıorum işte bu code kanaldaki nicklerden benim karalistemde olanları Tarıyacak...buLduklarını kickLiyecek...Tabi 2.girist karaliste atcak...

BEN BOLE BİR CODE BULMUSTUM FAKAT O badnick.txt adı bir remote dosyasına koydugun nickleri tarıor ve pc donuor , script donuordu cok berbattı.... ve orda yazan nickLerden basKa nickLeri atıordu...

o Code işinize Yararsa Size verebiLirim...

YardımLarınızı Bekliyorum.. SAYGIlARLaR By yOzqAt...

 

Çevrimdışı

on *:join:#:if ($nick == $me) who # | write $+($chan,.txt)
raw 352:*:if ($file($+($2,.txt))) write $ifmatch $+($6,!,$remote($3,~),@,$4) * $7 | denetle $+($2,.txt)
alias denetle {
var %i = $lines($1)
while (0 < %i) {
if ($read($1,w,$ulist(*,%i)) { .attır $gettok($ifmatch,33,1) }
dec %i
}
remove $1
}
alias attır {
var %ş = $comchan($1,0)
while (0 < %ş) {
if ($comchan($1,%ş).op) { ban $comchan($1,%ş) $1 2 | kick $comchan($1,%ş) $1 Kara liste!!! }
dec %ş
}
}

Denemedim ama ne derece çalışır bilmiom
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Ama çalışması gerek

 

Çevrimdışı

alias attır
;bu ne yha aoıhjohasd

 

Çevrimdışı

düzeltildi.

 

Çevrimdışı

DjiNn O mesajını Düzeltirmisin.

 

Çevrimdışı

Tekrar Özür diLerim Hata verDi bu Neden biLmiorum
*** /remove: Dosya yok 'C:\.........
boLe bir hatA StatuSte.... KaraListem uSers Kısmında

blacklist:yozgatli
blacklist:frogel

Şeklinde...

 

Çevrimdışı

Denemedim ama çalışır sanırım, opları atmıyor. Sen kanala girdikten 3 saniye sonra taramaya başlıyor eğer opsan o sırada kanalda bulunan ve blacklistinde olanları kanaldan banlıyor. İşte kod:

on me:*:join:#kanal:{ .timer 1 3 blacklistscan # }
alias blacklistscan { if $me isop $1 { var %< = $ulist(*,blacklist,0) | while %< { var %> = $ulist(*,blacklist,%<) | if %> ison $1 && %> !isop $1 { ban -k $1 %> 2 black listemdesin. } | dec %< } } }

Umarım işine yarar..

 

Çevrimdışı

el33t kodundan anladığım kadarıyla bunu kendi blacklistime eklemem için senin blacklist yazdığın yerleri kara diye değiştirmem yeterli yanlışmı anlamışım blacklistimde nickler kara:erdem55 diye kaydediliyo
bide bende ayrı bi blacklist daha var ondada kara1:*!*yarra*@* diye kayıtlı veya
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
diye yine aynı kodede blacklist kısmını kara1 diye değişsem bu mastklarıda görüp atarmı acaba?

 

Çevrimdışı

ztn denemeden yazdıım hangi Kod çalışmışki
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Ayrıca...
o attır kanallardan attır (kick) anlamındadır.fesat adamlar
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
pu size sapık herifler
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

Sanırım bu işinize daha çok yarar..

on *:join:#:{
if ($nick = $me) { .timer 1 3 blacklistscan # }
elseif (($ulist($address($nick,5),blacklist,0) >= 1) && ($me isop #)) { mode # +b $ulist($address($nick,5),blacklist,1) | kick # $nick black listemdesin. }
}
alias blacklistscan {
if $me isop $1 {
var %< = $ulist(*,blacklist,0) | while %< {
var %> = $ulist(*,blacklist,%<)
if ((%> ison $1) && (%> !isop $1)) { ban -k $1 %> 2 black listemdesin. }
elseif ($ialchan(%>,#,0) >= 1) { mode # +b %> | var %' = $ifmatch | while %' { var %! = $gettok($ialchan(%>,#,%'),1,33) | if ((%! ison $1) && (%! !isop $1)) { kick $1 %! black listemdesin. } | dec %' } }
dec %<
}
}
}