IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Küfür KorumasI HakkInda Sorun! (https://www.ircforumlari.net/mirc-scripting-sorunlari/32927-kufur-korumasi-hakkinda-sorun.html)

Küfür KorumasI HakkInda Sorun!

Alıntı:

on @*:TEXT:*:#: {
; +o +h +v ler bu degerden etkilenmeyecekler
if ($nick !isreg #) return
var %l = $strip($1-)
if ($hmatch(kufur,%l)) {
mode # +b $wildsite | mode # +b $nick
kick # $nick Kötü Sözler Kullanmak Yasaktır!
}
}
alias küfür {
if ($1 == ekle) && ($regex($2,[A-Za-z])) {
hadd kufur $2
secho $2 veritabanina başarıyla eklendi
}
elseif ($1 == sil) {
if ($hfind(kufur,$2)) {
hdel kufur $2
secho $2 veritabanindan başarıyla silindi
}
else { secho $2 veritabaninda bulunamadi }
}
elseif ($1 == list) {
var %x = 1
while (%x <= $hget(kufur,0).item) {
set %hkufur $addtok(%hkufur,$hget(kufur,%x).item,1)
if ($numtok(%hkufur,32) >= 7) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }
inc %x
}
if ($numtok(%hkufur,32) >= 1) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }
}
else { secho hatali islem }
}
alias secho {
;echo -a $1-
if (!$window(@kufur)) { window -e @kufur }
echo @kufur $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:EXIT: hsave -o kufur kufur.txt
on *:start: {
hmake kufur 1000
if ($exists(kufur.txt)) { hsave -o kufur kufur.txt }
hload kufur kufur.txt
}

Forum Sitesinden Bulmuştum Bu Kodu. Kod Gayet Güzel Çalışıyor Ancak * Yapan Atılıyor. Küfür Listesine Baktım Öyle Bir Küfür Ekli Değil , Sorun Nerede Acaba..?

Cevap: Küfür KorumasI HakkInda Sorun!

Bahsettiğin şey wilcard karakter, her kelimenin yerine geçer.

Yanıt: Küfür KorumasI HakkInda Sorun!

küfürü * böyle ekledigimdenmi kaynaklanıyor yani , misal *siker* gibi?

Yanıt: Küfür KorumasI HakkInda Sorun!

Şu ilk kısmı:
on @*:TEXT:*:#: {
; +o +h +v ler bu degerden etkilenmeyecekler
if ($nick !isreg #) return
var %l = $strip($1-)
if ($hmatch(kufur,%l)) {
mode # +b $wildsite | mode # +b $nick
kick # $nick Kötü Sözler Kullanmak Yasaktır!
}
}

bu şekilde değiştirmen sorununu çözebilir:

alias rplc return $iif($pos($1-,*,0) == 0,$1-,$replace($1-,*,?))
on @*:TEXT:*:#: {
; +o +h +v ler bu degerden etkilenmeyecekler
if ($nick !isreg #) return
var %k = $strip($1-)
var %l = $rplc(%k)
if ($hmatch(kufur,%l)) {
mode # +b $wildsite | mode # +b $nick
kick # $nick Kötü Sözler Kullanmak Yasaktır!
}
}