Çevrimdışı

raw 352:*:if (G isin $7) /whois $6


raw 301:*:{
var %i $lines(aways.txt)
while $read(aways.txt,%i) {
.set %awmsg $ifmatch
if (%awmsg isin $3-) .ucur $2
dec %i
}
unset %awmsg
}

alias ucur {
if ($comchan($1,0)) {
var %? $comchan($1,0)
if ($me isop $comchan($1,%?)) {
while (%? > 0) {
echo -a $comchan($1,%?)
.ban $comchan($1,%?) $1
.kick $comchan($1,%?) $1 12 Away de kufur..!!!
dec %?
}
}

bu kodlama uonur arkadasimiza ait
sorun su kod guzel calisiyor fakat ilk kanala giriste 6 7 away user varsa floodtan dusuyorum buna bi care varmi bi ekleme felan yapabilirmiyiz ?

 

Çevrimdışı

Kanala giriş ile bir alakası yok ki bu kodun? Eksik paste etmişsin sanırım.

 

Çevrimdışı

raw 301:*:{ if (*h*t*t*p*:*/*/* iswm $strip($3-)) || (*v*v*v*.*.* iswm $strip($3-)) || (*.org iswm $strip($3-)) || (*.bz iswm $strip($3-)) || (*//* iswm $strip($3-)) || (*.tc* iswm $strip($3-)) || (*wvw* iswm $strip($3-)) || (*.g?n* iswm $strip($3-)) || (*.?rg* iswm $strip($3-)) || (*?rc.* iswm $strip($3-)) || (*t?k?a* iswm $strip($3-)) || (*.c?m* iswm $strip($3-)) || (*.n?t* iswm $strip($3-)) || (*vvv* iswm $strip($3-)) || (*. o r g* iswm $strip($3-)) || (*w.*w.*w.* iswm $strip($3-)) || (*.tr* iswm $strip($3-)) || (*.gs* iswm $strip($3-)) || (*vww* iswm $strip($3-)) || (*[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm $strip($3-)) || (*f*t*p*:*/*/* iswm $strip($3-)) || (*/server* iswm $strip($3-)) || ($chr(35) iswm $strip($3-)) { var %ö = $comchan($2,0) | while %ö { if ($comchan($2,%ö).op) { kb2 -k $comchan($2,%ö) $2 4Away reklam yaptığınız tespit edildi.. } | dec %ö } } }

Bu kodlamada Şevket arkadaşımıza ait.Bi dene.

__________________

 

Çevrimdışı

|| (*.tr* iswm $strip($3-))
Burada yazan yeri || (*sikerim* iswm $strip($3-)) gibi değiştirerek küfürleride eklersin. ben sadece reklam için kullanıyorum.

__________________

 

Çevrimdışı

mephisto ben o kismini kopyalamadim kanala girince kanala who cekiyor o kismini kopyalamamistim buraya o yuzden dusuyorum yani kanala girince who cekiyor ve cok away olunca dusuyorum

 

Çevrimdışı

İyi de sen kodların tamamını kopyala ki biz de ona göre bir sistem geliştirelim.

 

Yanılmıyorsam TurkCoders'ta sorulmuştu bu soru.Soran şahıs "kanala bir giriş olduğunda herkese whois çekiyor ve ben girişte whois çektiğinde away mesajında reklam varsa atmasını istiyorum" demişti.Umut da onun üzerine bu kodu yazmıştı galiba
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Utku'nun da dediği gibi ilk kodları da yazarsan iyi olacak
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

on *:join:#: {
if ($nick == $me) {
if ($chan == #kanal) {

{ enable #whoisreply | /timer 0 150 /who #kanal}

}
}
}



raw 352:*:if (G isin $7) /whois $6


raw 301:*:{
var %i $lines(aways.txt)
while $read(aways.txt,%i) {
.set %awmsg $ifmatch
if (%awmsg isin $3-) .ucur $2
dec %i
}
unset %awmsg
}

alias ucur {
if ($comchan($1,0)) {
var %? $comchan($1,0)
if ($me isop $comchan($1,%?)) {
while (%? > 0) {
echo -a $comchan($1,%?)
_queue ban $comchan($1,%?) $1 2
_queue kick $comchan($1,%?) $1 12 Away'de kufur
dec %?
}
}
}
}
---------------
#whoisreply on
;-=[ /who ]=-
raw 352:*: inc %a 1 | echo -s %a $6 ( $+ $3 $+ @ $+ $4 $+ ) on $2 using $5 - $7 | halt
raw 315:*:{ echo 12End of WHO list 12,8 $time 8,12 ( $+ $2 $+ ) | set %who.sw 0 | unset %a
if (%hm.cmd != $null) { %hm.cmd }
halt
}
#whoisreply end
kod bu mephisto ilgilendigin icin saol

 

Çevrimdışı

raw 301:*:{
var %i $lines(aways.txt)
while $read(aways.txt,%i) {
.set %awmsg $ifmatch
if (%awmsg isin $3-) { if (%dit) { timer 1 1 /ucur $2 } |else { .ucur $2 } }
dec %i
}
unset %awmsg
}

alias ucur {
set -u1 %dit +
if ($comchan($1,0)) {
var %? $comchan($1,0)
if ($me isop $comchan($1,%?)) {
while (%? > 0) {
echo -a $comchan($1,%?)
.ban $comchan($1,%?) $1
.kick $comchan($1,%?) $1 12 Away de kufur..!!!
dec %?
}
}

Gibi Yapılabilir...

 

Çevrimdışı

uonur simdi fazla kisi away olunca kanala girer girmez dusuyorum atmak isterkenmi yoks awhois cektigi icinmi oda belli degil aslinda soyle bisye yapilamazmi whois cekilir awayler bulununca numaralanir ve timerla aralikli whoisleri cekilir ve ve kufur varsa atilir