Forums Scripts & Popups anti pornbot script

hello,
I don't know if any of you have noticed but recently on undernet, we have seen some pornbots spamming the users of multiple channels, by doing the following thing:
1. entering the channel with a not so random nickname
2. getting a list of users
3. messaging random people of that list with nasty things
4. leaving the channel, and going on to the next one on the list.

What i would like to achieve is to write a script that will store the nicknames and hosts of the so called pornbots in a text file and check ONJOIN if the nick or ipmask (*!*@full.hostna.me) corresponds to anything in those two lists. if so, simple temporary ban (30 to 60s) + kick.

please use this thread to help me out.

thanks

here's what I started with, but was unsuccessfull to get it to work:

on 1:JOIN:#:{ if ($nick == Olodda || Aloecien || Brausien || Eowardoss) {
kick $chan $nick Go sit in a corner.
}}

You'd be best off using a user list here. You can add a user's host or nick to a user list with /guser or /auser, respectively.

You can then check if the user is matched with a specific named user level in an event by specifying the named level in the event, such as:


By typing /help user list, you can learn a bit more about them. I'd recommend using /guser (and mask level 2), as the nicks are probably randomly generated.

kodezone, to trouble shoot this for u so u have an idea...

your if is wrong because u can't say "is the nick a or b or c or d" you must use "is the nick a or is the nick b or is the nick c ..."

i.e
if ($nick == name1 || name2 || name3)
should be
if ($nick == name1) || ($nick == name2) || ($nick == name3)
alternativly u can use
if ($istok(name1.name2.name3, $nick, 46))

just so u understand where it went wrong.

on *:SIGNAL:spam:{
auser spam $3
mode $1 +b $3
kick $1 $2 spam
}
on *:JOIN:#:{
.set %nick $nick
.set %gate $address($nick,1)
if ($level($address($nick,1)) == spam) {
/signal spam $chan $nick $address($nick,1)
}
}
alias banscan {
var %i 1
while (%i <= $nick($chan,0)) {
if ($level($address($nick($chan,%i),1)) == spam) {
/signal spam $chan $nick($chan,%i) $address($nick($chan,%i),1)
}
inc %i
}
}
alias spam {
if ($2- == $null) {
/signal spam $chan %nick %gate
}
else {
var %i 1
while (%i <= $nick($chan,0)) {
if ($2 iswm $nick($chan,%i)) {
/signal spam $chan $nick($chan,%i) $address($nick($chan,%i),1)
}
inc %i
}
}
}
on *:TEXT:*:?:{
if ($1- == pussy) || ($1- == cock) || ($1- == webcam) || ($1- == panties) || ($1- == sex) {
/signal spam $active $nick $address($nick,1)
}
}

heres a few tools i made
/banscan checks if anyone managed to get in who should be on your list,/spam will banlist the last person who joined,/spam le* will banlist a nickname starting with le,/spam *le will banlist a nickname ending with le.

on *:TEXT:*:?:{
if (*pussy* iswm $1-) || (*cock* iswm $1-) || (*webcam* iswm $1-) || (*panties* iswm $1-) || (*sex* iswm $1-) {
/signal spam $active $nick $address($nick,1)
}
}

on *:SIGNAL:spam:{
auser spam $3
mode $1 +b $3
kick $1 $2 spam
}
on *:JOIN:#:{
.set %nick $nick
.set %gate $address($nick,1)
if ($level($address($nick,1)) == spam) {
/signal spam $chan $nick $address($nick,1)
}
}
alias banscan {
var %i 1
while (%i <= $nick($chan,0)) {
if ($level($address($nick($chan,%i),1)) == spam) {
/signal spam $chan $nick($chan,%i) $address($nick($chan,%i),1)
}
inc %i
}
}
alias spam {
if ($2- == $null) {
/signal spam $chan %nick %gate
}
else {
var %i 1
while (%i <= $nick($chan,0)) {
if ($2 iswm $nick($chan,%i)) {
/signal spam $chan $nick($chan,%i) $address($nick($chan,%i),1)
}
inc %i
}
}
}

sorry the other 1 was broken use this (maximum edit time has expired)

where could I find examples of writting a script that reads/write to a text file ?

thanks for your feedback!

/help /write is a good place to start

Syntax:
/write <filename> <text to go in filename>

If you wanted to log a channel, you could do

on 1:TEXT:*:#: {
/write mylog.log $timestamp $nick $+ : $1-
}

Easy >:D