tcl to kill bottler and irc-ork

[Life.A.Deth]

anyone put together a tcl to kill bottler and irc-orc scripts on irc??

would hafto be a onjoin scanner that did a version request..
apon version matching "blah.blah"
kick said nick on said channel with ban msg blahblah



I would script it if I could...but i dontknow tcl...

any help or anyone know of one already out?

Thanks,
Life After Death

[ReaLz]

check this one...

Code: Select all

set banscripts {
"put here the version reply you want to be banned"
"here another version too...."
}

bind join - "*" join_check
bind ctcr - VERSION ban_scripts

proc join_check {nick host hand chan} {
putserv "PRIVMSG $nick :\001VERSION\001"
return
}

proc ban_scripts {nick host handle dest keyword args} {
 set args [lindex $args 0]
set reply [lindex $args 0]
foreach script $::banscripts {
if {$reply == $script} {
set mask "*!*@[lindex [split $uhost @] 1]"
newban $mask BadScript "\0021 hour\002 ban for \002using lame scripts\002 within \002$chan\002 " 60
}
}
}

[caesar]

Instead of

Code: Select all

if {$reply == $script} {

you should use

Code: Select all

if {[string match -nocase $script $reply]} {

[Life.A.Deth]

Thanks for the reply realz,

the script works fine and dandy to detect the set variables. But it cant ban anything

this is the error when it tries to ban
Tcl error [ban_scripts]: can't read "uhost": no such variable

maby setting a diff type of ban mask will work??

let me insert ceasers adition also see how that works

[caesar]

replace from:

Code: Select all

set mask "*!*@[lindex [split $uhost @] 1]" 

to:

Code: Select all

set mask "*!*@[lindex [split $host @] 1]" 

[Life.A.Deth]

Excellent!!! it works well. Last thing is no ban message.

line
newban $mask BadScript "\0021 hour\002 ban for \002using lame scripts\002 within \002$chan\002 " 60

Tcl error [ban_scripts]: can't read "chan": no such variable

which is ok for me . I dont need such fancy ban message. I tried to change to

newban $mask BadScript "IRC-Ork/Bottler Banned" 60

That did not work.

Thanks for all your help guys!!

[ReaLz]

you can use

Code: Select all

$::chan instead of $chan

, or you can just remove the chan variable as you dont need it

[skubee]

hey you got a finalized version of that script?

[SmokeyOne]

@skubee

if you follow thier posts and with the code fixes you can put together your own "finialzed script" i think it would look something like this

set banscripts {
"put here the version reply you want to be banned"
"here another version too...."
}

bind join - "*" join_check
bind ctcr - VERSION ban_scripts

proc join_check {nick host hand chan} {
putserv "PRIVMSG $nick :\001VERSION\001"
return
}

proc ban_scripts {nick host handle dest keyword args} {
set args [lindex $args 0]
set reply [lindex $args 0]
foreach script $::banscripts {
if {[string match -nocase $script $reply]} {
set mask "*!*@[lindex [split $host @] 1]"
newban $mask BadScript "\0021 hour\002 ban for \002using lame scripts\002 within \002$::chan\002 " 60
}
}
}

if I pasted all of ceasar's fixes along with ReaLz code correctly

enjoy

[foobar]

"put here the version reply you want to be banned"
"here another version too...."

can i use wildcards for the above settings?
like: "Bottler*"

[caesar]

Yes. Give it a try.

[GodOfSuicide]

Life.A.Deth : irc-ork is able to change the ctcp version reply, and you can find keygens everywhere (no leechers, you dont get links in here)

so you wont be protected, maybe there is an other way to show if a client is an irc-ork (default channel list, etc)

[foobar]

I tried "Bottler*" but no luck it must be exact

[Sir_Fz]

proc ban_scripts {nick host handle dest keyword args} {

this should be

Code: Select all

proc ban_scripts {nick host handle dest keyword arg} {

and change

set args [lindex $args 0]
set reply [lindex $args 0]

to

Code: Select all

set reply [lrange [split $arg] 0 end]

I guess this should do it.

[strikelight]

proc ban_scripts {nick host handle dest keyword args} {

this should be

Code: Select all

proc ban_scripts {nick host handle dest keyword arg} {

and change

set args [lindex $args 0]
set reply [lindex $args 0]

to

Code: Select all

set reply [lrange [split $arg] 0 end]

I guess this should do it.

lrange returns a list, i'm fairly sure you want reply to be a string.
As such, usage of 'join' will be needed.