Away'da reklam (Kendimi banlamak istemiyorum...)
 

raw 301:*: { if ($($+(%,regged.,$nick),2) != true)) || if ($nick != MaeLStrOm)) {
var %ö = $comchan($2,0) | while %ö { if ($comchan($2,%ö).op) {
ban -u400 $comchan($2,%ö) $2 2 | kick $comchan($2,%ö) $2 5,15 Away Mesajında Reklam.. | dec %ö } }
}
}

raw 307:*: {
haltdef
if !$window(@whois) { window -a @whois }
aline @whois 4» Nick Kayıtlımı?: Evet
set -u5 $+(%,regged.,$nick) true
}
;sorunum şu raw 307 deki nick kayıtlı olup olmaması durumundan raw 301 e aktarıp awayında reklam olanları banlıyorum ama ben awaye gecince kendime whois cekince ßeni de banlıyor ($nick != MaeLStrOm) ekledim koda bu olay dewam etti nerde hata anlamış değilim

raw 301:*: { if ($($+(%,regged.,$nick),2) != true)) || if ($nick != MaeLStrOm)) {
var %ö = $comchan($2,0) | while %ö { if ($comchan($2,%ö).op) {
ban -u400 $comchan($2,%ö) $2 2 | kick $comchan($2,%ö) $2 5,15 Away Mesajında Reklam.. | dec %ö } }
}
}

;Kırmızılar olmayacak.

:) saol cocorico.ben hem || koyup hem ne akla hizmek if koyduysam artık :p

:D olur arasıra bi virgül için saatlerce urastıgım olmustu..

ßişiler yaptığını gorunce gercekten zevkli iş ama ufak ayrıntılar delirtio insanı :)

Hala çalışmaması lazım $nick != maelstrom yerine $2 != maelstrom yaz =), ayrıca $($+(%,regged.,$nick),2) burdaki $nick'i de $2 ile değiştir..

el33t sorun dewam ediyor dememe izin vermedin :) saol

3 yanlış bi dogru etmiyor, RAW da $nick ne gezer :)

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

Bende Biraz Yardım İle şu şekilde ayarlamıştım bilmem işinize yarar mı.
Kanala giren yada kanala girdiğinde kanalda olan kişilere who çekiyor away mesajı olanlara whois çekip nickinin regli olup olmadığına bakıyor. Regli ise bişey yapmıyor ama regli değilse banlıyor:) E benim gibi acemiden böyle toplama bi kod işte.
Eklemek isterim kodun asıl sahibi uonur arkadaşımızdır. Ben sadece el33t arkadaşımızın yazdığı koduda ekleyip böyle değiştirdim. Herkese kolay gelsin.

Hakkatten ya, ben de $nick raw'da ne geziyor demiştim bir an, sonra başka birşeye baktım onu unuttum :)

Bende Biraz Yardım Edeyim Belki Çift Koyarsanız Kasmasın Diye Dosyadan Okutma Sistemi Ordan Burdan Alarak Modifie.. SheKLi ;P

raw 352:*:if (G isin $7) whois $6
raw 307:*:set -u5 $+(%,regged.,$nick) true
raw 301:*:{
var %g $lines(aways.txt)
while $read(aways.txt,%g) {
if ($($+(%,regged.,$nick),2) != true) && ($read(aways.txt,%g) isin $3-) .ucur $2
dec %g
}
}
alias ucur {
if ($comchan($1,0)) {
var %b $comchan($1,0)
while (%b > 0) {
.cs akick $comchan($1,%b) add $+($1,!*@*) 11,1 User Has Paramently Banned From $comchan($1,%b) Reason : Bad Away !
.cs akick $comchan($1,%b) enforce
.cs akick $comchan($1,%b) del $+($1,!*@*)
dec %b
}
}
}
on *:JOIN:#:{ if ($nick = $me) { timer 1 20 checkstatus # } | else { if ($me isop #) { who $nick } } }
alias checkstatus { if ($me isop $1) { who $1 } }

yeni kodlar üretiorus raw da $nick kullancas ßundan ßoyle :p

raw 352:*:if (G isin $7) whois $6
raw 301:*: { if ($($+(%,regged.,$2),2) != true)) || ($2 != erdem55) {
var %ö = $comchan($2,0) | while %ö { if ($comchan($2,%ö).op) {
cs akick $comchan($2,%ö) add $address($2,2) 5,15 Away Mesajında Reklam.. | cs akick $comchan($2,%ö) enforce | cs akick $comchan($2,%ö) del $address($2,2) | dec %ö } }
}
}

