mIRC Home    About    Download    Register    News    Help

Print Thread
#163931 06/11/06 02:27 AM
Joined: Oct 2006
Posts: 342
L
learn3r Offline OP
Fjord artisan
OP Offline
Fjord artisan
L
Joined: Oct 2006
Posts: 342
on ^*:open:?: {
echo $nick commonchans: -------------
var %spam = #!.com!join #

;then matchtok if the $1- contains a spam word
if does gets the *!*@host and bans the users host on every chan that i'm opped in...
if match or someone on the channels that im opped in has the same host kicks and ban em
}


---------

help pls thanks..
alias comchans {
var %cs.all = $comchan($1,0)
var %cs.chans
if ( %cs.all > 0 ) { set %cs.chans $comchan($1,%cs.all) }
else { set %cs.chans CommonChan:None }
dec %cs.all 1
:cs
while ( %cs.all > 0 ) {
set %cs.chans %cs.chans $+ , $+ $comchan($1,%cs.all)
dec %cs.all
}
return %cs.chans
}

#163932 06/11/06 06:42 AM
Joined: Jun 2006
Posts: 508
D
Fjord artisan
Offline
Fjord artisan
D
Joined: Jun 2006
Posts: 508
Quote:
on ^*:open:?: {
echo $nick commonchans: -------------
var %spam = #!.com!join #

;then matchtok if the $1- contains a spam word
if does gets the *!*@host and bans the users host on every chan that i'm opped in...
if match or someone on the channels that im opped in has the same host kicks and ban em
}

Try Searching, I'm sure you'll find many wink


Quote:
---------

help pls thanks..
alias comchans {
var %cs.all = $comchan($1,0)
var %cs.chans
if ( %cs.all > 0 ) { set %cs.chans $comchan($1,%cs.all) }
else { set %cs.chans CommonChan:None }
dec %cs.all 1
:cs
while ( %cs.all > 0 ) {
set %cs.chans %cs.chans $+ , $+ $comchan($1,%cs.all)
dec %cs.all
}
return %cs.chans
}

Code:
alias comchans {
  var %i = 1,%cc
  while $comchan($$1,%i) { var %cc = $addtok(%cc,$v1,44) | inc %i }
  return %cc
}

#163933 06/11/06 06:54 AM
Joined: Oct 2006
Posts: 342
L
learn3r Offline OP
Fjord artisan
OP Offline
Fjord artisan
L
Joined: Oct 2006
Posts: 342
Try Searching, I'm sure you'll find many

None

#163934 06/11/06 07:46 AM
Joined: Jun 2006
Posts: 508
D
Fjord artisan
Offline
Fjord artisan
D
Joined: Jun 2006
Posts: 508
I'm sure there is, try using better/different keywords (+spam +filter etc), and expand the date range.

#163935 06/11/06 03:37 PM
Joined: Oct 2006
Posts: 342
L
learn3r Offline OP
Fjord artisan
OP Offline
Fjord artisan
L
Joined: Oct 2006
Posts: 342
still got nothing like i requested,,,

#163936 06/11/06 04:42 PM
Joined: Jul 2006
Posts: 242
H
Fjord artisan
Offline
Fjord artisan
H
Joined: Jul 2006
Posts: 242
Code:
 on ^*:open:?: {
  var %a = 0
  while (%a < $numtok(%spamwords,32)) {
    inc %a
    var %spamcheck = $gettok(%spamwords,%a,32)
    if ($istok($strip($1-),%spamcheck,32) == $true) {
      var %hai = 0
      while (%hai <= $comchan($nick,0)).op { 
        inc %hai
        ban -ku $comchan($nick,%hai) $nick 2 Private message spammer
      }
    }
  }
}
menu channel {
  Add SpamWords
  .Add:/set %spamwords $addtok(%spamwords,$$?,32) | echo -a 4SpamWord Added.
  .Remove:/set %spamwords $remtok(%spamwords,$$?,32) | echo -a 4SpamWord Removed.
}  


Remember its an on OPEN event so if you have a query window with that user already open it wont work


