ilginç bi Sistem yapalım mı?
 

Serverıma Aşırı Derece inviter Giriyor.İnviter kanala giriyor kanal nicklerini alıyor kanaldan çıkıyor.oper ve adminleri ignore ediyor.sonra başlıyor reklama böyle olunca ben reklamları göremiyorum.

bir bot yapabilirmiyiz txt den kanalları okusun ve o kanallara girsin.özeline reklam gelince Gerçek nicke (Yetkisi olan nicke) bildirsin.bildirsin derken kline vs.. atsın.Şimdiden yardımınız için tşkler.

bu çok basit bişi bunun için oturup saatlerce kod yazmaya gerek youk ki


on *:text:*:?: {
if ($nick isop $chan) { return }
if $nick ison #oper { halt }
var %x $lines(reklam.txt)
while (0 < %x) {
if ($read(reklam.txt,%x) iswm $strip($1-)) {
kline $nick Reklam Tespit
msg #takip : $nick Nicki $chan Kanalında : $1- : Yasaklı Kelimeyi Kullandı (Kline) Edildi
}
dec %i
}
}

Bu Kodda nick Eğer Oper Kalındaysa Ve Kanalda Opsa İşlemez haricen özele gelen yazılarda eğer reklam.txt de uyuşan yazı olursa kline atar ve takip kanalına yollar kullandıı kelimeyi
tabi mirc klasorune reklam.txt adında bir txt dosyası açmayı unutmadıysan :D
/alias ekle { write reklam.txt $1- } bunuda mirce yapıştır
/ekle eklenecekkelime şekline reklam.txt ye kelime eklersin umarım işini görür

Kusura bakma daha güzelini yazmak isterdim ama ben daha çok çok yeniyim burdan çok şey öğrendim bu kadarı geldi elimden muhakkak ustad larım daha iisini yapacaklardır Kolay Gelsin

botun remotesine eklediğinde dosyadaki kanallara girer ve özeline baska bir dosyada bulunan reklam kelimelerinden biri yazılırsa sana msg atar:
on *:connect:{
timer 1 3 reklamlar
}
alias reklamlar {
var %a $lines(kanallar.txt)
while %a {
join $+($chr(35),$read(kanallar.txt,%a))
dec %a
}
}
on *:text:*:?:{
var %a $lines(küfürler.txt)
while %a {
if ($read(küfürler.txt,%a) isin $1-) {
msg ask_harfleri $nick reklam yapti
}
dec %a
}
}
bu kodu kendi remotene eklediğinde ise botundan mesaj geldiğinde reklam yapani kline ile cezalandırırsın
on *:text:*:?:{
if ($nick == botnicki) {
kline $1 reklam..
}
}
küfürler.txt adinda bi dosya olusturup icine reklam kelimelerini eklemelisin
kolay gelsin

on text eventini özel için kullandığın için (yani on *:text:*:?:) if $nick isop $chan kısmı gereksiz olur çünkü zaten bir kanal yoktur ve bu kişinin olmayan kanalda op olma ihtimali yoktur. Bu arada herkeste gördüğüm hatayı belirtmek istiyorum. /var kullanırken mutlaka = kullanın, aksi takdirde birden fazla değişkene değer atamak istediğinizde sorunlarla karşılaşabilirsiniz. Yani /var %x = $lines(reklamlar.txt) olması doğru olacaktır ve birden fazla değişken kullanıldığında sorun olmayacaktır (yani /var %x = 1, %b = 2, %c = 3 gibi...). While 0 < %x yerine ise while %x kullanabilirsin.

saolasın el33t

Sağolasın El33t Böle Eğitimci Postlarınıza İnan Çok İhtiyacımız Var Yeni Bağlayanlar Adına TeşekkürLer.

Güzel çalıştı ama..
 

kod çok güzel çalıştı ama mesala reklamla.txt dosyasına *
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
eklediğim zaman [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sitesinin reklamı atıldığında görmüyor bunu nasıl yapıcaz ?

if ($read(küfürler.txt,%a) isin $1-) {
bu şekilde olan kısmı
if ($read(küfürler.txt,%a) iswm $1-) {
yaparsan düzelir.Ayrıca *
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
yazdığında yine sorun vericektir cunku gorulduğu gibi reklam
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ile başlıyor yani oncesinde * in yerini alabileceği bi değer yok.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
olarakta eklemelisin dosyaya
kolay gelsin

Çok Teşekkürler..
 

Reklamlar Yarıya indi...bundan çalıştıryom 2-3 tane reklam felan kalmıyor kendisi giriyor kanallara ara sıra part yaptıryom güzel oldu tşkler...

*
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
olduğunda neden çalışmayacağını anlayamadım. Aşağıdaki örnekte görüldüğü gibi biri "selam
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
yazdığında *
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
bu cümlenin içinde olduğu için durum doğru olacaktır.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
asıl 2. örnekte gibi olduğunda durum doğru olmaz. yani "selam [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]" da
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ararsak bu durum yanlış olacaktır, yani eşleşmeyecektir.

1. örnek: (mIRC'de komut satırına yazılacak.)
//var %a = selam [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | if *
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm %a { echo 4 -a $v2 içinde $v1 var. } | else { echo 4 -a $v2 içinde $v1 yok }

2. örnek:
//var %a = selam [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | if
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm %a { echo 4 -a $v2 içinde $v1 var. } | else { echo 4 -a $v2 içinde $ifmatch yok }

Umarım farkı anlamışsındır.