egghelp/eggheads community

Message + timer

2012-09-02T20:39:19-04:00

Probably problems with finding the ads file.
Let's try it with some error lines added...

Code:

# set the route and file name of the channel ads file ## make the ads file as a plain text document, 1 ad per file line #set prnl(ad-file) "scripts/ad-file.txt"# The channels to msg: #chan1 #chan2 #etc  (* = all channels) #set prnl(chans) {*}# The minimum number of minutes between channel ads  (1 or more minutes) #set prnl(min-lo) 5# The maximum number of minutes between channel ads  (same or above min-lo) #set prnl(min-hi) 10# Read the lines in order or random  (1=inorder || 2=random) #set prnl(order) 2###### END OF SETTINGS ######set prnl(msgs) ""if {![file exists $prnl(ad-file)]} {  putlog "PRNL Error: Unable to find file: $prnl(ad-file)"  putlog "Public Read Next Line v1.4 NOT loaded!"  return}set prnl(tm-open) [open $prnl(ad-file)]while {![eof $prnl(tm-open)]} { set prnl(tm-line) [string trim [gets $prnl(tm-open)]] if {$prnl(tm-line) ne ""} {   lappend prnl(msgs) $prnl(tm-line) }}close $prnl(tm-open)unset prnl(tm-open) prnl(tm-line) prnl(ad-file)if {$prnl(msgs) eq ""} {  putlog "PRNL Error: No text in ad file: $prnl(ad-file)"  putlog "Public Read Next Line v1.4 NOT loaded!"  return}if {$prnl(chans) eq "*" || $prnl(chans) eq ""} {  set prnl(chans) [channels]  }if {![info exists prnl(next)]} {  set prnl(next) 0  }if {![info exists prnl(timer)]} { set prnl(timer) [timer 2 [list prnl:rnext]] }if {$prnl(min-hi)<$prnl(min-lo)} {  set prnl(min-hi) $prnl(min-lo)  }proc prnl:rnext {} {  global prnl if {$prnl(msgs) eq ""} {  return  } if {$prnl(order)=="2"} {  set prnl(next) [rand [llength $prnl(msgs)]]  } foreach ch $prnl(chans) {  puthelp "PRIVMSG $ch :[lindex $prnl(msgs) $prnl(next)]" } incr prnl(next) if {$prnl(next)>=[llength $prnl(msgs)]} {  set prnl(next) 0  } set randmin $prnl(min-lo) if {$prnl(min-hi)>$prnl(min-lo)} {   incr randmin [rand [expr {$prnl(min-hi)-$prnl(min-lo)+1}]] } set prnl(timer) [timer $randmin [list prnl:rnext]]}putlog "Public Read Next Line v1.4 loaded."

Statistics: Posted by SpiKe^^ — Sun Sep 02, 2012 8:39 pm

Message + timer

2012-09-02T20:28:44-04:00

has been tested and does not work at all

Statistics: Posted by Arkadietz — Sun Sep 02, 2012 8:28 pm

Message + timer

2012-09-02T02:34:35-04:00

1. timer to use static/dynamric

To have the ads always on the same time interval, set min-lo & min-hi both to the same number of minutes.

no working properly if in the quotes has [,],(,),%,&,!, .

The issue there is with a few tcl special characters.
We can get around that by storing all our ad lines to a plain text file, and not in the script tcl file.
Make a ad-file.txt, and put it in the scripts dir with this new script...

Code:

