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)

MerakLıuSer 04 Aralık 2008 17:11

Badnick koruması (users bölümüne eklenerek)
 
on *:join:#:{ if $bad($nick) && !$muaf($nick) { mode # +b $nick | kick # $nick Badnick } }
alias bad {
var %ğ = 1
while $read(badnicklist.txt,%ğ) {
if $v1 iswm $1- {
return $v1 on *:NICK:{ if $bad($newnick) && !$muaf($newnick) { mode # +b $newnick | kick # $newnick Badnick } }
}
inc %ğ
}
return $false
}
alias muaf {
var %x = 1
while $read(muaf.txt,%x) {
if $v1 iswm $1- {
return $v1
}
inc %x
}
return $false
}
on *:NICK:{ if $bad($newnick) && !$muaf($newnick) { mode # +b $newnick | kick # $newnick Badnick! } }


Bu kodemde birisi kanalda nick değiştiği zaman atmıyor :(
Muaf txtmın içinde muafnicklerim var birde muafkanal txtm olsun onun içinede kanalları yazayım istiyorum. Yardımlar için teşekkürler.

İyi paylaşımlar.

Difuzyon 06 Aralık 2008 02:13

Cevap: Codeme bir iki eklenti LÜTFEN.
 
Kod:

alias bad {
  var %ğ = 1
  while $read(badnicklist.txt,%ğ) {
    if $v1 iswm $1- {
      return $v1
      break
    }
    inc %ğ
  }
  return $false
}
 
alias muaf {
  var %x = 1
  while $read(muaf.txt,%x) {
    if $v1 iswm $1- {
      return $v1
      break
    }
    inc %x
  }
  return $false
}
 
on @*:JOIN:#:if $bad($nick) && !$muaf($nick) && !$read(muafkanal.txt,w,$chan) { mode # +b $nick | kick # $nick Badnick }
 
on *:NICK:{
  if $bad($newnick) && !$muaf($newnick) {
    var %cnk 1
    while %cnk <= $comchan($newnick,0) {
      if $me isop $comchan($newnick,%cnk) && !$read(muafkanal.txt,w,$comchan($newnick,%cnk)) {
        mode $comchan($newnick,%cnk) +b $newnick
        kick $comchan($newnick,%cnk) $newnick Badnick!
      }
      inc %cnk
    }
  }
}

Badnickleri kanaldan uzaklaştırmak için en zor yöntemi(txt'ye eklemek) tercih ediyorsun.Belirtilen aliaslara break eklemek suretiyle,mIRC'in kasmasına biraz olsun engel olmaya çalıştık.

İşine yaraması dileğiyle...

MerakLıuSer 06 Aralık 2008 11:33

Cevap: Codeme bir iki eklenti LÜTFEN.
 
Madem öyle kasar diyorsun peki fakat Difuzyon arkadaşım ben bu codeyi kasmayan şekline nasıl cevircem :S Mesela muafnick ve muafkanallarım olsun. Yeni değişen nick muafnick veya muafkanalımdan biriyse atmasın değilse atsın gibi. Bunu kasmayan şekline nasıl cevircez :( Kodeyi yazıp ayrıntılı bir şekilde neyi ve nasıl ekleyebileceğimi anlatırsanız o halde teşekkür ederim.

Difuzyon 06 Aralık 2008 13:18

Cevap: Codeme bir iki eklenti LÜTFEN.
 
Kod:

on @badnick:JOIN:*:{
  if ($ulist($nick,koruma,0) >= 1) { return }
  elseif !$istok(#Kanal1 #Kanal2 #Kanal3 #Kanal4 #Kanal5,$chan,32) {
    mode $chan +b $nick
    kick $chan $nick Badnick sebebiyle atıldın...
  }
}
on *:NICK:{
  if ($ulist($newnick,koruma,0) >= 1) { return }
  else {
    if ($level($newnick) == badnick) {
      var %Cnk = 1
      while $comchan($newnick,%Cnk) {
        var %e = $v1
        if $me isop %e && !$istok(#Kanal1 #Kanal2 #Kanal3 #Kanal4 #Kanal5,%e,32) {
          mode %e +b $newnick
          kick %e $newnick Dışarı!
        }
        inc %Cnk
      }
    }
  }
}

Kodu (Alt + r) REMOTE'a ekliyorsunuz.

Badnick eklemek :
Örnek) /auser badnick *gay*
Örnek) /auser badnick *****
Örnek) /auser badnick lez*
Örnek) /auser badnick *top*
Örnek) /auser badnick travesti

Koruma(nick) eklemek :
Örnek) /auser koruma gaye
Örnek) /auser koruma *tugay*
Örnek) /auser koruma turgay*
Örnek) /auser koruma leziz_yemek
Örnek) /auser koruma topcu_piyade

