Kod: Kodu kopyalamak için üzerine çift tıklayın!
* Sadece #Bugra kanalında komutları çalışmaktadır.
* !kotusoz <küfür> / örnek : !kotusoz **** yazarak, kelime ekleyebilirsiniz.
* !kotusil <küfür> / örnek : !kotusil **** yazarak, kelime silebilirsiniz.
WingmaN, küfür ekleme olayını alias olarak yapsaydın daha iyi olurdu, Korumayı script'ine ekliyen. 2. bi nick sokarak küfür eklemesi zor olucakdır.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on 1:start:{
hmake kufur
hload kufur kufur.bugra
}
on 1:text:*:#:{
var %::text = $1-
if $hfind(kufur,$1-,1,W).data && $nick {
mode # +b $nick
msg # $nick küfürlü konuştunuz Bu yuzden kanaldan uzaklaştırıldınız. yakalanan küfürünüz >4,4 $hget(kufur,$hfind(kufur,$1-,1,W).data)
}
}
alias küfür {
if $1 == ekle {
hadd -m kufur $r(1000,999999) $2-
hsave kufur kufur.mercy
echo -a Kötü Söz Eklendi: $2-
}
elseif $1 == sil {
if $hfind(kufur,$2-,1,W).data {
hdel kufur $ifmatch
hsave kufur kufur.mercy
echo -a Kötü Söz Silindi: ( $+ $ifmatch $+ ) $2-
}
else {
Echo -a Silmeye çalıştıgınız küfür listede yok, $+(,$me,)
}
}
elseif $1 == liste {
echo -a $+(,$me,) Küfür listesi listeleniyor
var %x = 1
while (%x <= $hget(Kufur,0).item) {
echo -a 4 $+ $hget(Kufur,%x).data
inc %x
}
echo -a $+(,$me,) küfür liste sonu..
}
}
on *:load:{
echo -a 4|2WingmaN4| 2 Küfür korumanız Yüklenmiştir.
echo -a 4<2WingmaN4> 2 Kurmak için > 4/kufurkur 2 yazabilirsiniz
}
alias kufurkur {
hmake kufur
hload kufur kufur.bugra
echo -a 4|2WingmaN4| 2: Küfür korumanız kurulmuştur.
}
Kırmızı ile belirttiğim yer :S ne işe yarıyor onu anlamadım.. ;|
/küfür ekle <kelime>
/küfür sil <kelime>
/küfür liste
komutlar bunlardır
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.