Kötü söz uyarıcısı ( yardım ) - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Keen · 19 Mayıs 2008, 03:01

Ya ustadlar aşağıdaki koda ek bir özellik koymaya calıstım. aşağıdaki kodda kullanıcı kotu söz kullanmaması konusunda uyarı alıyor. haliyle bir sürü op bunu aynı kanalda kullanınca bir kullanıcya 5 tane uyarı gidebiliyor bu da görüntü kirliliğine yol açıyor. eğer uyarılan nick şu nickse uyarma diyorum. fakat kanala yazıldıgında yine hep beraber uyarıyorlar aynı nicki. nasıl yapacagım çözemedim yardımcı olursanız sevnirim. tskler.

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


on 1:text:*U y a r ı :*:*:{ set  %uyarıaldı $3 | echo -a  $3 uyarılanlar listesine eklendi  }

 
#uyarılı on

on *:text:*:#:{

  if $nick = %uyarıaldı { halt }

  if ($nick isreg $chan) {

 
    if $istok($1-,it,32) || $istok($1-,lan,32) || $istok($1-,maymun,32) || $istok($1-,Ayı,32) || $istok($1-,köpek,32) || $istok($1-,mal,32) || $istok($1-,salak,32) || $istok($1-,aptal,32) || $istok($1-,enayi,32) || $istok($1-,?küz,32) || $istok($1-,angut,32) || $istok($1-,oğlum,32) || $istok($1-,ger?zekal?,32) || $istok($1-,sie,32) || $istok($1-,sia,32) || $istok($1-,hıyar,32) || $istok($1-,?nek,32) || $istok($1-,si@,32) || $istok($1-,uza,32) || $istok($1-,lahn,32) || $istok($1-,lanh,32) || $istok($1-,saxo,32) || $istok($1-,manyak,32) || $istok($1-,salak,32) || $istok($1-,uzaa,32) || $istok($1-,kro,32) {

      if (!%say [ $+ [ $nick ] ]) { inc %say [ $+ [ $nick ] ] | set %kelime [ $+ [ $nick ] ] $strip($1-) | msg $chan  12 [ U y a r ı ]  : 4 $nick   10 Lütfen Seviyeyi Düşürmeyiniz Aksi Taktirde Kanaldan Uzaklaştırılıcaksınız !. | set %uyarıaldı $nick | msg #jjj Uyarılan : %uyarıaldı }

      else { if (%say [ $+ [ $nick ] ] >= 1) { mode $chan +b $nick | kick $chan $nick 12Daha Onceden 4 >  $+ %kelime [ $+ [ $nick ] ] $+  < 12 Kelimesinden Dolayi Uyarı Aldınız 2. Olarak 4 >  $+ $strip($1-) $+  < 12 Olan Yasak ve Kötü Unsur Içeren Sözcüğü Kullandıgınız Için Kanaldan 4 Uzaklaştırıldınız.. [ 12 $me 4] | unset %say [ $+ [ $nick ] ] | unset %kelime [ $+ [ $nick ] ] }

      }

    }

  }

}

#uyarılı end

Regex · 19 Mayıs 2008, 04:14

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

on @*:text:*:#:if $nick isreg # { if $istok(it lan maymun ayı köpek mal salak aptal enayi ?küz angut oğlum ger?zekal? sie sia hıyar ?nek si@ uza lahn lanh saxo manyak salak uzaa kro,$1-,32) { hinc -m argo $+(#,$nick) | if $hget(argo,$+(#,$nick)) == 1 && $level($nick) != uyar { msg # Uyarı: $nick $+ , lütfen kanal içerisinde seviyeli yazılar yazınız. Aksi takdirde, kanaldan uzaklaştırılacaksınız. } | if $hget(argo,$+(#,$nick)) == 2 { ban -k # $nick 2 Argo yazı yazmak yasaktır. | hdel argo $+(#,$nick) } } }
on *:text:Uyarı*takdirde*:#:if $nick isop # { .auser uyar $2 }

Şeklinde yapabilirsin.

Not: Bu tür bir korumada, hash kullanmanı öneririm.
Uyarı: if $istok(it,$1-,32) || $istok(lan,$1-,32) gibi bir kullanım gereksizdir. $istok identifierının amacı zaten farklıdır. Bunun yerine, if $istok(it lan,$1-,32) gibi kullanmalısın.

Yukarıdaki kod, işini görür. Kolay gelsin.

Keen · 19 Mayıs 2008, 04:58