Badnick veya Koruma Silmek :
Örnek) /ruser koruma gaye
Örnek) /ruser badnick lez*

Bu işlemlerin nerde olup bittiğini görüntülemek için (Alt + r) ile açılan panelde "KULLANICI" başlığını tıklayınız.
Muaf kanal konusuna gelince hem JOIN hemde NICK event'larında " !$istok(#Kanal1 #Kanal2 #Kanal3 #Kanal4 #Kanal5,$chan,32) " gereken yerlere kanal isimlerini yazarsanız.Ben 5 kanal yazdım, kanalları çoğaltma imkanınız var.

Kod Mantığı; kanala giren "badnick" listesinden biri önce "koruma" listeden olup olmayacağı sorgulanacaktır.Değilse ve muaf kanallar bulunmuyorsa işlem yapacaktır.Nick değiştirme konusunda da işlem benzerini takip eder.
Üstteki txt'ye göre daha seri işlem yapacaktır ve en önemlisi gereksiz yere while döngüsüne sokmaktan(mIRC'i kasmak) kurtulmuş olduk.
Yeterince anlaşılır olduğunu düşünüyorum.

İyi paylaşımlar...

MerakLıuSer 08 Aralık 2008 14:31

Cevap: Codeme bir iki eklenti LÜTFEN.
 
Uğraştığın emek sarfettiğin çok güzel açıkladıgın için sana CANI GÖNÜLDEN TEŞEKKÜR EDİYORUM. ALLAH işlerini ras getirsin.

MerakLıuSer 19 Aralık 2008 00:15

Cevap: Codeme bir iki eklenti LÜTFEN.
 
Difuzyon bir noktasa sorun yaşadım. *msn* şeklinde badnick eklediğimde identi *msn* olan nicklerinde atıyor. İdente koruma nasıl ekleyebiliriz ?

Difuzyon 19 Aralık 2008 18:05

Cevap: Codeme bir iki eklenti LÜTFEN.
 
Kod:

on @badnick:JOIN:*:{
  if ($ulist($fulladdress,koruma,0) >= 1) { return }
  elseif !$istok(#kanal1 #kanal2 #kanal3 #kanal4 #kanal5,$chan,32) {
    mode $chan +b $nick
    kick $chan $nick Badnick sebebiyle atıldın...
  }
}
on *:NICK:{
  if ($ulist($+($newnick,!*@*),koruma,0) >= 1) { return }
  else {
    if $ulist($+($newnick,!*@*),badnick,0) {
      var %Cnk = 1
      while $comchan($newnick,%Cnk) {
        var %e = $v1
        if $me isop %e && !$istok(#kanal1 #kanal2 #kanal3 #kanal4 #kanal5,%e,32) {
          mode %e +b $newnick
          kick %e $newnick Dışarı!
        }
        inc %Cnk
      }
    }
  }
}
alias badnickekle {
  auser badnick $1 $+ !*@*
}
alias badnicksil {
  ruser badnick $1 $+ !*@*
}
alias nickkoruma {
  auser koruma $1 $+ !*@*
}
alias badidentekle {
  auser badnick *! $+ $1 $+ @*
}
alias badidentsil {
  ruser badnick *! $+ $1 $+ @*
}
alias identkoruma {
  auser koruma *! $+ $1 $+ @*
}


