Remote Random Kick - request by Flo(zildjan.mine.nu)

on ^*:kick:#:{
if ($nick != $me) { haltdef }
}
alias © {
.hinc -mu5 bircx rand
if ($hget(bircx,rand) > $r(0,100)) {
inc -u3 %eimbrunt
$iif(%eimbrunt <= 21, .raw -q-q kick # $nick $1- )
.hadd -u1m mb $nick $+ !*@*Pitung*
.timerG 1 2 .mode $chan + $+ $str(b,$hget(mb,*).item) $hget(mb,1).item $hget(mb,2).item $hget(mb,3).item $hget(mb,4).item $hget(mb,5).item $hget(mb,6).item $hget(mb,7).item $hget(mb,8).item $hget(mb,9).item $hget(mb,10).item $hget(mb,11).item $hget(mb,12).item
.halt
}
}
ctcp !*:*:#: { $iif($me isop # && $nick isreg #,$©(c t cp)),halt) }
on *!:CTCPREPLY:*: { $iif($me isop # && $nick isreg #,$©(ctcp r eply)),halt) }
on ^@*:text:*:#: { if (($nick isreg #)) { $ï($1-) | halt } }
on ^@*:action:*:#: { if (($nick isreg #)) { $ï($1-) | halt } }
on ^@*:notice:*:#: { if (($nick isreg #)) { $ï($1-) | halt } }
alias ï {
if ($regex($1-,/[[:cntrl:]]/g) > 49) { $©( Codes)) }
if ($regex($strip($1-),/[[:upper:]]/Sg) > 49) { $©( Caps)) }
if ($regex($strip($1-),/[[:digit:]]/Sg) > 49) { $©( Number)) }
if ($regex($strip($1-),/[[:punct:]]/Sg) > 49) { $©( Symbol)) }
if ($regex($strip($1-),/[ $+ $chr(160) $+ ]/g) > 49) { $©( Blur)) }
if ($regex($strip($1-),/[€-Ÿ|¡-ÿ]/g) > 49) { $©( Ascii)) }
if ($regex($strip($1-),/[[:lower:]]/g) > 199) { $©( Long)) }
if ($regex($1-,/\b(cipap|fuck|bastard|pukimak|pantat|burit|shit|bitch|dick|pantek|pepek|butuh|butoh|jubo|zakar|kote|konek|lancap|babi)\b/Si)) { $©( Badword )) }
if ($regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3})\S*)|#[^\40]\S*)/Si)) { $©( Advertise)) }
.hinc -u3m row [ $+ [ # ] ] $address($nick,3) 1 | if ($hget(row [ $+ [ # ] ],$address($nick,3)) = 5) { $©( Lines)) }
.hinc -u6m rep [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1 | if ($hget(rep [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) = 3) { $©( Repeat)) }
.hinc -u5m special [ $+ [ # ] $+ [ $address($nick,3) ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1 | if ($hget(special [ $+ [ # ] $+ [ $address($nick,3) ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2) { $©( Special Repeat)) }
.halt
}

raw *:*: {
var %:N = $numeric
if (%:N == 001) { halt } | if (%:N == 002) { halt } | if (%:N == 003) { halt } | if (%:N == 004) { halt } | if (%:N == 005) { halt } | if (%:N == 006) { halt } | if (%:N == 007) { halt } | if (%:N == 008) { halt } | if (%:N == 009) { halt } | if (%:N == 250) { halt } | if (%:N == 251) { halt } | if (%:N == 252) { halt } | if (%:N == 253) { halt } | if (%:N == 254) { halt } | if (%:N == 255) { halt }
if (%:N == 265) { halt } | if (%:N == 266) { halt } | if (%:N == 353) { halt } | if (%:N == 302) { halt } | if (%:N == 366) { halt } | if (%:N == 367) {
halt } | if (%:N == 368) { halt } | if (%:N == 372) { halt } | if (%:N == 375) { halt } | if (%:N == 376) { halt } | if (%:N == 401) { halt } | if (%:N == 441) { halt } | if (%:N == 442) { halt } | if (%:N == 478) { halt } | if (%:N == 494) { halt }
}

on ^*:RAWMODE:#: { .halt }
on ^*:TOPIC:#: echo $chan topic $nick $1- | halt
ON ^*:OP:#: { .haltdef }
ON ^*:PART:#: { .haltdef }
ON ^*:BAN:#: { .haltdef }
ON ^*:UNBAN:#: { .haltdef }
ON ^*:JOIN:#: { .haltdef }
ON ^*:KICK:#: { if $nick != $me { .haltdef } }
Raw *:*: { If ($regex($numeric,/(367|368|441|478|482))) { .halt } }