Çevrimdışı

merhaba arkadaşlar ben mümkünse sizden iki kod isteyecektim.

ilki kanalda biri küfür edince onun direk banlanması. Bu küfürleri küfür.txt dosyasından okuyacak bunu ilk seferinde banlıcak
ikincisi ise argo koruması. Bunda da biri argo.txt deki kelimelerden birini kullanınca ilk önce kanalda ona uyarı verecek eğer 10 dakika içinde o kişi tekrar argo.txt deki herhangi bir kelime kullanırsa bu sefer kanaldan banlayacak. Bir de arkadaşlar argo.txt e ve küfür.txt te bota komut vererek kelime eklemek istiyorum. Yardımcı olursanız çok teşekkür ederim. iyi çalışmalar

 

Çevrimdışı

$read(xxxx.txt) ile okutursun;

reklam-küfür-kelime yasaklama konusunu incele lütfen
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

eğer yetersiz gelirse event derslerini incele ;
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

eğer daha fazlasını istersen while döngüsünü incele ve uğraş üzerinde
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

event başlangıcın , on *:text:*:#: {

uğraş ama ciddi anlamda uğraş , yapamadığın yönleri sor.

 

Çevrimdışı

on *:text:*:#: {
if $nick !isop $chan && $nick !ishop $chan && $nick !ison #opers {
if $read(küfür.txt) iswm $1- {
mode # +b $nick
}
}
}


bunu yaptım ama olmadı
------------------------
pardon oldu

 

Çevrimdışı

peki mesela ben eğer opers kanalındayken !kufurekle kufur yazdığım zaman bot bunu kufur.txt dosyasına nasıl ekleyebilir satır olarak? yada ekleyebilirmi?

 

Çevrimdışı

Ekleyebilir.

 

Çevrimdışı

Hımm mIRC scripting için bişiler yapman güzel olmuş, biraz daha dersleri takip etmen gerekiyor.
Txt içindeki kelimeleri eşleştirebilmek için while loop'a ihtiyaç vardır.
Yani, alias içinde bir while döngüsü kurmak istersek;

alias whl { var %< = 1 | while (%< <= $lines(k&#252;f&#252;r.txt)) {
if $read(k&#252;f&#252;r.txt,%<) iswm $1- { return $true } | inc %< } }

Şimdi bunu bir text event i&#231;inde kullanalım
on *:text:*:#: { if $whl($1-) { ban -ku900 # $nick 2 k&#252;f&#252;r ettin 5 dakika ban } }

not: whlie d&#246;ng&#252;s&#252;n&#252; merak ediyorsan LeadeR'in while d&#246;g&#252;s&#252; i&#231;in hazırladığı dersi forumumuzun mIRC dersleri b&#246;l&#252;m&#252;nden bakarak &#246;ğrenebilirsin.

kodum tamamı:




alias i&#231;inde değilde direkt event i&#231;inde kullanmak istersek

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#: {
var %< = 1 | while (%< <= $lines(k&#252;f&#252;r.txt)) { 
if $read(k&#252;f&#252;r.txt,%<) iswm $1- {
ban -ku900 # $nick 2 k&#252;f&#252;r ettin 5 dakika ban  }
inc %< 
} 
}

Bu şekilde oluşuyor
umarım işine yarar.

__________________
TurkSohbet.NET | #XPass

 

Çevrimdışı

ben hala bu kufur.txt icine nasıl kelime eklenir satır satır onu bulamadım write diye bir komut varmış gibi hatırlıyorum ama tam nasıl kullanılıyordu onu &#231;ıkaramadım yani nasıl satır ekleyebiliriz?

 

Çevrimdışı

arkadaşlar g&#246;zlerimden uykusuzluktan yaş geldi en iyisi sabah erkenden sakin kafayla iş yerinden devam etmek hadi iyi geceler

 

Çevrimdışı

on *:text:!k.ekle &:#opers:write kufur.txt $2

Kullanımı opers kanalında biri !k.ekle salak yazdığı zaman
kufur.txt dosyasına salak kelimesini ekler.
Not: wildcard (*) kullamak isterseniz.
!k.elke *salak* şeklinde yazmanız yeterlidir.

Bu konu hakkında yapman gerekenlerin hepsini ayrıntılı bir bi&#231;imde anlattık.
Umarım birazda kendin &#231;abalar birşeyler yapabilirsin.
Kolay gelsin, başarılar.

__________________
TurkSohbet.NET | #XPass

 

Çevrimdışı

hala bulamadım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.