ircforumlari.net , bazı arkadaşlarım ve kendi çalışmalarımla birkaç hazır kod vermek istedim.
Away Reklam koruması: Whois çektiğinizde çalışır. Away mesajında reklam varsa atar. Kod: Kodu kopyalamak için üzerine çift tıklayın!
raw 301:*:{ if (*h*t*t*p*:*/*/* iswm $strip($3-)) || (*hackerlarin* iswm $strip($3-)) || (*#* 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 Away reklam yaptığınız tespit edildi.. } | dec %ö } } }
Kanala her girene whois çekmek istersende : Kod: Kodu kopyalamak için üzerine çift tıklayın!
on 1:join:#: { /whois $nick }
Fullname inde reklam olanları atmak: Kanala girdiğizde tüm kanala who çeker ve kod otomatikman çalışır.Fullname inden
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ircde, com varsa atılır. Araya || koyarak çoğaltabilirsiniz: Kod: Kodu kopyalamak için üzerine çift tıklayın!
raw 352:*:if ($9- ==
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ircde) || ($9- == com) { echo -a 0,7Dronecuk $1- | var %o = $comchan($6,0) | while %o { if ($comchan($6,%o).op) { cs akick $comchan($6,%o) add $address($6,2) Spam/Bot.. } | dec %o } }
Hakaret içerikli sözler(Sadece Kickler, Banlamaz): Oncelikle bir veriables oluşturun(Remotenin 2 sağında). Adı %kufurler olsun. %kufurler lan len ulan ulen ulam ulem mal salak olm Sonrada aşağıdaki kod Remote ye. Kod: Kodu kopyalamak için üzerine çift tıklayın!
on @*:text:*:#:{ var %. = $0 | while %. { if $istok(%kufurler,$remove($gettok($strip($1-),%.,32),.,:,;,$chr(44)),32) && ($nick !ishop $chan) && ($nick !isop $chan) && ($nick !isvoice $chan) { kick $nick 4Bad! | return } | dec %. } }
Part mesajında reklam ve istenmeyen kelimeler: Kod: Kodu kopyalamak için üzerine çift tıklayın!
on !*:PART:#:if (*Left all channels* iswm $1-) || (***** iswm $1-) || (*inviter* iswm $1-) || (*bot* iswm $1-) { cs akick $chan add $address($nick,2) Part Message Advertising.. }
Özele Flood ve Notice Floodtan korunma: Kod: Kodu kopyalamak için üzerine çift tıklayın!
on 1:notice:*:?:{
inc -u5 %prvbitching 1
if ( %prvbitching == 10 ) { silence +*!*@* | .timer 1 20 silence -*!*@* | close -m $nick | echo 4 -a Size Notice Flood Yapıldı. 20 Saniyeliğine Noticelar Reddedilecek.. }
if ( %prvbitching >= 10 ) haltdef
}
on ^1:open:?:*:{
inc -u5 %prvbitching 1
if ( %prvbitching == 5 ) { silence +*!*@* | .timer 1 20 silence -*!*@* | close -m $nick | echo 4 -a Size Query Flood Yapıldı. 20 Saniyeliğine Queryler Reddedilecek.. }
if ( %prvbitching >= 5 ) haltdef
}
Benden şimdilik bu kadar
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.