Badnick eklemek için:
/badnickekle *****
/badnickekle gay*

Badnick silmek için:
/badnicksil ***y
/badnicksil *lez*

Nick Koruma eklemek için:
/nickkoruma gaye*
/nickkoruma *tugay*

Badident eklemek için:
/badidentekle *msn*
/badidentekle gay

Badident silmek için:
/badidentsil *msn*
/badidentsil gay

İdent Koruma eklemek için:
/identkoruma msn
/identkoruma gaye*

İşlemleri takip için (ALT + r) "Kullanıcı" başlığından takip edebilirsiniz.Yeni kodlamayla Nick!Ident@Hostsisteminde çalışacaktır(Daha önce sadece *maske* olarak çalışıyordu).Kanala giren kullanıcının fulladdress bilgisi "badnick:" kullanıcı maskesiyle örtüşüyorsa; evvela "koruma:" maskesinde sorgulanacaktır, tutmuyorsa kanaldan atacaktır.
Nick değiştirme işleminde de sistem aynısı takip eder.Fakat nick değiştirme aşamasında ident kısmını sorgulamaz,sadece değişen nickin Nick kısmından sorgulama yapar.Bunu dikkate alırsınız...

İyi forumlar...

gncvoLkan 19 Aralık 2008 19:23

Cevap: Codeme bir iki eklenti LÜTFEN.
 
difüzyon Helal Valla hiç Üşenmeden sürekLi yazıyosun ne denilebilir ki :)

yabadabadu 12 Ağustos 2009 15:28

difüzyon
 
Gerek Forumlar da, gerek irc'lerin mirchelp kanallarında olsun istedigim bi sekilde kod bulamamıstım.
taki difüzyon arkadasımızın yazdıgı kod u görene kadar.
bu kod basit oldugu kadar diger kodların da yaptıgı bi cok islevi yapabildigi icin
remoteden fazla olan txt dosyalarını silip scriptti daha da hızlandırdım.
sadece 3 txt dosyası bulunuyor suan.
valla söyleyecek söz bulamıyorum.
bence difüzyon tşk etsekte azdır.
eline saglık kardes uzun zamandır düsünüp arayıpta bulamadıgım bi kodu sayen de buldum.
cok ama cok teşşekkür ederim.

Head 12 Kasım 2009 17:10

Cevap: Badnick koruması (users bölümüne eklenerek)
 
Güzel bir çalışma olmuş ve şu an kullanıyorum
Bu koda birde tarama kodu ekleyebilirsen daha güzel olurdu
teşekkürler

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

Difuzyon 11 Mayıs 2011 21:35

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

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>> Koruma Ekle
        }
        inc %s
      }
      echo -a 0,7Badnickler tarandi: $1 - %:bulunan badnick bulundu.
    }
    else { echo -a 0,2 $1 kanalinda OP olmaniz gerekmektedir. }
  }
}
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 10Badnick olarak algılandı :0,7 $newnick >> 10Koruma Ekle }
      inc %2
    }
  }
}
on *:op:#turkiye:$iif(($server == irc.sunucu.org && $opnick == $me),badnicktara #)
on ^$*:hotlink:/Ekle$/S:*:if ($strip($1) == Ekle) { return } | halt
on *:hotlink:*:*:auser koruma $token($hotline,5,32)
on @*:join:#Turkiye: {
  if ($server == irc.sunucu.org) {
    if ($ulist($nick,koruma,0) >= 1) { return }
    if $ulist($nick,8,0) { echo # 10Badnick girişi yapıldı :1,0 $nick 10Badnick değilse >> 10Koruma Ekle }
  }
}

NICK eventınızda birtakım eksik(ben değişecek kısımda "if" yazmayı unutmuşum) ve fazlalıklar(%1,return,$true,$false olayla alakasız) düzenlendi.

