Şöyle bir kod olabilir mi - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Cpu · 26 Şubat 2012, 11:32

Farklı nickler aynı kelimeyi yazdıklarında atılsınlar
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!

<asiyürek> Bahhaat Nerdesin lahann phhheac gelemeyecegini bilsem bu kadar ben gelirdim yanına zurna
<erdem0412> Bahhaat Nerdesin lahann phhheac gelemeyecegini bilsem bu kadar ben gelirdim yanına zurna
<KORHAN> Bahhaat Nerdesin lahann phhheac gelemeyecegini bilsem bu kadar ben gelirdim yanına zurna
<aslan55> Bahhaat Nerdesin lahann phhheac gelemeyecegini bilsem bu kadar ben gelirdim yanına zurna
<busenaz> Bahhaat Nerdesin lahann phhheac gelemeyecegini bilsem bu kadar ben gelirdim yanına zurna
<dishekimi> Bahhaat Nerdesin lahann phhheac gelemeyecegini bilsem bu kadar ben gelirdim yanına zurna

gibi

fav · 26 Şubat 2012, 13:52

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

;eğer metin sohbet kanalına yazılmışsa devam etsin
on !*:text:*:#sohbet: {
;yazan nick %nik veriablesinde yok ise niki %nik veriablesine kaydetsin ve devam etsin
  if ($nick != %nk) { set %nk $nick
;yazılan metin %k veriablesinde var ise renk kodlarından arındırıp komut uygulasın ve tekrar %k veriablesine alsın
    if (%k == $strip($1-)) { echo $chan ban | set %k $strip($1-) }
;eğer önceki metin şimdikiyle eşit değilse işlem yapmaz
  }
}

burada echo $chan ban kısmına atma komutunu yazacaksın gline $nick kick $nick gibi

26 Şubat 2012, 15:12

fav Nickli Üyeden Alıntı
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!

;eğer metin sohbet kanalına yazılmışsa devam etsin
on !*:text:*:#sohbet: {
;yazan nick %nik veriablesinde yok ise niki %nik veriablesine kaydetsin ve devam etsin
  if ($nick != %nk) { set %nk $nick
;yazılan metin %k veriablesinde var ise renk kodlarından arındırıp komut uygulasın ve tekrar %k veriablesine alsın
    if (%k == $strip($1-)) { echo $chan ban | set %k $strip($1-) }
;eğer önceki metin şimdikiyle eşit değilse işlem yapmaz
  }
}

burada echo $chan ban kısmına atma komutunu yazacaksın gline $nick kick $nick gibi

Aslında işe cok yarar bu koruma fakat şimdi atma komutu falan deyince kodlar hakkında pek bilgim olmadığı için bi karakter hatası falan yaparız die
dokunmak istemiorm sunu tam olarak Aop ve Halfop için +b ip ban seklinde versen cok makbule gecer hocam
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Cpu · 26 Şubat 2012, 16:33

İşe yaramadı

Paint · 26 Şubat 2012, 17:16

fav Nickli Üyeden Alıntı
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!

;eğer metin sohbet kanalına yazılmışsa devam etsin
on !*:text:*:#sohbet: {
;yazan nick %nik veriablesinde yok ise niki %nik veriablesine kaydetsin ve devam etsin
  if ($nick != %nk) { set %nk $nick
;yazılan metin %k veriablesinde var ise renk kodlarından arındırıp komut uygulasın ve tekrar %k veriablesine alsın
    if (%k == $strip($1-)) { echo $chan ban | set %k $strip($1-) }
;eğer önceki metin şimdikiyle eşit değilse işlem yapmaz
  }
}

burada echo $chan ban kısmına atma komutunu yazacaksın gline $nick kick $nick gibi

Kodda %k variablesi oluşturmayı unutmuş arkadaş.

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

on !*:text:*:#sohbet: {

  if ($nick != %nk) { 
  set %nk $nick 
    if (%k == $strip($1-)) { 
    ban -k $chan $nick 
    }
  }
  .set %k $strip($1-)
}

