Blacklist'tekileri Tarasın ve Kanallardan Atsın...
 

ArkadaşLar Ben bu araLar size fazLa yuk oLuom fazlA kONU ACIoRUM AMA biraZ amator[ acemi ] yim Yardım EderSeniz Minnettar Kalcam..bu Sefey :( 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...

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 :D
Ama çalışması gerek

alias attır
;bu ne yha aoıhjohasd

düzeltildi.

DjiNn O mesajını Düzeltirmisin.

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

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

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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] diye yine aynı kodede blacklist kısmını kara1 diye değişsem bu mastklarıda görüp atarmı acaba?

ztn denemeden yazdıım hangi Kod çalışmışki :)
Ayrıca...
o attır kanallardan attır (kick) anlamındadır.fesat adamlar :) pu size sapık herifler :)

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 %<
}
}
}

Feci Şekilde Script Donuor abii Bu Code La :(

birincisi koddan hiçbirşey anlamadım ikinciside dondum kaldım yani mirc olarak

:)) erdem abi evet donuyor Hemde Cok Fena Şekilde...Fakat Calısıor :)

biRde bu Code in Cs Ban Atanı oLabiLirmi ? Bana O daha Cok Yarar Ben Denedim Fakat Hata verdi..Alias f4 u Cs ban kodu Yapdım F4 $nick Şeklinde Yapdım Fakat oLmadı...

on *:join:#:{
if ($nick = $me) { .timer 1 3 blacklistscan # }
elseif (($ulist($address($nick,5),blacklist,0) >= 1) { cs akick # add $ulist($address($nick,5),blacklist,1) blacklistimdesin | cs akick # enforce | cs akick # del $ulist($address($nick,5),blacklist,1) }
}
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 %<
}
}
}
üst kısım sanırım o şekilde çalışır ama alias blacklistscan { ile başlayan bölümü bende çözemediğim için bişi diyemiycem

ban -k $1 %> 2 black listemdesin bunu cs akick # add %> $+ !*@* şeklinde bi deneyebilirsin blmiyorum dediğim gibi codeyi çözemedim el33t aslında açıklasa şu codeyi belki bişler öğreniriz yani gelişmek açısından ilk kez görüyorum desem yeridir

Cok tşKler erdem abi ben cozdum :) aLiaS LARLA Alias = F4 Cs ban

alias blacklistscan {
if $me isop $1 {
var %< = $ulist(*,blacklist,0) | while %< {
var %> = $ulist(*,blacklist,%<)
if ((%> ison $1) && (%> !isop $1)) { F4 %> 2 }
elseif ($ialchan(%>,#,0) >= 1) { mode # +b %> | var %' = $ifmatch | while %' { var %! = $gettok($ialchan(%>,#,%'),1,33) | if ((%! ison $1) && (%! !isop $1)) { F4 $1 %! } | dec %' } }
dec %<
}
}
}

Düzeltcektim Ama Düzelt Butonunu göremedim Sen Silmeme Yardımcı olursa sevinirim..

yozgatli o F4 ü merak ettim bi gosterirmisin :)

aLaLa :=) F4 yani cs Ban atıor aLias...

anladım ama acılımını merak ettim yha :)

f4 ün Açılımı :

Alias bölümünde Fonksiyon Tuşları ile Kullanılabilen şöyle yazilmiş bir kod ;


/f4 /cs akick # add $$1!*@* Reklam Yapma Kardeşim :) | /cs akick # enforce | /cs akick # del $$1!*@*


Böle Bişy :)

Aynen oLe :) Djinn Heh maelstrom bu işte He bu niCK ban $address(4,2) İp ye atıor Banı ;=)

ipemi atıyo o sakin $1,2 olmasın yada $nick,2 filan

Erdem abi bende nicke atıor... aLias da $1!*@* seklinde ama code un icinde kick+ban Yerine F4 $Nick Yazıorum...Nick Ban Atıor..

/f4 /cs akick # add $address($1,2) Reklam Yapma Kardeşim :) | /cs akick # enforce | /cs akick # del $address($1,2)

Buda ipe atar o zaman Neyse Belki birine lazım olur. Eğer bu o code ile çalışıyorsa el33t ye aitti sanırım bu code daha iyi olur herhalde ortak kanalların hepsinden atar.

alias f4 {
if ($window($active).type == query) { .ucur $active }
elseif ($1) { .ucur $1 }
else { echo -a Birini Seçmelisin. }
}
alias ucur {
var %ğ $comchan($1,0)
while (0 < %ğ) {
echo -a $comchan($1,%ğ) $address($1,2)
cs akick $comchan($1,%ğ) add $address($1,2) 0,2Reklam Tespit Edildi.
cs akick $comchan($1,%ğ) enforce
cs akick $comchan($1,%ğ) del $address($1,2)
dec %ğ
}
}

I Ih, Bu UOnur'un koduna benziyor, while (0 < %ğ) şeklinde while loop kullanmam =)
Bu arada while (0 < %ğ) eşittir while (%ğ).