MerakLıuSer 21 Aralık 2012 03:00

Cevap: Codeme bir iki eklenti LÜTFEN.
 
Alıntı:

Difuzyon Nickli Üyeden Alıntı (Mesaj 599365)
Kod:

on @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:JOIN:*:{
  if ($ulist($nick,koruma,0) >= 1) { return }
  elseif !$istok(#Kanal1 #Kanal2 #Kanal3 #Kanal4 #Kanal5,$chan,32) {
    mode $chan +b $nick
    kick $chan $nick Badnick sebebiyle atıldın...
  }
}
on *:NICK:{
  if ($ulist($newnick,koruma,0) >= 1) { return }
  else {
    if ($level($newnick) == badnick) {
      var %Cnk = 1
      while $comchan($newnick,%Cnk) {
        var %e = $v1
        if $me isop %e && !$istok(#Kanal1 #Kanal2 #Kanal3 #Kanal4 #Kanal5,%e,32) {
          mode %e +b $newnick
          kick %e $newnick Dışarı!
        }
        inc %Cnk
      }
    }
  }
}

Kodu (Alt + r) REMOTE'a ekliyorsunuz.

Badnick eklemek :
Örnek) /auser badnick *gay*
Örnek) /auser badnick *****
Örnek) /auser badnick lez*
Örnek) /auser badnick *top*
Örnek) /auser badnick travesti

Koruma(nick) eklemek :
Örnek) /auser koruma gaye
Örnek) /auser koruma *tugay*
Örnek) /auser koruma turgay*
Örnek) /auser koruma leziz_yemek
Örnek) /auser koruma topcu_piyade

Badnick veya Koruma Silmek :
Örnek) /ruser koruma gaye
Örnek) /ruser badnick lez*

Bu işlemlerin nerde olup bittiğini görüntülemek için (Alt + r) ile açılan panelde "KULLANICI" başlığını tıklayınız.
Muaf kanal konusuna gelince hem JOIN hemde NICK event'larında " !$istok(#Kanal1 #Kanal2 #Kanal3 #Kanal4 #Kanal5,$chan,32) " gereken yerlere kanal isimlerini yazarsanız.Ben 5 kanal yazdım, kanalları çoğaltma imkanınız var.

Kod Mantığı; kanala giren "badnick" listesinden biri önce "koruma" listeden olup olmayacağı sorgulanacaktır.Değilse ve muaf kanallar bulunmuyorsa işlem yapacaktır.Nick değiştirme konusunda da işlem benzerini takip eder.
Üstteki txt'ye göre daha seri işlem yapacaktır ve en önemlisi gereksiz yere while döngüsüne sokmaktan(mIRC'i kasmak) kurtulmuş olduk.
Yeterince anlaşılır olduğunu düşünüyorum.

İyi paylaşımlar...

ens nick'i, Kara_Murat tarafından kanaldan atıldı. Sebep; (Uygunsuz Nick Lütfen Degisiniz. mask(s): ens*)
böyle birşey ekleme şansimiz var mi?

MerakLıuSer 21 Aralık 2012 23:27

Cevap: Badnick koruması (users bölümüne eklenerek)
 
yani olaydan kastim attigi nick uselistteki hangi mask'dan etkilenmis onu göstersin;
delikanli nicki *delik* maskesinden etkilenmis gibi

TİGeR 22 Aralık 2012 01:51

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

MerakLıuSer Nickli Üyeden Alıntı (Mesaj 1041260055)
yani olaydan kastim attigi nick uselistteki hangi mask'dan etkilenmis onu göstersin;
delikanli nicki *delik* maskesinden etkilenmis gibi

Kod:

