######################################################################
# SendMsg 1.0 - Send Messages to channels specified every X minutes  #
#                                                                    #
# Created by WPnL                                                    #
# Report bugs to wpnl@lycos.co.uk                                    #
# This script is freeware.                                           #
# Feel free to edit it.                                              #
######################################################################

### SETTINGS ###

# Channels where the msg is sent to.
# If you want to use several channels put a space between them
set channels "#FTPWarez"

# How often do you want the msg to be displayed (in minutes)
set minutes 30

# Set your msgs here
# \002 bold
# \003 colour (ex: \0030,12 textcolor=0 white; backgroundcolor=12 blue)
# \022 reverse
# \037 underline
# Write several lines for several msgs
set msgs {
"6w0rlocks Console Archive FTP 9*ONLiNE* <- -> 7Host -> 6w0rlock.dynu.net <- 7Port ->6 24458 <- 7Login -> 6FTPWarez <- 7Pass -> 6fbAvK4BZRn3Ry4pR <- -> 7Notes <- 6EXPLICIT SSL - Scene Console Archive. Stay in channel while downloading. Any requests or help /msg w0rlock. I am just a bot <-"
}


### YOU ARE DONE NOW. YOU DON'T NEED TO EDIT ANYTHING ELSE FROM HERE ###

if {![info exists sendtext_running]} {
 timer $minutes sendtext
 set sendtext_running 1
}

proc sendtext {} {
 global channels minutes msgs
 foreach channel $channels {
  foreach msg $msgs {
   putserv "PRIVMSG $channel :$msg"
  }
 }
 timer $minutes sendtext
 return 1
}

putlog "SendMsg 1.0 by WPnL Loaded"