## ----------------------------------------------------------------#
# Informasi.tcl Editing by threenet @IRC.Dal.Net                   #
# http://sandykrezz.multiply.com                                     #
# sandy_zazmit@yahoo.co.id                                               #
## ----------------------------------------------------------------#

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

## ------------------------------------------------------------------------
## Untuk semua channel yg sedang di join oleh Bot masukan "*"
## Untuk channel tertentu masukan "#lemper #lemper #lemper #lemper"
## ------------------------------------------------------------------------

set speaks_chans "#lemper"
set speaks_time 30

set spoken.v "Auto talk"

set speaks_msg {

{"wew..."}
{"suit ... suitttttttt"}
{"aku bukan pengemis cintaaa..."}
{"masa sich.."}
{"apa bae sichhh.."}
{"*celingak celinguk*"}
{"hush.. hushh hushh ..."}
{"hoyyyy..."}
{"Aa sandy mana yachh ?..."}
{"cintaku berat di ongkos..."}
{"dasar orang aneh"}
{"gw gamparin nich !!!"}
{"awas, andravalid anak buahnye Ryan... xixixi ... kaborrrr"}
{"cewe-cewe mo ML ga nich? !!!!"}
{"beraaaaaaaaxxxxxxxx !"}
{"horas bah"}
{"kapan, di mana, sama siapa ?"}
{"lama sudah ku menanti mu"}
{"Ku tunggu kau di neraka"}
{"mata lo belek semua tuch.."}
{"halo sapa nih"}
{"pokoknya gue asyik jek"}
{"Lucu juga ya "}
{"Hormattt !!!!! Grak !"}
{"MERDEKA!"}
{"bubar bubar !"}
{"aahh.. seneeeeengg..!!!!"}
{"ML yuk..."}
{"*threenet oh .. threenet*"}
{"*lemper - lemper* =p~"}
{"capek bangeett..abiez muter - muter nyari lemper!!!"}
{"arrgh.. demmit !"}
{"*jambrettttttttttttttt*"}
{"sebel..!!"}
{"kalo ketiduran gimana ?"}
{"udah kayak ibu-ibu rumah tangga deh gue..!"}
{"huwaaaaaa.. ada andravaliddddd .. kaborrrrrrrr !"}
{"bos gw threenet mirip ngga sama cau ming tse?"}
{"libur euy, enak nye kemane yee..!!"}
{"nyari-nyari perek akh.!!"}
{"ya pake sutra lah.."}
{"sial benerrrrrr, panas - panas di suruh nyari lemper ?"}  
{"ke threenet nyokkkk !"}
{"bawel lo semuaa! "}
{"awas loo klo lo ngangkang ntar keliatan anunya nanti heheheh :P~~"}
{"eh..COWOK_KEREN kapan lu bayar utang lo? maen kaborrrrrrr aje..?!"}
{"aduhh.. seneng bangeeett gw hari ini..!!!!!!"}
{"huek.. kenyaaaangg.. !"}
{"hoammmmmmmm..ngantuk gw bleh!"}
{"si montok mane yeeeeee.. "}
{"aduhh.. threenet mane yeee.. *hehee* "}
{"bos gw mane ye si threenet, pasti di tendang sama usernye ??????????????"}
{"ku gampar kau dengan bibirku"}
{"lho"}
{"jangan-jangan kau menolak cintaku"}
{"gw jewer nich"}
{"brisikkkkk"}
{"jangan bebacotan ba'e"}
{"cintailah threenet *cewe-cewe yang ada di lemper*"}
{"lho ya!"}
{"laperrrrrrrr, wew ada lemper di meja!"}
{"enakkkkkk?"}
{"wooow keren skalliiiiiii"}
{"Neng Ikut abang dangdutan Yuk?"}
{"KeyLa? suaranye mane? kangen dech sama suara kamu"}
{"COWOK_KEREN, lagi PDKT sama siape ye"}
{"jangan ada yang berisik !! di sini yang boleh berisik cuma Bos gw threenet sama gw aje"}
{"Idihhh, jadi gemes deh sama kamu"}
{"gw memang masih Virgin, tp akan gw serahin semuanye untuk COWOK_KEREN"}
{"semua sih mungkin, yang ga mungkin gigit kepala loe sendiri"}
}

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 sandy_zazmit@yahoo.co.id"
putlog "loaded Successfuly..."
##-------------------------------------------------------------------