Edilen küfürün userın özeline mesaj atılması
 

Arkadaslar size bisey soracam ben cok denedim yapamadım mesela kufur listesinde *deneme* kelimesi var ve kanaldaki kisi kanala 1deneme1 yazdı ve attı attıgı zaman özeline sey yazabilirmiyiz # kanalında kufur ettiniz ettiginiz kufur 1deneme1 dir diye ben bunu yapamadım cok ugrastım ne yaptımsa özeline hep # kanalında kufur ettiniz ettiginiz kufur *deneme* seklinde cıkıyor bunu tam nasıl yapabilirim 1deneme1 gibi yazması icin * kodunu yazmadan ??

simdiden teşekkür ederim

Kullandıgın Kodu Buraya Yazarsan Yardımcı Olmaya Çalışacağım..

On @*:TEXT:*:#:{
if $kayıt(ayarlar,korumalar_küfür) == acik {
if $nick isreg # {
var %xx = $lines(kufur.txt)
while %xx {
if ($read(kufur.txt,%xx) iswm $strip($1-)) {
ban # $nick 2
kick # $nick 4 $+ # 5Kanalından 4Küfür12/4Kötü-söz12/4Argo5 Konusmak Sebebinden Dolayı Kanaldan Uzaklaştırıldınız.. | .msg $nick # Kanalında Küfür Ettin Ve Atıldın Ettigin Küfür: $read(kufur.txt,%xx) | halt } | else { dec %xx } }
}
}
}


Kullandıgım kod bu sekil

On @*:TEXT:*:#:{
if $kayıt(ayarlar,korumalar_küfür) == acik {
if $nick isreg # {
var %xx = $lines(kufur.txt)
while %xx {
if ($read(kufur.txt,%xx) iswm $strip($1-)) {
ban # $nick 2
kick # $nick 4 $+ # 5Kanalından 4Küfür12/4Kötü-söz12/4Argo5 Konusmak Sebebinden Dolayı Kanaldan Uzaklaştırıldınız.. | .msg $nick # Kanalında Küfür Ettin Ve Atıldın Ettigin Küfür: $1- | halt } | else { dec %xx } }
}
}
}

sanırım böyle birşey yapılabilir. Kodunda değiştirdiğim yeri kırmızı ile gösterdim.

dostum o zaman yazdıgı kelimelerin hepsini yolluyor mesela

sselam kanal 1deneme1 olarak cıkıyor ben sadece o yazıdaki kufurlu kelimeyi istiyorum :(

On @*:TEXT:*:#:{
if $kayıt(ayarlar,korumalar_küfür) == acik {
if $nick isreg # {
var %xx = $lines(kufur.txt)
while %xx {
if ($read(kufur.txt,%xx) iswm $strip($1-)) {
var %kelime = $read(kufur.txt,%xx) , %dx = 1 , %bulunan = Error!
while $eval($+($,%dx),2) {
if %kelime iswm $eval($+($,%dx),2) { %bulunan = $eval($+($,%dx),2) | goto end }
inc %dx 1
}
:end
ban # $nick 2
kick # $nick 4 $+ # 5Kanalından 4Küfür12/4Kötü-söz12/4Argo5 Konusmak Sebebinden Dolayı Kanaldan Uzaklaştırıldınız.. | .msg $nick # Kanalında Küfür Ettin Ve Atıldın Ettigin Küfür: %bulunan | halt } | else { dec %xx } }
}
}
}

bunu dene bakalım hic test etmedim şimdi yazdım

dostum tesekkür ederim saol tam istedigim gibi olmus

neyse Ben Gelinceye Kadar Yardım Etmişler :P

on *:TEXT:*:#:{
if ($nick !isop $chan) {
var %x = 1
while (%x <= $numtok(%words,32)) {
if ($gettok(%words,%x,32) isin $strip($1-)) { var %swearing! = $true }
inc %x
}
if (%swearing!) && (%kban == 1) && (%mins) {
samode $chan +b $nick 2
kick $chan $nick 14Küfür }
msg $nick Yakalanan Küfür = %swearing!
}

Seklindede Olabilir %swearing Bu Sende Veriables ' de Ne Olarak Geciyorsa Onu Yaz..

dostum calısmadı

birde su var arkadaslar mesela ekledigim kelime *deneme* ama bu kelimenin basında renk karekteri gecerse kabul etmiyor :( onu nasıl yapabilirim

on @*:text:*:#:{ if $nick isreg # { if (*deneme* iswm $strip($1-)) || (*bişey* iswm $strip($1-)) { ban -k # $nick 2 kick mesajı | msg $nick $ifmatch dediğin için $chan kanalından banlandın. } } }

$ifmatch if karşılaştırmalarında yakalanan kelimeye denk gelir. Ama ilerde kaldırılabilir çünkü Khaled $ifmatch yerine $v1 koydu, 2. karşılaştırılan cümleyi almak istersek $v2 kullanabiliriz. Yani msg $nick $v2 içinde $v1 kullandığın için $chan kanalından atıldın gibi..

İstersen böyle bir kod dene..

Yalnız denemeden önce %Kufurler die bi variable setlemen gerek bu kod çok işine yarayacak çünkü %kufurler kısmında kufur kelimesini nasıl yazarsan öyle eşleştirme yapılıyor.Örneğin variable'ın da şöyle birşey olsun;

%kufurler bisey,b*i*s*e*y,bi*s*ey,bis-ey

gördüğün gibi her text i ayrı bir kelime gibi algılıyor.Script korumalarının farkında olan bazı akıllılar küfür ederken harflerin arasına boşluk yada karakter sıkıştırılar :) Script onu yakalamasın diye. Ama bu kodda eğer o text varsa sorun çıkmaz ve küfür edeni haklarsınız. Renkli menklide farketmez