argo ban küfür ban
 

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

Yanıt: argo ban küfür ban
 

$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.

Yanıt: argo ban küfür ban
 

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

Yanıt: argo ban küfür ban
 

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?

Yanıt: argo ban küfür ban
 

Ekleyebilir.

Yanıt: argo ban küfür ban
 

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:

---

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.

Yanıt: argo ban küfür ban
 

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?

Yanıt: argo ban küfür ban
 

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

Yanıt: argo ban küfür ban
 

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.

Yanıt: argo ban küfür ban
 

hala bulamadım :(