Skinuo sam skriptu advertise.tcl koja sluzi da prica na kanalu na svakih sat vremena, ali ne znam da je podesim !!!
Ako neko moze da mi podesi ovaj conf... da na npr. kanalu #proba na svakih 20mnuta bot kaze recenicu "test 123"
Hvala unaprijed
Code:
###########################################
# Advertise.tcl by KuNgFo0 (www.eggfaq.com)
#VERSION 0.2
#DESCRIPTION Every xx minutes, displays a random message in each channel you set.
# Set the next lines as the random advertise msgs you want to say
set advertise_msg {
{
"Advertise.tcl 0.2 by [email protected]"
"(example advertise script)"
"Random msg #1"
}
{
"Advertise.tcl 0.2 by [email protected]"
"(example advertise script)"
"Random msg #2"
}
{
"Line #1"
"Line #2"
"Line #3"
}
}
# Set the next line as the channels you want to run in
set advertise_chans "#testchannel1 #testchannel2"
# Set the next line as the minute interval between msgs
set advertise_time 5
proc time_advertise {} {
global advertise_msg advertise_chans advertise_time
if {$advertise_chans == "*"} { set chans [channels] } \
else { set chans $advertise_chans }
foreach chan $chans {
foreach line [lindex $advertise_msg [rand [llength $advertise_msg]]] { puthelp "PRIVMSG $chan :[subst $line]" }
}
if {![string match "*time_advertise*" [timers]]} { timer $advertise_time time_advertise }
}
if {![string match "*time_advertise*" [timers]]} { timer $advertise_time time_advertise }
putlog "*** Advertise.tcl 0.2 by KuNgFo0 loaded"
###########################################
# Advertise.tcl by KuNgFo0 (www.eggfaq.com)
#VERSION 0.2
#DESCRIPTION Every xx minutes, displays a random message in each channel you set.
# Set the next lines as the random advertise msgs you want to say
set advertise_msg {
{
"Advertise.tcl 0.2 by [email protected]"
"(example advertise script)"
"Random msg #1"
}
{
"Advertise.tcl 0.2 by [email protected]"
"(example advertise script)"
"Random msg #2"
}
{
"Line #1"
"Line #2"
"Line #3"
}
}
# Set the next line as the channels you want to run in
set advertise_chans "#testchannel1 #testchannel2"
# Set the next line as the minute interval between msgs
set advertise_time 5
proc time_advertise {} {
global advertise_msg advertise_chans advertise_time
if {$advertise_chans == "*"} { set chans [channels] } \
else { set chans $advertise_chans }
foreach chan $chans {
foreach line [lindex $advertise_msg [rand [llength $advertise_msg]]] { puthelp "PRIVMSG $chan :[subst $line]" }
}
if {![string match "*time_advertise*" [timers]]} { timer $advertise_time time_advertise }
}
if {![string match "*time_advertise*" [timers]]} { timer $advertise_time time_advertise }
putlog "*** Advertise.tcl 0.2 by KuNgFo0 loaded"
[Ovu poruku je menjao Shadowed dana 28.07.2006. u 14:14 GMT+1]