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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Blacklist'tekileri Tarasın ve Kanallardan Atsın... (https://www.ircforumlari.net/mirc-scripting-sorunlari/6321-blacklisttekileri-tarasin-ve-kanallardan-atsin.html)

yozgatli6644 11 Ağustos 2005 16:34

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

UOnur 11 Ağustos 2005 19:23

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

MaeLStrOm 11 Ağustos 2005 23:39

alias attır
;bu ne yha aoıhjohasd

djiNn 12 Ağustos 2005 00:31

düzeltildi.

Chelt 12 Ağustos 2005 00:58

DjiNn O mesajını Düzeltirmisin.

yozgatli6644 12 Ağustos 2005 11:22

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

el33t 12 Ağustos 2005 12:43

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

erdem55 12 Ağustos 2005 13:03

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?

UOnur 12 Ağustos 2005 13:37

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 :)

el33t 12 Ağustos 2005 13:39

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


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 09:50.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net