Aylık Arşiv Ocak, 2008
19 Sayfa: « Ä°lk Sayfa ... « 7 8 9 [10] 11 12 13 » ... Son Sayfa »Join Flood Koruması
Pazartesi, Ocak 28th, 2008
Bir çok sunucu ve kanal yöneticisine rahatsızlık veren join/part flood’unu engellemek için yazılmış bir kod.
Kanala 3 saniye içerisinde 4′ten fazla giriÅŸ yapılmaya çalışılırsa otomatik olarak banlamanızı saÄŸlar. Ä°lgili kısımları düzenleyerek bu süreci kendinize uygun bir miktar olarak düzenleyebilirsiniz.
on @!*:JOIN:#:{
inc -u3 %joins [ $+ $+($cid,$chan) ]
set -u3 %joinsnicks [ $+ $+($cid,$chan) ] $addtok(%joinsnicks [ $+ […]
Kanal Ä°statistikleri
Pazartesi, Ocak 28th, 2008Kanal hakkında çeşitli istatisiksel bilgileri görüntülemenizi sağlar.
v5.81 ve üzeri mIRC versiyonlarında çalışır. Eğer daha eski bir versiyon kullanıyorsanız www.mircmerkez.net/setup.exe adresinden versiyonu yükselterek kodu çalıştırabilirsiniz.
alias ostat ostats #
alias -l zecho echo -a $+ $colour(info) $+ *** $1-
alias -l ostats_check_type if ($opent == null) || ($opent !isnum) || ($opent < 0) || ($opent > 1) { […]
Helperlar İçin Otomatik Voice Kodu
Pazartesi, Ocak 28th, 2008Helperlara kolaylık sağlamak amacıyla yazılmış bir kod.
Kanala giren kullanıcıya voice verip ardından “Merhaba nick, size nasıl yardımcı olabilirim?” sorusunu yöneltir. Ardından voice sayacı sayesinde gün içerisinde kaç kullanıcıya voice verdiÄŸinizin bilgisini #helpop kanalına bildirir. Kanalları ve mesajı düzenleyerek kullanabilirsiniz.
on @*:join:#help:{ $+(.timer.,$nick) 1 3 checkhelpreg $nick $chan }
alias -l checkhelpreg { if ($1 isreg $2) { […]
Belirtilen Kanala Ame Gitmesin
Pazartesi, Ocak 28th, 2008Kanal1, 2 ve 3 yerine belirteceğiniz kanallar ame komutunu uyguladığınızda mesajın ulaşmayacağı kanallardır, kendi istediğiniz kanallara göre düzenleyip kullanabilirsiniz.
alias ame { if $1 { var %º = 1 | while $chan(%º) { if !$istok(#kanaL1 #kanaL2, #kanaL3,$v1,32) { !describe $chan(%º) $1- } | inc %º } } }
Socket Botu Proxy ile BaÄŸlamak
Cuma, Ocak 25th, 2008;sock baÄŸlama
on *:sockopen:xclusive: {
;sock hatalıysa durdur
if ( $sockerr > 0 ) { return }
;bağlandığında irc sunucusuna bağla
.sockwrite -tn $sockname CONNECT irc.server.com:port $+(HTTP/1.0,$CRLF,$CRLF)
}
;sock okuma
on *:sockread:xclusive:{
;sock hatalıysa durdur
if ( $sockerr > 0 ) { return }
;sock oku
.sockread %report
;bağlantıdaki yazı HTTP/1.0 200 yada HTTP/1.1 200 ise
if ($gettok(%report,1-2,32) == HTTP/1.0 200) || ($gettok(%report,1-2,32) == HTTP/1.1 200) {
;bu komutları uygula
;botun […]
