Topic changer that reads from a .txt file list of topics

john83 · Post by **john83** » Sun Sep 18, 2005 12:56 am

Hi,

Anyone can help me, i need a topic changer script that reads from a .txt file list of topics and changes topics and different channels at diff times.

help appreciated!

demond · Post by **demond** » Sun Sep 18, 2005 1:04 am

be more specific, describe the exact sequence of events you need implemented

john83 · Post by **john83** » Sun Sep 18, 2005 1:46 am

Sorry. Here it goes.

I need a script that my bot will load.
The script will set a topic on each channel at different
timing, 3 pm 6 pm 9 pm. It obtains the topic msg
from a file topic.txt in the same directory of the .tcl file.

topic.txt contains:
# channel:time:topic

#chan1:3pm:Today's topis is how to bake cheesecake!
#chan1:6pm:Time to watch wrestling!
#chan1:9pm:Ready to kick soccer?
#chan2:3pm:topic goes.
#chan2:6pm:so on..
#chan2:9pm:yup

demond · Post by **demond** » Sun Sep 18, 2005 2:35 am

Code: Select all

bind time - "00 *" foo
if {![catch {set f [open topic.txt]}]} {
   set t [split [read $f] \n:]; close $f 
} {set t {}}
proc foo {m h args} {
   foreach {c n s} $::t {
      if {[string trimleft $h 0]==[string trim $n apm]} {
         if {[botisop $c]} {putserv "topic $c :$s"}
      }
   }
}

john83 · Post by **john83** » Sun Sep 18, 2005 3:03 am

thanks does that work for am too?

demond · Post by **demond** » Sun Sep 18, 2005 4:09 am

john83 · Post by **john83** » Sun Sep 18, 2005 4:14 am

last question which ver of eggdrop tcl does this need?

can it work on eggdrop1.1.5/tcl80?

demond · Post by **demond** » Sun Sep 18, 2005 5:23 am

man, you should change your name to Rip van Winkle

where on Earth have you been the last 10 years???

eggdrop1.1.5 and Tcl8.0 were phased out at least 6-7 years ago

john83 · Post by **john83** » Sun Sep 18, 2005 5:29 am

lol
which ver should i use?

demond · Post by **demond** » Sun Sep 18, 2005 5:52 am

the latest, obviously

Post by **caesar** » Sun Sep 18, 2005 8:52 am

Probably he lived under a rock.

De Kus · Post by **De Kus** » Sun Sep 18, 2005 10:36 am

as far as I can see, the script will ignore am/pm. I would suggest to get rid of am/pm and use 2 digit 24 hour timecode. that way you can simply use '$h == $n'. else i would suggest to add 12 to $n it was pm, leave it 12 if it was 12pm and make $n 0 if it was 12am.

demond · Post by **demond** » Sun Sep 18, 2005 1:37 pm

good suggestion; it should be noted though that if $h==$n is used as condition, time values in the file must be left-padded with zero: 00-09,10-23

demond · Post by **demond** » Sun Sep 18, 2005 1:57 pm

this will work for am/pm:

Code: Select all

bind time - "00 *" foo
if {![catch {set f [open topic.txt]}]} {
   set t [split [read $f] \n:]; close $f
} {set t {}}
proc foo {m h args} {
   foreach {c n s} $::t {
      if {[clock scan $h]==[clock scan $n]} {
         if {[botisop $c]} {putserv "topic $c :$s"}
      }
   }
}