Auto MSG To Chan

By Remuser on Jul 02, 2010

Auto MSG To Chan
Send every X mins a random msg from the list..

Time is ajustable...

# Auto MSG To Chan
# +Author  : Dorin
# +Email   : contact@ircstar.org
# +Website : wWw.IRCStar.Org

# Set your channel

set send_chans "#ReMuSeR" 

# Set Timer one line after X mins

set send_time "30"

# Set Your Messages. You can insert more messages caz is every X min an random message from the list..

set send_msg {
"Your Message"
"Your Message"
"Your Message"
"Your Message"
} 

#########################################
#!!!!!!DO NOT EDIT AFTER THIS LINE!!!!!!#
#########################################

if {![string match "*time_send*" [timers]]} {
 timer $send_time time_send
}

proc time_send {} {
 global send_msg send_chans send_time
 if {$send_chans == "*"} {
  set send_temp [channels]
 } else {
  set send_temp $send_chans
 }
 foreach chan $send_temp {
  set send_rmsg [lindex $send_msg [rand [llength $send_msg]]]
 puthelp "PRIVMSG $chan :$send_rmsg" 
timer $send_time time_send
return 1
 }
 }

putlog "Auto MSG By Dorin @ IRCStar.Org Loaded"

Comments

Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.