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

Sayfa 1 Toplam 2 Sayfadan

Konuya ait 40 Mesajı başka Sayfada göster

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 }

}

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

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

Sayfa 1 Toplam 2 Sayfadan

Konuya ait 40 Mesajı başka Sayfada göster