Script CTCP

ini script buat Kata kotor, kamu bisa set berapa detik di ban,
di kick atau ban, op dan voice di kick ato nggak, nih komplit,
nah, coba masukin ini ke remote.
Rekomendasi : IRC-nya v.6 keatas, selamat mencoba.
===========================================

;Proteksi Kata Kotor

menu status,channel {
-
Proteksi Kata Kotor:swear
}

alias swear { dialog -m swear swear }

on *:load:{
set %kiket on
set %oplar on
set %banvaxt 300
set %kickmsj Kata Kotor tidak di-izinkan di channel..! MinGGiR..!
set %logo.laskar (L@sKá® c®èw)
set %soyush fuck,shit,bitch,idiot,kontol,pepek,babi,anjing,vagina,pantat,kelempong,puko,pukimak,kimak,jembut,gawuk,dancuk,memek,tetek,titit,bangsat
set %banet on
set %vlar on
}
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 10Kata Kotor 14[4 $gettok(%soyush,%i,44) 14] 10tidak di-izikan di-channel #  $lkr }
if (%banet == on) { .ban $iif(%banvaxt isnum,-u $+ %banvaxt) # $nick 2 }
return
}
dec %i
}
}

dialog swear {
title “Proteksi Kata Kotor”
size -1 -1 185 111
option dbu
box “Daftar Kata Kotor”, 1, 90 1 94 79
combo 2, 94 10 87 53, size
button “Tambah”, 3, 98 66 31 10
button “Hapus”, 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 “Detik”, 11, 62 32 21 8, disable
box “semua user di kick/ban, kecuali”, 12, 2 49 84 31
check “Op”, 13, 6 57 77 10
check “Voices”, 14, 6 68 75 10
box “Pesan Kick”, 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)
}

on *:unload:{
unset %kiket on
unset %oplar on
unset %banvaxt
unset %kickmsj
unset %logo.laskar
unset %soyush
unset %banet
unset %vlar
}