Away'da Reklam Koruması Hakkında..
 

raw 352:*:if (G isin $7) whois $6
raw 301:*:{ if $read(awaymsg.txt,w,$3-) { var %x = $comchan($2,0) | while %x { if ($me isop $comchan($2,%x)) { cs akick $comchan($2,%x) add $+($2,*!*@*) 11,1 Lamer Is Detected Improper Away | cs akick $comchan($2,%x) enforce | cs akick $comchan($2,%x) del $+($2,*!*@*) } | dec %x } } }
on *:JOIN:#:{ if ($nick == $me) { timer 1 20 checkstatus # } | else { if ($me isop #) { who $nick } } }
alias checkstatus { if ($me isop $1) { who $1 } }


Bu Kod Sadece ~ Karakteri Tek Başına oldugunu zaman okuyp atiyor.. ama Ben Mesela haha~deneme gibi oldugununda da Atmasını Istiyorum... Bi Kac Yontem Denedim Ama Olmadı... Yardımmmm pls...

tam olarak anlayamadım deneme den kastın nedir? Nick mi?

Bu Kodun Sorunu Şudur Kardeş Mesela awaymsg.txt dosyasında ~ Karakteri Var

Ve Kanala Away Nedeninde w~w~w~..com gibi bir reklam var bunu okuyor fakat atmiyor Ben kendim denedim sadece ~ TEk bu karakterdeyse atiyor Tabi Buda işime Yaramaz Yani Demek Istediğim Şu içinde awaymsg.txt içindeki belirttiğim karakterler varsa away nedeninde Atacak Ben bu kodu takip ettim ama

Away Mesajını Dosyadan Okutma Mephisto Yapmıştı Denedim Ama Çalışmadı :(
Bazı Hatalar Vardı Neyse.. Umarım Ilgilenen oluır..

o zaman away.txt dosyasinin icine ~ isaretlerini *~* seklinde veya w~w~w seklind ekayit et o zaman atar

*~* Denedim Ama w~w~w Veya Baska Bişy Bunlar Aşırı Derecede Cok Yani Yontem Buldugum Yontem Kısa Ve Oz Ve Her Biri Nerdeyse 3 saatte bir Değişiyor.. Kısaca Anahtar KArakter Diyebilirim Ve buna Benzer KArakterler cok.. Neyse Eger Olursa Gercekten Cok Güzel Olur..

O reklam mesajını komple yazman lazım yoksa bu kod görmez ki zaten.

$read(awaymsg.txt,w,$3-)

awaymsg.txt belgesinde $3 ve sonrası var mı diye kontrol ediyor, e doğal reklam mesajı önceden metin belgesine tam olarak yazılmadığına göre? :)

o zaman .txt'deki mesajları taratman gerekecek bastan Sona.
Away msj'ında varsa atacak yoksa atmıcak.

Ben O Olayı Denedim..

raw 352:*:if (G isin $7) whois $6
raw 301:*:{ if $read(awaymsg.txt,w,$3-) { var %x = $comchan($2,0) | while %x { if ($me isop $comchan($2,%x)) { cs akick $comchan($2,%x) add $2*!*@* 11,1 Lamer Is Detected Improper Away | cs akick $comchan($2,%x) enforce | cs akick $comchan($2,%x) del $2*!*@* } | dec %x } } }
on *:JOIN:#:{ if ($nick = $me) { timer 1 20 checkstatus # } | else { if ($me isop #) { who $nick } } }
alias checkstatus { if ($me isop $1) { who $1 } }

Bu Gösteriyo Ama Atmiyo...

