##########################################################################################
##                                   Discription                                        ##
##                                                                                      ##
##  nicepal.adv.tcl Version 1.0 Date: 07 October 2002 Monday !                          ##
##  Advertizing Your messeges in channel rendom types ..                                ##
##  Created by NicePaL and Very Thanks for Pulse (#Eggdrop) Who Help me for Bugs.       ##
##  I Hope you will like my this 2nd TCL as you have been used nicepal.tcl              ##
##  Downlaod cute TCL's from www.EggHelp.org/tcl.htm aLso Thanks for slennox            ##
##  For Help Join #Eggdrop or #DALnetBoT Thanks for using my TCL                        ##
##                                                                                      ##
##########################################################################################

## 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 #chan0
set chan1 "#chan1"
set chan2 "#chan2"
set chan3 "#chan3"
set chan4 "#Chan4"
set chan5 "#chan5"
set chan6 "#chan6"
set chan7 "#chan7"
set chan8 "#chan8"
set chan9 "#chan9"

# Set you want in XXX minute you bot always talk on minute 
set speaks_time 20

## ----------------------------------------------------------------
## --- Don't change anything below here if you don't know how ! ---
## ----------------------------------------------------------------

### Advertizing Messeges are Here ###
# Set the next lines as the random speaks msgs you want to say

set speaks_msg {
"texte numero 1"
"mettez votre deuxieme texte ici"
}

if {![string match "*time_speaks*" [timers]]} {
timer $speaks_time time_speaks
}


proc time_speaks {} {
global speaks_msg speaks_chans chan1 chan2 chan3 chan4 chan5 chan6 chan7 chan8 chan9 chan10 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 $chan1 :$speaks_rmsg"
puthelp " PRIVMSG $chan2 :$speaks_rmsg"
puthelp " PRIVMSG $chan3 :$speaks_rmsg"
puthelp " PRIVMSG $chan4 :$speaks_rmsg"
puthelp " PRIVMSG $chan5 :$speaks_rmsg"
puthelp " PRIVMSG $chan6 :$speaks_rmsg"
puthelp " PRIVMSG $chan7 :$speaks_rmsg"
puthelp " PRIVMSG $chan8 :$speaks_rmsg"
puthelp " PRIVMSG $chan9 :$speaks_rmsg"

puthelp "PRIVMSG $chan :$speaks_rmsg" 
timer $speaks_time time_speaks
return 1
}
}

putlog "Advertizing in Channel loaded Successfuly..."
putlog "Ver 1.0 By NicePaL & Special Thanks for Pulse #DALnetBoT & #EggDrop"