IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Birkaç işe yarar kod (çoğu ircforumlari'dan alıntı)

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:

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:

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:

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:

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:

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:

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 :)