## ----------------------------------------------------------------#
# Informasi.tcl Editing by Vaksin13 @IRC.Dal.Net                   #
# http://baliemheker.co.nr                                         #
# vaksin13@yahoo.com                                               #
## ----------------------------------------------------------------#

## ----------------------------------------------------------------
## Set global variables and specificic
## ----------------------------------------------------------------

## ------------------------------------------------------------------------
## Untuk semua channel yg sedang di join oleh Bot masukan "*"
## Untuk channel tertentu masukan "#channel1 #channel2 #channel3 #channel4"
## ------------------------------------------------------------------------

set speaks_chans "#honaidelphi"
set speaks_time 30

set spoken.v "Auto talk"

set speaks_msg {

{"Waks..."}
{"ring xixixixiix"}
{"aku bukan pengemis cintaaa..."}
{"masa sich.."}
{"Kopi Mana Tadi Sayang.."}
{"*celingak celinguk*"}
{"hush.. hushh hushh ..."}
{"hoyyyy..."}
{"Mas Vaksin13 mana yachh ?..."}
{"yak desgghh..."}
{"bleuh"}
{"weh"}
{"welah"}
{"hoekkkkk !!!!"}
{"wik !"}
{"hiyek"}
{"kapan ?"}
{"GRRRRRRRRRRR"}
{"woooooooo"}
{"matamu Cowok.."}
{"halo sapa nih"}
{"pokoknya gue asyik jek"}
{"Lucu juga ya "}
{"Hormattt !!!!! Grak !"}
{"MERDEKA!"}
{"bubar bubar !"}
{"aahh.. seneeeeengg..!!!!"}
{"ML yuk..."}
{"*sigh*"}
{"*blah* =p~"}
{"capek bangeett..!!!"}
{"arrgh.. dammit !"}
{"*hiks*"}
{"sebel..!!"}
{"kalo ketiduran gimana ?"}
{"udah kayak ibu-ibu rumah tangga deh gue..!"}
{"huwaa.. !"}
{"mirip ngga ?"}
{"libur euy..!!"}
{"ring kekekkeke.!!"}
{"ya sutra lah.."}
{"potong kambing ya besok ?"}  
{"freak !"}
{"immortal rejection! "}
{"awas loo klo km ngangkang ntar keliatananunya nanti xixixi :P~~"}
{"eh kapan lu bayar utang kamu..?!"}
{"aduhh.. seneng bangeeett sy hari ini..!!!!!!"}
{"huek.. kenyaaaangg.. !"}
{"see ? i'm a survivor..!"}
{"cuci-cuci mata donk.. "}
{"aduhh.. itu bener-bener deh.. *hiks* "}
{"WHO DO YOU THINK I AM ??????????????"}
{"begini"}
{"lho"}
{"<-------- potong disini --------"}
{"hah"}
{"brisik"}
{"mama mama"}
{"Kutumbaba *mama*"}
{"lho ya!"}
{"laper!"}
{"wik"}
{"wooow keren skallii"}
}

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 "-=-=   ENTERTAINMENT  PROSES   =-=-=-=-=-"
putlog "Informasi.tcl Ver 1.0"
putlog "Created by Vaksin13@Dal.Net"
putlog "loaded Successfuly..."
##-------------------------------------------------------------------