set iklan_chan "#eastjava"
set iklan_time 60
set iklan_msgs {
  "9,2 Question : Mana lebih luas, daster atau dunia fantasi ? Answer : Daster, soalnya didalamnya ada 2 pabrik susu dan satu dunia fantasi " "8,2 Jinak-jinak burung merpati, lebih jinak burung sendiri. Burung merpati dikejar lari, burung sendiri dipegang BERDIRI " "Question : Kenapa Superman poni keritingnya cuman satu? Answer : Kalau banyak namanya supermi" "Question : Mengapa pria saat bersetubuh dengan wanita, anu pria harus berdiri ? Answer : Karena di dalam anu wanita tidak ada tempat duduk" "Question : Kenapa Mbak Tutut pake kerudung ? Answer : Soalnya kalo pake kondom, namanya jadi Mbak Titit" "3Tips IRC : Registrasi nick caranya ketik 4REG <Nick> <password> kirim ke 4444 GRATIS" "Question : BMW apanya yang mahal? Answer : W-nya, soalnya kalo di ganti X jadi murah" "Question : Jus apa yang bisa nari n nyanyi ? Answer : Jus tru itu gua mo nanya ma loe..." "Tips IRC : Ngga punya dokat buat nge-chat alias bokek ?? Gampang... maen aja ke tempat temen yang jaga warnet biar bisa gratisan atow ikut ngebantuin di warnet orang biar bisa maen gratis, misalnya bantuin ngepel warnet + mijitin bossnya (mau donk kalo bosnya cowok.. :P)" "Trik canggih mendapat gebetan : pura-pura ngak punya pacar, mengaku paling setia, paling cinta, kirim email sesering mungkin kalo perlu tlp setiap ada pulsa" "Barang siapa yang membutuhkan jasa keamanan silahkan hubungi 112 dari ponsel anda" "gilaa ... semakin hari aQu semakin cakep aja yah???" "Kalau ada yg bilang kamu jelek, sabar aja. Kalau ada yang bilang kamu bego, Cuekin aja. Kalau ada yang bilang kamu dungu, Cool aja. Tapi kalau ada yang bilang kamu cakep, Tampar aja karna itu FITNAH!" "Ada 4 Type desahan sex wanita : (1).Type Romantis, oohh aah oohh (2).Type Plin Plan, ooh yes ooh no (3).Type Religius, oh God yes (4).Type Maniac, lu cabut gue gampar" "KoK Tiap Hare GuE SeLaLu KaNgeN Yayanku Ya ???" "Termenung tidak mendatangkan manfaat apa-apa sebaliknya berfikir banyak menyelesaikan masalah." "Ternyata tidak semua produk AMERIKA itu JEMPOL. Contohnya WTC baru disenggol aja udah runtuh Bagus produk INDONESIA: WTS meski udah dirudal ribuan kali tetap OKE!" "Apabila cinta tidak berhasil... BEBASKAN dirimu... Biarkan hatimu kembali melebarkan sayapnya dan terbang ke alam bebas LAGI. Ingatlah... bahwa kamu mungkin merasa amat kehilangannya.. tapi ketika cinta itu mati, kamu TIDAK perlu mati bersamanya..." "Wanted !! Dibutuhkan karyawati untuk kerja di MentariCell khusus buat cewek. Gaji -3 juta/bulan." "8,1 —=\[ 9,1HanikEgg v1.6.17 by H4_Kim8,1 \]=—  4www.mentari.com" "Orang yang paling bangkrut dalam hidupnya ialah orang yang setiap hari kerjaannya ceting mlulu ga mo nyari kerjaan" "Orang yang ulet dalam kesabaran akan berhasil walaupun waktunya lama." "Mana Expresinyaaa.....!! Siapa Sih Lo??? Mata Kamu Harus Bicara....!!!" "Ehh Loe... kLo dapet cowok bagi² donk...!!!" "Ehh kk semua... Ajarin gw ngehack dunk !!!" "Bingung mencari cowok setia jaman sekarang? memang sih.. cuman tinggal dikit.  H4_Kim tuh salah satu nya. mWach sayangku :-)" } 

#############################################
# !!!!!! Iklan TCL   #################################
#############################################
proc iklan_start {} {
  global iklan_time
  if {[string match *iklan_sendmsg* [timers]]} {return 0}
  timer [expr [rand $iklan_time] + 1] iklan_sendmsg
}
proc iklan_sendmsg {} {
  global botnick iklan_chan iklan_msgs iklan_time
  if {[validchan $iklan_chan] && [onchan $botnick $iklan_chan]} {
    puthelp "PRIVMSG $iklan_chan :[lindex $iklan_msgs [rand [llength $iklan_msgs]]]"
  }
  timer [expr [rand $iklan_time] + 1] iklan_sendmsg
}
set iklan_chan [string tolower $iklan_chan]
iklan_start
putlog "=== HanikEgg Iklan TCL Loaded"