Günlük Arşiv Mart 26th, 2008
Renkli Yazı Koruması (Uyarılı)
Çarşamba, Mart 26th, 2008
 Kanal içerisinde renkli yazı yazılmasını engellemek isteyenler için 2 uyarı 3. tekrarda kanaldan uzaklaştırma yapmanızı sağlayan koruma kodu.
on @*:text:**:#: {
if ($nick == $me || ($nick isop $chan) { halt }
hinc -mu15 renk $+($chan,.,$nick) 1
if $hget(renk,$+($chan,.,$nick)) == 1 {
.msg # $nick : kanal genelinde renkli yazı yazılması yasaktır.
}
if $hget(renk,$+($chan,.,$nick)) == 2 {
.msg # $nick : […]
Harfleri Uzatma Koruması(Uyarılı)
Çarşamba, Mart 26th, 2008 Kanal genelinde harfleri uzatarak yazanları 2 kere uyarıp 3 kez tekrarlanması halinde otomatik olarak uzaklaştırmanızı sağlayan bir kanal korumasıdır.
on @*:text:*:#: {
if ($regex($1-,/([[:print:]])\1\1/gi) >= 10) {
hinc -mu20 uzunharf $+($chan,.,$nick) 1
if $hget(uzunharf,$+($chan,.,$nick)) == 1 {
.msg # $nick : lütfen harfleri uzatmadan yazınız.
}
if $hget(uzunharf,$+($chan,.,$nick)) == 2 {
.msg # $nick : harfleri uzatmamanız konusunda ikinci uyarınız, tekrarlamanız durumunda kanaldan […]
Uzun Yazı Koruması (Uyarılı)
Çarşamba, Mart 26th, 2008 Bir satırda 250 ve üzeri karakter kullananları 2 kere uyarıp 3. kez tekrarlanması halinde kanaldan otomatik olarak uzaklaştırmanızı sağlar.
on @*:text:*:#: {
if ($nick isop $chan) || ($nick == $me) { halt }
if ($len($strip($1-)) >= 250) {
hinc -mu10 uzunyazi $+($chan,.,$nick) 1
if $hget(uzunyazi,$+($chan,.,$nick)) == 1 {
.msg # $nick : Uzun yazı yazmak yasaktır, lütfen bu kurala uygun yazınız.
}
if […]
Memo Bilgi Diyalogu
ÇarÅŸamba, Mart 26th, 2008Memo’ları kontrol etmek zor kazanılan bir alışkanlık, fakat irc protokolünün önemli özelliklerinden biridir. Memo aldığınızda scriptiniz aracılığıyla uyarı almak hoÅŸ olurdu deÄŸil mi? Bu kod memo aldığınızda bir kutucuk ile yeni mesaj aldığınıza dair uyarı görüntülemenizi saÄŸlar. mIRC’ınızın remote bölümüne ekliyorsunuz.
dialog ms {
title “Mesaj Bilgisi!”
size -1 -1 220 85
text “*** 1 Yeni Mesajınız Var..”,2,10 10 […]
Spam Ekleme/Silme Kodu
Çarşamba, Mart 26th, 2008Spam ekleyip silme işlemini pratik hale getiren bir kod. Uzun uzadıya spamfilter komutunu yazmaktan sıkılanlar için oldukça kullanışlı.
alias spamekle {
spamfilter add cpNna gzline - $server $yildiztemizle($1-)
}
alias spamsil {
spamfilter del cpNna gzline - $server $yildiztemizle($1-)
}
alias yildiztemizle {
var %y $+(.,?) , %yi
if $numtok($1-,32) == 1 {
var %1kelime 1
}
%yi = $replace($1-,$chr(42),%y,$chr(36),%y,$chr(91),%y,$chr(93),%y,$ chr(92),%y,$chr(47),%y,$chr(43),%y,$chr(63),%y,$ch r(94),%y,$chr(124),%y,$chr(40),%y,$chr(41),%y,$chr (164),%y,$chr(33),%y,$chr(123),%y,$chr(125),%y,$ch r(189),%y,$chr(188),%y,$chr(39),%y,$chr(46),%y,$ch r(44),%y,$chr(60),%y,$chr(61),%y,$chr(62),%y,$chr( 34),%y,$chr(199),%y,$chr(221),%y,$chr(58),%y,$chr( 45),%y,$chr(254),%y,$chr(222),%y,$chr(32),%y)
if […]
