egghelp/eggheads community

Annoying Spambots on Dal.net (finger script)

2002-09-25T17:59:57-04:00

That would be great, you can add me to any of the messengers I have listed there or email me it at overunu@yahoo.com

Thanks A lot.

Statistics: Posted by Gothic-Angel — Wed Sep 25, 2002 5:59 pm

Annoying Spambots on Dal.net (finger script)

2002-09-25T09:30:30-04:00

if you wish I can send you working script, it wasn't written by me. It's modified tcl of Sup. It's used in many DALnet chans and works great.

Statistics: Posted by Nexus6 — Wed Sep 25, 2002 9:30 am

Annoying Spambots on Dal.net (finger script)

2002-09-25T08:34:37-04:00

That seemed to work sent me finger replys for 2 users then it just stopped fingering, im giving up ill just live my mIRC client on with my working addon. Im sick of messing around with this.

Statistics: Posted by Gothic-Angel — Wed Sep 25, 2002 8:34 am

Annoying Spambots on Dal.net (finger script)

2002-09-25T08:03:47-04:00

Code:

bind join - "*" ctcp:join:sendproc ctcp:join:send {nick uh hand chan} {  puthelp "PRIVMSG $nick :\001FINGER\001"}bind ctcr - "FINGER" ctcp:join:replyproc ctcp:join:reply {nick uh hand dest key arg} {  if {[string match "*%email*" [string tolower $arg]]} {    putserv "MODE $chan +b [maskhost "${nick}!${uh}"]"  }}

Why don't you just go out and learn Tcl. Don't says it's hard. If a 9 year old can learn to produce 3D models, using software, that can only be used, by inputting math functions and tri-axis points, then you can learn Tcl.

Statistics: Posted by ppslim — Wed Sep 25, 2002 8:03 am

Annoying Spambots on Dal.net (finger script)

2002-09-25T07:55:19-04:00

still no go, i tried that and it would just pm me when i join with that message..

Hell I just want to finger every person that joins and if %email is in the results ban. I can't see to find a script that works for this

Statistics: Posted by Gothic-Angel — Wed Sep 25, 2002 7:55 am

Annoying Spambots on Dal.net (finger script)

2002-09-25T07:44:46-04:00

Code:

bind join - "#adultnetmeeting *" send:finger proc send:finger {n uh hand chan} {   puthelp "PRIVMSG $n :01FINGER01" }

that should do it

Statistics: Posted by Papillon — Wed Sep 25, 2002 7:44 am

Annoying Spambots on Dal.net (finger script)

2002-09-25T07:41:55-04:00

Is there a way I can get the script to finger everyone and search for the reply of %email?

Statistics: Posted by Gothic-Angel — Wed Sep 25, 2002 7:41 am

Annoying Spambots on Dal.net (finger script)

2002-09-25T07:40:11-04:00

the way that script is made it only fingers when the nicklength is "6" or the nick contains baby, lady or girl.

Statistics: Posted by Papillon — Wed Sep 25, 2002 7:40 am

Annoying Spambots on Dal.net (finger script)

2002-09-25T07:27:57-04:00

Without that line the bot doesnt finger, I get no errors but bot doesnt finger.

Statistics: Posted by Gothic-Angel — Wed Sep 25, 2002 7:27 am

Annoying Spambots on Dal.net (finger script)

2002-09-25T07:23:02-04:00

Code:

bind join - "#adultnetmeeting *" send:finger proc send:finger {n uh hand chan} { set l [string length $n] set n1 [string tolower $n] if {($l == 6) || ([string match "*baby*" $n1]) || ([string match "*lady*" $n1]) || ([string match "*girl*" $n1])} { puthelp "PRIVMSG $n :01FINGER01" } } bind ctcr - FINGER check:finger proc check:finger {nick uh hand dest key arg} { if {![isbotnick $dest]} { retrun } set arg1 [string tolower $arg] if {([string match "*%email*" $arg1]) || ([string match "*%iloveuayas*" $arg1])} { foreach chan [channels] { putserv "MODE $chan +b [maskhost "${nick}!${uh}"]" putserv "KICK $chan $nick :Auto Banned: Recognised CTCP Finger Reply" } } }

this was what I meant