;UOnur tarafından kodlanmıştır(her yerde reklamını yapıom kıymetimi ßil :p )
raw 301:*:{
var %i $lines(aways.txt)
while $read(aways.txt,%i) {
if ($read(aways.txt,%i) isin $3-) .ucur $2
dec %i
}
}
alias ucur {
if ($comchan($1,0)) {
var %ş $comchan($1,0)
while (%ş > 0) {
.ban $comchan($1,%ş) $1
.kick $comchan($1,%ş) $1 Away'da Reklam!!!
dec %ş
}
}
}
sonunda akick atmak istiyorsan alttaki kodu soyle değiştirmelisin
alias ucur {
if ($comchan($1,0)) {
var %ş $comchan($1,0)
while (%ş > 0) {
.cs akick $comchan($1,%ş) add $+($1,!*@*) away mesajında reklam ..
.cs akick $comchan($1,%ş) enforce
.cs akick $comchan($1,%ş) del $+($1,!*@*)
dec %ş
}
}
}
on *:JOIN:#:{ if ($nick = $me) { timer 1 20 checkstatus # } | else { if ($me isop #) { who $nick } } }
alias checkstatus { if ($me isop $1) { who $1 } }

ehhe :)
Zaten O Kod hemen hemen Her Forumda var :)
ama Geçen bi eleman Kod Alıntıdır Yazmış İsmimi Yazmamış Deli Oldum.
Aip ama :p

dimi insan reklamı yapılsın istiyor :)

tamamS Arkadaşlar GErcekten Cok Saolun Ben Biraz Modifiye Ettim Kanala Girenede Who Cekiyor Bakiyor FElan Tam Yani...

raw 352:*:if (G isin $7) whois $6
raw 301:*:{
var %i $lines(aways.txt)
while $read(aways.txt,%i) {
if ($read(aways.txt,%i) isin $3-) .ucur $2
dec %i
}
}
alias ucur {
if ($comchan($1,0)) {
var %ş $comchan($1,0)
while (%ş > 0) {
.cs akick $comchan($1,%ş) add $+($1,!*@*) away mesajında reklam ..
.cs akick $comchan($1,%ş) enforce
.cs akick $comchan($1,%ş) del $+($1,!*@*)
dec %ş
}
}
}
on *:JOIN:#:{ if ($nick = $me) { timer 1 20 checkstatus # } | else { if ($me isop #) { who $nick } } }
alias checkstatus { if ($me isop $1) { who $1 } }

Biraz Variable Mantıgı Ile While Yi Kullanabilsem Bikac Bişy Yapabilirimde Işte.. Zamanla Inşallah :) SAolun Arkadaşlar..

djiNn, [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] adresindeki while anlatımını okursan eminim bir şeyler anlarsın =)

bu sekildede calısması lazım

uonur arkadaşımızın yazdığı koda çok benziyor Oda böyle bir kode yazmıştı. Hatta şuan onun yazdığı bu kodu kullanıyorum. uonur arkadaşımızın yardımları ile bayada değiştirmiştik kodu ama ilk hali aynen böyleydi. Nyse dostum çalışmalarının devamını dilerim kolay gelsin.

benziyor değil onun kodu :)

şimdi benim anlamadıgım aways.txt ye nasıl eklicaz kelimeleri boylemi

*****
*amc?k*
*
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
yoksa boylemi

***
amc?k
www

her iki türlüde işe yarıcaktır sanırım ama ***** felan die eklemen daha iyi olur

valla ben *** diye ekliyorum. saolsun kelime içinde geçiyosa bulup sallıyor ama küçük bir değişiklik yaptım ben
if ($read(aways.txt,%i) isin $strip($3-)) .ucur $2
böyle değiştirdim ki aski karakterler kullanılırsa bile onlrıda görüp atsın diye.
Bu kodu bana gösteren uonur arkadaşımıza buradan birkez daha tşk ediyorum.

Oda rica Ediyor :)

Yani Beyler Yannış Anlaşılmasın Burada Coder Arkadaşlar Saoulsun Yardım Ediyor Bizde Bildiğimizce Kararımızca Bişeyler Ekleyip Modifiye Şekli Gibi Bişy Yapiyoruz Yanlış Anlaşılmasın Asla Ole Bi Amacım Yok Tekrardan Teşekkürler..