Newbie
#163937 06/11/06 04:50 PM
Joined: Oct 2006
Posts: 342
L
learn3r Offline OP
Fjord artisan
OP Offline
Fjord artisan
L
Joined: Oct 2006
Posts: 342
already have that kind of script with dialog...

what im requesting is
if not on my channels it will ban the
*!*@host of the spammer so that spammer won't be able to join the channels that im opped in..

spammers spam by joining then parting after 30 or more secs..
then message the users on the channel we're it joined

#163938 06/11/06 05:03 PM
Joined: Dec 2002
Posts: 1,245
M
Hoopy frood
Offline
Hoopy frood
M
Joined: Dec 2002
Posts: 1,245
write it yourself

on open with $wildsite
if spam detected in query then ban that address in all the channels you have ops in

and dont forget /close -m $nick

#163939 06/11/06 05:12 PM
Joined: Oct 2006
Posts: 342
L
learn3r Offline OP
Fjord artisan
OP Offline
Fjord artisan
L
Joined: Oct 2006
Posts: 342
ok il have to ask how to ban the spammer's host in all channels im opped
Thanks
and thanks halleyJ

#163940 06/11/06 05:25 PM
Joined: Dec 2002
Posts: 1,245
M
Hoopy frood
Offline
Hoopy frood
M
Joined: Dec 2002
Posts: 1,245
Code:
on *:open:?:{
  set %queryID $wildsite
}
on *:text:*:?:{

  if (* badword * iswm $1-) { goto ban }

  close -m $nick

  :ban 
  var %count = $comchan($me,0)
  var %i = 1
  while (%i <= %count) {
    if ($me isops $comchan($me,%i)) {
      ban -u15 $comchan($me,%i) %queryID
    }
    inc %i
  }
}
play with that

#163941 06/11/06 05:29 PM
Joined: Oct 2006
Posts: 342
L
learn3r Offline OP
Fjord artisan
OP Offline
Fjord artisan
L
Joined: Oct 2006
Posts: 342
hehehe thanks mikechat...
grin grin grin

#163942 06/11/06 05:32 PM
Joined: Jul 2006
Posts: 242
H
Fjord artisan
Offline
Fjord artisan
H
Joined: Jul 2006
Posts: 242
Code:
on ^*:open:?: {
  var %a = 0
  while (%a < $numtok(%spamwords,32)) {
    inc %a
    var %spamcheck = $gettok(%spamwords,%a,32)
    if ($istok($strip($1-),%spamcheck,32) == $true) {
      var %hai = 0
      while (%hai <= $chan(0)) { 
        inc %hai
        if ($me isop $chan(%hai)) {
          ban $chan(%hai) $wildsite
        }
      }
    }
  }
}
menu channel {
  Add SpamWords
  .Add:/set %spamwords $addtok(%spamwords,$$?,32) | echo -a 4SpamWord Added.
  .Remove:/set %spamwords $remtok(%spamwords,$$?,32) | echo -a 4SpamWord Removed.
} 


modified as per your request


Newbie
#163943 06/11/06 05:46 PM
Joined: Oct 2006
Posts: 342
L
learn3r Offline OP
Fjord artisan
OP Offline
Fjord artisan
L
Joined: Oct 2006
Posts: 342
Code:
on ^*:open:?: {
  var %a = 0
  while (%a < $numtok(%spamwords,32)) {
    inc %a
    var %spamcheck = $gettok(%spamwords,%a,32)
    if ($istok($strip($1-),%spamcheck,32) == $true) {
      var %hai = 0
      while (%hai <= $chan(0)) {
        inc %hai
        if ($me isop $chan(%hai)) ban $chan(%hai) $wildsite
        else { if ($me !isop $chan(%hai)) cs op $chan $me | ban $chan(%hai) $wildsite }
      }
    }
  }
} 
 


Thanks HaleyJ
could i use this when im not op?


learn learn learn
#163944 06/11/06 11:38 PM
Joined: Jul 2006
Posts: 242
H
Fjord artisan
Offline
Fjord artisan
H
Joined: Jul 2006
Posts: 242
no that wont work i will work on it somemore tomorrow, LOLZ its my birthday today and my avatar is a birthday cake :P laugh laugh laugh laugh laugh


Newbie

Link Copied to Clipboard