# set the route and file name of the channel ads file ## make the ads file as a plain text document, 1 ad per file line #set prnl(ad-file) "scripts/ad-file.txt"# The channels to msg: #chan1 #chan2 #etc  (* = all channels) #set prnl(chans) {*}# The minimum number of minutes between channel ads  (1 or more minutes) #set prnl(min-lo) 5# The maximum number of minutes between channel ads  (same or above min-lo) #set prnl(min-hi) 10# Read the lines in order or random  (1=inorder || 2=random) #set prnl(order) 2###### END OF SETTINGS ######set prnl(msgs) ""if {![file exists $prnl(ad-file)]} {  return  }set prnl(tm-open) [open $prnl(ad-file)]while {![eof $prnl(tm-open)]} { set prnl(tm-line) [string trim [gets $prnl(tm-open)]] if {$prnl(tm-line) ne ""} {   lappend prnl(msgs) $prnl(tm-line) }}close $prnl(tm-open)unset prnl(tm-open) prnl(tm-line) prnl(ad-file)if {$prnl(msgs) eq ""} {  return  }if {$prnl(chans) eq "*" || $prnl(chans) eq ""} {  set prnl(chans) [channels]  }if {![info exists prnl(next)]} {  set prnl(next) 0  }if {![info exists prnl(timer)]} { set prnl(timer) [timer 2 [list prnl:rnext]] }if {$prnl(min-hi)<$prnl(min-lo)} {  set prnl(min-hi) $prnl(min-lo)  }proc prnl:rnext {} {  global prnl if {$prnl(msgs) eq ""} {  return  } if {$prnl(order)=="2"} {  set prnl(next) [rand [llength $prnl(msgs)]]  } foreach ch $prnl(chans) {  puthelp "PRIVMSG $ch :[lindex $prnl(msgs) $prnl(next)]" } incr prnl(next) if {$prnl(next)>=[llength $prnl(msgs)]} {  set prnl(next) 0  } set randmin $prnl(min-lo) if {$prnl(min-hi)>$prnl(min-lo)} {   incr randmin [rand [expr {$prnl(min-hi)-$prnl(min-lo)+1}]] } set prnl(timer) [timer $randmin [list prnl:rnext]]}putlog "Public Read Next Line v1.3 loaded."

Statistics: Posted by SpiKe^^ — Sun Sep 02, 2012 2:34 am

Message + timer

2012-09-02T01:01:50-04:00

okay, but can you keep both timers i mean to looks something like that:

1. timer to use static/dynamric
a. static - in the first post ( where always post a reply on same time )
b. dynamic - last post ( where use the values min and max )
2. possible bugs ( tested ):
no working properly if in the quotes has [,],(,),%,&,!, .
example:
Dr. Kucho! feat. Aris - Doing Better Without You (Original Mix).mp3

Statistics: Posted by Arkadietz — Sun Sep 02, 2012 1:01 am

Public Read Next Line v1.2

2012-09-01T22:39:50-04:00

This should do it.

Code:

# The list of channel ads to run (set to {} to disable this script) #set prnl(msgs) {1st example ad.2nd example ad.Next ad.Last ad.}# The channels to msg: #chan1 #chan2 #etc  (* = all channels) #set prnl(chans) {*}# The number of minutes between channel ads  (1 or more minutes) #set prnl(min-lo) 5# The number of minutes between channel ads  (same or above min-lo) #set prnl(min-hi) 10# Read the lines in order or random  (1=inorder || 2=random) #set prnl(order) 2###### END OF SETTINGS ######set prnl(tmls) [split [string trim $prnl(msgs)] "\n"]set prnl(msgs) ""foreach prnl(tmit) $prnl(tmls) {  set prnl(tmit) [string trim $prnl(tmit)]  if {$prnl(tmit) ne ""} {  lappend prnl(msgs) $prnl(tmit)  }}unset prnl(tmls) prnl(tmit)if {$prnl(msgs) eq ""} {  return  }if {$prnl(chans) eq "*" || $prnl(chans) eq ""} {  set prnl(chans) [channels]  }if {![info exists prnl(next)]} {  set prnl(next) 0  }if {![info exists prnl(timer)]} { set prnl(timer) [timer 2 [list prnl:rnext]] }if {$prnl(min-hi)<$prnl(min-lo)} {  set prnl(min-hi) $prnl(min-lo)  }proc prnl:rnext {} {  global prnl if {$prnl(msgs) eq ""} {  return  } if {$prnl(order)=="2"} {  set prnl(next) [rand [llength $prnl(msgs)]]  } foreach ch $prnl(chans) {  puthelp "PRIVMSG $ch :[lindex $prnl(msgs) $prnl(next)]" } incr prnl(next) if {$prnl(next)>=[llength $prnl(msgs)]} {  set prnl(next) 0  } set randmin $prnl(min-lo) if {$prnl(min-hi)>$prnl(min-lo)} {   incr randmin [rand [expr {$prnl(min-hi)-$prnl(min-lo)+1}]] } set prnl(timer) [timer $randmin [list prnl:rnext]]}putlog "Public Read Next Line v1.2 loaded."

Statistics: Posted by SpiKe^^ — Sat Sep 01, 2012 10:39 pm

Message + timer

2012-09-01T21:35:50-04:00

could you add a second timer:

1. minimum time before post the quote
2. maximum time before post the quote

result:
get some random time between min and max time

Statistics: Posted by Arkadietz — Sat Sep 01, 2012 9:35 pm

Message + timer

2012-09-01T20:11:28-04:00

Now you have a choice of reading 'in order' or eggdrops somewhat less than 'random'

Code:

