no version tcl

[SpiKe^^]

MrBeta: Try this....


Old Code:

Code: Select all

   newban "*!*[string range $u [string first "@" $u] end]" $::nick $::r 

New Code:

Code: Select all

   newban "*!*[string range $u [string first "@" $u] end]" $::nick $::r 5 

[MrBeta]

Thank you SpiKe^^, works perfectly.

[simo]

for some reason this tcl returns this error when i use it :

Tcl error [foo]: can't set "::ver(NICK)": variable isn't array

[SpiKe^^]

simo: That is a global variable name collision between this script, and another one already loaded.

Try changing the variable name everywhere it's used in this script...
Search and replace all ::ver( with ::verNick(

Example:

Code: Select all

proc foo {n u h c} { 
   if {[matchattr $h ovf|ovf]} return 
   set ::verNick($n) [list [unixtime] $u] 
   puthelp "privmsg $n :\001VERSION\001" 
} 

Continue replacing the variable name everywhere else in the script.

[caesar]

This is one of the reasons why i love namespaces.

[willyw]

This is one of the reasons why i love namespaces.

Too bad we don't have a "Like" button to click on posts. This post deserves it.

[simo]

so far this is what i got and the error is gone but nothing really happens

Code: Select all

 set r "No client version reply!"
bind join - * foo
bind ctcr - VERSION bar
bind time - * moo

proc foo {n u h c} {
   if {[matchattr $h ovf|ovf]} return
   set ::verNick($n) [list [unixtime] $u]
   puthelp "privmsg $n :\001VERSION\001"
} 

proc bar {n u h d k t} {
   if {[isbotnick $d] && [info exists ::ver($n)]} {
      unset ::verNick($n)
   }
}
proc moo {m h d mo y} {
   if {[info exists ::ver]} {
   foreach {n e} [array get ::ver] {
      set t [lindex $e 0]
      set u [lindex $e 1]
      if {[unixtime] - $t > 30} {
         unset ::verNick($n)
         newban "*!*[string range $u [string first "@" $u] end]" $::nick $::r 1
         foreach c [channels] {
            if {[botisop $c] && [onchan $n $c]} {
               putkick $c $n $::r
            }
         }
      }
   }} 
}

[simo]

now having error:

bad type, should be one of: act, away, bcst, bot, chat, chjn, chof, chon, chpt, cron, dcc, disc, evnt, filt, link, load, log, nkch, note, time, unld
while executing
"bind join - * foo"

using this script:

Code: Select all

set r "no version reply"
bind join - * foo
bind ctcr - VERSION bar
bind time - * moo

proc foo {n u h c} {
   if {[matchattr $h of|of]} return
   set ::verNick($n) [list [unixtime] $u]
   puthelp "privmsg $n :\001VERSION\001"
}
 

proc bar {n u h d k t} {
   if {[isbotnick $d] && [info exists ::verNick($n)]} {
      unset ::verNick($n)
   }
}
proc moo {m h d mo y} {
   if {[info exists ::ver]} {
   foreach {n e} [array get ::ver] {
      set t [lindex $e 0]
      set u [lindex $e 1]
      if {[unixtime] - $t > 30} {
         unset ::verNick($n)
         newban "*!*[string range $u [string first "@" $u] end]" $::nick $::r 1
         foreach c [channels] {
            if {[botisop $c] && [onchan $n $c]} {
               putkick $c $n $::r
            }
         }
      }
   }} 
}

[caesar]

Check out your eggdrop.conf file and make sure you haven't unloaded the channels module.

You should have loadmodule channels in there and if you have a # in front of the line then the module isn't loaded.

[simo]

the channel module was and is loaded

[caesar]

Based on that error you don't.

Unload this script (if it's causing problems) and get on Telnet/DCC Chat with the bot and do .module and report back what you get.

[simo]

Module: channels, v 1.1

[caesar]

The bind join line is correct so this means that you are either missing a module or have something that is messing something up.

Either way unload all scripts and load just this one and see if that works on it's own. If it dose, then load one by one the previously unloaded scripts until you find the culprit.

[simo]

tried that nothing happens no error tho