Tşkler hocam. Kodu denediniz mi bilmiyorum verdiginiz kod bende herhangi bir tepki vermedi. Bir daha bakabilir misiniz sorun bendeyse neyden olabilir ?

detay · 19 Mayıs 2008, 05:05

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

on 1:text:*U y a r ı :*:*:{ set  %uyarıaldı $3 | echo -a  $3 uyarılanlar listesine eklendi  }

#uyarılı on
on *:text:*:#:{
  if $nick = %uyarıaldı { halt }
  if ($nick isreg $chan) {

    if $istok($1-,it,32) || $istok($1-,lan,32) || $istok($1-,maymun,32) || $istok($1-,Ayı,32) || $istok($1-,köpek,32) || $istok($1-,mal,32) || $istok($1-,salak,32) || $istok($1-,aptal,32) || $istok($1-,enayi,32) || $istok($1-,?küz,32) || $istok($1-,angut,32) || $istok($1-,oğlum,32) || $istok($1-,ger?zekal?,32) || $istok($1-,sie,32) || $istok($1-,sia,32) || $istok($1-,hıyar,32) || $istok($1-,?nek,32) || $istok($1-,si@,32) || $istok($1-,uza,32) || $istok($1-,lahn,32) || $istok($1-,lanh,32) || $istok($1-,saxo,32) || $istok($1-,manyak,32) || $istok($1-,salak,32) || $istok($1-,uzaa,32) || $istok($1-,kro,32) {
      if (!%say [ $+ [ $nick ] ]) && !$fline($chan,$+(*,$nick,*aksi taktirde*),1) { 
      inc %say [ $+ [ $nick ] ] | set %kelime [ $+ [ $nick ] ] $strip($1-) 
      msg $chan  12 [ U y a r ı ]  : 4 $nick   10 Lütfen Seviyeyi Düşürmeyiniz Aksi Taktirde Kanaldan Uzaklaştırılıcaksınız !. 
      set %uyarıaldı $nick | msg #jjj Uyarılan : %uyarıaldı 
    }
    else { if (%say [ $+ [ $nick ] ] >= 1) { mode $chan +b $nick | kick $chan $nick 12Daha Onceden 4 >  $+ %kelime [ $+ [ $nick ] ] $+  < 12 Kelimesinden Dolayi Uyarı Aldınız 2. Olarak 4 >  $+ $strip($1-) $+  < 12 Olan Yasak ve Kötü Unsur Içeren Sözcüğü Kullandıgınız Için Kanaldan 4 Uzaklaştırıldınız.. [ 12 $me 4] | unset %say [ $+ [ $nick ] ] | unset %kelime [ $+ [ $nick ] ] }
    }
  }
}
}
#uyarılı end

sanirim bu isini gorebilir senden once uyari yapan varsa. uyarmaz yoksa uyarir.

Keen · 19 Mayıs 2008, 05:13

Detay hocam bu da olmadı sonuç aşağıda
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

4*** #jj kanalina giris yaptiniz.
<denemeem> lan
<Venussus> 12 U y a r ı : 4 denemeem 10 Lütfen Seviyeyi Düşürmeyiniz Aksi Taktirde Kanaldan Uzaklaştırılıcaksınız !.
<teuser817> 12 U y a r ı : 4 denemeem 10 Lütfen Seviyeyi Düşürmeyiniz Aksi Taktirde Kanaldan Uzaklaştırılıcaksınız !.

Regex · 19 Mayıs 2008, 13:53

Herhangi bir sorun olmamalı.

Keen · 20 Mayıs 2008, 14:29

Malesef her ikisini de defalarca denememe rağmen bir sonuç alamadım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
detay arkadaşınkinde yine butun oplar uyarı yapıyor. sizinkinde ise hiç bir şey yapmıyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Pozan · 12 Aralık 2008, 01:13

