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

Etiketlenen Kullanıcılar

1Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 17 Ekim 2010, 23:23   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
badnick korumamda sorunum var




alias badnicktara {
if $me isop $1 {
set %:bulunan 0
var %s 1
while %s <= $nick($1,0) {
%:gnick = $nick($1,%s)
if %:gnick isreg $1 && $level(%:gnick $+ !*@*) == badnick {
inc %:bulunan 1
mode #sohbet +b $address($1,2)(%:gnick,666,1)
kick $1 %:gnick $read(badsozler.txt)
}
inc %s
}
/msg #master Kanal listesi tarandi: $1 kanalında - %:bulunan badnick bulundu.
}
else {
echo -a 2 $1 kanalinda OP olmaniz gerekmektedir.
}
}
raw badnick:*: {
badnicktara $1
}
on *:join:#sohbet: {
if $level($nick $+ !*@*) == badnick {
mode #sohbet +b $address($1,2)($nick,666,1)
kick #sohbet $nick $read(badsozler.txt)
}
}
on *:nick: {
if $level($newnick $+ !*@*) == badnick {
mode #sohbet +b $address($1,2)($newnick,666,1)
kickall $nick $read(badsozler.txt)
}
}
alias kickall {
var %i 1
while %i <= $comchan($1,0) {
if $1 !isop $comchan($1,%i) { kick $comchan($1,%i) $1 $2- }
inc %i
}
}
on *:op:#sohbet: {
if $opnick == $me {
badnicktara #sohbet
}
}

arkadaslar buna muaf kanal eklemek istiyorum yardım ederseniz sevinirim.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver
Alt 18 Ekim 2010, 09:19   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: badnick korumamda sorunum var




Kendi Kullandığım badnick korumamı verebiLirim özel bi sekıl'de codlanmıs güzel ve farkLı 1sey ;

alias Shitlist { if ($dialog(Shitlist)) { dialog -c Shitlist } | dialog -ma Shitlist Shitlist }
dialog Shitlist {
size -1 -1 295 346
title "Shitlist & Otomatik Ban Sistemi"
Combo 1, 1 1 240 330
button "&Ekle", 2, 244 2 50 22
button "&Çikar", 3, 244 24 50 22
button "Tamam", 4, 244 324 50 22,ok
Check "Shitlist Açık" , 5 , 1 327 241 20
}
on *:dialog:Shitlist:*:*: {
if ($devent == init) { Shitlist.init }
if ($devent == sclick) {
if ($did == 2) { if ($did(1) != $null) { /.auser Karaliste $did(1) | Shitlist.init } }
if ($did == 3) { if ($did(1) != $null) { /.ruser $did(1) | Shitlist.init } }
if ($did == 5) {
if ($did(5).state == 1) { writeini " $+ $mircini $+ " Shitlist Shitlist on }
if ($did(5).state == 0) { writeini " $+ $mircini $+ " Shitlist Shitlist off }
}
}
}
alias Shitlist.init {
did -r Shitlist 1
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) { did -c Shitlist 5 }
set %ul 1
while (%ul <= $ulist(*,0)) {
if ($level($ulist(*,%ul)) == karaliste) { did -a Shitlist 1 $ulist(*,%ul) }
inc %ul 1
}
unset %ul
}
on Karaliste:join:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick | kick $chan $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.
}
}
}
on Karalisteart:part:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick
}
}
}
on Karaliste:nick: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.
}
}
}
on Karaliste:text:*:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.
}
}
}
on Karaliste:notice:*:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.
}
}
}
on Karaliste:action:*:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.
}
}
}
on Karalistep:#:op {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.
}
}
}
on Karaliste:deop:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.
}
}
}
on Karaliste:voice:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.
}
}
}
on Karaliste:devoice:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.
}
}
}
on Karaliste:help:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.
}
}
}
on Karaliste:dehelp:#: {
if ($readini " $+ $mircini $+ " Shitlist Shitlist == on) {
if ($nick !isop $chan) && ($nick !ishop $chan) {
mode $chan +b $nick 5 Nick Seviyeniz ve Identiniz Kanal Kurallarımıza Uygun Değildir. 6 Lütfen /nick YeniNick yapınız.
}
}
}


Vaktim olmadıgı ıcın ekran Görüntusunu paylasamıyorum ama güzel 1 cod

NOT : Kodu açmak için /shitlist yazınız..

 
Alıntı ile Cevapla

Alt 18 Ekim 2010, 13:56   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: badnick korumamda sorunum var




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias badnicktara { if $me isop $1 { set %:bulunan 0 var %s 1 while %s <= $nick($1,0) { %:gnick = $nick($1,%s) if %:gnick isreg $1 && $level(%:gnick $+ !*@*) == badnick { inc %:bulunan 1 mode #sohbet +b $address($1,2)(%:gnick,666,1) kick $1 %:gnick $read(badsozler.txt) } inc %s } /msg #master Kanal listesi tarandi: $1 kanalında - %:bulunan badnick bulundu. } else { echo -a 2 $1 kanalinda OP olmaniz gerekmektedir. } } raw badnick:*: { badnicktara $1 } on *:join:#sohbet: { if ($istok(#help #operhelp #Opers #ops,$chan,32)) { halt } if ($nick isop #) return if $level($nick $+ !*@*) == badnick { mode #sohbet +b $address($1,2)($nick,666,1) kick #sohbet $nick $read(badsozler.txt) } } on *:nick: { if ($istok(#help #operhelp #Opers #ops,$chan,32)) { halt } if ($nick isop #) return if $level($newnick $+ !*@*) == badnick { mode #sohbet +b $address($1,2)($newnick,666,1) kickall $nick $read(badsozler.txt) } } alias kickall { var %i 1 while %i <= $comchan($1,0) { if $1 !isop $comchan($1,%i) { kick $comchan($1,%i) $1 $2- } inc %i } } on *:op:#sohbet: { if $opnick == $me { badnicktara #sohbet } }

Kırmızı ile belirttiğim yerlere hangi odalarda işlem yapmamasını istiyorsan yazarsın o odalarda koruma çalışmaz iyi forumlar..

__________________
Lucifer dediler bana, kötülüğü anlatmak için. Halbuki, ışık ve güzelliği anlatırdı Lucifer. Ben kötüyüm bu düzen için; ama değilim asla kötülük.
 
Alıntı ile Cevapla

Alt 21 Ekim 2010, 17:19   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: badnick korumamda sorunum var




hocam sorun hala dewam ediyor demek istediğim su sohbet kanalında op olduqumda tarama yapıyor bulduqu nickleri #rescue kanalnda da banlıyor bad nick ister o kanalda olsun ister olmasın ama o banı atıyor buna bi çözüm varmı

 
Alıntı ile Cevapla

Alt 30 Ekim 2010, 13:26   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: badnick korumamda sorunum var




yokmu yardım edebilecek biri ?

 
Alıntı ile Cevapla

Alt 30 Ekim 2010, 14:51   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: badnick korumamda sorunum var




Bence bu işini görür.
Senin kullandıgın kodu denedim sadece kick atıyor.
İkincisi badnicklere ban atarken İP'e degil sadece nicke atmanı tavsiye ederim.
Alttaki kodun calısma mantıgı gelince.
@ yetkin oldugu bütün kanallardan badnickleri atabilirsin.
Badnick taratmak icin /tara #kanal ismi yazman yeterli.
Muaf tutulan kanallarda taratsanda o kanaldan atmıcak.
Badnick degisimlerinde de aynı sekilde calısacak.
kanalda sonradan badnicke gecen rumuzlar olursa atılacak.
Ama muaf tutulan kanalda sonradan badnicke gecen olsada bile atmıcak.
Badnick listesine Bad:*** seklinde de ekleyebilirsin
Bad:***** seklinde de.
Ayrıca bu kodda sadece kanal degil nickleride muaf tutabilirsin.
örn: Bad:*gay*
koruma:*tugay*

Not: Bu kod ircforumlari.net'den tarafımca alınmıştı.
Ve bu kodu yazan, emek veren arkadasa veya arkadaslara Teşekkür. ederim.


on @Bad:JOIN:#kanal:{
if ($ulist($nick,koruma,0) >= 1) { return }
elseif !$istok(#Korunacakkanal,$chan,32) {
mode $chan +b $nick
kick $chan $nick 2Rumuzunuz KanaL 4Seviyesine 2Uygun Degil.
}
}
#Bad end
menu status,menubar,channel {
.-
.» Bad Nick
.Bad Aç: if $group(#Bad) == off { .enable #Bad | echo -a 12Badnick 4koruması açılmıştır. } | else { echo -a 5Badnick Koruması 4zaten açık 5durumda.. }
.Bad Kapat: if $group(#Bad) == on { disable #Bad | echo -a 12Badnick 4Koruması kapatılmıştır. } | else { echo -a 5Badnick 5Koruması 4zaten kapalı 5durumda.. }
.Durum: if $group(#Bad) == on { echo -a 5Durum: Koruma Açık } | else { echo -a 5Durum: Koruma Kapalı }
}

alias tara {
var %jnk 1
while %jnk <= $nick($1,0) {
if $istok(#korunacakkanal,$chan,32) { halt }
if !$ulist($nick($1,%jnk),koruma,0) && $ulist($nick($1,%jnk),Bad,0) {
mode $chan +b $nick($1,%jnk)
kick $chan $nick($1,%jnk) 2Rumuzunuz KanaL Seviyesine Uygun Degil.
}
inc %jnk
}
}

on *:NICK:{
if ($ulist($+($newnick,!*@*),koruma,0) >= 1) { return }
else {
if $ulist($+($newnick,!*@*),bad,0) {
var %Cnk = 1
while $comchan($newnick,%Cnk) {
var %e = $v1
if $me isop %e && !$istok(#korunacakkanal,%e,32) {
mode %e +b $newnick
kick %e $newnick 2Gecmis oldugunuz rumuz kanal 4Seviyesine 2uygun degil.
}
inc %Cnk
}
}
}
}

 
Alıntı ile Cevapla

Alt 30 Ekim 2010, 15:18   #7
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: badnick korumamda sorunum var




ö26üR Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
alias badnicktara {
if $1 == #kanal1 || #kanal2 || #kanal3 {
echo -a HATA: Bu kanallarda Bad Nick Tarayamazsın.
halt
}
if $me isop $1 {
set %:bulunan 0
var %s 1
while %s <= $nick($1,0) {
%:gnick = $nick($1,%s)
if %:gnick isreg $1 && $level(%:gnick $+ !*@*) == badnick {
inc %:bulunan 1
mode #sohbet +b $address($1,2)(%:gnick,666,1)
kick $1 %:gnick $read(badsozler.txt)
}
inc %s
}
/msg #master Kanal listesi tarandi: $1 kanalında - %:bulunan badnick bulundu.
}
else {
echo -a 2 $1 kanalinda OP olmaniz gerekmektedir.
}
}
raw badnick:*: {
badnicktara $1
}
on *:join:#sohbet: {
if $level($nick $+ !*@*) == badnick {
mode #sohbet +b $address($1,2)($nick,666,1)
kick #sohbet $nick $read(badsozler.txt)
}
}
on *:nick: {
if $level($newnick $+ !*@*) == badnick {
mode #sohbet +b $address($1,2)($newnick,666,1)
kickall $nick $read(badsozler.txt)
}
}
alias kickall {
var %i 1
while %i <= $comchan($1,0) {
if $1 !isop $comchan($1,%i) { kick $comchan($1,%i) $1 $2- }
inc %i
}
}
on *:op:#sohbet: {
if $opnick == $me {
badnicktara #sohbet
}
}

arkadaslar buna muaf kanal eklemek istiyorum yardım ederseniz sevinirim.

if $1 == #kanal1 || #kanal2 || #kanal3 {
echo -a HATA: Bu kanallarda Bad Nick Tarayamazsın.
halt
}

Eklediğim kodlar bunlar. kanal1 kanal2 kanal3'ü değiştir.


 
Alıntı ile Cevapla

Alt 30 Ekim 2010, 23:20   #8
Çevrimdışı
Leo
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: badnick korumamda sorunum var




ircoplara özel badnick korumasi varmidir giren badnicke direk killeyecek ve ekleme silme özelliği olcak

 
Alıntı ile Cevapla

Alt 31 Ekim 2010, 00:11   #9
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: badnick korumamda sorunum var




En basitinden birtane yazim. Daha gelişmişlerinide bulabilirsin.

Alıntı:
menu query {

Alıntı:
Bad nick Ekle:auser opers $active
Bad Nick Sil:ruser opers $active
}
menu nicklist {
Bad Nick Ekle: auser opers $$1
Bad Nick Sil: ruser opers $$1
}
alias badekle {
auser opers $1
}
alias badsil {
ruser opers $1
}
on opers:join:#: {
kill $nick Sebep
}


/badekle Nick (badnick ekler)
/badsil Nick (badnick siler)

Nick Listesinde bir nicke tıkladıgında Bad Nick Ekle ve
Bad Nick Sil seçeneklerinide kullanabilirsin.

Bir nickin özeline gittiğinde yine aynı şekidle Bad Ekle diyerek ekleyip sil diyerekte çıkartabilirsin.

 
Alıntı ile Cevapla

Alt 30 Mayıs 2011, 13:56   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: badnick korumamda sorunum var




alias badnicktara {
if $me isop $1 {
set %:bulunan 0
var %s 1
while %s <= $nick($1,0) {
%:gnick = $nick($1,%s)
if %:gnick isreg $1 && $level(%:gnick $+ !*@*) == badnick {
inc %:bulunan 1
mode $chan +b $nick($1,%jnk)
kick $1 %:gnick $read(badsozler.txt)
}
inc %s
}
/msg #master Kanal listesi tarandi: $1 kanalında - %:bulunan badnick bulundu.
}
else {
echo -a 2 $1 kanalinda OP olmaniz gerekmektedir.
}
}

Arkadaşlar bu kısım için bana yardımcı olursanız sevinirim sadece kick atıyor nick ban atması için gerekli düzeltmenin ne olduğunu gösterirseniz sevinirim ilginiz için tşkler iyi forumlar


Konu ö26üR tarafından (30 Mayıs 2011 Saat 14:20 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Cevapla

Etiketler
badnick, korumamda, sorunum, var


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

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
Badnick badnick.db varsa guest yapsın alphae Eggdrop, NeoStats, BNC 2 08 Şubat 2018 17:16
hash tekrar korumamda sorun var.. cashmare mIRC Scripting Sorunları 21 16 Nisan 2008 22:29
Bir Sorunum var... Maniack Servisler 2 04 Mart 2006 17:26