Private invite kicker.

[anmlhckr]

on ^*:open:?: {
  if (*http*//* iswm $1- || *join*#* iswm $1- || *porn* iswm $1- || *sex* iswm $1-) {
    var %c $comchan($nick,0)
    while (%c) {
      if ($me isop $comchan($nick,%c)) {
        ban $comchan($nick,%c) $nick 2 
        kick $comchan($nick,%c) $nick Spammer
        ignore $nick
        if ($window(@spam)) { echo @spam $nick spammed $1- from $comchan($nick,%c) }
        else { window @spam | echo @spam $nick spammed $1- from $comchan($nick,%c) }
      }
      dec %c
    }
    haltdef
  }
}

[Cult]

Good, esp the @ spam window
u can complete it to add the spammer to blacklist so it will kick`m when ever he joins...

[anmlhckr]

then make a user list, and after the kick event, make this : auser nickname , thanks for ur comments bro

[Cult]

i already made it on my antispammer

[anmlhckr]

I have a cool anti-spam-bot :d

[Cult]

post it then

[anmlhckr]

Haha, I guess I've told ya yesterday what my anti-spammer do, so I cannot post it, but just for more info, it doesnt needs sockets , and it trace the CLONE ISP, of the spammers outside the channel
Kthx.

[Cult]

l337 zcr1pt3r :P

[7assouna]

lol cult

[BilbOuL]

nice on :( bas kicking OPS :S

[anmlhckr]

Okay, BilBoul, thats easy to be fixed I guess .. just replace the 2nd line with this
if (*http*//* iswm $1- || *join*#* iswm $1- || *porn* iswm $1- || *sex* iswm $1-) && ($nick isreg $chan)
Thanks .. Have a nice day .

[Cult]

thanx god, someone other than me and anmlhkr joiune this section ;p wlcom in BilbOuL and 7assouna.

[anmlhckr]

Guys we need moderaters in here ... !

[Cult]

This code is better, it won`t kick ops and voices. and u can add some nicks to u`r protection in this remote. so if they typed a spam word in u`r prvt they won`t be kicked.
as usual... ALR + R and paste in a new file.
cheers.

menu nicklist,query {
  Protect
  .Add as A Friend:/auser $$1 friend
  .Del as A Friend:/ruser $$1
}

on ^*:open:?:{
  var %i = 1
  if ($regex($1-,/(?:ftp:\/\/|https?:\/\/|www2?\.)[^<> ;\.\s]+(?:\.[^<>\.\s]+)+(?:\/[^<>\.\s]+)*|ir c:\/\/[^<>\.\s]+(?:\.[^/<>\.\s]+)+(?:\/[^/&l t;>\.\s]*)?\/?(?![^\s\x2c\.])|aim:goim\?screenname=[^ \s&]+(?:&message=[^\s&=]+)?|#.+/giS)) && ($ulevel != friend) && ($nick isreg #) {
    while ($comchan($nick,%i)) {
      if ($nick !isop $comchan($nick,%i)) { 
        ban -k $v2 $nick 2 Don't advertise. 
      }    
      inc %i
    }
    halt
  }
}