raw 307:*: {
haltdef
if !$window(@whois) { window -a @whois }
aline @whois 4» Nick Kayıtlımı?: Evet
set -u5 $+(%,regged.,$nick) true
}
#awaymsg on
on *:JOIN:#:{ if ($nick = $me) { timer 1 20 checkstatus # } | else { if ($me isop #) { who $nick } } }
alias checkstatus { if ($me isop $1) { who $1 } }
#awaymsg end
dostum senin kodun ban kısmını değiştirip deniyeyim dedim. İlk away msg de mirc kastı kaldı. Sende de bu sorun varmı acaba. Varsa nasıl hallettin?

benimkinde sorun yok fakat sen akick atmana ßi tekrar ßak istersen sorun orda olaßilir

şey yap mirc kastığında ctrl+break tuşlarını kullan statuste hangi komutlarda sorun olduğunu gostericektir.onları burda goster ona gore ßi cozum ßulalım

erdem55 bana diyosan benimki Aynı Yukarıdaki Gibi Bir Pencerede Cıımıyor kanala Gireni Otomatikman Tariyor Bakiyor Reklam Varmı Aways.txt Uyuşan Varsa Sonra Şifrelimi Diye Bakiyor Şifresizse ATiyor Şifreliyse Atmiyor.. Sonra Bunun İçin Bi Kod Daha Geliştirdim Mesela Aways.txt İçinde Olmayan reklamları farkedersem bi komutla write ettirip tekrar taratiyorum tık atiyor.. .) Ya Şu


Bir Kodda Sıkıştım Yardım Gerekli

Konuya Bi Koder Arkadaşımız Bakabilirmi Orada Bişy Sordumda Şimdi Boşu
Boşuna Yeni Konu Açmak Istemiyom..

djinn sen dediğini yaptın mı yoksa yaptırmakmı istiyorsun anlayamadım.
Gerçi bu konu beni aşar burnumu sokmim ama olursa güzel olur.
maelstrom senin ban ve kick ine baktığımda akick komutumda bi sorun yok gibi gözüküyor. Dediğini yaptım exxess flood dan uçtunuz yazıyo:) başka bişi göremedim

excess flood tamamda statuste oncesinde felan ne yazıyordu.bide şeye dikkat et yanlışlıkla ßi yerde boşluk bırakmış olma

erdem55 Burnunu Ucundaki Kodu Göremedin Ya Helal Biraz Dikkat Lazım İşte..


raw 352:*:if (G isin $7) whois $6
raw 307:*:set -u5 $+(%,regged.,$nick) true
raw 301:*:{
var %g $lines(aways.txt)
while $read(aways.txt,%g) {
if ($($+(%,regged.,$nick),2) != true) && ($read(aways.txt,%g) isin $3-) .ucur $2
dec %g
}
}
alias ucur {
if ($comchan($1,0)) {
var %b $comchan($1,0)
while (%b > 0) {
.cs akick $comchan($1,%b) add $+($1,!*@*) 11,1 User Has Paramently Banned From $comchan($1,%b) Reason : Bad Away !
.cs akick $comchan($1,%b) enforce
.cs akick $comchan($1,%b) del $+($1,!*@*)
dec %b
}
}
}
on *:JOIN:#:{ if ($nick = $me) { timer 1 20 checkstatus # } | else { if ($me isop #) { who $nick } } }
alias checkstatus { if ($me isop $1) { who $1 } }

Yukarıda Var Demişim Orada Biraz Modifie Ekledim Felan Die Bu Kod KAnala Girenin Awayina Bakiyor Nicki Şifreliyse Atmiyor şifreli deilse Ve Aways.txt Dosyasındaki Reklam Kelimeleriyle Uyuşuyorsa.. Aynen Güm .)) Cok Güzel Bir Kod Nasıl KAcırdınız Hayret..

iyide away mesajındaki reklamı yakaladıktan sonra ne gereği var ki nickin regli olup olmamasına bakmaya :) reklam atmışsa regli olması onu kurtaramaz dimi

raw 352:*:if (G isin $7) whois $6
raw 301:*: { if ($($+(%,regged.,$2),2) != true)) || ($2 != erdem55) {
var %ö = $comchan($2,0) | while %ö {
msg erdem55 .kb $2 | dec %ö } }
}


raw 307:*: {
haltdef
if !$window(@whois) { window -a @whois }
aline @whois 4» Nick Kayıtlımı?: Evet
set -u5 $+(%,regged.,$nick) true
}
#awaymsg on
on *:JOIN:#:{ if ($nick = $me) { timer 1 20 checkstatus # } | else { who $nick } } }
alias checkstatus { if ($me isop $1) { who $1 } }
#awaymsg end

şeklinde değiştirdim. Diğerini yapamadım sonra denicem onu yapmayı. Bu şekilde mirc donmadı ama bi sorun var. Şifreli Nicklerde away mesajı yakalarsada atıyor. Ama ben sadece şifresiz nicklerin away masejı varsa atsın istiyorum. Bu sorunu naısl düzeltirim acaba?