Statistics: Posted by Papillon — Wed Sep 25, 2002 7:23 am

Annoying Spambots on Dal.net (finger script)

2002-09-25T07:01:00-04:00

Ya know if you would just rewrite the code the right way id be very grateful I have edited it a lot and still can't seem to make it work properly, I didnt write that ppslim did. I dont know what im doing heh

Code:

bind join - "#adultnetmeeting *" send:finger proc send:finger {n uh hand chan} { set l [string length $n] set n1 [string tolower $n] if {($l == 6) || ($l ==)"  || ([string match "*baby*" $n1]) || ([string match "*lady*" $n1]) || ([string match "*girl*" $n1])} { puthelp "PRIVMSG $n :01FINGER01" } } bind ctcr - FINGER check:finger proc check:finger {nick uh hand dest key arg} { if {![isbotnick $dest]} { retrun } set arg1 [string tolower $arg] if {([string match "*%email*" $arg1]) || ([string match "*%iloveuayas*" $arg1])} { foreach chan [channels] { putserv "MODE $chan +b [maskhost "${nick}!${uh}"]" putserv "KICK $chan $nick :Auto Banned: Recognised CTCP Finger Reply" } } }

My attempt at editing it.

Statistics: Posted by Gothic-Angel — Wed Sep 25, 2002 7:01 am

Annoying Spambots on Dal.net (finger script)

2002-09-25T06:49:11-04:00

eh well... "($l ==)" <-- that's still not valid, thought u knew as much
something is missing, if u don't know what's supposed to be there just remove " || ($l ==)"

Statistics: Posted by Papillon — Wed Sep 25, 2002 6:49 am

Annoying Spambots on Dal.net (finger script)

2002-09-25T06:44:26-04:00

Still get it and this is the code now

Code:

bind join - "#adultnetmeeting *" send:fingerproc send:finger {n uh hand chan} {set l [string length $n]set n1 [string tolower $n]if {($l == 6) || ($l ==) || ([string match "*baby*" $n1]) || ([string match "*lady*" $n1]) || ([string match "*girl*" $n1])} {puthelp "PRIVMSG $n :01FINGER01"}}bind ctcr - FINGER check:fingerproc check:finger {nick uh hand dest key arg} {if {![isbotnick $dest]} { retrun }set arg1 [string tolower $arg]if {([string match "*%email*" $arg1]) || ([string match "*%iloveuayas*" $arg1])} {putserv "MODE $chan +b [maskhost "${nick}!${uh}"]"putserv "KICK $chan $nick :Auto Banned: Recognised CTCP Finger Reply"}}

Statistics: Posted by Gothic-Angel — Wed Sep 25, 2002 6:44 am

Annoying Spambots on Dal.net (finger script)

2002-09-25T06:38:27-04:00

missing a ")" in "($l ==", should be "($l ==)"

Statistics: Posted by Papillon — Wed Sep 25, 2002 6:38 am

Annoying Spambots on Dal.net (finger script)

2002-09-25T06:35:56-04:00

Code:

bind join - "#Mp3z-Techno-Dance *" send:finger proc send:finger {n uh hand chan} { set l [string length $n] set n1 [string tolower $n] if {($l == 6) || ($l ==  || ([string match "*baby*" $n1]) || ([string match "*lady*" $n1]) || ([string match "*girl*" $n1])} { puthelp "PRIVMSG $n :01FINGER01" } } bind ctcr - FINGER check:finger proc check:finger {nick uh hand dest key arg} { if {![isbotnick $dest]} { retrun } set arg1 [string tolower $arg] if {([string match "*%email*" $arg1]) || ([string match "*%iloveuayas*" $arg1])} { foreach chan [channels] { putserv "MODE $chan +b [maskhost "${nick}!${uh}"]" putserv "KICK $chan $nick :Auto Banned: Recognised CTCP Finger Reply" } } }

I found that, but I get this error when doing so.

[06:34] Tcl error [send:finger]: syntax error in expression "($l == 6) || ($l == || ([string match "*baby*" $n1]) || ([s"

Im using windrop 1.6.12 I copied that code into a text editor exactly as its shown above and saved it as a tcl. Then loaded it.

Statistics: Posted by Gothic-Angel — Wed Sep 25, 2002 6:35 am