## -=[ AUTOTEXT ]=-  ##

set speaks_chans "#dex"
set speaks_time 150

#set spoken.v
set speaks_msg {
{".slots"}
{".l 1"}
{".l 2"}
{".l 3"}
{".slots"}
{".l 4"}
{".l 5"}
{".l 6"}
{".craps 1000"}
{".cointoss heads"}
{".craps 1000"}
{".cointoss tails"}
{".slots"}
{".l 7"}
{".l 8"}
{".l 9"}
{".slots"}
{".craps 2000"}
{".cointoss heads"}
{".craps 2000"}
{".cointoss tails"}
{".slots"}
{".l 1"}
{".l 2"}
{".l 3"}
{".slots"}
{".l 4"}
{".l 5"}
{".l 6"}
{".slots"}
{".l 7"}
{".l 8"}
{".l 9"}
{".slots"}
{".craps 1000"}
{".cointoss heads"}
{".craps 1000"}
{".cointoss tails"}

}

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

proc time_speaks {} {
 global speaks_msg speaks_chans 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]]]
  foreach msgline $speaks_rmsg {
   puthelp "PRIVMSG $chan :[subst $msgline]"
  }
 }
 if {![string match "*time_speaks*" [timers]]} {
  utimer $speaks_time time_speaks
 }
}

putlog "loaded Successfuly..."