on @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:JOIN:*:{
  if ($ulist($fulladdress,koruma,0) >= 1) { return }
  elseif !$istok(#Kanal1 #Kanal2 #Kanal3 #Kanal4 #Kanal5,$chan,32) {
    mode $chan +b $ulist($address($nick,5),$ulevel,1)
    kick $chan $nick Badnick sebebiyle atıldın...
  }
}
on *:NICK:{
  if ($ulist($newnick,koruma,0) >= 1) { return }
  else {
    if ($level($newnick) == badnick) {
      var %Cnk = 1
      while $comchan($newnick,%Cnk) {
        var %e = $v1
        if $me isop %e && !$istok(#Kanal1 #Kanal2 #Kanal3 #Kanal4 #Kanal5,%e,32) {
          mode %e +b $newnick
          kick %e $newnick Dışarı!
        }
        inc %Cnk
      }
    }
  }
}

Bu sekilde düzelltim sanırm istediğin gibi oldu

Med Cezir 22 Aralık 2012 04:23

Cevap: Badnick koruması (users bölümüne eklenerek)
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Burada yapılmış olduğu gibi koyu şekilde belirtilen yerleri aynı şekilde koduna ekleyeceksin.

MerakLıuSer 22 Aralık 2012 15:49

Cevap: Badnick koruması (users bölümüne eklenerek)
 
sizin verdiginiz code ile benim kullandigim farkli ama tutmuyor ki :S bozdum codeyi komple

Med Cezir 22 Aralık 2012 22:34

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

on @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:JOIN:*:{
  if ($ulist($nick,koruma,0) >= 1) { return }
  elseif !$istok(#Kanal1 #Kanal2 #Kanal3 #Kanal4 #Kanal5,$chan,32) {
    mode $chan +b $nick
    kick $chan $nick Badnick sebebiyle atıldın...Bulunan mask: $ulist($nick,badnick,1)
  }
}
on *:NICK:{
  if ($ulist($newnick,koruma,0) >= 1) { return }
  else {
    if ($level($newnick) == badnick) {
      var %Cnk = 1
      while $comchan($newnick,%Cnk) {
        var %e = $v1
        if $me isop %e && !$istok(#Kanal1 #Kanal2 #Kanal3 #Kanal4 #Kanal5,%e,32) {
          mode %e +b $newnick
          kick %e $newnick Dışarı! Bulunan mask: $ulist($newnick,badnick,1)
        }
        inc %Cnk
      }
    }
  }
}


AttackZone 19 Mart 2014 13:54

Cevap: Codeme bir iki eklenti LÜTFEN.
 
Alıntı:

Difuzyon Nickli Üyeden Alıntı (Mesaj 606770)
Kod:

on @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:JOIN:*:{
  if ($ulist($fulladdress,koruma,0) >= 1) { return }
  elseif !$istok(#kanal1 #kanal2 #kanal3 #kanal4 #kanal5,$chan,32) {
    mode $chan +b $nick
    kick $chan $nick Badnick sebebiyle atıldın...
  }
}
on *:NICK:{
  if ($ulist($+($newnick,!*@*),koruma,0) >= 1) { return }
  else {
    if $ulist($+($newnick,!*@*),badnick,0) {
      var %Cnk = 1
      while $comchan($newnick,%Cnk) {
        var %e = $v1
        if $me isop %e && !$istok(#kanal1 #kanal2 #kanal3 #kanal4 #kanal5,%e,32) {
          mode %e +b $newnick
          kick %e $newnick Dışarı!
        }
        inc %Cnk
      }
    }
  }
}
alias badnickekle {
  auser badnick $1 $+ !*@*
}
alias badnicksil {
  ruser badnick $1 $+ !*@*
}
alias nickkoruma {
  auser koruma $1 $+ !*@*
}
alias badidentekle {
  auser badnick *! $+ $1 $+ @*
}
alias badidentsil {
  ruser badnick *! $+ $1 $+ @*
}
alias identkoruma {
  auser koruma *! $+ $1 $+ @*
}


Badnick eklemek için:
/badnickekle *****
/badnickekle gay*

Badnick silmek için:
/badnicksil ***y
/badnicksil *lez*

Nick Koruma eklemek için:
/nickkoruma gaye*
/nickkoruma *tugay*