on @*:text:*:#:if $nick isreg # { if $istok(ö?ele bakarm?s?n* o?ele bakarm?s?n* o?ele geli* özele geli* yana bakarm?s?n yana gelir* yanda konusal?m* yan tarafda konusal?* ö?el?m* gels* ö?el?ndey?m* o?el?n* a? ö?el?nde* o?eli* geli* ö?eli* geli* o?ele ge?e* ö?ele ge?e*,$1-,32) { hinc -m ozel $+(#,$nick) | if $hget(ozel,$+(#,$nick)) == 1 && $level($nick) != uyar { msg # Uyarı: UYARI: $nick , Global Sohbet Odalarında, Ozele Davet yasaktır.Lütfen Israrcı olmayınız...Aksi Takdirde KanaLdan UzakLaştırıLacaksınız... } | if $hget(argo,$+(#,$nick)) == 2 { ban -k # $nick 2 1Uyarılmıştınız. %logo | notice $nick 1[7BiLgi Mesajı1]: 1Kurallara uymayan davranış sergilediğiniz için4 $chan 1Kanalından 15 dk. Uzaklaştırıldınız. Kanaldan uzaklaştırılma sebebinin Hatalı olduğunu ya da uzaklaştırılma Sebebinizi bilmiyorsanız, öğrenmek istiyorsanız; 3/query $me 1komutunu kullanarak özelimden lütfen beni uyarınız.1Sohbet Kuralları hakkında daha detaylı bilgi almak için 5/motd 1yapabilirsiniz.1 Hoş Sohbetler diler... | hdel ozel $+(#,$nick) } } }
on *:text:Uyarı*takdirde*:#:if $nick isop # { .auser uyar $2 }

Kodu bu sekild euygulamay çalışdım olmadı yardımcı olurmusunuz....

vasarelli · 13 Aralık 2008, 21:37

p0w3r 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 $nick isreg # { if $istok(it lan maymun ayı köpek mal salak aptal enayi ?küz angut oğlum ger?zekal? sie sia hıyar ?nek si@ uza lahn lanh saxo manyak salak uzaa kro,$1-,32) { hinc -m argo $+(#,$nick) | if $hget(argo,$+(#,$nick)) == 1 && $level($nick) != uyar { msg # Uyarı: $nick $+ , lütfen kanal içerisinde seviyeli yazılar yazınız. Aksi takdirde, kanaldan uzaklaştırılacaksınız. } | if $hget(argo,$+(#,$nick)) == 2 { ban -k # $nick 2 Argo yazı yazmak yasaktır. | hdel argo $+(#,$nick) } } }
on *:text:Uyarı*takdirde*:#:if $nick isop # { .auser uyar $2 }

Şeklinde yapabilirsin.

Not: Bu tür bir korumada, hash kullanmanı öneririm.
Uyarı: if $istok(it,$1-,32) || $istok(lan,$1-,32) gibi bir kullanım gereksizdir. $istok identifierının amacı zaten farklıdır. Bunun yerine, if $istok(it lan,$1-,32) gibi kullanmalısın.

Yukarıdaki kod, işini görür. Kolay gelsin.

peki 2 dk sonra banini acmasini istiorum bunu nasil yapicas yardimci olurmusun

Difuzyon · 13 Aralık 2008, 22:05

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

on @*:text:*:#:if $nick isreg # { if $istok(it lan maymun ayı köpek mal salak aptal enayi ?küz angut oğlum ger?zekal? sie sia hıyar ?nek si@ uza lahn lanh saxo manyak salak uzaa kro,$1-,32) { hinc -m argo $+(#,$nick) | if $hget(argo,$+(#,$nick)) == 1 && $level($nick) != uyar { msg # Uyarı: $nick $+ , lütfen kanal içerisinde seviyeli yazılar yazınız. Aksi takdirde, kanaldan uzaklaştırılacaksınız. } | if $hget(argo,$+(#,$nick)) == 2 { ban -ku120 # $nick 2 Argo yazı yazmak yasaktır. | hdel argo $+(#,$nick) } } }
on *:text:Uyarı*takdirde*:#:if $nick isop # { .auser uyar $2 }

/ban -ku120 #kanal nick 2 Sebep (Kullanıcıyı #kanalda 2 nolu ban şekli ile(Hostban) 120 saniye süreyle banlar,Sebep'le uzaklaştırır)
uSÜRE ,süre saniye cinsinden yazılmalıdır.Belirtilen süre sonunda ban oto olarak geri açılacaktır.

İyi paylaşımlar...

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Nick uyarıcısı Loglarını txt'e kayıt..yardım	Zifiri	mIRC Scripting Sorunları	1	20 Ocak 2011 12:27
Argo Kelime uyaRıcısı	oSmanLi	mIRC Scripting Sorunları	3	01 Ocak 2011 13:08
mirc kelime uyarıcısı	AybarSsss	mIRC Scripting Hazır Kodlar	5	09 Temmuz 2009 11:07
BaLon Uyarıcısı ßy LauReLL	LauReLL	mIRC Scripting Hazır Kodlar	13	11 Mayıs 2009 15:47
Mesaj Uyarıcısı	SeRDaR406	mIRC Scripting Hazır Kodlar	39	13 Ağustos 2007 13:46

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.