egghelp/eggheads community

sponsor advert tcl script

2003-12-16T13:34:52-04:00

set currentad "[lindex $::ads [rand [llength $::ads]]]"

this returns a random message from $ads, so probably each time it'll be a different message.

Statistics: Posted by Sir_Fz — Tue Dec 16, 2003 1:34 pm

sponsor advert tcl script

2003-12-16T10:38:46-04:00

so.. if I understand you correctly

for example below

Code:

set adchan "#teamefn"set ads { "WiredLabs"               "WiredServers"               "Olternit"               "iDesigns"            } bind time - "25 *" time:ad proc time:ad { mi h d m y } {   set currentad "[lindex $::ads [rand [llength $::ads]]]"   foreach adchan [channels] {     puthelp "PRIVMSG $adchan :$currentad"   }   return }

^ That will advertise the 4 in the list at random (or in order, doesn't matter, as long as it's a new one every time) at :25 past the hour, every hour, in all channels

Statistics: Posted by collett9 — Tue Dec 16, 2003 10:38 am

sponsor advert tcl script

2003-12-16T10:22:38-04:00

Code:

set ads { "ad 1"               "ad 2"               "so forth"               "so on"            } bind time - "25 *" time:ad proc time:ad { mi h d m y } {  foreach adchan [channels] {    puthelp "PRIVMSG $adchan :[lindex $::ads [rand [llength $::ads]]]"  }   return }

if you want the same ad msg'd to all channels;

Code:

proc time:ad { mi h d m y } {  set currentad "[lindex $::ads [rand [llength $::ads]]]"  foreach adchan [channels] {    puthelp "PRIVMSG $adchan :$currentad"  }   return }

edit: fixed broken [censored]

Statistics: Posted by spock — Tue Dec 16, 2003 10:22 am

sponsor advert tcl script

2003-12-16T09:59:53-04:00

Code:

set adchan "#shells"

I want it to /amsg it, so just seperate the channel with ","'s ?

also, did your script include the time? (I am really new to this), if it didn't, I'd like it to spam every hour at like :25 after

thanks

Statistics: Posted by collett9 — Tue Dec 16, 2003 9:59 am

sponsor advert tcl script

2003-12-16T08:10:03-04:00

Code:

set adchan "#shells"set ads { "ad 1"              "ad 2"              "so forth"              "so on"           }bind time - "00 *" time:adproc time:ad { mi h d m y } {  global adchan ads  puthelp "PRIVMSG $adchan :[lindex $ads [rand [llength $ads]]]"  return}

Statistics: Posted by spock — Tue Dec 16, 2003 8:10 am

sponsor advert tcl script

2003-12-15T23:40:14-04:00

I want to make a script for advertising our sponsors's "messages" every hour or so, but a different message each time (random), how do I do this?

thanks

Statistics: Posted by collett9 — Mon Dec 15, 2003 11:40 pm