egghelp/eggheads community

Topic TCL

2020-06-28T08:48:44-04:00

You would need to call your new getRandomTopic process when needed...

Try replace [get_TopicRandomItem] with [getRandomTopic]

Statistics: Posted by SpiKe^^ — Sun Jun 28, 2020 8:48 am

Topic TCL

2020-06-28T03:52:08-04:00

I'm not sure what is wrong in here but it's not working

my aim is TCL read the topic content from a separate text file located on script/

Code:

bind time - "00 * * * *" Displaytimenowbind time - "05 * * * *" Displaytimenowset TopicFile "scripts/TopicFile.txt"proc getRandomTopic {} {  global TopicFile  if {![file exists $TopicFile]} { return "$TopicFile does not exist" }  set openfile [open $TopicFile]  set topics [split [read -nonewline $openfile] \n]  close $openfile  set output [lindex $topics [rand [llength $topics]]]  return $output}proc Displaytimenow {n h handle ch te} { global botnick showtimechans foreach channel [channels] { set topichan [get_TopicRandomItem] regsub {\$chan} $topichan $channel topichan putquick "TOPIC $channel :$topichan" }}

Statistics: Posted by KhashayaR — Sun Jun 28, 2020 3:52 am

Topic TCL

2020-06-08T08:37:42-04:00

Thanks SpiKe^^

Statistics: Posted by KhashayaR — Mon Jun 08, 2020 8:37 am

proc getRandomTopic

2020-06-05T14:17:00-04:00

This process should return a random line from a file.

Code:

set TopicFile "scripts/TopicFile.txt"proc getRandomTopic {} {  global TopicFile  if {![file exists $TopicFile]} { return "$TopicFile does not exist" }  set openfile [open $TopicFile]  set topics [split [read -nonewline $openfile] \n]  close $openfile  set output [lindex $topics [rand [llength $topics]]]  return $output}

Statistics: Posted by SpiKe^^ — Fri Jun 05, 2020 2:17 pm

Topic TCL

2020-06-05T03:13:44-04:00

hello I wonder if someone can help me with this TCL here is what I would like to happen

-currently, the TCL read the topic content from inside the TCL as you can see, is there any way TCL read the topic content from a separate text file?

please see below

Code:

######################################################################## Set the Topic format here. See below for a list of format settings. ## ------------------------------------------------------------------- ## $chan - Name of channel                                             ######################################################################## set TopicToUse {{ Random quotes can be most effecatious }}######################################################################################################################################################################################### STOP EDITING ##########################################################################################################################################################################################bind time - "00 * * * *" Displaytimenowbind time - "360 * * * *" Displaytimenow## Proc to Randomly Select an Info Item!proc get_TopicRandomItem { } { global TopicToUse set output [lindex $TopicToUse [rand [llength $TopicToUse]]] return $output}proc Displaytimenow {n h handle ch te} {  global botnick showtimechans foreach channel [channels] { set topichan [get_TopicRandomItem] regsub {\$chan} $topichan $channel topichan putquick "TOPIC $channel :$topichan" }}## -----------------------------------------------------------------------putlog "Random Topic loaded Successfuly..."

Statistics: Posted by KhashayaR — Fri Jun 05, 2020 3:13 am