Çevrimdışı

Merhaba Arkadaşlar. Bir remoteye iHtiyacım Var ama Gene forumda aradım Bulamadım


saygıdeğer Coderlerimiz Bu Konuda Yardımcı Olursa seviniriz Hem herkez Faydalanmış Olur.


#x Kanalında Bulunan Küfür Koruma Botununun Yani

<Koruma> beyazz :PRIVMSG: gökçe : uni*** bişee

kanala gönderdiği bu iletide Belirlediğim cinsel içerikli kelimeler listemde varsa ilk nicke otomatik zline atmak istiyorum

Buna göre Bir remote Varmıdır acaba

 

Çevrimiçi

on *:text:*:#: {
if $nick == koruma {
if $read(bilmemne.txt) isin $1- { zline *@ $+ $1 sebep }
}
}
gibi birşey. Bilmemne.txt yi cinsel içeriğinin oldugu txt ile değiştir.

 

Çevrimdışı

Başkan Ben o dediĞini yaptım ama

* $?: Bir olayda kullanamazsınız (Satır 101, giris.mrc)

Böyle bir hata ile karşılaştım

 

Çevrimiçi

* $?: Bir olayda kullanamazsınız (Satır 101, giris.mrc)

101'nci satırı copy et.

 

Çevrimdışı

if $read(koruma.txt) isin $1- { zline *@ $+ $1 }

101 İnci satır bu

 

Çevrimiçi

Kopyaladıgın satırla verdiğim kod alakasız. Muhtemelen kopyaladıgın yerdeki başka birşeyle çakıştı. Boş bir satıra kopyala şu alttaki kodu;

on *:text:*:#: {
if $nick == koruma {
var %i 1
while %i <= $lines(bilmemne.txt) {
if $read(bilmemne.txt,%i) isin $1- { zline *@ $+ $1 sebep }
inc %i
}
}
}

 

Çevrimdışı

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

Kopyaladıgın satırla verdiğim kod alakasız. Muhtemelen kopyaladıgın yerdeki başka birşeyle çakıştı. Boş bir satıra kopyala şu alttaki kodu; on *:text:*:#: { if $nick == koruma { var %i 1 while %i <= $lines(bilmemne.txt) { if $read(bilmemne.txt,%i) isin $1- { zline *@ $+ $1 sebep } inc %i } } }

vermiş olduğunuz kod hatalı..
if $read(bilmemne.txt,%i) isin $1- { zline *@ $+ $1 sebep }
Bu şekilde zline atamassınız + halt ile işlemi durdurmazsanız işlemi 2 defa yapar. *@ $+ $1 ile zline atamassınız vermiş olduğunuz İp formatıdır. *@ip formatında zline atılır. Arkadaşın istediği kodda $1 nicke denk geldiği için koruma botun mesajı *@nick şeklinde zline atılamaz.

Arkadaşın serverinde edit olduğu için
$1 de renk kodu var renk kodunu sildirmeden işlem yapılırsa echo' lamanıza rağmen doğru gördüğünüz $1 e zline atmaya kalkarsanız böyle bir nick yok der.

Koda gelince;



if $read(kufur.txt,W,$5-) {
şeklindede olabilir.
mircinde WhileFix.dll de varmış sanırım onuda ekledim.
Bu şekilde deneyiniz.

 

Çevrimdışı

Başkan senin verdiğin Kodu Şu anda boş bir yere ekledim Dosyayıda oluşturdum yükledim. dosyayı tanıttım kelimeleride girdim


*amına*
*amina*
*götünü*
*gotunu*
*göt*
*got*
*yarrağım*
*yarragim*
*yarrağim*
*------*
*sikik*
*boşalırdım*
*bosalırdım*
*bosalirdim*
*boşalirdim*
*domalırmısın*
*boşaltmam*
*bosaltmam*
*sevişirken*
*sevisiriz*
*seviselimmi*
*sevişelimmi*


ama gene atmıyor hatada vermiyor

 

Çevrimiçi

isin olan kısmı iswm yap eğer wildcard'lı ekliyorsan kelimelerini.

 

Çevrimdışı

Tmm herşey dediĞin gibi farklı bir nickle giriyorum deniyorum

[02:44:24] <Koruma> TurkmIRC-358 :PRIVMSG: aqIrAbi : ------

atmıyor.



on *:text:*:#Spam: {
if $nick == koruma {
var %i 1
while %i <= $lines(koruma.txt) {
if $read(koruma.txt,%i) iswm $1- { zline *@ $+ $1 Yasak }
inc %i
}
}
}