Çevrimdışı

<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:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Saat: 18:37:41

 

Çevrimdışı

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

 

Çevrimdışı

XcLusive Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

Evet Abi Senin Kod
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


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

 

Çevrimdışı

satırını

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.