egghelp/eggheads community

no version tcl

2016-03-16T11:52:29-04:00

tried that nothing happens no error tho

Statistics: Posted by simo — Wed Mar 16, 2016 11:52 am

no version tcl

2016-03-16T02:11:25-04:00

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.

Statistics: Posted by caesar — Wed Mar 16, 2016 2:11 am

no version tcl

2016-03-15T13:28:41-04:00

Module: channels, v 1.1

Statistics: Posted by simo — Tue Mar 15, 2016 1:28 pm

no version tcl

2016-03-15T13:14:53-04:00

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.

Statistics: Posted by caesar — Tue Mar 15, 2016 1:14 pm

no version tcl

2016-03-15T11:38:53-04:00

the channel module was and is loaded

Statistics: Posted by simo — Tue Mar 15, 2016 11:38 am

no version tcl

2016-03-15T03:07:43-04:00

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.

Statistics: Posted by caesar — Tue Mar 15, 2016 3:07 am

no version tcl

2016-03-14T18:21:41-04:00

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:

set r "no version reply"bind join - * foobind ctcr - VERSION barbind time - * mooproc 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            }         }      }   }} }

Statistics: Posted by simo — Mon Mar 14, 2016 6:21 pm

no version tcl

2016-03-14T18:00:49-04:00

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

Code:

 set r "No client version reply!"bind join - * foobind ctcr - VERSION barbind time - * mooproc 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            }         }      }   }} }

Statistics: Posted by simo — Mon Mar 14, 2016 6:00 pm

no version tcl

2016-03-13T09:52:35-04:00

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.

Statistics: Posted by willyw — Sun Mar 13, 2016 9:52 am

no version tcl

2016-03-13T04:11:59-04:00

This is one of the reasons why i love namespaces.

Statistics: Posted by caesar — Sun Mar 13, 2016 4:11 am

no version tcl

2016-03-12T13:02:00-04:00

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:

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.

Statistics: Posted by SpiKe^^ — Sat Mar 12, 2016 1:02 pm

no version tcl

2016-03-12T10:22:45-04:00

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

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

Statistics: Posted by simo — Sat Mar 12, 2016 10:22 am

no version tcl

2016-03-11T06:07:47-04:00

Thank you SpiKe^^, works perfectly.

Statistics: Posted by MrBeta — Fri Mar 11, 2016 6:07 am

Add time in minutes here...

2016-03-10T17:52:54-04:00

MrBeta: Try this....

Old Code:

Code:

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

New Code:

Code:

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

Statistics: Posted by SpiKe^^ — Thu Mar 10, 2016 5:52 pm

no version tcl

2016-03-10T14:21:34-04:00

Yes is a very old post but I have this useful tcl and wanted to know how to put a time of 5 minutes for ban
thank you

Code:

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 ::ver($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 ::ver($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 ::ver($n)          newban "*!*[string range $u [string first "@" $u] end]" $::nick $::r          foreach c [channels] {             if {[botisop $c] && [onchan $n $c]} {                putkick $c $n $::r             }          }       }    }} }

Statistics: Posted by MrBeta — Thu Mar 10, 2016 2:21 pm