Badwords Shun + Rapor
Kod:
On karaliste:join:#Kanal,#Kanal1,#Kanal2:{
var %::chan = $chan
var %::nick = $nick
var %p = 0
while (%p < $numtok($1-,32)) {
inc %p
if ($nick !isop $chan) {
if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
Shun $nick 2Sunucu kurallarına uymadığınız için bir süre girişiniz yasaklanmıştır. Lütfen Sunucu kurallarına uyunuz daha ayrıntılı bilgi ve yardım için 4/motd2 yazınız. 4Nick:2 $nick 4Kanal:2 $chan 12$time }
msg #Rapor sebep
}
}
}
on *:action:*:#:{
var %::chan = $chan
var %::nick = $nick
var %p = 0
while (%p < $numtok($1-,32)) {
inc %p
if ($nick !isop $chan) {
if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
Shun $nick 2Sunucu kurallarına uymadığınız için bir süre girişiniz yasaklanmıştır. Lütfen Sunucu kurallarına uyunuz daha ayrıntılı bilgi ve yardım için 4/motd2 yazınız. 4Nick:2 $nick 4Kanal:2 $chan 12$time }
msg #Rapor sebep
}
}
}
on *:notice:*:#:{
var %::chan = $chan
var %::nick = $nick
var %p = 0
while (%p < $numtok($1-,32)) {
inc %p
if ($nick !isop $chan) {
if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
Shun $nick 2Sunucu kurallarına uymadığınız için bir süre girişiniz yasaklanmıştır. Lütfen Sunucu kurallarına uyunuz daha ayrıntılı bilgi ve yardım için 4/motd2 yazınız. 4Nick:2 $nick 4Kanal:2 $chan 12$time }
msg #Rapor
}
}
}
alias badword {
if ($1 == add) {
set %badwords $addtok(%badwords,$2,32)
echo -a 14»1»15»4 Listeye $2 eklendi
}
if ($1 == del) {
if ($istok(%badwords,$2,32)) {
set %badwords $remtok(%badwords,$2,32)
echo -a 14»1»15»4 Listeden $2 silindi
}
}
if ($1 == delall) {
unset %badwords
echo -a 14»1»15»4 Küfür listesi boşaltıldı
}
if ($1 == list) {
if ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-List) == $null) {
window -ab @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-List
}
if ($numtok(%badwords,32) == 0) { aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-List 14»1»15»1 Listede hiçbir kelime yok | halt }
aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-List 14»1»14»4 Küfürlü kelimeler listeleniyor... 4Toplam küfür : ( $+ $numtok(%badwords,32) $+ )
var %n = 1
while (%n <= $numtok(%badwords,32)) {
aline $color(info 2) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-List 4»»» $gettok(%badwords,%n,32)
inc %n
}
aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]s-List 14»1»15»4 Liste sonu
}
}
alias Badword dialog -m Badword Badword
dialog Badword {
title "Badwords"
size -1 -1 355 200
button "«:Kapat:»"2, 25 125 300 25,ok
button "«:Badwords Security ON:»"3, 25 25 150 25
button "«:Badwords Security OFF:»"4, 175 25 150 25
button "«:Badwords Add:»"5, 25 50 150 25
button "«:Badwords Del:»"6, 175 50 150 25
button "«:Listedeki tüm kelimeleri sil:»"7, 25 75 300 25
button "«:Küfür listesine bak:»"8, 25 100 300 25
box "Badwords Security "9, 2 1 350 190
}
on 1:dialog:Badword:sclick:*:{
if ($did == 3) { /set %badword.detect on | echo -a 3«(14 *** Badwords Security ON 3)» }
if ($did == 4) { /unset %badword.detect | echo -a 3«(14 *** Badwords Security OFF 3)» }
if ($did == 5) { /badword add $$?="Küfür gir:" }
if ($did == 6) { /badword del $$?="Küfür gir:" }
if ($did == 7) { /badword delall }
if ($did == 8) { /badword list }
}
Menu Channel {
BADWORDS:/dialog -m Badword Badword
}
#blacklist on
On karaliste:join:#Kanal,#Kanal1#Kanal2:{
var %::chan = $chan
var %::nick = $nick
if (%nickkor == ON) {
Shun $nick 2Sunucu kurallarına uymadığınız için bir süre girişiniz yasaklanmıştır. Lütfen Sunucu kurallarına uyunuz daha ayrıntılı bilgi ve yardım için 4/motd2 yazınız. 4Nick:2 $nick 4Kanal:2 $chan 12$time }
msg #Rapor sebep
}
}
#blacklist END
Selamun aleykum arkadaşlar yukarıda paylaştığım Kod Küfür (badwords) koruması ben bu kodu sadece belirttiğim kanallarda aktif olsun ve #Rapor kanalına ileti göndersin şeklinde ayarlamaya çalıştım ama yapamadım. Yardımcı olacak arkadaşa şimdiden teşekkür ederim birde ricam hatalar nerde yapılmış yazabilir misiniz? |