Ne kadar etkili olur bilemem. hash table ile süre kısıtlamalı olması daha mantıklı sanki.

26 Şubat 2012, 18:38

Şimdi düşündümde sıkıntı yaratır gibime gelior orneğin tekrarlanan kelime en basitinden "Slm" olursa o kisiden sora slm yazan atılcak bu kod için sadece tek bi kelime deil cümle olarak ayarlanmalı örnek: slm iyi günler nasılsınız? birde süre olmalı yani ilk tekrarlanan kelime ilk yazan kisinin hemen akabinde yazılırsa işlem yapmalı yani saldırılarda genelde bütün botlar hepsi birden yazıor bu şartlara göre bir cod olursa yararlı olacağını düşünuorm sevgiler saygılar...

Narsinha · 26 Şubat 2012, 18:51

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

on @*:text:*:#: {
  if $regex($strip($1-),/[[:print:]]/g) > 15 {
    set -eu5 % [ $+ [ $chan $+ [ $nick ] ] ] $md5($strip($1-))
    var %s = 1,%q = $var($chan $+ * $+ ,0) | while (%s <= %q) { if $var($chan $+ * ,%s).value == $md5($strip($1-)) { 
    if $var($chan $+ * ,%s) != $+(%,$chan,$nick) { ban -ku900 $chan $nick 2 Tekrar yasak $+($nick,!) } | inc %s } | break }
  }
}

Bir kodda ben yazdım.Başım çok ağrıyor nasıl bir kod oldu emin değilim hata verme olasılığı yüksek denemedim kodu.

26 Şubat 2012, 20:05

Egzodya Nickli Üyeden Alıntı
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!

on @*:text:*:#: {
  if $regex($strip($1-),/[[:print:]]/g) > 15 {
    set -eu5 % [ $+ [ $chan $+ [ $nick ] ] ] $md5($strip($1-))
    var %s = 1,%q = $var($chan $+ * $+ ,0) | while (%s <= %q) { if $var($chan $+ * ,%s).value == $md5($strip($1-)) { 
    if $var($chan $+ * ,%s) != $+(%,$chan,$nick) { ban -ku900 $chan $nick 2 Tekrar yasak $+($nick,!) } | inc %s } | break }
  }
}

Bir kodda ben yazdım.Başım çok ağrıyor nasıl bir kod oldu emin değilim hata verme olasılığı yüksek denemedim kodu.

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

[20:03] <jjpqSuHMTH> SeLam nbr?
[20:03] <AwNQwMnIo> SeLam nbr?
[20:03] <JrfLq> SeLam nbr?
[20:03] <jjpqSuHMTH> SeLam nbr?
[20:03] <AwNQwMnIo> SeLam nbr?
[20:03] <JrfLq> SeLam nbr?

Calısmıor malesef tepki yok
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Narsinha · 26 Şubat 2012, 20:09

TİGeR Nickli Üyeden Alıntı
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!

[20:03] <jjpqSuHMTH> SeLam nbr?
[20:03] <AwNQwMnIo> SeLam nbr?
[20:03] <JrfLq> SeLam nbr?
[20:03] <jjpqSuHMTH> SeLam nbr?
[20:03] <AwNQwMnIo> SeLam nbr?
[20:03] <JrfLq> SeLam nbr?

Calısmıor malesef tepki yok
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

if $regex($strip($1-),/[[:print:]]/g) > 15 {

yazı uzunluğu 15'ten fazla ise çalışır.

Cpu · 26 Şubat 2012, 20:24

Peki zline atmak istesek bunda

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
şöyle sevdalıca..	Satuk	Şiir, Hikaye ve Güzel Sözler	0	02 Mart 2010 18:54
Şöyle birşey mümkünmü	Cyptm	mIRC Scripting Sorunları	5	25 Kasım 2008 20:50
şöyle birşey mümkünmü?	Cyptm	mIRC Scripting Sorunları	2	12 Mayıs 2008 20:28

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.