# isikan waktu delay dalam menit
# delay adalah jarak waktu antara iklan 1 dan berikutnya
set ad-at- 1

# isikan nama chanel dimana bot akan nulis iklan
set chan "#lemper"

# versi script, gak usah di edit... gak perlu koq
set vers "DraGonS.16"


# isikan baris iklan di sini
# baris di mulai dan di akhiri dengan petik dua
set adtext {
    "Hello prend met gabung di cenel lemper yahh,,,khusus buat kawula muda yang ada di lemper bukan untuk nenek-nenek atau kakek-kakek!!!"
    "bos threenet mana yahh Gw kangen berat nehh ama dia, klo ada yg liat kasi tau yahh.. dia dicariin ama yayangna :P~"
    "Hehehe... godain kita dunk, koq semua pada somse sehh... aihh Ini Mah Gak Bener!"
    "Penghianat Loe yahh..! kenapa Loe bocorin rahasia klo bos threenet itu pemakai sekaligus pengedar... :o)"
    "Suit-suit... lagi pade mojok nihhh,,,kok semua nya pade diem aja sih???"
    "Entah dimana.. dirimu berada.. hampa terasa diriku tanpa dirimu. Oh kasihhhhh" 
    "Gila Lo semua, seneng nya mah yang sunyi sunyi melulu"
    "Duh-Duh,,sepi Banget Nih,,,Ngomong Di channel Dong,,,jangan Cuman PV an doang"
    "Pade nyari GeBetan Nih yah,,,hehehe,,,Ajakin kita kita juga donk...Masa nyari gebetan sendirian aje?"
    "Kenalan ama gw aja,,,pasti asyik n menyenangkan,,,hehehehehe....."
    "Apa??? Lo bilang Gw Cakep, mang Ateng bawa kayu.. tangkyu.. hehehe???"
    "aw aw aw pusingggggggg asu data boz gua ilang semua di sapu brontok"
    "Ati-ati sama user lemper hacker semua tuh!"
    "Ada yang butuh cowok gx, kalo ada tuh threenet masih nganggur...heheheheeh"
    "andravalid sekali-sekali si user dikasih maen gratisan kenapa, masa suruh bayar terus kasian tuh duitnya abis"
    "Eh penduduk lemper ada gosip terbaru nih. Katanya kalo COWOK_KEREN tuh cowo terkeren di lemper...bener ga sih"
    "Oi jangan bengong melulu awas kesambet lo ntar"
    "Pengumuman-pengumuman bagi siapa saja yang kebanyakan e-gold cc or target harap di bagi ke boz threenet"
    "Alo bos kemana aza nih dicariin dari tadi kok gx nongol-nongol sih"
    "Woi botak cukur dulu tuh rambut lo, kalo gx ntar gw gondrongin lo"
    "Wooo katanya hebat masa inject php aza gx bisa"
    "Udah ah cape nih gw, sekarang aq mau bobok dulu ntar kena marah sama bosku"
    "Tralalal hehehehhe gw gak jadi bobok soalnya belom dikelonin sama bos threenet sih"
    "COWOK_KEREN jangan maen internet terus pikirin laporan keuangan lo, ntar gx diterima kapok laporan lo. Belajar VB nih sama gw, gw khan anak pinter"
    "Boss kapan mau beli Hp, ntar kalo dah beli Hp calling-calling gw yee hehehehehehhe !!!!"
    "threenet ada paketan nih, tapi elo yang bayarin yah soalnya persediaan duit gw menipis nih  .... he he he "
    "8Pindahlah hatimu. Kepada siapa saja yang kamu suka. Tetapi cinta itu. Akan tetap milik kekasih yang pertama. Betapa banyak hati yang berganti-ganti kekasih. Betapa banyak pecinta berpindah-pindah ke lain hati. Akan tetapi cintanya. Selalu tertuju pada kekasih yang pertama"
    "7Tak seorangpun yang paling sengsara. 7daripada yang sedang bercinta. 7meskipun ia merasakan manisnya cinta. 7Aku melihatnya... 7Setiap sa'at berlinang airmata. 7Karena takut berpisah 7atau mungkin karena rindu 7dan jika bersanding. 7Ia pun menangis karena takut berpisah 7matanya membengkak ketika berpisah 7dan matanya bengkak pula ketika bertemu"
    "9Apakah engkau tak dapat tidur karena memikirkan sang wajah rupawan yang telah menghadiahkan kepadamu kekacauan pikiran dan membuat hatimu deg-degan?"
    "4Kekasih... Bayanganmu dalam mataku. mulutku selalu memanggilmu. sosokmu selalu berada dalam kalbu. kamu tak mungkin lepas dariku. Aku selalu mengingatmu. Walau sa'at ini aku berada di hati yang lain. Hatiku begitu rindu padamu. Hati ini ingin rasanya melupakanmu. akan tetapi kenyataan. Selalu berbeda dengan kemauan. Pertemuan denganmu ingin ku ulang lagi. Sehingga hidup ini bahagia........."
    "10Pedulikah kau akan aku. kau tinggalkan aku sendiri. Teganya dirimu........ Dulu kau manja diriku. Kau bahkan bersumpah selalu selamanya. kurasa tiada arti sumpah itu....... masih adakah dalam hatimu untuk sayang padaku.........!!! Kau lalu dalam berjumpa. seperti orang baru tak kenal.... Kau pasang muka yg dingin padaku. Untuk apakah semua itu...???? kau bilang kau sayang padaku. kau bilang diriku tak ada duanya.. tapi mengapa berpisah ..setelah sekian lama. Hampir kuberikan diri ini padamu"
    "3Tak ada manusia di dunia.. Yang tak mengalami cinta. Manusia yang tak kenal cinta. Dan tak pernah mabuk cinta. Tak akan ada kelezatan lagi. Apa artinya Dunia??..... Jika penghuninya tak kenal cinta. Apa artinya Dunia??.... Jika engkau sebatang kara.... Tanpa rasa cinta.... Tanpa kekasih hati ..."
    "12Cinta abadi untuk selamanya. Kau menjanjikanku hal itu. Mungkinkah kau lakukan hal itu sedang dirimu bermanja dg orang lain. ku ingin berkata, namum kutak sanggup. Ku takut kehilangan dirimu. mungkin aku harus bersabar. bila mungkin kau lupa dirinya. Kau akan kembali kepangkuanku. ku khan tunggu hari berbahagia itu. hari dimana kita khan berdua.... Cepatlah kembali sayangku..... Kutak peduli perbuatanmu asal kau kembali pada. Cintaku ....."
    "7Cintaku padamu bagaikan mentari. yang menyanyikan hidupmu sepanjang hari. walau jarak dan waktu memisahkan kita. cintaku tetap hanyalah untukmu"
    "7Inilah Cinta, Yang terbang ke surga. Yang Setiap saat, mencabik ratusan tabir. Saat pertama, menundukkan hidup. langkah terakhir belayar tanpa kaki... Ntuk memandang dunia tak kasat mata. Bukan dengan memandang apa yang muncul dalam diri sendiri"
    "3Kau adalah yang terbaik. yang pernah mengenalku. kau membuatku menangis dan tertawa. bagaimana aku tidak menyayangimu"
    "12Dalam kegelisahanku kau tenangkan aku. dalam dadaku kau hibur diriku. dalam kesukaanku kau tertawa bersamaku. kini kutahu seperti apa surga itu. tempat yang penuh dengan orang orang. seperti dirimu...."
    "7Aku suka kamu. Hatiku tak pernah jemu. Hidupku takkan jadi lesu. Karena kau di sisiku"
    "3Aku sayang kamu. Setiap dengar suaramu. Tiap kali menatapmu. Bahagia muncul selalu"
    "Alo cewek godain kita donk .... heheheeheh"
    "Bagi cewe yang mau kenalan ama bos threenet harus memenuhi syarat-syarat yaitu cakep, kaya, sexy, pinter."
    "Woooo MASANDRA bawel lo hehehehehhe"
    "3Aku ingin kamu. Ingin selamanya di sisimu. Ingin selalu bersamamu. Ingin jadi dirimu"
    "7Sang angin bertiup halus. membawa arus arus kecil. dengan lembut membelai hati. mengusap seluruh jiwaku. dalam satu ikatan mesrah"
    "7Terkadang seperti nyiur yg selalu melambai.. Terkadang seperti ilalang yg terkena badai.. Tak pernah menyerah menghadapi takdir. Kau selalu ada di dalam benakku pikiranku dan hatiku.. Dikala lelah aku duduk kulantunkan nada kerinduan... Rindu dan cintaku untukmu tak berbatas jua tak bertepi...."
    "7Kicau Burung di luar sana.. Sadarkan aku dari mimpi semalam.. Mimpi indah tentang mu.. Indah ayu parasmu... Tetap hadir dalam kalbu.... Kan ku simpan sampai engkau datang untukku... Ku yakin saat itu tetap datang.. Besok..Lusa atau waktu nanti di akhir hayatku.."
    "7Sinar lembut mentari menyapa kulit ku.. Saat tirai di Jendela mulai Mulai tergurai.. Oh, Pagi indah, Pagi yang bahagia.. Sebahagia hatiku... Karena Miliki Mu.. Engkau Memang Anugrah Terindah.. yang pernah kumiliki. Saat ini dan selamanya...."
    "7Cinta terjadi dalam sekejap. tak bisa di panggil namun datang dengan sendirinya. biasanya pada saat tidak bisa dan pada. orang yang paling tak menduganya .."
    "11Cintailah aku sewaktu aku hidup. jangan menunggu sampai aku pergi. ukirlah aku seperti pahatan yang indah. menjadi sebuah karya manis yang abadi" 
    "Ati-ati sama satpam lemper galak banget tuh orang!"
    "Ada yang butuh cowok gx, kalo ada tuh threenet masih jomblo abiz tuh...heheheheeh"
    "Pengumuman-pengumuman bagi siapa saja yang kebanyakan e-gold root cc or target harap di bagi kepada threenet"
    "Eh penduduk lemper ada gosip terbaru nih. Katanya kalo COWOK_KEREN tuh cowo terkeren di lemper... bener ga sih"
    "Apa??? Lo bilang Gw Cakep, mang Ateng bawa kayu, tengkyu???"
    "andravalid sekaliČ user loe dikasih maen gratisan kenapa, masa suruh bayar terus kasian tuh duitnya abis"
}

# Dah cukup, baris berikut gak perlu di edit lagi

        set notnick "$botnick" 
        set notnick [string tolower ${nick}]
        if {![info exists {ald}]} {
        global notnick chan ad-at- adtext
        set ald 1
        timer ${ad-at-} printing
        }

        proc printing {} {
        global notnick chan ad-at- adtext
        set printochan [lindex $adtext [rand [llength $adtext]]]
        putserv "PRIVMSG $chan : $printochan"
        timer ${ad-at-} printing
        }


putlog "gila.tcl $vers By aGonS LoaDeD..."