Badident eklemek için:
/badidentekle *msn*
/badidentekle gay

Badident silmek için:
/badidentsil *msn*
/badidentsil gay

İdent Koruma eklemek için:
/identkoruma msn
/identkoruma gaye*

İşlemleri takip için (ALT + r) "Kullanıcı" başlığından takip edebilirsiniz.Yeni kodlamayla Nick!Ident@Hostsisteminde çalışacaktır(Daha önce sadece *maske* olarak çalışıyordu).Kanala giren kullanıcının fulladdress bilgisi "badnick:" kullanıcı maskesiyle örtüşüyorsa; evvela "koruma:" maskesinde sorgulanacaktır, tutmuyorsa kanaldan atacaktır.
Nick değiştirme işleminde de sistem aynısı takip eder.Fakat nick değiştirme aşamasında ident kısmını sorgulamaz,sadece değişen nickin Nick kısmından sorgulama yapar.Bunu dikkate alırsınız...

İyi forumlar...

Bir önceki Kod da muaf nick ekleme vardı ama bu kod da göremedim. Muaf nick ekleye bilir miyiz?

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:54 -->-> Daha önceki mesaj 13:38 --

Bilgisi olan yardımcı olabilir mi? Difuzyon, hocamızın yazdığı güzel bi remote bu remoteye badnick Tarama ve Muaf nick eklemek mümkün mü?

IRC-Dancer 19 Mart 2014 19:17

Cevap: Badnick koruması (users bölümüne eklenerek)
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] burdan bakınız.

Feragat 19 Mart 2014 23:20

Cevap: Badnick koruması (users bölümüne eklenerek)
 
Muaf nick ve ident var zaten kodda.

Kod:

Nick Koruma eklemek için:
/nickkoruma gaye*
/nickkoruma *tugay*

------------------

İdent Koruma eklemek için:
/identkoruma msn
/identkoruma gaye*


Feragat 20 Mart 2014 03:02

Cevap: Badnick koruması (users bölümüne eklenerek)
 
Ayrıca tarama yaptırmak için üstte difuzyon da paylaşmış; vereceğim alias ı kodun en altına ekle, /tara yaptığında, komutu hangi kanalda kullanırsan o kanalı tarar ve eklediğin badnick tanımına uygun nicklere Nick+Ban-Kick uygular.

Kod:

alias tara {
  set %:bulunan 0
  var %s 1
  while %s <= $nick(#,0) {
    %:gnick = $nick(#,%s)
    if %:gnick isreg # && $level(%:gnick $+ !*@*) == badnick {
      inc %:bulunan 1
      mode # +b %:gnick | kick # %:gnick 1 Badnick
    }
    inc %s
  }
  echo -a 2 Badnickler tarandi: # - %:bulunan badnick bulundu.
}


AttackZone 27 Mart 2014 09:13

Cevap: Codeme bir iki eklenti LÜTFEN.
 
Kod çok güzel çalışıyo ama korumaya eklenen nickler /tara yazdığımda atılıyor kanaldan:S

Feragat 27 Mart 2014 13:42

Cevap: Codeme bir iki eklenti LÜTFEN.
 
Alıntı:

AttackZone Nickli Üyeden Alıntı (Mesaj 1041412293)
Kod çok güzel çalışıyo ama korumaya eklenen nickler /tara yazdığımda atılıyor kanaldan:S

/tara yazdığında, kişinin identi ya da nicki koruma listesinde varsa atmaz.

Kod:

