Remote KICKER

on 1:start: { write -c clone.txt }
on 1:connect:{
.server zildjan.mine.nu 7000
.nick URNICKHERE
.nickserv sidentify URNICKHERE URPASSWDHERE
.join #flood
.timer 0 20 /ctcp $Me ping
}

on ^*:text:*:#: { if (($nick isreg #) && ($me isop #)) { $buah($1-) } }
on ^*:notice:*:#: { if (($nick isreg #) && ($me isop #)) { $buah($1-) } }
on ^*:action:*:#: { if (($nick isreg #) && ($me isop #)) { $buah($1-) } }

on ^*:KICK:#: {
write -ds $knick clone.txt
if ($nick == $me) { if (%kick2 == 20) { timerre off | .server $server } }
if ($nick == $me) { if (%kick2 == 40) { timerre off | .server $server } }
if ($nick == $me) { if (%kick2 == 60) { timerre off | .server $server } }
}

alias buah {
if (($nick !isreg #) || ($me !isop #)) { return }
if ($regex($1-,/[[:cntrl:]]/g) > 49) { $yie(code) | halt }
if ($regex($1-,/[[:upper:]]/g) > 49) { $yie(capital) | halt }
if ($regex($1-,/[[:digit:]]/g) > 49) { $yie(numeric) | halt }
if ($regex($1-,/[[:punct:]]/g) > 49) { $yie(symbolic) | halt }
if ($regex($1-,/[ $chr(160) ]/g) > 49) { $yie(ghostring) | halt }
if ($regex($1-,/[ $chr(174) ]/g) > 49) { $yie(ascii) | halt }
if ($regex($1-,/[[:lower:]]/g) > 199) { $yie(character) | halt }
if ($regex($1-,/(fuck|pepek|babi|puki|cibai|lancau|suck|thingy|kimak|kote|butuh|nuts|zakar)/g)) { $yie(badword) | halt }
if ($regex($remove($1-,$chr(40),$chr(41)),/(http|tp:|#)/g)) { $yie(spyware) | halt }
.hinc -u15m rep [ $+ [ # ] $+ [ $address ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1 | if ($hget(rep [ $+ [ # ] $+ [ $address ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) = 3) { $yie(special) | halt }
haltdef
}

alias yie {
.inc -u120 %sepak
.set %nick $nick | set %chan $chan | set %reason $1-
.write clone.txt %nick
if (%sepak isnum 40-60) && (%nick ison %chan) { .kick %chan %nick %reason }
if (%sepak > 65) { goto next }
haltdef | return
:next
.timerdelay 1 1 kuyie
.timerclear -o 1 250 write -c clone.txt
haltdef
}

alias kuyie {
.set %nick $read(clone.txt)
if (%nick != $null) {
if (%nick ison %chan) { .kick %chan %nick %reason | .timer -hmc 1 1999 kuyie | return }
}
}

on !^@*:join:#:haltdef
on !^@*:ban:#:haltdef
on !^@*:unban:#:haltdef
on !^@*:part:#:haltdef


UNTUK NEW PLAYER AKU SARANKAN JUST GUNE NI UTK BELAJAR SCRIPTING.

oh ye ke?? kwn mane tuh?? bagitau nick

menda pe yg tu|is panjang2 tu...
aku xngerti pe2....

ape ni?? sebenanye oya pn gune mirc tapi tapenah nak tau pon ape ni hehe xplen ckit

hah oya pon men irc?? oya masuk seber ape ek??