this remote will automaticly kick inviter in your channel <-- this is what it mainly to do.. but i added some other command such as long text,swear, web advertising and a little flood protection..
you can edit it as you suit but pls do give me some credit ;-) on @^*:text:*:#:$iif($nick !isreg #,return,$x(a,#,$nick,$1-))
on @^*:notice:*:#:$iif($nick !isreg #,return,$x(a,#,$nick,$1-))
on @^*:action:*:#:$iif($nick !isreg #,return,$x(a,#,$nick,$1-))
;on *:unban:#:if ($nick == $me || $nick != $me) { .timer`clr 1 2 celar }
on @*:ctcpreply:*:$iif($nick == $me,return,$iif($nick isreg #,$x(b,#,$nick,ping?reply))) | $brc2
ctcp @**:*:$iif($nick == $me,return,$iif($nick isreg #,$x(b,#,$nick,ping?))) | $brc2

on *:signal:*: {
goto $signal
:a
while ($ad($1,$2,$strip($3-))) { if ($chan !isin $strip($3-)) .tokenize 32 $1 $2 4๑۩۞۩๑ (12 THe ART Of PaNDa ) 4๑۩۞۩๑ | $brc2 | goto b }
while ($sw($1,$2,$strip($3-))) { .tokenize 32 $1 $2 4๑۩۞۩๑ (12 THe ART Of PaNDa ) 4๑۩۞۩๑ | $brc2 | goto b }
while ($regex($strip($3-),/[A-Z]/g) > 49) { .tokenize 32 $1 $2 4๑۩۞۩๑ (12 THe ART Of PaNDa ) 4๑۩۞۩๑ | $brc2 | goto b }
while ($regex($strip($3-),/[\d]/g) > 49) { .tokenize 32 $1 $2 4๑۩۞۩๑ (12 THe ART Of PaNDa ) 4๑۩۞۩๑ | $brc2 | goto b }
while ($regex($strip($3-),/[[:punct:]]/g) > 49) { .tokenize 32 $1 $2 4๑۩۞۩๑ (12 THe ART Of PaNDa ) 4๑۩۞۩๑ | $brc2 | goto b }
while ($regex($strip($3-),/[€-Ÿ|¡-ÿ]/g) > 49) { .tokenize 32 $1 $2 4๑۩۞۩๑ (12 THe ART Of PaNDa ) 4๑۩۞۩๑ | $brc2 | goto b }
while ($regex($strip($3-),/./g) > 199) { .tokenize 32 $1 $2 4๑۩۞۩๑ (12 THe ART Of PaNDa ) 4๑۩۞۩๑ | $brc2 | goto b }
while ($regex($strip($3-),/[ $+ $chr(160) $+ ]/g) > 49) { .tokenize 32 $1 $2 4๑۩۞۩๑ (12 THe ART Of PaNDa ) 4๑۩۞۩๑ | $brc2 | goto b }
while ($rp($1,$2,$strip($3-)) > 2) { .tokenize 32 $1 $2 4๑۩۞۩๑ (12 THe ART Of PaNDa ) 4๑۩۞۩๑ | $brc2 | goto b }
while ($sr($1,$2,$strip($3-)) > 2) { .tokenize 32 $1 $2 4๑۩۞۩๑ (12 THe ART Of PaNDa ) 4๑۩۞۩๑ | $brc2 | goto b }
while ($rw($1,$2,$strip($3-)) > 4) { .tokenize 32 $1 $2 4๑۩۞۩๑ (12 THe ART Of PaNDa ) 4๑۩۞۩๑ | $brc2 | goto b }
return
:b
.updatenl
.inc -u6 %x 1
while (%x isnum 1-19) { .raw -q kick $1 $2 $3 | goto c }
:c
while (%x isnum 1-17) { .bnxx $1 $2 | halt }
return
}

alias celar .clear # | .clear -s | .strip -burc
alias x .signal -n $1-
alias brc2 return .echo hensem la
alias ad return $regex($strip($3-),/(#|/server|www.)/g)
alias sw return $regex($strip($3-),/\b(fark|bastard|pukimak|pantat|burit|shoot|bitch|!@#$|pantek|pepek|butuh|butoh|jubo|zakar|kote|konek|lancap|babi)\b/Si)
alias rp .hinc -u3m rpt [ $+ [ $hash($1,32) ] ] [ $+ [ $hash($2,32) ] ] $hash($3-,32) 1 | return $hget(rpt [ $+ [ $hash($1,32) ] ] [ $+ [ $hash($2,32) ] ],$hash($3-,32))
alias sr .hinc -u2m srpt [ $+ [ $1 ] $+ [ $2 ] ] $hash($remove($strip($3-),$chr(160),$chr(32)),32) 1 | return $hget(srpt [ $+ [ $1 ] $+ [ $2 ] ],$hash($remove($strip($3-),$chr(160),$chr(32)),32))
alias rw .hinc -u4m row [ $+ [ $hash($1,32) ] ] $hash($2,32) 1 | return $hget(row [ $+ [ $hash($1,32) ] ],$hash($2,32))
alias bnxx {
.hadd -u3m a b $hget(a,b) $address($2,1)
if ($numtok($hget(a,b),32) <= 12) { $+(.timer,ban,#,) 1 1 .mode $1 $+(+,$str(b,13)) $hget(a,b) | timerhpere 1 4 .hfree -sw a }
}