egghelp/eggheads community

advertise script

2005-09-25T15:11:52-04:00

sloved. thanks

Statistics: Posted by congkai — Sun Sep 25, 2005 3:11 pm

advertise script

2005-09-25T14:46:11-04:00

one more help.. sorry

if {[timerexists advertise]==""} {
timer 1 advertise
}

this is 1min 1 time

i set to 30 but seems i waited 1hrs haven even adv.. is 30min ad in as
timer 30 advertise
?

Statistics: Posted by congkai — Sun Sep 25, 2005 2:46 pm

advertise script

2005-09-25T14:22:12-04:00

first of all i would like to thank you for giving me this script. Thanks a lot. it works well..

well, i still don't forfilled my wish.. but its enough thanks.. without !addadv command i can also edit the tcl. thanks a lot anyway De Kus!

Statistics: Posted by congkai — Sun Sep 25, 2005 2:22 pm

advertise script

2005-09-25T12:17:51-04:00

maybe the original script didnt work because $speaks_msg was no proper list? Just a suggestion, because from the logic setting to * should make the script to load the channels each single execution. however, if a tcl error caused by an improper list interruptes the foreach loop, it wont output more.

Statistics: Posted by De Kus — Sun Sep 25, 2005 12:17 pm

advertise script

2005-09-25T12:15:32-04:00

Code:

set Ads { "advertisement 1" "advertisement 2" "advertisement 3"}if {[timerexists advertise]==""} { timer 1 advertise}proc advertise {} { global Ads foreach chan [channels] {  puthelp "privmsg $chan :[lindex $Ads [rand [llength $Ads]]]" } timer 1 advertise}

This will send a random ad from Ads to all channels every minute

PS: alltools.tcl should be loaded for the [timerexists] command to work.

Statistics: Posted by Sir_Fz — Sun Sep 25, 2005 12:15 pm

advertise script

2005-09-25T11:57:01-04:00

i tried puting
set speaks_chans "[channels]"

but it did not post even one channel.

i am sorry i cannot make "#chan1 #chan2 #chan3" because i am running shell, anytime any channel allow me to adv i just ask the bot to join, and the bot can adv in ALL the joined channel.

or is it possible can i have the hounor to ask you, who are a expert, whom i greaty thanked in, to help me make this script postable in ALL the channels? pls? thank you a million.

Statistics: Posted by congkai — Sun Sep 25, 2005 11:57 am

advertise script

2005-09-25T10:50:26-04:00

Yeah, try it.

Statistics: Posted by Sir_Fz — Sun Sep 25, 2005 10:50 am

advertise script

2005-09-25T10:48:14-04:00

do u mean i make this

set speaks_chans "[channels]"

and it will work?

sorry i am a noob

Statistics: Posted by congkai — Sun Sep 25, 2005 10:48 am

advertise script

2005-09-25T08:29:17-04:00

Then add ALL your channels in the script (i.e. "#chan1 #chan2 #chan3") or you can set it to "[channels]".

Statistics: Posted by Sir_Fz — Sun Sep 25, 2005 8:29 am

advertise script

2005-09-24T22:53:23-04:00

ad.tcl only does 1 channel add. i seen the /msg bot

but the most important is i want it to apper IN ALL CHANNEL.. which it cannot.. can someone tell me how to make it in all channel espicallu the script on top?

Statistics: Posted by congkai — Sat Sep 24, 2005 10:53 pm

advertise script

2005-09-24T15:10:36-04:00

Try ad.tcl from TCLScript.com.

Statistics: Posted by Sir_Fz — Sat Sep 24, 2005 3:10 pm

advertise script

2005-09-24T12:33:01-04:00

i found a advertise script. it says to amke all channel in the bot parked advertise i make "*"
but seems when i make "*" (as shown below) i cannot get my bots to adv in all channel but only 1 channel.. which is the main 1st channel. i need a bot which adv in ALL channels..
i provide the part where it ask for timer. below. please let me know where to edit.

Code:

===============================================Script here===============================================## Set your channel for Advertize your text messeges ..## If you want to Advertize in all channel where is your bot parking then use "*"## other "#channel"set speaks_chans "*"set speaks_msg {123123 ADV HERE}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 [lindex $speaks_msg [rand [llength $speaks_msg]]] puthelp "PRIVMSG $chan :$speaks_rmsg" timer $speaks_time time_speaksreturn 1 }

Statistics: Posted by congkai — Sat Sep 24, 2005 12:33 pm