PDA

Forumumuza bedava üye olup bilgilerinizi internette binlerce insan ile paylaşabilirsiniz.: Tıklayın

Orijinalini görmek için tıklayınız : Küfür Koruması (Önce Uyar, Sonra Banla)

ad3m
09-10-2006, 21:06
on *:text:*:#:{
if ($nick isreg $chan) {
if $istok($1-,¤¤,32) || $istok($1-,lan,32) || $istok($1-,¤¤¤¤¤,32) || $istok($1-,sik,32) || $istok($1-,sok,32) || $istok($1-,pezo,32) || $istok($1-,¤¤¤¤,32) || $istok($1-,¤¤¤¤,32) || $istok($1-,gavat,32) || $istok($1-,salak,32) || $istok($1-,yarak,32) || $istok($1-,yarrak,32) || $istok($1-,am,32) || $istok($1-,¤¤¤,32) || $istok($1-,¤¤¤,32) || $istok($1-,orosbu,32) || $istok($1-,orosbu,32) {
if (!%say [ $+ [ $nick ] ]) { inc %say [ $+ [ $nick ] ] | msg $chan [ U y a r ı ] : $nick : Lütfen Seviyeyi Düşürmeyiniz Aksi Taktirde Kanaldan Uzaklaştırılıcaksınız !. [ Sarı Kart ] }
else { if (%say [ $+ [ $nick ] ] >= 1) { cs akick $chan add $nick $+ !*@* 0,4 Kırmızı Kart 9,1 Uyarıyı Dikkate Almadınız !. 1,9 Kullanılan Cümle : ==> $strip($1-) <== 9,1 X Script | cs akick $chan enforce | cs akick $chan del $nick $+ !*@* | unset %say [ $+ [ $nick ] ] }
}
}
}
}
Sinner
26-10-2006, 00:34
bu Akick e Alıyor Banlayanı Yokmu Ya ? :(

else { if (%say [ $+ [ $nick ] ] >= 1) { mode $chan +b $nick ...
Diye devam ettirebilirsin.
ScLadeR
28-11-2006, 11:17
on *:text:*:#:{
if ($nick isreg $chan) {
if $istok($1-,¤¤,32) || $istok($1-,lan,32) || $istok($1-,¤¤¤¤¤,32) || $istok($1-,sik,32) || $istok($1-,sok,32) || $istok($1-,pezo,32) || $istok($1-,¤¤¤¤,32) || $istok($1-,¤¤¤¤,32) || $istok($1-,gavat,32) || $istok($1-,salak,32) || $istok($1-,yarak,32) || $istok($1-,yarrak,32) || $istok($1-,am,32) || $istok($1-,¤¤¤,32) || $istok($1-,¤¤¤,32) || $istok($1-,orosbu,32) || $istok($1-,orosbu,32) {
if (!%say [ $+ [ $nick ] ]) { inc %say [ $+ [ $nick ] ] | msg $chan [ U y a r ı ] : $nick : Lütfen Seviyeyi Düşürmeyiniz Aksi Taktirde Kanaldan Uzaklaştırılıcaksınız !. [ Sarı Kart ] }
else { if (%say [ $+ [ $nick ] ] >= 1) { cs akick $chan add $nick $+ !*@* 0,4 Kırmızı Kart 9,1 Uyarıyı Dikkate Almadınız !. 1,9 Kullanılan Cümle : ==> $strip($1-) <== 9,1 X Script | cs akick $chan enforce | cs akick $chan del $nick $+ !*@* | unset %say [ $+ [ $nick ] ] }
}
}
}
}
calıstıramadım yardımcı olabılırmısınız ??
LeadeR
29-11-2006, 15:52
Harf uzatma, buyuk harf kullanimi ve kufur;
Kodun bir ornegi buradan yola cikarak gelistirebilirsiniz.


on *:text:*:#:{
if ($len($1-) >= 10 ) {
if ($int($calc($regex($1,/[A-ZÁ-ÙÄ]/g)/$len($1)*100)) >= 20 ) {
inc -u30 %bharf. [ $+ [ $nick ] ] 1
if %bharf. [ $+ [ $nick ] ] == 1 {
msg $chan Uyarı : ILK UYARI
}
if %bharf. [ $+ [ $nick ] ] == 2 {
msg $chan Uyarı : IKINCI UYARI
}
if %bharf. [ $+ [ $nick ] ] == 3 {
msg $chan Uyarı : SON UYARI
}
if %bharf. [ $+ [ $nick ] ] == 4 {
ban -ku $chan $nick KICK MESAJI
}
}
}
if $regex($1-,/([[:print:]])\1\1/gi) >= 7 {
inc -u30 %uharf. [ $+ [ $nick ] ] 1
if %uharf. [ $+ [ $nick ] ] == 1 {
msg $chan Uyarı : ILK UYARI
}
if %uharf. [ $+ [ $nick ] ] == 2 {
msg $chan Uyarı : IKINCI UYARI
}
if %uharf. [ $+ [ $nick ] ] == 3 {
msg $chan Uyarı : SON UYARI
}
if %uharf. [ $+ [ $nick ] ] == 4 {
ban -ku $chan $nick KICK MESAJI
}
}
if $prot(bword,$1-,küfürler.txt) {
ban -ku $chan $nick KICK MESAJI
}
}


kufurler.txt olusturup icine kufurleri eklemeyi unutmazsiniz umarim ;-p
Kolay gelsin
RainmaN
29-11-2006, 18:14
LeadeR, cihan yine döktürüyorsun bakıyorum, "Adajans" işlerin nasıl gidiyor bu arada ? :)
ScLadeR
03-12-2006, 10:18
on *:text:*:#:{
if ($nick isreg $chan) {
if $istok($1-,¤¤,32) || $istok($1-,lan,32) || $istok($1-,¤¤¤¤¤,32) || $istok($1-,sik,32) || $istok($1-,sok,32) || $istok($1-,pezo,32) || $istok($1-,¤¤¤¤,32) || $istok($1-,¤¤¤¤,32) || $istok($1-,gavat,32) || $istok($1-,salak,32) || $istok($1-,yarak,32) || $istok($1-,yarrak,32) || $istok($1-,am,32) || $istok($1-,¤¤¤,32) || $istok($1-,¤¤¤,32) || $istok($1-,orosbu,32) || $istok($1-,orosbu,32) {
if (!%say [ $+ [ $nick ] ]) { inc %say [ $+ [ $nick ] ] | msg $chan [ U y a r ı ] : $nick : Lütfen Seviyeyi Düşürmeyiniz Aksi Taktirde Kanaldan Uzaklaştırılıcaksınız !. [ Sarı Kart ] }
else { if (%say [ $+ [ $nick ] ] >= 1) { cs akick $chan add $nick $+ !*@* 0,4 Kırmızı Kart 9,1 Uyarıyı Dikkate Almadınız !. 1,9 Kullanılan Cümle : ==> $strip($1-) <== 9,1 X Script | cs akick $chan enforce | cs akick $chan del $nick $+ !*@* | unset %say [ $+ [ $nick ] ] }
}
}
}
}


bu akicke alıyo banlayıp kickleyen bısı nasıl yaparız
McKruGer
03-12-2006, 20:39
bu Akick e Alıyor Banlayanı Yokmu Ya ? :(

senin sorduğun soruyu birisi daha sormuş ve sinner ne cevap vermiş:

viruS´isimli üyeden Alıntı
else { if (%say [ $+ [ $nick ] ] >= 1) { mode $chan +b $nick ...
Diye devam ettirebilirsin.


Hosting Hizmetleri TOPlist