noversion Script

[Sjef]

Hi,

I tried out the noversion script which I found in the tcl archive.
But the problem with it is it kicks people but won't ban them. Since I can't TCL script i was wondering if someone who could was willing to take a look on it.

The url of the script = http://www.egghelp.org/files/tcl/noversions1.05.tcl.gz

Greets, Sjef

[caesar]

Stupid question: have you changed the "nv_ban" to 1?

[Sjef]

Stupid question: have you changed the "nv_ban" to 1?

Yes

Code: Select all

## Punish the people who have one of the following words in the ctcp-version reply.
set nv_versions {"script1" "script2"} 

## Ask ctcp-version if user joins one of these channels.
# Note: Set this to "" to enable punishing on all channels.
set nv_chans "#chan"

## [0/1] If user has a lame IRC-client/script then punish him/her only on $nv_chans?
# Note: If this is set to 0 then the bot punish user on all channels where the bot and the user are.
set nv_onlynvchans 1

## What is the reason for the punishment?
set nv_reason "Lame-ass Script"

## [0/1] Kick the user?
set nv_kick 0

## [0/1] Give the user a warning?
set nv_givewarning 0

## Give what kind of warning?
set nv_warning "Don't use lame scripts and/or clients."

## [0/1] Ban the user?
set nv_ban 1

## Ban for how long time (min)?
set nv_bantime 30

## [0/1] Ignore the user?
set nv_ignore 1

## Ignore for how long time (min)?
set nv_ignoretime 30

## What users can use the nvcheck command?
set nv_chkflag "m"

## Don't ask ctcp-version from the users with the following global flags. 
set nv_globflags "m n o b"

## Don't ask ctcp-version from the users with the following channel flags.
set nv_chanflags "q a o h v"

[Sjef]

Anyone got an idea ?

[ReaLz]

get this example:

Code: Select all

### In what channel do you want this script enabled?
set nov_chan "#chan"

### What do you want the ban's duration to be? (in minutes)
set durat 30

bind ctcp - "*" chan:ctcp

proc chan:ctcp {nick host hand dest keyw text} {
if {$keyw == "ACTION"} {
return 0
}
if {$dest == $nov_chan} {
set chan $dest
  if {[matchattr $hand of|fo $chan] || [isop $nick $chan]} {
    return
  }
set mask "*!*@[lindex [split $host @] 1]"
newban $mask CTCPs "\002$durat minutes\002 ban for using \002CTCPs\002 within \002$chan\002 " $durat
return 1
}
}

[Sjef]

Is it a new script or a part i need to edit in the old script?

If it is a new, where do i place the bad versions (it are 2 scripts i want to ban from my channel).

Grtz, Sjef