advertise script

[congkai]

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: Select all

===============================================
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_speaks
return 1
 }

[Sir_Fz]

Try ad.tcl from TCLScript.com.

[congkai]

ad.tcl only does 1 channel add. i seen the /msg bot <url here> <ad here>

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?

[Sir_Fz]

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

[congkai]

do u mean i make this

set speaks_chans "[channels]"


and it will work?

sorry i am a noob

[Sir_Fz]

Yeah, try it.

[congkai]

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.

[Sir_Fz]

Code: Select all

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.

[De Kus]

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.

[congkai]

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!

[congkai]

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
?

[congkai]

sloved. thanks