# The list of channel ads to run (set to {} to disable this script) #set prnl(msgs) {1st example ad.2nd example ad.Next ad.Last ad.}# The channels to msg: #chan1 #chan2 #etc  (* = all channels) #set prnl(chans) {*}# The number of minutes between channel ads  (1 or more minutes) #set prnl(minutes) 5# Read the lines in order or random  (1=inorder || 2=random) #set prnl(order) 2###### END OF SETTINGS ######set prnl(tmls) [split [string trim $prnl(msgs)] "\n"]set prnl(msgs) ""foreach prnl(tmit) $prnl(tmls) {  set prnl(tmit) [string trim $prnl(tmit)]  if {$prnl(tmit) ne ""} {  lappend prnl(msgs) $prnl(tmit)  }}unset prnl(tmls) prnl(tmit)if {$prnl(msgs) eq ""} {  return  }if {$prnl(chans) eq "*" || $prnl(chans) eq ""} {  set prnl(chans) [channels]  }if {![info exists prnl(next)]} {  set prnl(next) 0  }if {![info exists prnl(timer)]} { set prnl(timer) [timer 2 [list prnl:rnext]] }proc prnl:rnext {} {  global prnl if {$prnl(msgs) eq ""} {  return  } if {$prnl(order)=="2"} {  set prnl(next) [rand [llength $prnl(msgs)]]  } foreach ch $prnl(chans) {  puthelp "PRIVMSG $ch :[lindex $prnl(msgs) $prnl(next)]" } incr prnl(next) if {$prnl(next)>=[llength $prnl(msgs)]} {  set prnl(next) 0  } set prnl(timer) [timer $prnl(minutes) [list prnl:rnext]]}putlog "Public Read Next Line v1.1 loaded."

Statistics: Posted by SpiKe^^ — Sat Sep 01, 2012 8:11 pm

Message + timer

2012-09-01T19:51:04-04:00

could you add an option to post random quotes ( where can not repeat last 5 quotes at least )

Statistics: Posted by Arkadietz — Sat Sep 01, 2012 7:51 pm

Message + timer

2012-09-01T19:47:15-04:00

Try this:

Code:

# The list of channel ads to run (set to {} to disable this script) #set prnl(msgs) {1st example ad.2nd example ad.Next ad.Last ad.}# The channels to msg: #chan1 #chan2 #etc  (* = all channels) #set prnl(chans) {*}# The number of minutes between channel ads  (1 or more minutes) #set prnl(minutes) 5###### END OF SETTINGS ######set prnl(tmls) [split [string trim $prnl(msgs)] "\n"]set prnl(msgs) ""foreach prnl(tmit) $prnl(tmls) {  set prnl(tmit) [string trim $prnl(tmit)]  if {$prnl(tmit) ne ""} {  lappend prnl(msgs) $prnl(tmit)  }}unset prnl(tmls) prnl(tmit)if {$prnl(msgs) eq ""} {  return  }if {$prnl(chans) eq "*" || $prnl(chans) eq ""} {  set prnl(chans) [channels]  }if {![info exists prnl(next)]} {  set prnl(next) 0  }if {![info exists prnl(timer)]} { set prnl(timer) [timer 2 [list prnl:rnext]] }proc prnl:rnext {} {  global prnl if {$prnl(msgs) eq ""} {  return  } foreach ch $prnl(chans) {  puthelp "PRIVMSG $ch :[lindex $prnl(msgs) $prnl(next)]" } incr prnl(next) if {$prnl(next)>=[llength $prnl(msgs)]} {  set prnl(next) 0  } set prnl(timer) [timer $prnl(minutes) [list prnl:rnext]]}putlog "Public Read Next Line v1.1 loaded."

Statistics: Posted by SpiKe^^ — Sat Sep 01, 2012 7:47 pm

Message + timer

2012-09-01T17:40:50-04:00

i got some example script for this but is old.. and not work properly

http://paste.tclhelp.net/?id=bm3

Statistics: Posted by Arkadietz — Sat Sep 01, 2012 5:40 pm

Message + timer

2012-09-01T17:36:53-04:00

Would that timer read one line from the file??

Maybe keep track of the last line read, and read the next line in the file?

Statistics: Posted by SpiKe^^ — Sat Sep 01, 2012 5:36 pm

Message + timer

2012-09-01T17:04:52-04:00

Okay it's simple.

1. To has a list where i can put my messages
2. To has a settable timer ( where show the messages in the channel/s )

Statistics: Posted by Arkadietz — Sat Sep 01, 2012 5:04 pm