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/)

- - Kötü söz uyarıcısı ( yardım ) (https://www.ircforumlari.net/mirc-scripting-sorunlari/75793-kotu-soz-uyaricisi-yardim.html)

Keen	19 Mayıs 2008 03:01

Kötü söz uyarıcısı ( yardım )

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- Kodu:

   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

Cevap: Kötü söz uyarıcısı ( yardım )

Kod:

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

Cevap: Kötü söz uyarıcısı ( yardım )

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

Cevap: Kötü söz uyarıcısı ( yardım )

Kod:

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

Cevap: Kötü söz uyarıcısı ( yardım )

Detay hocam bu da olmadı sonuç aşağıda :(

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

Cevap: Kötü söz uyarıcısı ( yardım )

Herhangi bir sorun olmamalı.

Keen	20 Mayıs 2008 14:29

Cevap: Kötü söz uyarıcısı ( yardım )

Malesef her ikisini de defalarca denememe rağmen bir sonuç alamadım :( detay arkadaşınkinde yine butun oplar uyarı yapıyor. sizinkinde ise hiç bir şey yapmıyor :(

Pozan

12 Aralık 2008 01:13

Cevap: Kötü söz uyarıcısı ( yardım )

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

Cevap: Kötü söz uyarıcısı ( yardım )

Alıntı:

p0w3r Nickli Üyeden Alıntı (Mesaj 426447)

Kod:

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 }

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

Difuzyon

13 Aralık 2008 22:05

Cevap: Kötü söz uyarıcısı ( yardım )

Kod:

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

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

Sayfa 1 Toplam 2 Sayfadan

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