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/)
-   -   Clone gline (https://www.ircforumlari.net/mirc-scripting-sorunlari/531645-clone-gline.html)

Darnasus 19 Mayıs 2013 23:20
Clone gline
 
Merhaba,

Elimde asagidaki gibi bir remote var. Bunun ban seklini /os killclones seklinde nasil degistirebiliriz

Kod:
menu status,menubar,channel {
  .-
  .» Clone Koruması
  ..Acık:.enable #Clone | .echo -a 4Clone Koruması Açıldı. 
  ..Kapalı:.disable #Clone | .echo -a 4Clone Koruması Kapatıldı. 
  .-
}
#Clone on
on @*:join:#:{
  if ($regex($wildsite,/(helper|admin|aop|sop|halfop|globalops|staff|founder|Netadmin|dj|ircop|tech|IRC.Operator|server|Administrator|Services|network)/i)) { halt }
  var %Cnk = $ialchan($wildsite,#,0)
  if (%Cnk > 4) {
    var %e = 0
    while (%e < %Cnk) {
      inc %e
      var %nick = $ialchan($wildsite,#,%e).nick
      var %nickler = $addtok(%nickler,%nick,32)
      if (%nick !== $me) {
        .mode $chan +b $mask($fulladdress,2)
        .kick $chan %nick 2 Kill clones 2 $+ %e
        .unset %nick
      }
    }
  }
}
#Clone end

Entrance 20 Mayıs 2013 22:09
Cevap: Clone gline
 
Alıntı:
Darnasus Nickli Üyeden Alıntı (Mesaj 1041303354)
Merhaba,

Elimde asagidaki gibi bir remote var. Bunun ban seklini /os killclones seklinde nasil degistirebiliriz

Kod:
menu status,menubar,channel {
  .-
  .» Clone Koruması
  ..Acık:.enable #Clone | .echo -a 4Clone Koruması Açıldı. 
  ..Kapalı:.disable #Clone | .echo -a 4Clone Koruması Kapatıldı. 
  .-
}
#Clone on
on @*:join:#:{
  if ($regex($wildsite,/(helper|admin|aop|sop|halfop|globalops|staff|founder|Netadmin|dj|ircop|tech|IRC.Operator|server|Administrator|Services|network)/i)) { halt }
  var %Cnk = $ialchan($wildsite,#,0)
  if (%Cnk > 4) {
    var %e = 0
    while (%e < %Cnk) {
      inc %e
      var %nick = $ialchan($wildsite,#,%e).nick
      var %nickler = $addtok(%nickler,%nick,32)
      if (%nick !== $me) {
        .mode $chan +b $mask($fulladdress,2)
        .kick $chan %nick 2 Kill clones 2 $+ %e
        .unset %nick
      }
    }
  }
}
#Clone end

Kod:
menu status,menubar,channel {
  .-
  .» Clone Koruması
  ..Acık:.enable #Clone | .echo -a 4Clone Koruması Açıldı. 
  ..Kapalı:.disable #Clone | .echo -a 4Clone Koruması Kapatıldı. 
  .-
}
#Clone on
on *:join:#:{
  if  ($regex($wildsite,/(helper|admin|aop|sop|halfop|globalops|staff|founder|Netadmin|dj|ircop|tech|IRC.Operator|server|Administrator|Services|network)/i))  { halt }
  var %Cnk = $ialchan($wildsite,#,0)
  if (%Cnk > 4) {
    var %e = 0
    while (%e < %Cnk) {
      inc %e
      var %nick = $ialchan($wildsite,#,%e).nick
      var %nickler = $addtok(%nickler,%nick,32)
      if (%nick !== $me) {
        os killclones $nick
        .unset %nick
      }
    }
  }
}
#Clone end

Darnasus 21 Mayıs 2013 13:25
Cevap: Clone gline
 
Alıntı:
Entrance Nickli Üyeden Alıntı (Mesaj 1041303495)
Kod:
menu status,menubar,channel {
  .-
  .» Clone Koruması
  ..Acık:.enable #Clone | .echo -a 4Clone Koruması Açıldı. 
  ..Kapalı:.disable #Clone | .echo -a 4Clone Koruması Kapatıldı. 
  .-
}
#Clone on
on *:join:#:{
  if  ($regex($wildsite,/(helper|admin|aop|sop|halfop|globalops|staff|founder|Netadmin|dj|ircop|tech|IRC.Operator|server|Administrator|Services|network)/i))  { halt }
  var %Cnk = $ialchan($wildsite,#,0)
  if (%Cnk > 4) {
    var %e = 0
    while (%e < %Cnk) {
      inc %e
      var %nick = $ialchan($wildsite,#,%e).nick
      var %nickler = $addtok(%nickler,%nick,32)
      if (%nick !== $me) {
        os killclones $nick
        .unset %nick
      }
    }
  }
}
#Clone end
Calismadi

IRC-Dancer 21 Mayıs 2013 20:14
Cevap: Clone gline
 
;--- Oper(Admin FLag)ın Nedir ? , bide sistem gereği , os su ( Root ) girmen gereke bilir.
;---
Kod:
menu status,menubar,channel {
  .-
  .ı|ı C-Flood
  ..Açık:.enable #C-Flood | .echo -a  #C-Flood  KSC Kontrol Açıldı 
  ..Kapalı:.disable #C-Flood  | .echo -a #C-Flood KSC Kontrol Kapatıldı 
  .-
}

#C-Flood off
on *:snotice:*client connecting*: {
  if $nick == irc.Sunucuismi.com {
    %::Con.ident.on = $right($gettok($10,1,64),-1) | %::Con.nick.on = $9 | %::Con.ip.on = $left($gettok($10,2,64),-1)
    cf %::Con.nick.on %::Con.ident.on %::Con.ip.on
  }
}
#C-Flood end
alias cf {
  ;Connect Flood -1-
  hinc -mu1 cf2 $3 1 | var %t $hget(cf2,$3)
  if %t == 2 {
    gline $+(*@,$3) :  Ban Sebebin
    msg #Security 1 2[RPR] -4Connect Flood -1-5Atilan Mask:3 $+($1,!,$2,@,$3)
    halt
  }
  ;Connect Flood -2-
  hinc -mu2 cf $3 1 | var %t $hget(cf,$3)
  if %t == 3 {
    gline $+(*@,$3) :  Ban Sebebin
    msg #Security 1 2[RPR] -4Connect Flood -2-5Atilan Mask:3 $+($1,!,$2,@,$3)
    halt
  }
  ;Connect Flood -3-
  hinc -mu8 cf3 $3 1 | var %t $hget(cf3,$3)
  if %t == 3 {
    gline $+(*@,$3) :  Ban Sebebin
    msg #Security 1 2[RPR] -4Connect Flood -3-5Atilan Mask:3 $+($1,!,$2,@,$3)
    halt
  }
;--- Bu daha sağlıklı olur , senin açından.
;--- Flag'ın fark etmez Oper olman yeterlidir.


;--- Saygılarımla ; kSc

Set 21 Mayıs 2013 20:46
Cevap: Clone gline
 
Kod:
menu status,menubar,channel {
  .-
  .» Clone Koruması
  ..Acık:.enable #Clone | .echo -a 4Clone Koruması Açıldı. 
  ..Kapalı:.disable #Clone | .echo -a 4Clone Koruması Kapatıldı. 
  .-
}
#Clone on
on *:join:#:{
  if  ($regex($wildsite,/(helper|admin|aop|sop|halfop|globalops|staff|founder|Netadmin|dj|ircop|tech|IRC.Operator|server|Administrator|Services|network)/i))  { halt }
  if (!$ial) { who +R # }
  var %Cnk = $ialchan($wildsite,#,0)
  if (%Cnk > 4) {
    os killclones $nick
  }
}
kırmızı ile belirtigim yeri kac yazarsan kanal'a ona esit ve ustu klone girislerinde ban atar.

Darnasus 21 Mayıs 2013 23:14
Cevap: Clone gline
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1041303692)
Kod:
menu status,menubar,channel {
  .-
  .» Clone Koruması
  ..Acık:.enable #Clone | .echo -a 4Clone Koruması Açıldı. 
  ..Kapalı:.disable #Clone | .echo -a 4Clone Koruması Kapatıldı. 
  .-
}
#Clone on
on *:join:#:{
  if  ($regex($wildsite,/(helper|admin|aop|sop|halfop|globalops|staff|founder|Netadmin|dj|ircop|tech|IRC.Operator|server|Administrator|Services|network)/i))  { halt }
  if (!$ial) { who +R # }
  var %Cnk = $ialchan($wildsite,#,0)
  if (%Cnk > 4) {
    os killclones $nick
  }
}
kırmızı ile belirtigim yeri kac yazarsan kanal'a ona esit ve ustu klone girislerinde ban atar.
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], senin paylastigin cok teferruatli kardesim, yinede sagolasın.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],

Bunda join eventi degilde sanotice kullansak nasil olur?

Cpu 22 Mayıs 2013 15:08
Cevap: Clone gline
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1041303692)
Kod:
menu status,menubar,channel {
  .-
  .» Clone Koruması
  ..Acık:.enable #Clone | .echo -a 4Clone Koruması Açıldı. 
  ..Kapalı:.disable #Clone | .echo -a 4Clone Koruması Kapatıldı. 
  .-
}
#Clone on
on *:join:#:{
  if  ($regex($wildsite,/(helper|admin|aop|sop|halfop|globalops|staff|founder|Netadmin|dj|ircop|tech|IRC.Operator|server|Administrator|Services|network)/i))  { halt }
  if (!$ial) { who +R # }
  var %Cnk = $ialchan($wildsite,#,0)
  if (%Cnk > 4) {
    os killclones $nick
  }
}
kırmızı ile belirtigim yeri kac yazarsan kanal'a ona esit ve ustu klone girislerinde ban atar.
Peki aynı ident için yapabilir miyiz bunu 3 aynı ident 1 saniye de girerse zline atacak

Set 22 Mayıs 2013 17:08
Cevap: Clone gline
 
Kod:
on *:snotice:*: {
  if connecting isin $1- {
    var %ip $remove($token($10,2,64),$chr(41))
    hinc -m giris %ip 1
    if ($hget(giris,%ip) >= 4) { .gzline $9 +0 Ban mesaj'ın | hdel -m giris %ip }
  }
  if exiting: isin $1- {
    var %ip  $remove($token($7,2,64),$chr(41))
    if  $hget(giris,%ip) { hdec -m giris %ip 1 }
  }
}
kırmızı ile belirttigim yer giriste kac tane bir ipten giris yaptıgını belirttigin sayıdır.


Kod:
on *:snotice:*connecting*: {
  var %ident $token($token($10,1,64),1,40)
  if $istok(Ident1 Ident2 Ident3 ,%ident,32) { return }
  hinc -mu1 ident %ident 1
  if ($hget(ident,%ident) >= 3) { gzline $9 +0 Ban mesaj'ın | hdel -m ident %ident }
}
bu ise Cpu senin istedigin kırmızı ile belirttigim saniye'dir, mor ile belirttigim yer ise kac tane girecegidir, Örnek: 1 saniyede 3 tane olarak ayarladım ben gerisi sana kalmıs, Hayırlı IF'ler.

Cpu 22 Mayıs 2013 17:18
Cevap: Clone gline
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1041303880)
Kod:
on *:snotice:*: {
  if connecting isin $1- {
    var %ip $remove($token($10,2,64),$chr(41))
    hinc -m giris %ip 1
    if ($hget(giris,%ip) >= 4) { .gzline $9 +0 Ban mesaj'ın | hdel -m giris %ip }
  }
  if exiting: isin $1- {
    var %ip  $remove($token($7,2,64),$chr(41))
    if  $hget(giris,%ip) { hdec -m giris %ip 1 }
  }
}
kırmızı ile belirttigim yer giriste kac tane bir ipten giris yaptıgını belirttigin sayıdır.


Kod:
on *:snotice:*connecting*: {
  var %ident $token($token($10,1,64),1,40)
  if $istok(Ident1 Ident2 Ident3 ,%ident,32) { return }
  hinc -mu1 ident %ident 1
  if ($hget(ident,%ident) >= 3) { gzline $9 +0 Ban mesaj'ın | hdel -m ident %ident }
}
bu ise Cpu senin istedigin kırmızı ile belirttigim saniye'dir, mor ile belirttigim yer ise kac tane girecegidir, Örnek: 1 saniyede 3 tane olarak ayarladım ben gerisi sana kalmıs, Hayırlı IF'ler.
çalışmadı

Set 22 Mayıs 2013 17:21
Cevap: Clone gline
 
Kod:
on *:snotice:*connecting*: {
  var %ident $token($token($10,1,64),1,40)
  if $istok(Ident1 Ident2 Ident3 ,%ident,32) { return }
  hinc -mu5 ident %ident 1
  if ($hget(ident,%ident) >= 2) { gzline $9 +0 Ban mesaj'ın | hdel -m ident %ident }
}
böyle dene.

Darnasus 22 Mayıs 2013 17:58
Cevap: Clone gline
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1041303880)
Kod:
on *:snotice:*: {
  if connecting isin $1- {
    var %ip $remove($token($10,2,64),$chr(41))
    hinc -m giris %ip 1
    if ($hget(giris,%ip) >= 4) { .gzline $9 +0 Ban mesaj'ın | hdel -m giris %ip }
  }
  if exiting: isin $1- {
    var %ip  $remove($token($7,2,64),$chr(41))
    if  $hget(giris,%ip) { hdec -m giris %ip 1 }
  }
}
kırmızı ile belirttigim yer giriste kac tane bir ipten giris yaptıgını belirttigin sayıdır.


Kod:
on *:snotice:*connecting*: {
  var %ident $token($token($10,1,64),1,40)
  if $istok(Ident1 Ident2 Ident3 ,%ident,32) { return }
  hinc -mu1 ident %ident 1
  if ($hget(ident,%ident) >= 3) { gzline $9 +0 Ban mesaj'ın | hdel -m ident %ident }
}
bu ise Cpu senin istedigin kırmızı ile belirttigim saniye'dir, mor ile belirttigim yer ise kac tane girecegidir, Örnek: 1 saniyede 3 tane olarak ayarladım ben gerisi sana kalmıs, Hayırlı IF'ler.
Calismadi Set

Set 22 Mayıs 2013 23:11
Cevap: Clone gline
 
Kod:
on *:snotice:*: {
  if connecting isin $1- {
    var %ip $remove($token($10,2,64),$chr(41))
    hinc -m giris %ip 1
    if ($hget(giris,%ip) >= 1) { .gzline $9 +0 Ban mesaj'ın | hdel -m giris %ip }
  }
  if exiting: isin $1- {
    var %ip  $remove($token($7,2,64),$chr(41))
    if  $hget(giris,%ip) { hdec -m giris %ip 1 }
  }
}
bu sekil dene bakayım.

Darnasus 22 Mayıs 2013 23:57
Cevap: Clone gline
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1041303975)
Kod:
on *:snotice:*: {
  if connecting isin $1- {
    var %ip $remove($token($10,2,64),$chr(41))
    hinc -m giris %ip 1
    if ($hget(giris,%ip) >= 1) { .gzline $9 +0 Ban mesaj'ın | hdel -m giris %ip }
  }
  if exiting: isin $1- {
    var %ip  $remove($token($7,2,64),$chr(41))
    if  $hget(giris,%ip) { hdec -m giris %ip 1 }
  }
}
bu sekil dene bakayım.
Tamam dostum oldu.

.gzline $9 +0 Ban mesaj'ın bu kismi .os killclones $nick seklinde degistirdigimde asagidaki hatayı aliyorum.

[23:53:58] -OperServ- hub.eu.sunucu.com nickli kullanici bulunamadi.

.os killclones $9 mu yapmam gerek?
-

Set 23 Mayıs 2013 00:55
Cevap: Clone gline
 
$nick yerine $9 yaz tamam'dir.


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

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