21 Haziran 2007, 10:01
|
#1 |
| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Küfür KorumasI HakkInda Sorun!
| | Alıntı: |
on @*:TEXT:*:#: {
; +o +h +v ler bu degerden etkilenmeyecekler
if ($nick !isreg #) return
var %l = $strip($1-)
if ($hmatch(kufur,%l)) {
mode # +b $wildsite | mode # +b $nick
kick # $nick Kötü Sözler Kullanmak Yasaktır!
}
}
alias küfür {
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.txt
on *:start: {
hmake kufur 1000
if ($exists(kufur.txt)) { hsave -o kufur kufur.txt }
hload kufur kufur.txt
}
|
Forum Sitesinden Bulmuştum Bu Kodu. Kod Gayet Güzel Çalışıyor Ancak * Yapan Atılıyor. Küfür Listesine Baktım Öyle Bir Küfür Ekli Değil , Sorun Nerede Acaba..?
|
|
|  |