alias tara {
  set %:bulunan 0
  var %s 1
  while %s <= $nick(#,0) {
    %:gnick = $nick(#,%s)
    if ($ulist($+($nick(#,%s), !*@*),koruma,0) >= 1) || ($ulist($+(*!, $regsubex($address($nick(#,%s),1),/^\*[!]\*(\S+)[@].+/S,\1), @*), koruma,0) >= 1) { return }
    if %:gnick isreg # && $level(%:gnick $+ !*@*) == badnick {
      inc %:bulunan 1
      mode # +b %:gnick | kick # %:gnick 1 Badnick
    }
    inc %s
  }
  echo -a 2 Badnickler tarandi: # - %:bulunan badnick bulundu.
}


AttackZone 03 Nisan 2014 12:02

Cevap: Badnick koruması (users bölümüne eklenerek)
 
Feragat, hocam kanaldaki bi nick badnick'e geçtiğinde atmıyor KOD bi bakar mısın?
[11:59:45] *** Turgay_06 Nick değişerek OlgunBey_ Oldu

AttackZone 05 Nisan 2014 10:09

Cevap: Badnick koruması (users bölümüne eklenerek)
 
on BadNick:JOIN:*:{
if ($ulist($fulladdress,koruma,0) >= 1) { return }
elseif !$istok(#Help #Operhelp #kanal3 #kanal4 #kanal5,$chan,32) {
mode $chan +b $nick
kick $chan $nick 4Banned : 14Nickiniz kanal seviyesi ile bağdaşmıyor. Lütfen "4 /nick yeninickiniz 14" komutu ile nickinizi değiştiriniz. 
}
}
on *:NICK:{
if ($ulist($+($newnick,!*@*),koruma,0) >= 1) { return }
else {
if $ulist($+($newnick,!*@*),badnick,0) {
var %Cnk = 1
while $comchan($newnick,%Cnk) {
var %e = $v1
if $me isop %e && !$istok(#Help #Operhelp #kanal3 #kanal4 #kanal5,%e,32) {
mode %e +b $newnick
kick %e $newnick 4Banned : 14Nickiniz kanal seviyesi ile bağdaşmıyor. Lütfen "4 /nick yeninickiniz 14" komutu ile nickinizi değiştiriniz. 
}
inc %Cnk
}
}
}
}
alias badnickekle {
auser badnick $1 $+ !*@*
}
alias badnicksil {
ruser badnick $1 $+ !*@*
}
alias nickkoruma {
auser koruma $1 $+ !*@*
}
alias badidentekle {
auser badnick *! $+ $1 $+ @*
}
alias badidentsil {
ruser badnick *! $+ $1 $+ @*
}
alias identkoruma {
auser koruma *! $+ $1 $+ @*
}
alias tara {
set %:bulunan 0
var %s 1
while %s <= $nick(#,0) {
%:gnick = $nick(#,%s)
if ($ulist($+($nick(#,%s), !*@*),koruma,0) >= 1) || ($ulist($+(*!, $regsubex($address($nick(#,%s),1),/^\*[!]\*(\S+)[@].+/S,\1), @*), koruma,0) >= 1) { return }
if %:gnick isreg # && $level(%:gnick $+ !*@*) == badnick {
inc %:bulunan 1
mode # +b %:gnick | kick # %:gnick 4Banned : 14Nickiniz kanal seviyesi ile bağdaşmıyor. Lütfen "4 /nick yeninickiniz 14" komutu ile nickinizi değiştiriniz. 
}
inc %s
}
echo -a 2 Badnickler tarandi: # - %:bulunan badnick bulundu.
}
-------------------
/tara
Badnick eklemek için:
/badnickekle *****
/badnickekle gay*

Badnick silmek için:
/badnicksil ***y
/badnicksil *lez*

Nick Koruma eklemek için:
/nickkoruma gaye*
/nickkoruma *tugay*

Badident eklemek için:
/badidentekle *msn*
/badidentekle gay

Badident silmek için:
/badidentsil *msn*
/badidentsil gay

İdent Koruma eklemek için:
/identkoruma msn
/identkoruma gaye*


Eklediğim kodun son hali. Şuan gördüğüm kadarıyla tek sıkıntı kanal içerisinde nick değişiminde aktif olup kullanıcıyı kanaldan atmaması.
Örnek ; [11:59:45] *** Turgay_06 Nick değişerek OlgunBey_ Oldu


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

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