Help with Noversion1.05.tcl

[Roc-A-Roo]

I have this script working on a bot.. and it does versions fine. However, the spambot, I want to kick has a version reply sent as a notice, eg..

[8:30:28 pm] -Angelica22- VERSION Telnet 0.2a

From what I read in the script, it's supposed to see version replies via notice, but it doesn't appear to be kicking these spambots..

I can paste the script if needed here, if asked.

[demond]

CTCP VERSION reply is via NOTICE indeed, but the spambot in question obviously replies with no CTCP in its notice, so your script doesn't catch it

I'd guess that's a broken spambot hehe

[Roc-A-Roo]

This section of code would seem to indicate that the script does look for notices.. But it doesn't seem to see the spambots reply..

begin code block

proc notc:nv_notice {nick uhost hand text {dest ""}} {
global botnick nv_versions nv_globflags nv_chanflags
if {$dest == ""} { set dest $botnick }
if {([string tolower $nick] != [string tolower $botnick]) && ([string match "*version*" [lindex [string tolower $text] 0]])} {
foreach version $nv_versions {
if {[string match "*[string tolower $version]*" [lrange [string tolower $text] 1 end]]} {
nv_punish $nick $uhost
}
}
}
}

end code block

[Sir_Fz]

Code: Select all

([string match "*version*" [lindex [string tolower $text] 0]])} {

should be

Code: Select all

([string match -nocase "version" [lindex [split [string tolower $text]] 0]])} {