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/)
-   -   Badnick koruması (users bölümüne eklenerek) (https://www.ircforumlari.net/mirc-scripting-sorunlari/162826-badnick-korumasi-users-bolumune-eklenerek.html)

yabadabadu 03 Mart 2010 13:27

Cevap: Badnick koruması (users bölümüne eklenerek)
 
alias badtara {
var %jnk 1
while %jnk <= $nick($1,0) {
if $ulist($nick($1,%jnk),bad,0) && $level($nick($1,%jnk)) != koruma {
mode $chan +b $nick($1,%jnk)
kick $chan $nick($1,%jnk) badnick yasak!
}
inc %jnk
}
}
menu status,channel,query {
.Bad Tarama
..ON://timerTARA 1 1 /badtara $$?="Taranacak kanal?" | /echo -a Tarama aktif edildi.
..OFF://timerTARA off | /echo -a Tarama deaktif edildi.
}

yanlı hatırlamıyorsam bu tarama kodunu da Difüzyon arkadasımızdan almıstım.
/badtara #kanal
veya üst kısımda ki alias bastara kısmını
alias !badtara yaparak
!badtara #kanal seklinde de calıstırabilirsin
ama komuta gerek yok menü status kısmı var zaten.

Gulsum 11 Mayıs 2011 00:46

Cevap: Badnick koruması (users bölümüne eklenerek)
 
merhaba
elimde bi code var users bölmünde bulunan badnickler kanala girdinde .
Badnick girişi yapıldı : greeneyes
diye rekli bir şekilde daha rahat görmemi sağlayan bir code.ban atmıyo sadece renkli bişekilde gösteriyoki rahat görüyorum badnick ise f1 tuşu ile kendim atıyorum.
users bölmündeki nickler
8:*k*l*k*
8:*l*e*s*
8:*g*c*k*
8:*k*c*s*
8:*o*l*n*
8:*g*s*t*r*
bu şekilde eklediğim icin badnick olmayan nicklerde oluyo
Badnick girişi yapıldı : beykozlu
buşekilde
ben bu codeye şöyle bişiy eklemek istiyorum
Badnick girişi yapıldı : beykozlu hemen karışısında >> Badnick deilse Ekle
Badnick girişi yapıldı : beykozlu >> Badnick deilse Ekle

ekle yazısının üstüne maus ile tıklayıp muaf nick olarak user bölmüne otomatik ekleyebilirmiyiz.
on @*:join:#: {
if ($ulist($nick,koruma,0) >= 1) { return }
if ($server == irc.sunucu.com) {
if $level($nick $+ !*@*) == 8 {
echo #turkiye 10Badnick girişi yapıldı :1,0 $nick 
}
}
}
kullanıcı bölmünde ekli olanlar aşşadaki gibi. koruma ya aldım nickler muaf oluyove badnickolarak uyarı vermiyo.

koruma:sürgün
koruma:iskenderun
koruma:Aysegul
8:*k*l*k*
8:*l*e*s*
8:*g*c*k*
8:*k*c*s*
8:*o*l*n*
8:*g*s*t*r*

Difuzyon 11 Mayıs 2011 09:26

Cevap: Badnick koruması (users bölümüne eklenerek)
 
Kod:

on ^$*:hotlink:/Ekle$/S:*:if ($strip($1) == Ekle) { return } | halt
on *:hotlink:*:*:auser koruma $token($hotline,5,32) | echo -a $token($hotline,5,32) nicki koruma olarak eklendi.

Bu kodu da ilave etmeniz halinde,ekranınızda beliren:

Badnick girişi yapıldı : beykozlu >> Badnick değilse Ekle

yazısında Ekle kısmına mouse sürüklendiğinde imleç belirecektir.Ekle yazısına çift tıklamanız halinde belirtilen nicki Kullanıcı kısmında koruma seviyesine ekleyecektir.

