jokes.tcl

putlog "## ..:: Initializing jokes Addon TCL ::... ##"

# Set Channel

set jokes_chan "*"

set master 1

# Set respon, baris pertama direspon oleh baris selanjutnya

set jokes {

{


"!jokes" {

"6$nick14 : Jalanan apa yang gak di aspal? jawab: jalanan rel kereta api"
"6$nick14 : Cari Apa Orang di Tengah Laut yang Penuh Ikan Hiu? jawab: cari mati"
"6$nick14 : Rasa Apa yang Orang Semua Suka? jawab: Rasa Mbayar"
"6$nick14 : Buah Apa yang Bisa Ngajar Bahasa Ingggris? jawab: Buah yu"
"6$nick14 : Kenapa Kentut Bau? jawab: karena sebagai tanda buat orang budek yang gak bisa denger bunyinya"
"6$nick14 : Tulang, tulang apa yang jadi rebutan? jawab: TU LANGganan gue"
"6$nick14 : Daun, daun apa yang tengahnya bolong? jawab: Daunat"
"6$nick14 : Sabun apa yang bau? jawab: Sabuntar sabuntar kentut"
"6$nick14 : Apa Bedanya Ban Serep dan Istri Muda? jawab: Kalau ban serep jarang dipakai Kalau istri muda lebih sering dipakai dari pada istri tua"
"6$nick14 : Burger Apa yang Terbuat Dari Kentang? jawab: BURGERDEL"
"6$nick14 : Apa Beda Naik Sepeda Dengan Malam Pertama? jawab: Kalau kita naek sepeda baru tu Kita pompa dulu baru di naekin Tapi beda dengan malem pertama kalau malem pertama kita naekin dulu baru dech kita pompa"
"6$nick14 : Gelar Apa yang Paling Tinggi? jawab: Gelar tikar di bulan."
"6$nick14 : Kenapa Orang Meniggal Dunia (mati) Selalu di Mandiin? jawab: Karena gak bisa mandi sendiri"
"6$nick14 : Kenapa Bantalan Rel Kereta Api Terbuat Dari Besi? jawab: Kalau terbuat dari roti habis dimakan sama orang"
"6$nick14 : Apa Nama Tumisan yang diJadiin Motto Anak Muda? jawab: CAP CAI DEH"
"6$nick14 : Apa Beda Orang yang Jatuh dari Lantai 80 dan dari Lantai 2 ? jawab: Kalo dari lantai 80 terdengar suara teriakan aaaaaaaaaaaa aaaa grubakkk Kalo dari lantai 2 grubrakk aaaaaaaaaaaaaaaa aaaaa"
"6$nick14 : Kenapa Batu dijatuhkan Ke Dalam Air Tenggelam? jawab: Karena batu tidak bisa berenang"
"6$nick14 : Apa Bahasa india nya Nggak Pake Kutang? jawab: behakumane"
"6$nick14 : Lem Apa yang Ada Tanduknya? jawab: Lem bu"
"6$nick14 : Tol Apa yang Tidak Perlu Bayar? jawab: Tolol loe gitu aja dipikirin"
"6$nick14 : Ikan, ikan apa yang paling jelek? jawab: I kan kamu yg jelek"
"6$nick14 : Burungnya Siapa yang Sudah Renta, Gak Bertenaga? jawab: Burungnya kakak Burung kakak tua"
"6$nick14 : Apa Hobby Pattimura? jawab: Buka fs (Kalo gak percaya liat di uang seribuan di kancing keduanya ada lambang fs)"
"6$nick14 : Kutu Apa yang Mengerikan? jawab: Kutukan"
"6$nick14 : Benda Apa yang Baru di Beli Langsung di Buang? jawab: Peti Mati"
"6$nick14 : Apa Bedanya Roti sama Pantat? jawab: Kalau Roti di balik bentuknya tetap roti tapi kalau pantat coba di balik Mak nyusssss"
"6$nick14 : Burung apa yang sayapnya, giginya, mukanya , kakinya semuanya ada di kaki? jawab: Burung Keinjak"
"6$nick14 : Tulang apa yang tidak pernah basah dalam tubuh kita ? jawab: Tulang Kering"
"6$nick14 : Aku di tengah-tengah air. Malam hari, aku 1. Siang hari, aku 2. Siapakah aku..? jawab: Huruf I"
"6$nick14 : Zat Apa yang Bisa Nulis? jawab: Zat kapur"
"6$nick14 : Matahari Apa yang Ada 2? jawab: Ya mataharimau"
"6$nick14 : Kenapa Superman Ke Matahari? jawab: Karena Di matahari lagi ada discountnya"
"6$nick14 : Ac apa yg kalo orang lagi kesel suka diucapin? jawab: Ac etan ( a..setan)"
"6$nick14 : Nasi apa yg ga bisa di rubah atau di buat menjadi sesuatu yg enak? jawab: Nasib"
"6$nick14 : Kutu apa yang bikin capek? jawab: Kutunggu kau seribu tahun lagi"
"6$nick14 : Burung apa yang pertama kali ke bulan ? jawab: Burungnya neil amstrongs"
"6$nick14 : Makan gado-gado enaknya pakai apa ? jawab: Ya pakai sendoklah jangan pakai pacul"
"6$nick14 : Kalau siang hari saya dilipat dan disimpan sedangkan kalu malam hari saya makan orang. siapakah saya? jawab: SELIMUT / KAIN SARUNG"
"6$nick14 : Saya mempunyai dua buah mulut. yang satu besar dan yang satu kecil. yang besar untuk diri saya sendiri dan yang kecil untuk orang lain. siapakah saya? jawab: TEKO"
"6$nick14 : Buah Apa yang Sexy? jawab: Buah henol (bahenol)"
"6$nick14 : Kenapa Superman Pakai Jubahnya Dibelakang? jawab: Karena kalau didepan disangka mau potong rambut"
"6$nick14 : Apa Bedanya Kura - kura dengan Tukang Bajaj? jawab: Kalau kura kura didekatin kepalanya masuk Kalau Tukang Bajaj didekatin Kepalanya keluar!! (Mau kemana neng???)"

 }

 }

}



bind pubm - * pub_jokes



if {$master==1} {

}



proc pub_jokes {nick uhost hand chan arg} {

 global jokes jokes_chan botnick

 if {(([lsearch -exact [string tolower $jokes_chan] [string tolower $chan]] != -1) || ($jokes_chan == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {

  foreach i $jokes {

   if {[string match [string tolower [lindex $i 0]] [string tolower $arg]]} {

    putserv "PRIVMSG $chan :[subst [lindex [lindex $i 1] [rand [llength [lindex $i 1]]]]]"

   }

  }

 }

}





putlog "*** jokes Addon TCL by dede Loaded!"