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

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

- - Kufur Korumasi (https://www.ircforumlari.net/mirc-scripting-sorunlari/308235-kufur-korumasi.html)

<POSOFxBELA> deneme deneme 123 mal deneme deneme
[ Notice ] BoNCuK [ DIKKAT ] Nick: POSOFxBELA Yazdigi Söz: deneme deneme 123 mal deneme deneme Yasak Kelime: Kanal: #sohbet Ip: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Saat: 18:37:41
Ekledigim Sey Kanala Yazilirsa BoNCuK nickli botum #posofdeneme kanalina notice gondercek yukarda belirtmis oldugum gibi fakat bir sorun var ..
Yazdigi Söz: deneme deneme 123 mal deneme deneme Yasak Kelime:
Yasak kelime kismini cikartamiorum .. yardim edebilirmisiniz ?
kod su
#wall on
on *:text:*:#:{
if ($level($nick) == muafnlist) { halt }
if ($level($chan) == muafclist) { halt }
if $me !isop $chan && !$regex($remove($usermode,+),/(o|O|N|C|a|A)) { halt }
if ($duvar($1-)) { /notice #posofdeneme 12[0,4 DIKKAT ] 7 Nick: 4 $nick 7 Yazdigi Söz: 4 $1- 7 Yasak Kelime: 4 $duvar- 7 Kanal: 4 $chan 7 Ip: 4 $address 7 Saat: 4 $time }
}
Yani Su Sekil Olmasi Lazim Sonuc:
[ Notice ] BoNCuK [ DIKKAT ] Nick: POSOFxBELA Yazdigi Söz: deneme deneme 123 mal deneme deneme Yasak Kelime: mal Kanal: #sohbet Ip: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Saat: 18:37:41

Cevap: Kufur Korumasi

bu benim yazdığım kod sanırım "alias duvar" şeklinde bir alias olacak onu buraya kopyalarmısın?

Cevap: Kufur Korumasi

Alıntı:

XcLusive Nickli Üyeden Alıntı (Mesaj 1040282152)

bu benim yazdığım kod sanırım "alias duvar" şeklinde bir alias olacak onu buraya kopyalarmısın?

Evet Abi Senin Kod :)

alias duvar {
var %::rtext = $remove($1-,$chr(44),$chr(40),$chr(41)),%xc
%::rtext = $lower(%::rtext)
var %i = $hget(ascii,0).item
while %i {
%::rtext = $replace(%::rtext,$hget(ascii,%i).item,$hget(ascii ,%i).data)
dec %i 1
}
var %q = $hget(chr,0).item
while %q {
%xc = $hget(chr,%q).data
%::rtext = $remove(%::rtext,%xc)
dec %q
}
if %sws.bosluk == on { %::rtext = $regsubex(%::rtext,/([[:space:]])/g,$null) }
if %sws.rakam == on { %::rtext = $regsubex(%::rtext,/([[:digit:]])/g,$null) }
if %sws.karakter == on { %::rtext = $regsubex(%::rtext,/(.)\1+/g,\1) }
if ($hfind(wall,%::rtext,1,W).data) { return $true }
else { return $false }
}

Cevap: Kufur Korumasi

Kod:

if ($hfind(wall,%::rtext,1,W).data) { return $true }

satırını

Kod:

if ($hfind(wall,%::rtext,1,W).data) { set %lastword $hget(wall,$hfind(wall,%::rtext,1,W).data)) | return $true }

bu şekilde değiştirirsen kod bulduğu kelimeyi %lastword değerine ekler
sende:

Alıntı:

Yasak Kelime: $duvar-

kısmını

Alıntı:

Yasak Kelime: %lastword

olarak değiştirirsen kod istediğin şekilde ayarlanmış olur.