valla hangi kafayla yazdım onu bilmiyorum 2016 yılında yazmışım. Muhtemelen hazırlarken kullanıcamı planlamışımdır ama kodun gidişatına göre kullanmamışımdır
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. Evet @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] haklısın gözden kacmış o bazı kodlarda değişim yapıltıktan sonra deneme şansım olmuyor
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on @*:text:*:#: {
set %:Mylife $1-
set %:Kod $nick
if (!$hget(argo)) { hmake -s argo 300 }
if $regex($1-,/Mylife|kelime|kelime|kelime|kelime|kelime|kelime$/Si) && (!$hmatch(argo,%:Kod)) {
hadd -s argo %:Kod 1
msg # %:Kod yasaklı kelime kullandınız. ( uyarı )
}
elseif $regex($1-,/Mylife|kelime|kelime|kelime|kelime|kelime|kelime$/Si) && ($hmatch(argo,%:Kod)) {
mode # +b %:Kod
kick # %:Kod yasaklı kelime kullandınız.
hdel -s argo %:Kod
}
unset %:Mylife
unset %:Kod
}
=> olarak düzelttim. Bu kod ile regex çok uzun sürüp gidebilir. Alternatif olarak regex kullanmak yerine text dosyası icine küfürleri yazıp $read ile karşılaştırma yapabilirsiniz, hash tablosu ile uyumlu olur mu şuan bilmiyorum denemek lazım. O dönem bu tur calışmalar yoktu hiç karşılaşmıyordum ama şimdi karşılaşıyorum artık herşey biraz daha kolay farklı yollar kullanabilirsiniz. İyi forumlar dilerim.