egghelp/eggheads community

Re: automsg chan

2014-12-14T14:36:45-04:00

thanks SpiKe^^ for the help friend works of marvel

Statistics: Posted by Arnold_X-P — Sun Dec 14, 2014 2:36 pm

Please try this

2014-12-14T14:10:01-04:00

Please try this, it does not include the [timers] command.

Code:

############## Random Auto Talk tcl ver.0.1 ################ Set the next line as the channels you want to run in:  #### For all channels, just type "*"                        #### For only specific channels, type "#channel1 #channel2" ##set speaks_chans "#beni #beni2 #pando #lapaz #cremacamba"# Set the number of minutes between sending random lines: ##set speaks_time "8"## Set the text lines to send as Random Auto Talks: ####  ->   %c will be replaced by the channel name    ##set speaks_msg {Hi chat hi to all :) hi %cThat so beautiful day, and that day is today.welcome to channel :DRemember that the mutual respect is always indispensable in the channel}############## !! End Of Settings !! ##############set speaks_msg [split [string trim $speaks_msg] "\n"]if {![info exists speaks_running]} {  set speaks_running 1  timer $speaks_time [list time:speaks]}proc time:speaks {} {  global speaks_chans speaks_msg  if {$speaks_chans eq "*"} {    set chanlist [channels]  } else {    set chanlist [split [string trim $speaks_chans]]  }  foreach {chan} $chanlist {    set randmsg [lindex $speaks_msg [rand [llength $speaks_msg]]]    puthelp "PRIVMSG $chan :[string map [list %c $chan] $randmsg]"   }  timer $::speaks_time [list time:speaks]}putlog "Random Auto Talk tcl ver.0.1 loaded"

Statistics: Posted by SpiKe^^ — Sun Dec 14, 2014 2:10 pm

automsg chan

2014-12-10T23:07:15-04:00

I see you fixed the above script some, adding the missing settings.
Since you say the script works for some hours before giving those strange timer errors,
I am fairly sure you are being trashed by the dreaded Eggdrop 1.6.21 timers/utimers bug.

The error starts when this line if code in proc time_speaks executes...

Code:

if {![string match "*time_speaks*" [timers]]} {

... and the badly flawed Eggdrop refuses to give an accurate list of running timers!

Try running your script on the 1.6.20 Eggdrop, which is the last good version in the 1.6 line, and does not come packaged with the bug.

Statistics: Posted by SpiKe^^ — Wed Dec 10, 2014 11:07 pm

automsg chan

2014-12-01T21:47:58-04:00

First off, you have no settings for channel or time.
Not sure why it's working at all:)

Statistics: Posted by SpiKe^^ — Mon Dec 01, 2014 9:47 pm

automsg chan

2014-12-10T14:54:47-04:00

good to all
this tcl sends msg to several channels in form random, the detail of error of the tcl is that spent the two hour provokes a mistake of time of mailing
example in partyline:

<(Kantuta> [10:31:01] Tcl error in script for 'timer6196':
<(Kantuta> [10:31:01] invalid command name ""

and once this mistake goes out the tcl stops working and does not throw any more msg phrases.
please someone who could help me.

Code:

####### tcl ################# SPEAK ###  set spoken.v "Auto talk"## -=[ SPEAK ]=-  Set the next line as the channels you want to run in ### for all channel just type "*" if only for 1 channel or 2 chnnel just ### type "#channel1 #channel2"#set speaks_chans "#beni #beni2 #pando #lapaz #cremacamba"# Set you want in XXX minute you bot always talk on minute #set speaks_time "8"# Set the next lines as the random speaks msgs you want to say #set speaks_msg {"hi chat hi to all :) hi $chan""that so beautiful day, and that day is today.""welcome to channel :D""remember that the mutual respect is always indispensable in the channel"}if {![string match "*time_speaks*" [timers]]} {  timer $speaks_time time_speaks}proc time_speaks {} {  global speaks_msg speaks_chans speaks_time  if {$speaks_chans == "*"} {    set speaks_temp [channels]  } else {    set speaks_temp $speaks_chans  }  foreach chan $speaks_temp {    set speaks_rmsg [subst [lindex $speaks_msg [rand [llength $speaks_msg]]]]    foreach msgline [split $speaks_rmsg \n] {      putserv "PRIVMSG $chan :$msgline"     }  }  if {![string match "*time_speaks*" [timers]]} {    timer $speaks_time time_speaks  }}

Statistics: Posted by Arnold_X-P — Mon Dec 01, 2014 8:23 pm