egghelp/eggheads community

msg

2006-01-27T21:29:36-04:00

[ Opposing ] .tcl bind time - * bullshit2; proc bullshit2 {m args} { if {[regexp {00|20|40} $m]} { putlog "20 minutes passed!" } }
...
...
...
[ (Bot ] [01:00] 20 minutes passed!
...
...
...
[ (Bot ] [01:20] 20 minutes passed!
...
...
...
[ (Bot ] [01:40] 20 minutes passed!
...
...
...
[ (Bot ] [02:00] 20 minutes passed!
...etc

So the problem is not with the code, it's with you.

Statistics: Posted by Sir_Fz — Fri Jan 27, 2006 9:29 pm

msg

2006-01-27T19:15:15-04:00

what can I make?

Statistics: Posted by pilouuu — Fri Jan 27, 2006 7:15 pm

msg

2006-01-27T12:51:31-04:00

sorry procedure not perfectly. The bot say only 1 more the msg.

:/

Statistics: Posted by pilouuu — Fri Jan 27, 2006 12:51 pm

msg

2006-01-26T09:59:07-04:00

Code:

set idx -1set chans {#chan #chan2}set msgs {"msg chan 1" msg chan 2"} bind time - * fouuproc fouu {m args} {   if {[regexp {00|20|40} $m]} {      foreach c $::chans {         puthelp "privmsg $c :[lindex $::msgs [incr ::idx]]"      }   }}

works perfectly.

Statistics: Posted by Sir_Fz — Thu Jan 26, 2006 9:59 am

msg

2006-01-26T09:49:19-04:00

it east can be possible with a timer?
expl:

Code:

bind time - "20 * * * *" drtimeproc drtime { min hour day month year } {

thx

Statistics: Posted by pilouuu — Thu Jan 26, 2006 9:49 am

msg

2006-01-25T21:40:06-04:00

the procedure is not good the bot say only 1. no repat msg

Statistics: Posted by pilouuu — Wed Jan 25, 2006 9:40 pm

msg

2006-01-25T20:10:35-04:00

Code:

if {[regexp {00|20|40} $m]} {

Statistics: Posted by Sir_Fz — Wed Jan 25, 2006 8:10 pm

msg

2006-01-25T20:04:16-04:00

Code:

if {[regexp {4:20|4:40|5:00} $m]} {

etc etc?

Statistics: Posted by pilouuu — Wed Jan 25, 2006 8:04 pm

msg

2006-01-25T19:24:26-04:00

The solution I gave you works just fine. It will msg every 20 minutes (for example at 4:00 4:20 4:40 5:00 5:20...etc)

Statistics: Posted by Sir_Fz — Wed Jan 25, 2006 7:24 pm

msg

2006-01-25T19:02:49-04:00

No solution?

Statistics: Posted by pilouuu — Wed Jan 25, 2006 7:02 pm

msg

2006-01-25T06:10:17-04:00

hi

not error detected but that does not go.
the bot one said the sentence right once but it repeat not

thank you very much of your assistance

Statistics: Posted by pilouuu — Wed Jan 25, 2006 6:10 am

msg

2006-01-24T23:49:30-04:00

I've seen this error before but didn't figure out why exactly it occurs (maybe a bug in Tcl)

no, it's not a bug

a number starting with 0 is considered octal (base eight) in Tcl, as in many other languages (most important being of course C/C++); so you don't have 8 in the octal system, eight becomes 10

so 08 or 09, passed as argument to [bind time] handler isn't valid number and can't be part of numerical expression, hence that error

Statistics: Posted by demond — Tue Jan 24, 2006 11:49 pm

msg

2006-01-24T20:43:40-04:00

Not always, but every hour (when $m is 00). Use this:

Code:

if {[regexp {00|20|40} $m]} {

Statistics: Posted by Sir_Fz — Tue Jan 24, 2006 8:43 pm

msg

2006-01-24T20:04:26-04:00

[01:00] Tcl error [fouu]: can't use empty string as operand of "%"

always

Statistics: Posted by pilouuu — Tue Jan 24, 2006 8:04 pm

msg

2006-01-24T18:57:59-04:00

I've seen this error before but didn't figure out why exactly it occurs (maybe a bug in Tcl), I think it occurs (sometimes) only when m is "0?" so try:

Code:

if {[string trimleft $m 0]%20 == 0} {

Statistics: Posted by Sir_Fz — Tue Jan 24, 2006 6:57 pm