egghelp/eggheads community

need tcl script

2006-08-25T07:09:33-04:00

okey now it's work perfect

Statistics: Posted by swasteris — Fri Aug 25, 2006 7:09 am

need tcl script

2006-08-25T06:10:52-04:00

Yes... and as I stated, you'll have to do something useful with $m in the first place... I only set it to 1 for demonstation purposes...

This example assumes you wish to test wether the minute is even or not (as suggested by demond, and with his scan-fix)

Code:

bind time - * time:testproc time:test {minute hour day month year} { if {[expr [scan $minute "%d"] % 2]} {  puthelp "PRIVMSG #eGc :test1" } {  puthelp "PRIVMSG #eGc :test2" }}

Statistics: Posted by nml375 — Fri Aug 25, 2006 6:10 am

need tcl script

2006-08-25T03:55:56-04:00

something is ban working because in channel eggdrop bot write test1. so what wrong with that script?

Statistics: Posted by swasteris — Fri Aug 25, 2006 3:55 am

need tcl script

2006-08-24T22:39:44-04:00

there's a little catch here: this won't work and will bail out with Tcl error on minute values of 08 and 09 as these aren't valid octal numbers

you can use [scan] to extract proper numerical values from [bind time] proc arguments

Statistics: Posted by demond — Thu Aug 24, 2006 10:39 pm

need tcl script

2006-08-24T16:08:12-04:00

very tnx

Statistics: Posted by swasteris — Thu Aug 24, 2006 4:08 pm

need tcl script

2006-08-24T13:44:59-04:00

You hav'nt specified the value of $m...
Also, your proc does not take proper number of variables to be used with a time-binding

Finally, please put code inside code-blocks..

Code:

bind time - * time:testproc time:test {minute hour day month year} { #setting m to 1 for demonstration set m 1 if {[expr $m % 2]} {  puthelp "PRIVMSG #eGc :test1" } {  puthelp "PRIVMSG #eGc :test2" }}

Of course, you'll have to set m to something useful, unless you're using it as a global variable (then you'll have to "global m" it first however)

Statistics: Posted by nml375 — Thu Aug 24, 2006 1:44 pm

need tcl script

2006-08-24T13:01:32-04:00

bind time - * time:test; proc time:test {1} {if {[expr $m % 2]} {putserv "privmsg #eGc :test1"} {putserv "privmsg #eGc :test2"}}

how make that script work with eggdrop! that script me don't working whit eggdrop.. help plz (sry ban English )

Statistics: Posted by swasteris — Thu Aug 24, 2006 1:01 pm