egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2016-08-29T18:58:46-04:00 https://forum.eggheads.org/app.php/feed/topic/20206 2016-08-29T18:58:46-04:00 2016-08-29T18:58:46-04:00 https://forum.eggheads.org/viewtopic.php?p=105366#p105366 <![CDATA[Auto message next line]]>

Code: 

 # Set your channel  set send_chans "#sukoon"  # Set Timer one line after X mins  set send_time "2"  # Set Your Messages. You can insert more messages caz is every X min an random message from the list..  set send_msg {  "Hello"  "How are u"  "what do u do"  "your are only mine"  }  #########################################  #!!!!!!DO NOT EDIT AFTER THIS LINE!!!!!!#  #########################################  if {![string match "*time_send*" [timers]]} {   timer $send_time time_send  }  # set a global variable to track the next line to say # if {![info exists send_next]} {  set send_next 0  } proc time_send {} {   global send_msg send_chans send_time send_next  # save the msg line to say now #  set nextline [lindex $send_msg $send_next]  # and advance the global var to the next msg line number #  incr send_next  if {$send_next >= [llength $send_msg]} {  set send_next 0  }  if {$send_chans == "*"} {    set send_temp [channels]   } else {    set send_temp $send_chans   }   foreach chan $send_temp {    puthelp "PRIVMSG $chan :$nextline"   }   # move the timer set and return to outside of the foreach loop #  timer $send_time time_send   return 1  }

Statistics: Posted by SpiKe^^ — Mon Aug 29, 2016 6:58 pm

]]> 2016-08-29T10:44:42-04:00 2016-08-29T10:44:42-04:00 https://forum.eggheads.org/viewtopic.php?p=105365#p105365 <![CDATA[auto msg .]]>

Code: 

# Set your channelset send_chans "#sukoon" # Set Timer one line after X minsset send_time "2"# Set Your Messages. You can insert more messages caz is every X min an random message from the list..set send_msg {"Hello""How are u""what do u do""your are only mine"} ##########################################!!!!!!DO NOT EDIT AFTER THIS LINE!!!!!!##########################################if {![string match "*time_send*" [timers]]} { timer $send_time time_send}proc time_send {} { global send_msg send_chans send_time if {$send_chans == "*"} {  set send_temp [channels] } else {  set send_temp $send_chans } foreach chan $send_temp {  set send_rmsg [lindex $send_msg [rand [llength $send_msg]]] puthelp "PRIVMSG $chan :$send_rmsg" timer $send_time time_sendreturn 1 } }
this is ok tcl working fine .. just need litel change on it it's playing msg randomly .. and like to be play by order ..

1st Hello
2nd How Are you
3rd what do u do
4th you are only mine

if any helper can help me for it . i will be so kind for him .

Thank u

Statistics: Posted by F|irT — Mon Aug 29, 2016 10:44 am

]]>