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ı