Home > mIRC > Script CTCP, By : Ridho

Script CTCP, By : Ridho

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
}

#sidempuan @DalNet

Categories: mIRC
  1. No comments yet.
  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: