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

serdark · 21 Aralık 2010, 23:29

ON @1:TEXT:*:#zurna: {
if ( $nick isop $chan ) halt
if ( $len($strip($1-)) >= 150) {
if ( $me isop $chan ) { uzunkick halt }
.msg # .temizle
}

bu komutta banlayıp ardından .temizle komutunu giyor ama lagdan dolayı adam nekadar yazarsa okadar .temizle yazıyor 1 defa .temizle yapmasını saglayamazmıyız yada banladıktan sonra .temizle yazmasını nasıl yaparım yardım edermisiniz.birde op veya sop olanı banlamamasını istiyorum yapılabilirmi

LoRDGuaRD · 22 Aralık 2010, 02:21

ON @1:TEXT:*:#zurna: {
if ( $nick isop $chan ) halt
if ( $len($strip($1-)) >= 150) {
if ( $me isop $chan ) { uzunkick halt }
if ($me isop $chan) || ($nick !isop $chan) || ($nick !issop $chan) {
var %i 1
while $read(argo.txt,%i) {
if ($read(argo.txt,%i) iswm $remove($1-,$chr(32),*,/,\,.,$chr(44),-,_,!,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) { /mode $chan +b $nick | /kick $chan $nick $read(sozler.txt) | /notice $nick 4 $+ $nick $+ ; $read(sero.txt) | /msg $chan }
inc %i
}
}
}
msg # .temizle
}

umarım işini görür.

Zifiri · 22 Aralık 2010, 07:58

peki aynı kodda sadece op ve sopları değil, belirtilen nick veya nickleri de banlatmama şansımız varmı?

serdark · 22 Aralık 2010, 22:35

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bu komutu yaptım ama devamlı temizle yaptı biri bişi yazıyor temizliyor

LoRDGuaRD · 23 Aralık 2010, 13:39

serdark Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bu komutu yaptım ama devamlı temizle yaptı biri bişi yazıyor temizliyor

ON @1:TEXT:*:#ela: {
if ( $nick isop $chan ) halt
if ( $len($strip($1-)) >= 150) {
if ( $me isop $chan ) { uzunkick halt }
msg # .temizle
/ban # $nick
}

resimde görebilirsin arkadaşım devrim999 nıckı uzun yazdıgında .temizle yazıyor ve ardından ban atıyor.
lordguard nıckıde aynı yazıyı yazıyor fakat op oldugu ıcın ona ban atamıyor.

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

----------

birisi birşey yazdıgında atmaz

kım 150 tane karakter kullanırsa harf rakam sembol v.s o kısıye uygular komutu
if ( $len($strip($1-)) >= 150) {
buradakı 150 sayısıyla onuda ayarlayabılırsın 150 bence kısa 300 yap sen onu.
ON @1:TEXT:*:#ela: {
burayıda zurna ıdı sanırım senın verdıgın kodda değiştirirsin.

ATLAS · 23 Aralık 2010, 14:43

Dikkatimden kaçarak yazdığım kodda hata yapmışım..

sopları muaf tutabilmek için if $nick issop $chan kullanılmaz. Çünkü text eventinde kanala yazı yazan nick konumları ( &, ~ , . ) prefixlerini görmesi için regex ile yazılması gerekiyor.

soplar unrealde & olarak prefix alıyor o yüzden
if $regex($nick($chan,$nick).pnick,/^(&)/) { halt }
olarak gösterip işlemi durdurman gerekior.

Fakat Unreal kurulurken ( &, ~ , . ) bu prefix özellikleri kurulmadı ise direk
if ( $nick isop $chan ) { işlem } şeklinde onları muaf tutabilirsin.

Ayrı ayrı nickleri muaf tutmak istersen ( özel nickler )

var %muaf = 1
var %muafnicks = nick1,nick2,nick3,nick4,nick5
if %muaf && $istok(%muafnicks,$nick,44) { halt }

kullanmalısın. 1 yazan yeri 0 yaparsan kod çalışmaz.
Yani 1 özel nick korumasını açar 0 kapatır.

Anladığım kadarı ile sen kanalda belirttiğin harf sınırını aşanı kanaldan banlamak istiyorsun. Opları ve sopları bunun yanında belirttiğin nickleri muaf tutup bu kurala uymayan nickleri banlamak istiyorsun istediğin koda gelince.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on @1:TEXT:*:#zurna: {
  var %muaf = 1
  var %muafnicks = nick1,nick2,nick3,nick4,nick5
  if %muaf && $istok(%muafnicks,$nick,44) { halt }
  if ( $nick isop $chan ) { halt }
  if $regex($nick($chan,$nick).pnick,/^(&)/) { halt }
  if $nick != $me {
    if $len($1) >= 150 { 
      ban -k $chan $nick ban sebebin
      privmsg $chan .temizle
      return
    }
  }
}

