egghelp/eggheads community

auto msg script

2005-09-17T01:52:12-04:00

Code:

set idx 0set msgs {"spam 1" "spam 2" "spam 3"}set chans(0) {#chan1 #chan2} ;# chans for msg1set chans(1) {#chan3 #chan4} ;# chans for msg2set chans(2) {#chan5 #chan6} ;# chans for msg3bind time - * fooproc foo {m args} {   if {$m!="08" && $m!="09" && $m%20==0} {      foreach c $::chans($::idx) {         puthelp "privmsg $c :[lindex $::msgs $::idx]"      }      if {[incr ::idx] == [llength $::msgs]} {set ::idx 0}   }}

Statistics: Posted by demond — Sat Sep 17, 2005 1:52 am

auto msg script

2005-09-17T01:24:01-04:00

tnx demond, its almost what i want.
im not too good at explaining.
with that code, it sends msg1 to chan1, msg2 to chan2, etc
i want, msg1 to all chosen chans, msg 2 to all chosen chans, etc
about 20 mins between each msg.

Statistics: Posted by minted — Sat Sep 17, 2005 1:24 am

auto msg script

2005-09-16T23:06:30-04:00

Code:

set idx -1set chans {#chan1 #chan2 #chan3}set msgs {"spam 1" "spam 2" "spam 3"}bind time - * fooproc foo {m args} {   if {$m!="08" && $m!="09" && $m%20==0} {      foreach c $::chans {         puthelp "privmsg $c :[lindex $::msgs [incr ::idx]]"      }    }}

this should be optimized to support ircds with multiple PRIVMSG targets but I can't be bothered with that

Statistics: Posted by demond — Fri Sep 16, 2005 11:06 pm

auto msg script

2005-09-16T18:19:27-04:00

i need a lil tcl that will send preset messages to certain channels every 20 mins or so. e.g
bot sends msg1 to #chan1,#chan2,#chan3
20 mins later...
bot sends msg2 to #chan1,#chan2,#chan3
20 mins later...etc

theres similar scripts in the tcl archive, but they would all send msg1 msg2 msg3 at the same time.

i hope my explanation isnt too confusing, and tnx in advance :]

Statistics: Posted by minted — Fri Sep 16, 2005 6:19 pm