egghelp/eggheads community

if {[catch {source rpday.tcl} err]} { set ::rpday 1 } set ::rpchan "#Bot_Test" bind time - "00 00 * * *" tchange proc tchange {min hour day month year} { global rpchan switch -exact -- $::rpday { 1 {putquick "TOPIC $::rpchan :It is Day One!"} 2 {putquick "TOPIC $:...

That piece may be a little beyond my means, then.

I really do appreciate all of the help you've given me with all of my requests! If there was a way to bump your ID to "guru" status, I would cast my vote!

Thank you again, for all of your help and patience. I've learned a lot about TCL.

Ah, I see.

I dropped the "then" from the statement. The part that concerns me is the string match:
Is the variable formatted properly to generate a positive match? "*$::item*" seems so convoluted.

Ok. Here is what I have for both of my binds and procs. They're also both present in the same script. I'm not sure if that is going to cause a problem, in itself. I apologize for the lack of formatting. My editor doesn't appreciate TCL. foreach item $triggerwords { bind pubm - "% *${item}*"...

Awesome.

Solved.

Thanks again!

Instead of using "*ocean*" since I stored the trigger words in $item, can I use that variable in the statement? Like below: bind pubm - $item pubm::randaction Or will that rip a whole in the universe? I can see that getting this script to do what I want is going to be a lot more effort tha...

The script is working the way it should, but I have one more issue. The proc only responds when the trigger word is the first word in the post. So, it won't kick off if the word is in an "action" post or if the word is within a statement. i.e. If the trigger word is "ocean" and a...

Looks like that is going to do it. I just need to format my topic a little better. I can't figure out how to keep the script from thinking that the brackets in the topic are code.

Thanks for your help, NML!

Ok. So, here's what I've got. It is untested, so far. Let me know if I need to change anything, please: set channel "#Bot_Test" # Open the TCL with the variable? set fd [open "restore" "WRONLY CREAT TRUNC"] puts $fd $rpday close $fd # Execute every day at midnight? bind...

Thank you both for the quick responses. I was able to rig something together, using the documentation. nml375, It looks like what you're suggesting could significantly lower the amount of code in my primary script. My question is this, though. If I need to increment the value of the variable and sto...

I am pretty sure I know how to write a variable to a line in a file. My goal here is to use an outside file to "record" the state of a variable, so that if the bot resets it doesn't forget what the variable was set to the last time it accessed the script. Let me explain. I need to incremen...

Got it figured.

I was under the impression that I would need to convert the time to something readable, in order to use the following commands properly.

So I should remove this: But leave in: And add the 'args' variable?

I have the following code in place: bind time - "00 * * * *" clock proc time:clock {min hour day month year} { set tell_time [lindex $args 0] set tower_time [ctime $tell_time] if {$tower_time == 12:00} { putquick "PRIVMSG $channel :\00306The clocktower tolls the Noon Bell." } els...

Awesome.

I will put this together and give it a try when I get back home.

Thanks for the help!