Bu şekilde dene çalışır. 150 olarak belirttiğim yer kişinin kanalda yazacağı maksimum harf sayısını belirtir. Oynama yapabilirsin.. Fakat bu koruma harf sınırı korumasıdır. Uzun harf koruması değildir.

uzun harf koruması istiyorsan

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if $len($1) >= 150 {

olan yeri

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if $regex($1-,/([[:print:]])\1\1/gi) >= 10 {

olarak değiştir umarım açık olarak anlatabilmişimdir.

serdark · 23 Aralık 2010, 23:20

PeRSGuaRD Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

ON @1:TEXT:*:#ela: {
if ( $nick isop $chan ) halt
if ( $len($strip($1-)) >= 150) {
if ( $me isop $chan ) { uzunkick halt }
msg # .temizle
/ban # $nick
}

resimde görebilirsin arkadaşım devrim999 nıckı uzun yazdıgında .temizle yazıyor ve ardından ban atıyor.
lordguard nıckıde aynı yazıyı yazıyor fakat op oldugu ıcın ona ban atamıyor.

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

----------

birisi birşey yazdıgında atmaz

kım 150 tane karakter kullanırsa harf rakam sembol v.s o kısıye uygular komutu
if ( $len($strip($1-)) >= 150) {
buradakı 150 sayısıyla onuda ayarlayabılırsın 150 bence kısa 300 yap sen onu.
ON @1:TEXT:*:#ela: {
burayıda zurna ıdı sanırım senın verdıgın kodda değiştirirsin.

olayı tam anlamamışsın galiba yada ben anlata madım 1 kişi normal user kanala girer girmez ame atıyor ardı ardına 3 defa ust uste 3 defa temizle yapıyor kod ekran 3 defa temizleniyor oda göze batıyor onu anlatmak istiyorum sop veya opları banlamama olayı 2ci plan anlata bildimmi ugraştırıyorum sizi kusura bakmayın

----------

ATLAS Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Dikkatimden kaçarak yazdığım kodda hata yapmışım..

sopları muaf tutabilmek için if $nick issop $chan kullanılmaz. Çünkü text eventinde kanala yazı yazan nick konumları ( &, ~ , . ) prefixlerini görmesi için regex ile yazılması gerekiyor.

soplar unrealde & olarak prefix alıyor o yüzden
if $regex($nick($chan,$nick).pnick,/^(&)/) { halt }
olarak gösterip işlemi durdurman gerekior.

Fakat Unreal kurulurken ( &, ~ , . ) bu prefix özellikleri kurulmadı ise direk
if ( $nick isop $chan ) { işlem } şeklinde onları muaf tutabilirsin.

Ayrı ayrı nickleri muaf tutmak istersen ( özel nickler )

var %muaf = 1
var %muafnicks = nick1,nick2,nick3,nick4,nick5
if %muaf && $istok(%muafnicks,$nick,44) { halt }

kullanmalısın. 1 yazan yeri 0 yaparsan kod çalışmaz.
Yani 1 özel nick korumasını açar 0 kapatır.

Anladığım kadarı ile sen kanalda belirttiğin harf sınırını aşanı kanaldan banlamak istiyorsun. Opları ve sopları bunun yanında belirttiğin nickleri muaf tutup bu kurala uymayan nickleri banlamak istiyorsun istediğin koda gelince.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on @1:TEXT:*:#zurna: {
  var %muaf = 1
  var %muafnicks = nick1,nick2,nick3,nick4,nick5
  if %muaf && $istok(%muafnicks,$nick,44) { halt }
  if ( $nick isop $chan ) { halt }
  if $regex($nick($chan,$nick).pnick,/^(&)/) { halt }
  if $nick != $me {
    if $len($1) >= 150 { 
      ban -k $chan $nick ban sebebin
      privmsg $chan .temizle
      return
    }
  }
}

Bu şekilde dene çalışır. 150 olarak belirttiğim yer kişinin kanalda yazacağı maksimum harf sayısını belirtir. Oynama yapabilirsin.. Fakat bu koruma harf sınırı korumasıdır. Uzun harf koruması değildir.

uzun harf koruması istiyorsan

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if $len($1) >= 150 {

olan yeri

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if $regex($1-,/([[:print:]])\1\1/gi) >= 10 {

olarak değiştir umarım açık olarak anlatabilmişimdir.

ustat benim istedigim olay tam olarak şudur adam kanala girdi girer girmez 3 defa uzun yazı yazdı bu adamı 1 kere banlamak ve 1 kere .temizle yazmasını istiyorum

şuanki komutum 1 kere banlıyor ama 3 defa .temizle yazıyor anlata bildimmi ugraştıyorum sizi kusura bakmayın

ATLAS · 25 Aralık 2010, 03:29

Bu işi kökünden çözelim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Sana kodu 2 türlü yazdım.
1. kod harf uzatma koruması.
2. kod harf (yazı) sınırı koruması.

1. kod

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on @1:TEXT:*:#zurna: {
  var %muaf = 1
  var %muafnicks = nick1,nick2,nick3,nick4,nick5
  if %muaf && $istok(%muafnicks,$nick,44) { halt }
  if ( $nick isop $chan ) { halt }
  if $regex($nick($chan,$nick).pnick,/^(&)/) { halt }
  if $nick != $me {
    if $regex($1-,/([[:print:]])\1\1/gi) >= 5 {
      var %< = $+(%,uharf.,$chan,.,$nick) 
      inc $(%<,1)
      if $(%<,2) == 2 { 
        privmsg $chan Almış olduğunuz 2. uyarı $nick $+ . Lütfen harfleri uzatmayın! Aksi taktirde kanalda uzaklaştırılacaksınız.
        return
      }
      if $(%<,3) == 3 { 
        ban -k $chan $nick ban sebebin
        privmsg $chan .temizle
        unset $(%<,1)
        return
      }
      else {
        privmsg $chan $nick Lütfen harfleri uzatmayın!
        return
      }
    }
  }
}

Kod: Kodu kopyalamak için üzerine çift tıklayın!

nick1,nick2,nick3,nick4,nick5

olan yerleri korumadan muaf tutmak istediğin nickleri yaz.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 if $regex($1-,/([[:print:]])\1\1/gi) >= 5 {

5 yazan yeri harflerin ne kadar uzatılacağı sınır sayısını yaz.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if $regex($nick($chan,$nick).pnick,/^(&)/) { halt }

& olan yeri sopların kanalda aldığı prefixi yaz.

Eğer yanlış anlatmadıysan kod şu an istediğin gibi.
testini ettim sonra olmuyor deme
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

[03:29] <deneme> selammmmmmmmmmmmmmm
[03:29] <ATLAS> deneme Lütfen harfleri uzatmayın!
[03:29] <deneme> selammmmmmmmmmmmmm yaaaaaaaa
[03:29] <ATLAS> Almış olduğunuz 2. uyarı deneme. Lütfen harfleri uzatmayın! Aksi taktirde kanalda uzaklaştırılacaksınız.
[03:29] <deneme> selammmmmmmmmmmmmm yaaaaaa
[03:29] * ATLAS sets mode: +b 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[03:29] * deneme was kicked by ATLAS (ban sebebin)
[03:29] <ATLAS> .temizle

2. kod.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on @1:TEXT:*:#zurna: {
  set %cyazi $len($1-)
  var %muaf = 1
  var %muafnicks = nick1,nick2,nick3,nick4,nick5
  if %muaf && $istok(%muafnicks,$nick,44) { halt }
  if ( $nick isop $chan ) { halt }
  if $regex($nick($chan,$nick).pnick,/^(&)/) { halt }
  if $nick != $me {
    if %cyazi >= 150 { 
      var %< = $+(%,uzunyazi.,$chan,.,$nick) 
      inc $(%<,1)
      if $(%<,2) == 2 { 
        privmsg $chan Almış olduğunuz 2. uyarı $nick $+ . Lütfen Gereğinden fazla yazı (Flood) yapmayınız. Aksi taktirde kanalda uzaklaştırılacaksınız.
        return
      }
      if $(%<,3) == 3 { 
        ban -k $chan $nick ban sebebin
        privmsg $chan .temizle
        unset $(%<,1)
        return
      }
      else {
        privmsg $chan $nick Lütfen Gereğinden fazla yazı (Flood) yapmayınız.
        return
      }
    }
  }
}

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if %cyazi >= 150 {

150 olan yer kanalda yazılacak yazı toplamının kaç harf olacağını belirler dilediğin gibi değiştirebilirsin.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

[04:04] <deneme> kanala saldırıyoruz ahahaha kanala saldırıyoruz ehehehe saldırıyoruz kanala ahahahaha kanala saldırıyoruz ahahaha kanala saldırıyoruz ehehehe saldırıyoruz kanala ahahahaha  kanala saldırıyoruz ahahaha kanala saldırıyoruz ehehehe saldırıyoruz kanala ahahahahaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
[04:04] <ATLAS> deneme Lütfen Gereğinden fazla yazı (Flood) yapmayınız.
[04:04] <deneme> kanala saldırıyoruz ahahaha kanala saldırıyoruz ehehehe saldırıyoruz kanala ahahahaha kanala saldırıyoruz ahahaha kanala saldırıyoruz ehehehe saldırıyoruz kanala ahahahaha  kanala saldırıyoruz ahahaha kanala saldırıyoruz ehehehe saldırıyoruz kanala ahahahahaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
[04:04] <ATLAS> Almış olduğunuz 2. uyarı deneme. Lütfen Gereğinden fazla yazı (Flood) yapmayınız. Aksi taktirde kanalda uzaklaştırılacaksınız.
[04:04] <deneme> kanala saldırıyoruz ahahaha kanala saldırıyoruz ehehehe saldırıyoruz kanala ahahahaha kanala saldırıyoruz ahahaha kanala saldırıyoruz ehehehe saldırıyoruz kanala ahahahaha  kanala saldırıyoruz ahahaha kanala saldırıyoruz ehehehe saldırıyoruz kanala ahahahahaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
[04:04] * ATLAS sets mode: +b 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[04:04] * deneme was kicked by ATLAS (ban sebebin)
[04:04] <ATLAS> .temizle

anlamadığın yer olursa özel pm atabilirsin..

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Uzun yazı koruması	moonman	mIRC Scripting Sorunları	9	06 Ocak 2012 22:55
Gölge yazı koruması	Emrax	mIRC Scripting Sorunları	6	15 Eylül 2011 09:04
Uzun Yazı Koruması	KuLs	mIRC Scripting Hazır Kodlar	2	20 Kasım 2010 05:09
Renkli yazı koruması	Cyptm	mIRC Scripting Sorunları	2	05 Ekim 2008 12:29
yazı koruması	тєαм	mIRC Scripting Sorunları	7	04 Şubat 2007 11:25

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

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.