help me,, to creat this tcl

[AbuAli]

Hello,
i need a tcl
when any user say
!addflog anything_1 anything_2
or another user say
!addflog anything_3 anything_4
the eggdrop will save this lines
"anything_1 anything_2" and "anything_3 anything_4"
and he will run a timer
to a especial channel, and especial time to replay
set time "10"
set channel "#channel1"
he will msg the #channel1 10in10min the msgs he save ..
the first 10min msg "anything_1 anything_2"
the next 10min msg "anything_3 anything_4"
etc..
msg all the msgs saved,,, with timer 10min

[awyeah]

Something you are trying todo is impractical. Binding on !addflog will trigger the same proc we cannot bind it to another proc with another timer. You will need another trigger, or maybe a for loop to increase the timer value but that I think will also not work.

Use this, however timers will increase accordingly:

Code: Select all

#Set variables here.
set flogtime "10" 
set flogchan "#channel1"

### SCRIPT ###
bind pub - add:flog

proc add:flog {nick uhost hand chan text} {
 global flogchan flogtime
 timer $flogtime [list putserv "PRIVMSG $flogchan :[lindex $text 0] [lindex $text 1]"]
}

[arcane]

Code: Select all

bind pub - add:flog

and it would be even better if you'd put some trigger in as well
use this instead, AbuAli:

Code: Select all

bind pub - !addflog add:flog