Kufur korumasi
irc kodu:
on @*:TEXT:*:#: {
; +o +h +v ler bu degerden etkilenmeyecekler
if ($nick !isreg #) return
var %l = $strip($1-)
if ($hmatch(kufur,%l)) {
ban -u300 # $nick 3
kick # $nick Kotu kelimeler kullandığınız için girişiniz Yasaklanmıştır!
}
}
alias kufur {
if ($1 == ekle) && ($regex($2,[A-Za-z])) {
hadd kufur $2
secho $2 veritabanina başarıyla eklendi
}
elseif ($1 == sil) {
if ($hfind(kufur,$2)) {
hdel kufur $2
secho $2 veritabanindan başarıyla silindi
}
else { secho $2 veritabaninda bulunamadi }
}
elseif ($1 == list) {
var %x = 1
while (%x <= $hget(kufur,0).item) { set %hkufur $addtok(%hkufur,$hget(kufur,%x).item,1) if ($numtok(%hkufur,32) >= 7) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }
inc %x
}
if ($numtok(%hkufur,32) >= 1) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }
}
else { secho hatali islem }
}
alias secho {
;echo -a $1-
if (!$window(@kufur)) { window -e @kufur }
echo @kufur $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:EXIT: hsave -o kufur kufur.htb
on *:start: {
hmake kufur 1000
if ($exists(kufur.htb)) { hsave -o kufur kufur.htb }
hload kufur kufur.htb
}
/kufur ekle belirtilen kufuru tablomuza ekler
/kufur sil belirtilen kufuru tablodan siler
/kufur list eklenmis tum kufurleri listeler
kufur eklerken wildcad kullanilabilir
/kufur ekle *sokar*
This entry was posted on Pazartesi, Kasım 28th, 2011 at 19:20 and is filed under Mirc Addonlar. You can subscribe via RSS 2.0 feed to this post's comments. You can comment below, or link to this permanent URL from your own site. Your comments will appear immediately, but I reserve the right to delete innapropriate comments.
