################Pantun.tcl by mangar and Pagat sbcrew@allnetwork.org#################

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

## -=[ SPEAK ]=-  Set the next line as the channels you want to run in
## for all channel just type "*" if only for 1 channel or 2 chnnel just
## type "#channel1 #channel2"

set speaks_chans "*"
# Set you want in XXX minute you bot always talk on xxx minute 
set speaks_time 5
######################################################################
##--------------------------------------------------------------------
##--- F O R     ---   E N T E R T A I N M E N T  ---    CHANNEL   ----
##--------------------------------------------------------------------
######################################################################         
### SPEAK ###
set spoken.v "Auto talk"
# Set the next lines as the random speaks msgs you want to say
set speaks_msg {
{"Buah salak isinya dua ,, Kalo dikupas putih isinya ,,, salam manis buat mertua ,,, karna aku sayang anaknya."}
{"anak Ikan pandai berenang ,,, Burung dara membuat sarang,,, Makan tak enak tidur tak tenang,,, Hanya teringat adinda seorang.."}
{"kucing kurus mandi di papan,,, papannya dari kayu jati,,, badan kurus bukan kurang makan,,, tapi mikirin si jantung hati."}
{"Pergi kehutan mencari bambu,,, Bambu dijual harga seribu,,, kalo memang adik cinta padaku,,, mau lah ading kk bawa kepanghulu."} 
{"pak wasit meniup peruit,,, meniup peruit sambil berperang,,, siapa lagi yang paling sweet,,,, hanyalah ayank seorang."} 
{"Pergi ke pasar naik onta,,,, Membeli anting intan permata,,,, Gak peduli situ udah tua,,, Yang penting kita saling mencinta."}
{"Malam malam kita ke Plazza,,, Di Plazza kita membeli pita,,,, Telponin teman habisin pulza,,, Telponin kamu nambahin cinta."}
{"Jika kamu di kejar hiu,,, berenanglah sampai ke hulu,,, kalau kamu cinta padaku,,, bawalah daku ke penghulu."}
{"Beli bawang diwadah plastik,,,, beli terigu dan juga lada,,, Memang sayang engkau tak cantik,,, Tapi bagiku kau sempurna."} 
{"Ketika batu bersanding dengan bata,, Ketika itu peradaban jauh lebih maju,, Cinta bagiku sangat sederhana ,,,Yaitu ketika aku berjumpa denganmu."}
{"Kota padang terkenal dengan rendang,,, orang padang bnyk jadi pedagang,, jangan bilang abang tak sayang,, buktinya abang pulang bawa uang."}
{"banyak ada lilin di meja ,,,hanya satu yang menyala,,, bnyak leleaki di dunia hanya satu yang kucinta."}
{"beli tinta yang warna merah,,, warna lain jangan di tambah,,,,, cinta itu adalah anugrah,,, di sela-sela anugrah mugkin musibah."}
{"Jika sudah namanya cinta,,, Hati terasa berbunga-bunga,,, Kalau sudah terbawa suasana,,, Senyum sendiri seperti orang gila."}
{"Hari Valentine telah tiba,,, Pasangan berlomba saling berbagi,,, Takut cinta tak diterima,,,, Dukun dapat banyak rejeki."}
{"manis rasanya buah coklat ,,,lebih manis buah pepaya,,, klu cinta sudah melekat yang tuapun terasa muda.} {pagi pagi makan bubur,, pakai selendang sambil makan roti,,, ku ucapkan dengan jujur,,,memang hanya engkaulah pujaan hati."}
{"Biji kates dibuang pak harun,,, bu harun santai duduk dibangku,,, sebanyak tetes hujan yang turun,,, sebanyak itulah rasa sayangku."}
{"kembang gula di perigi ,,,untuk aku minum jamu,,, kemana pun kamu pergi,,, aku slalu rindu kamu."}
{"pergi ke kanal bersama mayang,,, tiba dikanal membeli acar,,, belum kenal maka tak sayang,, sudah kenal jadikan pacar."}
{"diam-diam ku memperhatikanmu .... karna ada sesuatu pada diriku,,,, diam-diam ku mencintaimu,,, karna itu kuingin kau jadi kekasihku."}
{"Coba-coba menanam mumbang,,, Moga-moga tumbuh kelapa,,, Coba-coba bertanam sayang,,, Moga-moga menjadi cinta."}
{"soto babat favorit ku,,, teh botol minuman ku,,,, kaulah sahabat terbaik ku.. tapi ku ingin lebih dari itu."}
{"Kutu kupret lari-lari.. Lempar kedondong, kena kepalanya.. Si cerewet manis sekali.. Boleh donk, abang minta cintanya."}
{"itu palu temannya paku.. paku dipukul diatas kayu.. ku katakan kepada Kamu.. kata i love you..."}
{"Aduh sakit kaki terluka.. terluka karna terinjak paku,,, Moga hati mu bisa terbuka.. biar bisa bilang kamu cinta aku.."}
{"Diatas genteng ada kutilang.. Diatas kursi ada pakaian.. Abang ganteng, abang sayang.. Kapan sih kita jadian."}
{"Hitam-hitam kereta api .... Penumpang sesak biar berdiri Hitam-hitam kulit ini Banyak gadis yang mau antri."}
{"bagaimana angin tak kencang,,, angin menghempas sarang kepiting,, bagaimana tak banyak hutang,,, istri empat semua bunting."}
{"jalan jalan ke kota arab.. jangan lupa membeli kitab.. cewek sekarang kagak bisa di harap.. bodi bohai betis berkurap (by MANGAR)."}
{"metik buni jangan di kandut…. kalau dikandut banyak getahnya…. nyari bini jangan nyang gendut…. kalau nyang gendut banyak anaknya (poweredby mangar)."}
{"ada kodok,,, di atas genteng,,, kagak merokok,,,, kagak ganteng,,,(poweredby MANGAR)"} 
{"Jika lewat sudilah mampir… Tak ada kopi suguhkan air… temanku jelek kaya mak Lampir… Giginya ompong kalo nyengir (powered by mangar)."}
{"mangga kuini tampak kelapa… anak sambas kena bekerja… tak ada bini tak mengapa… kan bisa bebas kemana saja…(powered by jomlo sbcrew)."}
{"buah manggis diatas tempayan,,, di bawa orang dari jakarta ,,,klu gadis banyak tak perawan,,, klu lajang pacah di tangan (powered by mangar)."}
{"Panas-panas kota Jakarta .... Akibat pemanasan dunia,,,, Bila ingin lulus sarjana,,,, Tidur malam tanpa celana (mbah pagat and akang mangar sbcrew)."}
{"Kayu punak kayu meranti takut beranak jangan belaki (powered by pagat sbcrew)."} 
{"kayu meranti kayu punak tidak belaki mana enak?? (powered by mangar sbcrew).."}
{"Beli kerang di warungnya mamat,,,, beli kelapa buat di bawa liburan,,, mumpung sekarang malam jum’at,,, Hyo siapa yang mau ikut kekuburan? (powered sbcrew).."}
{"Nonton bioskop horor Indonesia Bersama pacar cantik jelita Hidup jangan disia-sia Dekati wanita sebanyak-banyaknya (poweredby mangar sbcrew)."}
{"limau pauh asam pauh,,,,rama rama batali banang,,,pian jauh kami jauh sama sama kita mangganang (powered by sbcrew)."}
{"disana gunung di sini gunung di tengah2 pohonnya lebat anda bingung kami pun bengung yang penting kita bersahabat poweredby (SBCREW visit www.sbcrew.tk hormat kami from pagat and mangar"}
}

if {![string match "*time_speaks*" [timers]]} {
 timer $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]]} {
  timer $speaks_time time_speaks
 }
}



## -----------------------------------------------------------------------
putlog "-=-=   ENTERTAINMENT  PROSES   =-=-=-=-=-"