Dizilim formatı önemlidir,cümle Ekle kelimesi ile son bulma şartı vardır.Aynı zamanda cümledeki 5. kelimeyi Kullanıcı kısmına ekleme şartı vardır.Cümle yapısını ileride değiştirmeniz halinde kod içerisindeki dizaynı bu duruma göre yeniden şartlandırmanız gerekecektir.

Hoşca paylaşımlar...

Gulsum 11 Mayıs 2011 11:39

Cevap: Badnick koruması (users bölümüne eklenerek)
 
tşkler fakat bi sorun cıktı muaf olan nickler kullanıcı kısmına üste eklenince çalışıyo
Alta eklenirse çalışmıyo ve senin verdiğin şuan alt kısma ekliyo nasıl olcak

koruma:yağmur >> üstte
koruma:FanatiK
8:*k*l*k*
8:*l*e*s*
8:*g*c*k*
8:*k*c*s*
8:*o*l*n*

Altta olursa çalışmıyo

8:*k*l*k*
8:*l*e*s*
8:*g*c*k*
8:*k*c*s*
8:*o*l*n*
koruma:yağmur >> altta
koruma:FanatiK

Difuzyon 11 Mayıs 2011 15:45

Cevap: Badnick koruması (users bölümüne eklenerek)
 
Altta\Üstte\Sıralı\Sırasız olması bu kodun çalışmasını engelleyecek bir durum değil.

Gulsum 11 Mayıs 2011 16:03

Cevap: Badnick koruması (users bölümüne eklenerek)
 
pardon evet girişlerde çalışıyo bide bende badnick taraması var badnicktara dediğimde
.nadnicktara #kanal
#› BADNICK : Metin_yas_46 >> Ekle
#› BADNICK : mIRCTR-488495 >> Ekle
#› BADNICK : mIRCTR-565771 >> Ekle
#› BADNICK : mIRCTR-834582çiçek >> Ekle
#› BADNICK : mIRCTR-835889
bunlar cıkıyo cıkmaması gerek cünki mirc kelimesi muaf listesinde var.
8:*d*v*d*
8:*0TL*
koruma:*mIRC*
koruma:*geveze*
fakat muaf olan nickler üste olunca normal çalışıyo bi sorun yok .
.badnicktara #kanal
#› BADNICK : Metin_yas_46 >> Ekle
#› BADNICK : murat31hatay >> Ekle
#› BADNICK : musa28_A >> Ekle
mIRCTR-835889 << gibi gecen nickleri dikkate almadı koruma kısmı üste olduğu için

koruma:*mIRC*
koruma:*geveze*
8:*d*v*d*
8:*0TL*
ama verdiğin code alta eklediğinden macburel alt kısımda olmuş oluyo ve çalışmıyo.neyse girişleri hallettik en azından tekrar tşkler

Difuzyon 11 Mayıs 2011 16:12

Cevap: Badnick koruması (users bölümüne eklenerek)
 
Tarama ile alakalı kodu paylaşırsanız,daha sağlıklı bir yorumda bulunabiliriz.

Gulsum 11 Mayıs 2011 16:57

Cevap: Badnick koruması (users bölümüne eklenerek)
 
tam olarak böle

