IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Küfür Korumasi (https://www.ircforumlari.net/mirc-scripting-sorunlari/32830-kufur-korumasi.html)

Küfür Korumasi

Arkadaslar bu kufur koruması var ama bunda ban atarken hem sonunda küfürü yazıyor hemde banı aradan 1 dk gecdıkden sonra gerı acıyor ben hem ettıgı kufuru yazmasını ıstemıyorum hemde banı zamanlı acmasını ıstemıyorum ben kurcaladım denedım ama ban atmadı yardımcı olabılırmısınız bu kod ıse belırttıgım gıbı alıntıdır...

Alıntı:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Swear protection ;;
;; ;;
;; Author : Amidos ;;
;; Version : 1.03 ;;
;; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:load:{
.set %kiket on
.set %oplar on
.set %banvaxt 200
.set %kickmsj BAD-WORD Detected. Please stop swearing-
.set %soyush fuck,shit,bitch,idiot
.echo -a 2Swear4 protection...
.echo -a 4Type 2/bad4 to open !
.echo -a 7 Good luck!! 4:12>
}

on @*:text:*:#: {
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
_swer_ $1-
}
on @*:action:*:#: {
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
_swer_ $1-
}
on @*:notice:*:#: {
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
_swer_ $1-
}
alias _swer_ {
var %x $strip($1-) , %i $numtok(%soyush,44)
while (%i) {
if ($gettok(%soyush,%i,44) iswm %x) || ($gettok(%soyush,%i,44) isin %x) {
if (%kiket == on) { .kick # $nick $iif(%kickmsj != $null,%kickmsj 1[4 $gettok(%soyush,%i,44) 1],BAD-WORD Detected. Please stop swearing- 1[4 $gettok(%soyush,%i,44) 1]) }
if (%banet == on) { .ban $iif(%banvaxt isnum,-u $+ %banvaxt) # $nick 2 }
return
}
dec %i
}
}

dialog swear {
title "Swear protection By Amidos"
size -1 -1 185 111
option dbu
box "List of Bad Words", 1, 90 1 94 79
combo 2, 94 10 87 53, size
button "Add", 3, 98 66 31 10
button "Del", 4, 144 65 31 10
box "", 5, 96 60 36 18
box "", 6, 142 60 36 18
box "Penalty", 7, 2 2 84 45
check "Kick ", 8, 5 13 39 10
check "Ban ", 9, 5 31 32 10
edit "", 10, 36 30 23 12, disable
text "Seconds", 11, 62 32 21 8, disable
box "Except", 12, 2 49 84 31
check "@ps", 13, 6 57 77 10
check "+Voices", 14, 6 68 75 10
box "Kick Message", 15, 2 81 182 27
edit "", 16, 6 90 174 13, autohs
}
alias bad { .dialog -m swear swear }
on *:dialog:swear:init:*:{
if (%soyush) didtok $dname 2 44 $ifmatch
if (%kiket) { .did -c $dname 8 }
if (%banet) { .did -c $dname 9 | did -e $dname 10,11 }
if (%oplar) { .did -c $dname 13 }
if (%vlar) { .did -c $dname 14 }
did -a $dname 10 %banvaxt
did -a $dname 16 %kickmsj
}
on *:dialog:swear:sclick:*:{
if ($did == 3) {
if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%soyush,%artir,44)) { .set %soyush $addtok(%soyush,%artir,44) | did -a $dname 2 %artir } }
}
if ($did == 4) { if ($did(2).sel > 0) { .set %soyush $remtok(%soyush,$did(2).seltext,1,44) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } }
if ($did == 8) { if ($did(8).state == 1) { .set %kiket on } | else { .unset %kiket } }
if ($did == 9) { if ($did(9).state == 1) { .set %banet on | did -e $dname 10,11 } | else { .unset %banet | did -b $dname 10,11 } }
if ($did == 13) { if ($did(13).state == 1) { .set %oplar on } | else { .unset %oplar } }
if ($did == 14) { if ($did(14).state == 1) { .set %vlar on } | else { .unset %vlar } }
}
on *:dialog:swear:edit:*:{
%kickmsj = $did(16)
%banvaxt = $did(10)
}
menu status,menubar {
BAD-WORD:.bad
}

Cevap: Küfür Korumasi

on *:text:*@hotmail*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }
on *:text:*@hot*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }
on *:text:*@0544*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }
on *:text:*@0537*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }
on *:text:********:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }
on *:text:*zikerim*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }

bu kodu txt ıcıne at ve scrpte yukle gayet ıyı calısıyor baska bır scrpten alıntı yaptım ayrıca kendın de aynı sekılde cogaltabılırsın zaten cok kısa ben sana bır bolumunu yolladım kendın aynı sekılde cogaltırsın artık kolay gelsın

Cevap: Küfür Korumasi

Alıntı:

mujdat Nickli Üyeden Alıntı

bununla yukardakinin ne alakasi varki ? biraz dikkat lütfen

if (%kiket == on) { .kick # $nick $iif(%kickmsj != $null,%kickmsj 1[4 $gettok(%soyush,%i,44) 1],BAD-WORD Detected. Please stop swearing-
kirmizi kismi silersen ettigi küfür kick mesaji icinde yer almaz

if (%banet == on) { .ban # $nick 2 }
buda süresiz ban icin