## -=[ AUTOTEXT ]=-  ##

set speaks_chans "##jakarta"
set speaks_time 600

#set spoken.v
set speaks_msg {
{"webchat https://www.inspiradio.id/chat/"}
{"URL utk mendengarkan via app winamp dll: http://64.inspiradio.id:9000"}
{"URL utk mendengarkan via app winamp dll: http://24.inspiradio.id:8000"}
{"request kapan pun https://www.inspiradio.id/webrequest/browse.php"}
{"Mendengarkan via browser http://inspiradio.id"}
{"webchat https://www.inspiradio.id/chat/"}
{"URL utk mendengarkan via app winamp dll: http://64.inspiradio.id:9000"}
{"URL utk mendengarkan via app winamp dll: http://24.inspiradio.id:8000"}
{"request kapan pun https://www.inspiradio.id/webrequest/browse.php"}
{"Mendengarkan via browser http://inspiradio.id"}
{"webchat https://www.inspiradio.id/chat/"}
{"URL utk mendengarkan via app winamp dll: http://64.inspiradio.id:9000"}
{"URL utk mendengarkan via app winamp dll: http://24.inspiradio.id:8000"}
{"request kapan pun https://www.inspiradio.id/webrequest/browse.php"}
{"Mendengarkan via browser http://inspiradio.id"}
}

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..."