# Script name   : narf mbti ai Tcl.
# Script Version: 0.3 Stable.
# Script Author : Csar Chvez S. cchavez@vina.cl
# Script Desc.  : Sends msg's to the channel every so often
# Script Note   : the better stable antiidle of the world.


## The narf ai Variables

# What message ?
set narf.ai.msg "narf.tcl Anti-idle Tcl program written , download it from www.eggdrops.net , the greatest eggdrop land of the world."

# What channel ?
set narf.ai.chan #narf

# How often ? (mins).
set narf.ai.time 5

  #########################################################################
  #  The configuration is done. dont edit nothing more after this line.   #
  #########################################################################

# Make ${narf.ai.chan} all lowercase
set narf.ai.chan [string tolower ${narf.ai.chan}]

# Is this script allready loaded?
# If not, set the variable loaded, and set up the timer!
if {![info exists {narf.ai.loaded}]} {
  global narf.ai.chan narf.ai.msg narf.ai.time
  set narf.ai.loaded 1
  timer ${narf.ai.time} narf.ai.proc
}

# Put the message to the channel, and re-set the timer
proc narf.ai.proc {} {
  global narf.ai.chan narf.ai.msg narf.ai.time
  putserv "PRIVMSG ${narf.ai.chan} :${narf.ai.msg}"
  timer ${narf.ai.time} narf.ai.proc
}

putlog "###########################################################"
putlog "# narf.tcl Is Succesfully Loaded. Bugs to cchavez@vina.cl #"
putlog "###########################################################"