auto Msg di mIRC

sc ini di gunakan untuk anda yg lagi away atau sedang sibuk

--------------------------------------

#Malas on
on 1:OPEN:?: {
msg $nick %blits Ups...tunggu sebgentar yach....
msg $nick %blits Apa ini terlalu penting? jika iya ketik yes jika tidak ketik no
msg $nick %blits muup yach..! Jika tidak di jawab berarti saya tidak ONLINE
echo -a %blits MSG from $nick #

}

----------------------------------------------------------------------
On @*:action:$($+(*,slap,*,$me,*)):#:{
.timer 1 1 describe # dodges $nick $+ 's slap!
.timer 1 2 msg # wei $nick kira kira kita mo perduli dunk biar nga mo slaps.. tutuluhu kita aba ๑۩۞۩๑
.timer 1 7 kick # $nick 9,01 adu saki aba jangan slaps kita..!
}

On 1:TEXT:*:?:{
/notice $nick ##10Hello 4 $nick #10Please do not message me as I’m not accepting any private messages right now. 1,9---==[ LAGI ADA DI DUNIA NYATA ]==--- online pake nick harten staw dia
echo -a ##8[#4 $nick #8] ##11is trying to message you #8[##4Closing Private Message Window##8] [#11Turn-OFF Message Blocker to recieve private messages#8]
/close -m $nick
}



----------------------------------------------
Script Badword

on *:text:*:#: {
if ($1 == !badword) && ($_chan($chan)) && ($istok(on off,$2,32)) && ($nick isop $chan) {
set %_badword $iif($2 == off,$v2,on)
msg $chan Badword protection is now %_badword
}
else {
if (%_badword == on) && ($me isop $chan) && ($nick !isop $chan) && ($_chan($chan)) {
; Change the badwords below to fit your own needs.
var %badword = wanga,kong,tahede,bohito,hede,hutodu,odok,sleding,kick,edehat,Guest,odok,polombuo,telelilolo,wanga, %a = $numtok(%badword,44)
while (%a) {
var %bchk = $gettok(%badword,%a,44)
if (%bchk isin $1-) {
inc $+(%,badword,.,$nick,.,$chan)
var %times = $($+(%,badword,.,$nick,.,$chan),2)
if (%times == 1) {
.notice $nick jangan bagitu aba di chan $chan $nick $+ . angan bermasalah %times time. (jangan ba bilang: %bchk $+ )
}
elseif (%times == 2) {
kick $chan $nick wekz.. angan kana badword di $chan $nick $+ . You've broken the rules %times times. Next time you'll be banned! (You said badword: %bchk $+ )
}
elseif (%times > 2) {
ban -ku900 $chan $nick 2 I warned you 2 times already. Bye bye. 15 minutes ban.
unset $+(%,badword,.,$nick,.,$chan)
}
}
dec %a
}
}
}
}

alias -l _chan {
; Change the channels for the bot to work on below, to make it work in all channels just input "#".
var %a = #, %b = $numtok(%a,44)
while (%b) {
if ($1 == $gettok(%a,%b,44)) || (%a == $chr(35)) {
return $true
}
dec %b
}
}

on *:exit: {
unset %badword.*
}

menu channel {
.Turn badword filter $iif(%_badword == on,off,on) : set %_badword $iif(%_badword == on,off,on)