alias badnicktara {
if ($server == irc.sunucu.org) {
if $me isop $1 {
set %kanal $chan
set %:bulunan 0
var %s 1
while %s <= $nick($1,0) {
%:gnick = $nick($1,%s)
if %:gnick isreg $1 && $level(%:gnick $+ !*@*) == 8 {
inc %:bulunan 1
echo -a  4#3› 4BADNICK :1,0 %:gnick 0,1>> Ekle
}
inc %s
}
echo -a 0,7Badnickler tarandi: $1 - %:bulunan badnick bulundu.
}
else {
echo -a 0,2 $1 kanalinda OP olmaniz gerekmektedir.
}
}
}
raw 8:*: {
badnicktara $1
}
on @*:nick: {
if ($server == irc.sunucu.org) {
if $level($newnick $+ !*@*) == 8 { { var %2 = 1 | while $comchan($newnick,%2) { if $me isop $comchan($newnick,%2) { echo #turkiye 0,7 $newnick 4: 10 Badnick olarak algılandı 10Ekle } | inc %2 } | return $true } | inc %1 } | return $false }
}
on *:op:#turkiye: {
if ($server == irc.sunucu.org) {
if $opnick == $me {
badnicktara #
}
}
}
on ^$*:hotlink:/Ekle$/S:*:if ($strip($1) == Ekle) { return } | halt
on *:hotlink:*:*:auser koruma $token($hotline,5,32) | echo -a $token($hotline,5,32) nicki koruma olarak eklendi.
on @*:join:#Turkiye: {
if ($server == irc.sunucu.org) {
if ($ulist($nick,koruma,0) >= 1) { return }
if $level($nick $+ !*@*) == 8 {
echo #Turkiye 10Badnick girişi yapıldı :1,0 $nick 10Badnick değilse >> 10Ekle
}
}
}

Difuzyon 11 Mayıs 2011 17:31

Cevap: Badnick koruması (users bölümüne eklenerek)
 
Bir önceki mesajınızda belirtmiş olduğunuz sorununuz,tarama yapılan aliasta koruma seviyesinde bulunan kullanıcılara bir tanımlama getirmediğinizden kaynaklanıyor.

if %:gnick isreg $1 && $level(%:gnick $+ !*@*) == 8 {
satırı aşağıdaki gibi olacak
if %:gnick isreg $1 && $ulist(%:gnick,8,0) && !$ulist(%:gnick,koruma,0) {


NICK eventında da aynı durum söz konusu,

if $level($newnick $+ !*@*) == 8 { { var ......
satırı aşağıdaki gibi olacak
$ulist($newnick,8,0) && !$ulist($newnick,koruma,0) { { var ......

JOIN eventında da aşağıdaki işlemi yapmalısınız.

if $level($nick $+ !*@*) == 8 {
satırı aşağıdaki gibi olacak
if $ulist($nick,8,0) {

Gulsum 11 Mayıs 2011 19:43

Cevap: Badnick koruması (users bölümüne eklenerek)
 
sölediğin yerleri deiştirdim hata veriyor
> 1 Yalnış komut.
> 0 Yalnış komut.
> 2 Yalnış komut.
alias badnicktara {
if ($server == irc.sunucu.org) {
if $me isop $1 {
set %kanal $chan
set %:bulunan 0
var %s 1
while %s <= $nick($1,0) {
%:gnick = $nick($1,%s)
if %:gnick isreg $1 && $ulist(%:gnick,8,0) && !$ulist(%:gnick,koruma,0) {
inc %:bulunan 1
echo -a  4#3› 4BADNICK :1,0 %:gnick 0,1>> Ekle
}
inc %s
}
echo -a 0,7Badnickler tarandi: $1 - %:bulunan badnick bulundu.
}
else {
echo -a 0,2 $1 kanalinda OP olmaniz gerekmektedir.
}
}
}
raw 8:*: {
badnicktara $1
}
on @*:nick: {
if ($server == irc.sunucu.org) {
$ulist($newnick,8,0) && !$ulist($newnick,koruma,0) { { var %2 = 1 | while $comchan($newnick,%2) { if $me isop $comchan($newnick,%2) { echo #turkiye 0,7 $newnick 4: 10 Badnick olarak algılandı 10Ekle } | inc %2 } | return $true } | inc %1 } | return $false }
}
on *:op:#turkiye: {
if ($server == irc.sunucu.org) {
if $opnick == $me {
badnicktara #
}
}
}
on ^$*:hotlink:/Ekle$/S:*:if ($strip($1) == Ekle) { return } | halt
on *:hotlink:*:*:auser koruma $token($hotline,5,32) | echo -a $token($hotline,5,32) nicki koruma olarak eklendi.
on @*:join:#Turkiye: {
if ($server == irc.sunucu.org) {
if ($ulist($nick,koruma,0) >= 1) { return }
if $ulist($nick,8,0) {
echo #Turkiye 10Badnick girişi yapıldı :1,0 $nick 10Badnick değilse >> 10Ekle
}
}
}


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk