## -=[ AUTOTEXT ]=-  ##

set speaks_chans "#indomie"
set speaks_time 1080

set hel_chans "#indomie"
set brb_chans "#indomie"
set bye_chans "#indomie"
set Than_chans "#indomie"
set bad_chans "#indomie"
set Tawa_chans "#indomie"
set Sml_chans "#indomie"
set elet_chans "#indomie"
set asl_chans "#indomie"
set kamu_chans "#indomie"
set iya_chans "#indomie"
set cium_chans "#indomie"
set ada_chans "#indomie"
set slow_chans "#indomie"
set pagi_chans "#indomie"
set sad_chans "#indomie"
set zzz_chans "#indomie"
set tdk_chans "#indomie"
set mlm_chans "#indomie"
set sia_chans "#indomie"

#set spoken.v
set speaks_msg {
{"\001ACTION merenung dan berfikir sambil bertanya dalam hati :( \001"}
{"\001ACTION kangen sherad!\001"}
{"\001ACTION bingung lihat orang chating ngomong tak jelasss\001"}
{"\001ACTION kedinginan brrrrrr\001"}
{"\001ACTION lirik-lirik foundernya sapa tau dijadiin @p xixixixixixi\001"}
{"\001ACTION bad mood pengen nelen komodo\001"}
{"\001ACTION pengen kuliah di UI\001"}
{"\001ACTION ingin membacakan sebuah puisi berjudul Kerawang Bekasi\001"}
{"\001ACTION pelorotin celana kidnap,  kabooooooorrrrrrrr\001"}
{"\001ACTION barusan pulang dari jakarta dikasih oleh-oleh batik\001"}
{"\001ACTION risih banget di pv sama cowok yang barusan\001"}
{"\001ACTION away ahhh dah ga betul chatingnya\001"}
{"\001ACTION bingung\001"}
{"\001ACTION nangis abis nonton Ketika Cinta Bertasbih hikssss\001"}
{"enaknya abis maem teri sibolga ini bah!!"}
{"pengen maem black papper steak nihhh ada yang mau traktir ga nii"}
{"ntah apa lah manfaatnya kilang pangkalan brandan itu buat pertamina"}
{"cabe, bawang, brambang, merica, kemiri, andaliman, diuleg jadi sambal mantap!!"}
{"emang salak sidempuan masih ada yang manis?"}
{"pengen minum kopi koktong tapi nggak ada yang nemenin ke siantar"}
{"ku kira zeus, ternyata bonanza, ku kira serius, ternyata bercanda!!"}
{"kacau dehhh ada yang nyari terus, kaboooorrrr"}
{"lihat kebun teh di deket siantar yuk"}
{"capek kalii awak merepet gini terus tak ada yang bayar"}
{"\001ACTION mau kencan, jangan ngeten ya\001"}
{"yang jauh kasih dekat yang dekat kasih merapat yang merapat jadi sahabat"}
{"\001ACTION melamun..\001"}
{"kopi time!!!"}
{"abang.....!!!!"}
{"Sherad sudah makan"}
{"setiap hari jumat dirumah kami bikin tombur lah.."}
{"siapa yah OP yang paling baik?"}
{"haranggaol pantainya bagus yah katanya.."}
{"asikk dapet rambutan binjai dex nggak tak kasih wek.."}
{"mia hamik?"}
{"pengen masak arsik ikan mas tapi nggak tau bumbunya hadeh.."}
{"Sherad makan KFC yuk..."}
{"kok lupa, aku dah gosok gigi lom ya?"}
{"cintaku tertinggal di bandara kualanamu"}
{"wajahku sama Jessica Iskandar kalo dibandingin 11 12 deh"}
{"Riska boboknya kapan sih?"}
{"budaya jawa ibarat pakaianku budaya batak ibarat rumahku"}
{"kalo dengerin lagu batak pasti mbrebes mili deh hiks hiks"}
{"tiket ALS medan jakarta sekarang brp ya"}
{"bang dex dah mik cucu lom?"}
{"Aku mencintai Indonesia beserta seluruh kebudayaannya"}
{"\001ACTION pengen banget deh masuk sekolah bidan\001"}
{"banyak kali orang aneh di channel ini sekarang"}
{"dingin kaleee berastagi eneeee arghhhh"}
{"padang lawas dimana tuh?"}
{"kalo lagi bete aku makan bakso beserta mangkoknya"}
{"jalan-jalan ke kota pinang kok banyak pohon rambungnya"}
{"banyak kali orang kaya baru di aek loba bahh"}
{"mie pangsit siantar emang khas banget"}
{"Sherad sudah mandi.."}
{"ada spammer tuh.."}
{"indomie itu makanan pokok orang nigeria"}
{"woiii chating aja kerja kelen cam tak ada kerja laen"}
{"op nya pada tidur semua yaaa.."}
{"semoga cinta ini tidak pernah salah.. hiks -_-!"}
{"sebel sebel sebel... pokoknya sebel"}
{"kapan deh infrastruktur jalan di kota ini diperbaikin"}
{"!seen dex"}
{"perhatian perhatian.. selamat datang di bandara kuala namu"}
{"cowok tuh brengsek semua yah"}
{"namanya juga bangke biar dikeramasin tetep bau bangke"}
{"rambut aku bagus banget nihh kayak rambut sandra dewi"}
{"seandainya aku bisa memilih...."}
{"opo iyo??"}
{"kawan kecil aku lucu kali lah pake sepatu arista kaos kaki gambar batman"}
{"ada yang bisa?"}
{"karimun.. karimun.. dari aromanya terbayang kelezatannya"}
{"hiyek"}
{"asyikk dibeliin bang kidnap gulai kepala manyung"}
{"kapan ?"}
{"sak tenan e aku pancen ngapusi iseh tresno sliramu.."}
{"mas e ngganteng banget ik.."}
{"katanya banyak penjahat kelamin yah di channel ini?"}
{"jelasnya kalian ne?"}
{"ada nggak sih cowok yang bener2 setia?"}
{"duh bangga banget deh diapelin ma cowok yang bawa TERIOS"}
{"seneng banget deh diapelin sama masku"}
{"nggak usah maju-maju kali jadi orang"}
{"mbak yu pa kabar?"}
{"mbak Riska dah jadi pns yah?"}
{"tum diundang mbokmu.."}
{"kerjaa kalian woii jangan chating aja..."}
{"seumur hidup kok mau jadi penipu yah?"}
{"ihhh takut ada komnas preman ntar jadi korban luar dalam"}
{"jadi cowok modal dikit napa kalo bokek kocokkan!!!"}
{"ngobroll yukkk"}
{"cita..? siapa tuh cita?? ada yang kenal?"}
{"ajarin dong cara bikin bot yang bisa ngomong sendiri"}
{"pusing banget mikirin cowok ku kerjaannya chating mulu"}
{"kapan aku bisa selingkuh....!!!"}
{"woiiiiiiiiiiii bagudung"}
{"kapan aku punya pacar !!!"}
{"tak ada yang jolas bah"}
{"ambil formulir dulu ahh mau daftar sunatan masal hihihi"}
{"asyik banget yah Marsada Band ini"}
{"dex itu jahat banget ya"}
{"kapan aku kawin yaa !!!!"}
{"*hiks*"}
{"sebel..!!"}
{"\001ACTION sebel ma dex dia sadis banget... hiks hiks\001"}
{"begado sakit kalo gegek enak kwkwkwkw"}
{"nggak usah sok ngaku orang baek2 kaw"}
{"neh cewek mulut atas sama mulut bawa sama bauknya"}
{"oon semua klen..."}
{"mencintai budaya dan kearifan lokal adalah langkah bijak"}
{"jelek2 gini aku masih ponakan pak Gatot Pujonugroho"}
{"Viva PSMS!!!!"}
{"apa kabar PSDS?"}
{"!seen cowok ganteng"}
{"abangggg..  kapan traktir aku makan burung??"}
{"gimana yah caranya supaya ga digodain cowok hidung belang"}
{"pengumuman aku online pake LAPTOP!!!"}
{"aku dibeliin  LAPTOP lengkap dengan modemnya"}
{"ada cowok medan yang kuliah di jogja ga?"}
{"Riskaaaaaaaaaaaaaaaaaaaaaaa............!!!"}
{"lantam kali mulutnya kalo pv an"}
{"bah capek kali awak nunggu di brayan sampe mengakar"}
{"ene muncung pada nggak pernah kena bangku sekolahan"}
{"hmmm bosen banget taukkk 3 taon jaga warnet mulu"}
{"udah kayak ibu-ibu rumah tangga deh gue..!"}
{"asikkk aku online pake LAPTOP kemarenn dibeliin sama mama aku"}
{"bang kidnap tuh di jambi kan??"}
{"kurasa cowok yang didepanku ini makan sampah lah tiap hari"}
{"channel ne tak ada yang jelassss"}
{"ya sudah lah.. =)"}
{"bah!!"}
{"hamik su?"}
{"ni hao ma?"}
{"pengen surfing di pulau nias bareng sama bule ganteng xixixi"}
{"abang dex dah makan indomie?"}
{"Angkat gelas juragan!!!"}
{"bangga deh tinggal di SUMUT yang heterogen i love you pullll"}
{"pengen ke Palembang beli Pempek"}
{"lebih seru ke Tarutung atau Balige yahh atau ke Pangururan aja"}
{"sekarang dah ada kapal ferry dari Tigaras ke Simanindo samosir"}
{"pengen liburan ke tongging liat air terjun sipiso-piso"}
{"orang saribu dolok pasti kalo malem pake baju 5 lapis hehe"}
{"tau nggak orang kebon balok langkat itu ternyata sodaraan ma aku"}
{"waktu aku kecil kalo beli duren di Perbatuan deket siantar sono"}
{"capekk juga yahh abis jalan2 ke simarjarunjung"}
{"hasian hasian hasian i can't stop dreaming of you nimmu do"}
{"mbak Riska itu manis loh"}
{"Adong do halak batak dison?"}
{"Opo ono wong jowo nang kene?"}
{"u tenglang lai ko lai bo?"}
{"emang salak sidempuan masih ada yang manis yah?"}
{"\001ACTION jantungan nonton film The Raid\001"}
{"aku kalo bete makan bakso beserta mangkoknya!!!"}
{"ntarr mampir ahhh ke RM Sudi Mampir Perbaungan maem SOP ayam"}
{"pantai cermin indah lautnya.. pantai sialang buah banyak ikannya"}
{"ada yang di pajak ikan lama gakk??"}
{"pengen beli souvenir khas danau toba nih.. ke tomok dulu ahhh"}
{"pengen ke air terjun sigura-gura jalannya lewat mana yah?"}
{"apanya pulak cowok2 ene ngajak2 maen"}
{"kalo ke siantar jangan lupa ke roti ganda yah"} 
{"kapan kapan arisan lagi akh"}
{"ntah kenapa lah si dex itu banyak kali tingkahnya"}
{"ngangkang kaw sana ngecer di ismud wkwkwkwkw"}
{"sopan sikit kupijak pijak kaw nantee"}
{"aduhh.. seneng bangeeett aku hari ini..!!!!!!"}
{"kalo mau short time ke hotel padang bulan aja paling2 60rb"}
{"pengen ke parapat nehh ada yang mau ikut ga?"}
{"diem dehhh..."}
{"duhh pengen deh shoping shoping kayak dulu lagi arghhh"}
{"kukiranya ujan taunya adek awak kenceng diatas pokok rambutan"}
{"uppss Katua masokkk"}
{"aku diem diem gini fans berat mas Didi Kempot"}
{"THH lah orang chating ene"}
{"tips hidup sehat perbanyak sayur dan buah kurangi nasi"}
{"kapan yah aku jadi OP  -_-!"}
{"bosan kali lah, mau ngapain ya?"}
{"ku bukan dokter cinta, ku bukan dukun cinta"}
{"ada yang bisa bantu kerjain tugas kul aku ga neee"}
{"menikah itu karena karena kemauan bukan karena kebisaan catett!!"}
{"aku bingung wajahku putih kayak orang melayu logatku kayak orang jawa"} 
{"aku bingung!!"}
{"kau pasti tubang medan"}
{"dex lembut tapi nakal ya..."}
{"hanya Tuhan lah yang tau"}
{"kalian kalian aja pun ku tengokkk"}
{"kalo ke berastagi enaknya nginep dimana yahh"}
{"sepi banget sihh mending tutup aja deh channel nya"}
{"brisik"}
{"hari raya pulang kampung ga yahh"}
{"Jauh tak berjarak dekat tak bersentuhan"}
{"dari medan ke siantar berapa jam yah?"}
{"bodat tuh artinya apa sih?"}
{"nggak nanya tuh"}
{"kakakku Riska mana yah?"}
{"makasih atas luka yang kau beri"}
{"biar lah kunikmati hidupku yang tak seberapa indah ini"}
}

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
 }
}

##  hello ##
set Reponden3.v "hel Respon"
bind pub - hello hel_speak
bind pub - alo hel_speak
bind pubm - *aloo* hel_speak
bind pubm - *haloo* hel_speak
bind pub - hallo hel_speak
bind pub - hai hel_speak
bind pub - hi hel_speak
bind pub - hy hel_speak
set ranhel {
  "helloooo juga"
  "hello how are you ^_^"
  "halooooooooo"
  "iya"
  "iyes!"
  "yes, Hello too, bisa ?"
  "alo sayank"
  "Hi juga"
  "helo"
  "oi oi oi oi oi"  
  "Halo juga nich, kamu sapa nich, SKSD deh"
  "hello juga bro"
  "Hai hai hai sehat bro?"
  "hey uga"
  "hiiiiiiiiiiii"
  "hello juga pasti baru bangun"
  "Hi jelek.. =)"
  "hai hai hai hai juga"
  "apa khbar nich nama kamu siapa"
  "halo juga perkenalkan nama ku dini, kalau kamu siapa?"
  "asl ku = 20 f medan :)"
  "hiiiii , kenalan yukk"
  "asl pls, nama ku dini hohohoho"
  "Hi juga =)"
  "alo juga, siapa disitu ?"
  "alooow how do i look?"
  "ahh aku away dulu aja lah"
  "asik kau aj lah dari kemaren yang halo halo"
}

proc hel_speak {nick uhost hand chan text} {
 global botnick hel_chans ranhel
if {(([lsearch -exact [string tolower $hel_chans] [string tolower $chan]] != -1) || 
($hel_chans == "*"))} {
set hels [lindex $ranhel [rand [llength $ranhel]]]
putserv "PRIVMSG $chan :$hels"
  }
} 

##  Brb  ##
set Reponden4.v "Brb Respon"
bind pub - brb brb_speak 
bind pub - gtg brb_speak 
set ranbrb {
  "ok"
  "paling juga mau ke eleven"
  "me too, istong time!"
  "ngakunya brb paling gebetan jalan terus"
  "ga usah balik lagi kalo bisa"
  "brb artinya Be Right Back oonnnn..."
  "mo kemana nich, kok ga ngajak ngajak hehehe"
  "jangan lama lama yah , aku masih kangen nich..."
  "kalo mau pamit ucapin salam dong"
  "ok sayang jangan lupa ambil duit dulu yah"
  "lesannnn.. paling juga gebetan"
  "nggak nyampe 5 menit kan istongnya hehehehehee"
  "ikut donk..."
  "idihhh yang mau kencan"
  "brb boleh tapi jangan harap dapat no hp ku"
  "ok, aku tunggu yah.. jangan lama2 kan belom bayar"
  "brb mau kemana.. mau beli makanan yah.. ikut donk.."
  "ye.. baru juga elo masuk udah brb payah.. loe..."
}

proc brb_speak {nick uhost hand chan text} {
 global botnick brb_chans ranbrb
if {(([lsearch -exact [string tolower $brb_chans] [string tolower $chan]] 
!= -1) || 
($brb_chans == "*"))} {
set brbs [lindex $ranbrb [rand [llength $ranbrb]]]
putserv "PRIVMSG $chan :$brbs"
  }
} 

##  Bye  ##
set Reponden5.v "Bye respon"
bind pub - bye bye_speak 
bind pub - pamit bye_speak 
set ranbye {
  "ati ati dijalan yahh, byeee, kalo jatoh, bangun sendiri yahhh"
  "sampe jumpa besok di waktu dan jam yang sama hihihihi tha tha"
  "ati ati Ntar ketabrak tronton lagi"
  "thathaaa"
  "nice to meet you today, hope can see you agaiin tomorrow"
  "ati-ati di jalan bi!!"
  "ya udah pegi sana bikin semak aja kau disini"
  "pergi aja sono nggak ada yang nyari kok"
  "kok buru-buru amat tadikan baru datang kok udah mau pergi.."
  "ok deh.. bye.. juga"
  "ikutan off ahh"
  "see u tonight jangan lupa bayar net nya yah"
  "bagus lah off kaw dari pada bikin semak"
  "semoga diterima disisi Nya"
  "sampai besok ya cong"
  "iyah..take care yaahh njengg"
  "yang off maho"
  "paling juga mau ke eleven cari berges"
  "makjang mau kejuanda bah"
  "makacih ya udah gabung dan maen disini"
}

proc bye_speak {nick uhost hand chan text} {
 global botnick bye_chans ranbye
if {(([lsearch -exact [string tolower $bye_chans] [string tolower $chan]] 
!= -1) || 
($bye_chans == "*"))} {
set byes [lindex $ranbye [rand [llength $ranbye]]]
putserv "PRIVMSG $chan :$byes"
  }
} 

##  Badword  ##
set Reponden6.v "Bad Respon"
bind pubm - *konto* bad_speak
bind pub - pepek bad_speak
bind pub - memek bad_speak
bind pubm - *tae* bad_speak
bind pub - eek bad_speak
bind pub - eeq bad_speak
bind pub - babi bad_speak
bind pub - anjing bad_speak
bind pubm - *anjeng* bad_speak
bind pubm - *cibai* bad_speak
bind pubm - *cibe* bad_speak
bind pubm - *ngento* bad_speak
bind pubm - *kimaq* bad_speak
bind pubm - *kimak* bad_speak
bind pubm - *kemaq* bad_speak
bind pubm - *kemak* bad_speak
bind pubm - *anjenk* bad_speak
bind pub - tai bad_speak
bind pubm - *jembut* bad_speak
set ranbad {
  "tuh yang ngumong mulut bawah atau mulut atas"
  "keliatan deh mulutnya ga pernah disekolahin"
  "ati ati ntar jarimu keseleo"
  "THH kaw neee"
  "setan!!!"
  "bodat!!!"
  "jaga ketikanmu bos!!!"
  "bagus kaw yah kalo ngomong"
  "ntah dimanalah kau belajar chating tak ada bagus-bagusnya"
  "keliatan deh kreaknya anak mana?"
  "kreaknya di chating aja nante jumpa darat diam"
  "siapa ngajari kaw ngomong gitu?"
  "bah sopan sekett kau"
  "sama kau lah itu"
  "dah kebal situ rupanya?"
  "mintak dibalsam kurasa mulut kaw ya"
  "diam kaw bangs*t"
  "keong!!"
  "kambing!!!!!!!!!!"
  "kucincang baru tau rasa kau!!"
  "kucabe nanti mulut mu"
  "makan kau lah itu"
  "mulai deh..."
  "====> contoh manusia tak pernah sekolah"
  "bah!!!!! maju x muncung mu"
  "sopan kau bodat!! banyak orang tua disni"
  "nggak usah maju2 kali muncung mu itu"
  "mulut coyyy"
  "ku timpa kau nanti"
  "monyet kaw!!"
  "ihhh jorok banget orang macam apa lah kau ini"
  "diam kau njeng!!"
  "lantam kalee mulut kawan enee"
  "sekolah preman di mana boss??"
  "malu aku nengok kauu"
  "thh aja ponn"
  "tak berpendidikan!!!"
  "busukk kali mulut mu"
  "makjang!! kasar banget sih"
  "sopan sikit kaw kupijak pijak kaw nante"
  "amponnn premann amplass"
  "di hutan kurasa cocoknya kaw ini"
}

proc bad_speak {nick uhost hand chan text} {
 global botnick bad_chans ranbad
if {(([lsearch -exact [string tolower $bad_chans] [string tolower $chan]] 
!= -1) || 
($bad_chans == "*"))} {
set bads [lindex $ranbad [rand [llength $ranbad]]]
putserv "PRIVMSG $chan :$nick $bads"
  }
} 


##  Thania  ##
set Reponden7.v "Than Respon"
bind pub - Thania Than_speak
bind pubm - "*Thania*" Than_speak 
set ranThan {
  "ya ada apa"
  "iya bang ada apa?"
  "hihihihihi"
  "oiiii ada apa mas?"
  "apa sih manggil manggil"
  "dari nick mu keliatan kaw ini penjahat kelamin"
  "malasss"
  "ogahhh"
  "opo cuk!!"
  "ntahhh"
  "apa.. masalah buatmu aku disini?"
  "diam kaw sibuk kalee manggil manggil"
  "apa.. mau ngajak ketemuan? apa lah tungganganmu?"
  "yuhuuuu i am here nyett"
  "nggak usah kaw ketik nickku kalo nggak pengen kumaki kaw"
  "iya.. upss.. kau kan tukang deres tuak di majakir itu"
  "sekali lagi manggil2 aku kulempar pake kibot kaw"
  "sibukk"
  "heppott kali kau ini ngetik namaku"
  "sory ye ga ada niat kenalan sama si paok paok kayak kau"
  "sibuk kale kaw ene lalap manggil2" 
  "sksd banget u jadi orang"
  "apa sihhh"
  "tak usah panggil2 aku bikin semak aja kau nehh"
  "ada apa rupanya?"
  "nggak sor kaw aku di channel ini?"
  "nggak minat aku sama mu dah kayak tubang kau ne"
  "tehepe hepe lah kau ini"
  "asl pls"
  "dalem.."
  "saya..!!"
  "aha.. i"
  "apa... mau nanya no BH?"
  "hamik su?"
  "ya mia hamik?"
  "apa sih kernet Intra ini manggil2"
  "yang manggil aku barusan kombinasi antara paok dan longor"
  "nggih mas/mbak pripun kabare?"
  "wonten menopo kok ngundang asmane kulo?"
  "ishh ga sudi yah dipanggil sama maho"
  "iyaaaaaaaa apaaaa"
  "seloww wak geng.. aku disini"
  "aku Afika bukan Tania"
  "kerja dulu kau baru kenalan sama aku"
  "tukang tambal ban aja sok ngajak kenalan"
  "ga laku yaa wkkwkwkw"
  "yang lengkap dong manggilnya"
  "haiii"
  "apa njing??"
  "bawel kau!!"
  "yoaaaa..."
  "kamu siapa nii"
  "1x lagi kau ketik nickku hajab lah kaw kenakk pijak.."
  "manggil2 aku?? cak kau periksa seletingmu itu dah rapat belom?"
  "apa... selow kaw duduk manis disitu sambil makan bombon"
  "apa urusanmu manggil2 aku?"
  "iya om ada apa? tante digas sopir taxi lagi yah?"
  "iya tante.. denger2 si om main gila sama banci porsea yah?"
  "apa toh.. kangen po?"
  "sibuk kali manggil2 kayaknya ko sering ditunggangi kuda berastagi"
  "apanya manggel2 jadi ijo mircku"
  "brisik kali lah ko ene"
  "ga usah manggil langsung pv aja kalo idup barangmu"
  "kaw aja kutengok"
  "ga usah ngundang2 aku kowe cok!!"
  "bah!! manggil polak"
  "ada apa? kenapa rupanya?"
  "apa..!!"
  "apa... mintak dilibas?"
  "apa au manggil2 ??"
  "apa ndon bondon.. ngecer kaw sana di bandar baru"
  "ada apa.. siamang! cantekk kaw bergelantungan situ"
  "heppottt kayak beruk kelaparan manggil manggil aku"
  "dari kemaren2 asik kau kau aja"
  "brisik kale kow ene pas kayak monyet di kebon binatang"
  "ga usah panggil panggil bodat"
  "gak usah sok kenal"
  "bukan aku bang"
  "apa genk??"
  "yaa itu nama tengahku"
  "tau aja nih kamu nama tengahku"
  "manggil2 apa lah modal mu kenalan sama aku"
  "apaaaaaaaaa"
  "chibi chibi chibi"
}

proc Than_speak {nick uhost hand chan text} {
 global botnick Than_chans ranThan
if {(([lsearch -exact [string tolower $Than_chans] [string tolower $chan]] 
!= -1) || 
($Than_chans == "*"))} {
set Thans [lindex $ranThan [rand [llength $ranThan]]]
putserv "PRIVMSG $chan :$Thans"
  }
} 

##  Tawa  ##
set Reponden8.v "Tawa respon"
bind pubm - *haha* Tawa_speak
bind pubm - *hihi* Tawa_speak
bind pubm - *hoho* Tawa_speak
bind pubm - *huhu* Tawa_speak
bind pubm - *kaka* Tawa_speak
bind pubm - *kwkw* Tawa_speak
bind pubm - *keke* Tawa_speak
bind pubm - *hoehoe* Tawa_speak
bind pubm - *hehe* Tawa_speak
bind pubm - *keokeo* Tawa_speak
set ranTawa {
  "ihh ketawa dia"
  "hihihihihi"
  "hauhauahuahahau"
  "kwkwkwkwkwkwkwkwk"
  "kamu lucu yah"
  "huakakakakakkamprettttt"
  "xixixixixi"
  "bauk bangke mulut kaw itu kalo ketawa :)"
  "apanya yang lucu?"
  "hahah ikut kekeh aja lah tah apa yg lucu"
  "lama-lama ikut pauk juga awak neh kwkwkw"
  "dilampu merah sana kaw ketawak longor!!"
  "ishh ketawaknya tahapa hapa pon"
  "baukk abis makan tong sampah yah xixixixiixi"
  "wakakakaka lucu kaleee kawan ene"
  "ga betul nih ketawa sendiri :P"
  "dah ga normal ketawak mu itu setan!! =)"
  "tawa mu mengandung sejuta kesedihan kasian.."
  "ketawa.. dah kecolok tuak 1/2 gelas kaw yah"
  "tak ada yang lucu ketawak!"
  "pasti ngetawain gue :P"
  "lucu kale ketawak komandan ene"
  "baukk jengkol hoekkkss"
  "kalo ketawa your face looks like silly monkey kwkwkw"
  "ketawaknya nggak greget ahh"
  "wakakakakakakaka"
  "nggak usah ketawak kau bukannya nambah cakep mu"
  "ngelucu cari perhatian nih"
  "yang ketawa barusan mirip simpanse"
  "kalo ketawak dah mirip kali sama primata di afrika kw ne"
  "stresss ya ketawa sendiri :)"
  "paok kali ketawa sendiri"
  "kebanyakan makan roti ketawa kau ne"
  "ntah ngetawain apa awak tak ngerti" 
  "jangan lebar lebar kw kalo ketawak"
  "kekeh diaa hiahiahiahia"
  "hahahaha"
}

proc Tawa_speak {nick uhost hand chan text} {
 global botnick Tawa_chans ranTawa
if {(([lsearch -exact [string tolower $Tawa_chans] [string tolower $chan]] 
!= -1) || 
($Tawa_chans == "*"))} {
set Tawas [lindex $ranTawa [rand [llength $ranTawa]]]
putserv "PRIVMSG $chan :$Tawas"
  }
}

##  SENYUM  ##
set Reponden9.v "Senyum respon"
bind pub - :) Sml_speak 
bind pub - :-) Sml_speak
bind pub - :)) Sml_speak
bind pub - :=)) Sml_speak
set ranSml {
  ":)"
  ":)~"
  "senyumnya manis ya"
  "senyum senyum dia pasti mau cari gbt huahuahuahau"
  "abis gajian nih senyum-senyum..."
  "mentang2 abis kencan di box langsung senyum2"
  "apa sih arti senyum loe :)"
  "manis kali senyumanmu itu"
  "hadeh... dikasih senyum"
  "makaceh eaa dah tersenyum pada ku"
  "duhh tersipu dirikuhh"
  "idihh senyum dia"
  "genit u senyum2 sendiri"
  "senyummu membawa luka xixixix"
  "coba deh aku dapat senyuman kayak gitu tiap hari"
  "kamu cocok banget jadi sales murah senyum :D"
  "berbakat jadi satpam!! =)"
  "dikirain kalo senyum2 trus ada yang kasih duit? :P"
}
 
proc Sml_speak {nick uhost hand chan text} {
 global botnick Sml_chans ranSml
if {(([lsearch -exact [string tolower $Sml_chans] [string tolower $chan]]
!= -1) ||
($Sml_chans == "*"))} {
set Smls [lindex $ranSml [rand [llength $ranSml]]]
putserv "PRIVMSG $chan :$Smls"
  }
}

##  MELET  ##
set Reponden2.v "elet respon"
bind pub - :p elet_speak 
bind pub - :p~ elet_speak
bind pub - :pp elet_speak
bind pub - :)~ elet_speak
set ranelet {
  "lidahnya panjang yah"
  "kalo melet gitu persis ular deh kamu.. hihhhi"
  "emang kalo melet gitu terus keliatan keren?"
  "suka banget sih keluarin lidah.. pasti tukang jilat yah?"
  "lidah kamu kasar kayak lidah kucing lol"
  "dasar paok!! emang kalo melet trus keliatan cool?"
  "ow melet melet dia ga maluuu lidahnya keluar"
  "ke pulau komodo aja sono banyak yg lidahnya panjang kayak kamu"
  "duh jadi pengen makan sate lidah" 
  "keliatan bego nya"
  "p~~~~~~~~~"
  "emang kalo melet gitu trus dimaafkan?"
  ":p~"
  "weekk"
  "pretttt"
  "dasar ularr berbisaa"
  "ihh geli taukk"
  "apa melet melet?? kupotong ntar lidahmu"
  "pengen digigit yah lidahnya"
  "punya hubungan kekerabatan sama kadal yah?" 
  "issshh ada yang melet"
  "melet2 kek orang longor"
  "memang lidahmu tak bertulang"
  "yg barusan melet kemungkinan besar mahokk hihihi"
  "melet melet pasti kebanyakan jilat yang ga bener nih"
}

proc elet_speak {nick uhost hand chan text} {
 global botnick elet_chans ranelet
if {(([lsearch -exact [string tolower $elet_chans] [string tolower $chan]] 
!= -1) || 
($elet_chans == "*"))} {
set elets [lindex $ranelet [rand [llength $ranelet]]]
putserv "PRIVMSG $chan :$elets"

 }
}

##  ASL  ##
set Reponden2a.v "asl respon"
bind pub - asl asl_speak 
bind pub - a/s/l asl_speak
set ranasl {
  "20 f medan"
  "20 f medan tapi skrg aku lagi di dolok sanggul"
  "aihh gaya kali sopir SAMPAGUL ini nanya2 asl" 
  "nanya asl siapa tuh?"
  "kamu cewek atau cowok?"
  "tidak rela lah yaww"
  "anak baru yah?"
  "dah paten situ?"
  "nggak level yah kasih tau ma u"
  "dasar nubitollll" 
  "asl asl asl lalap"
  "asl itu artinya Age Sex Location!!"
  "kayak tau aja artinya asl apa lah coba?"
  "haree genee nanya asl??"
  "ok deh! aku sebutin di pv an aja yah"
  "mendingan langsung tanya no hp aja"
  "wuihhh nanya asl nih"
  "dasar bego hari gini nanya asl langsung FB + no HP donk"
  "pasti baru belajar chating hihihihi"
  "formal banget nih nanya ASL"
  "ASL atau ALS?? nanti ALS polakkk"
  "ASL = ALS yah?? Asal Lao Sega dong kwkwkwkwkwkw"
  "sering naikk ALS yah?? ampe nyebutnya kebalik balik jadi asl"
  "yakin nih pengen tau asl ku?"
  "emang masih minat tau asl ku kalo aku di dolok sanggul"
}

proc asl_speak {nick uhost hand chan text} {
 global botnick asl_chans ranasl
if {(([lsearch -exact [string tolower $asl_chans] [string tolower $chan]] 
!= -1) || 
($asl_chans == "*"))} {
set asls [lindex $ranasl [rand [llength $ranasl]]]
putserv "PRIVMSG $chan :$asls"

 }
}

##  KAMU  ##
set Reponden2b.v "kamu respon"
bind pub - kamu kamu_speak 
bind pub - kau kamu_speak
bind pub - kao kamu_speak 
bind pub - kaw kamu_speak
bind pub - koe kamu_speak 
bind pub - kowe kamu_speak
bind pub - loe kamu_speak 
bind pub - lu kamu_speak
bind pub - lo kamu_speak 
bind pub - ente kamu_speak
bind pub - kita kamu_speak
set rankamu {
  "siapa nih yang dimaksud?"
  "aku?"
  "sopo toh sing dimaksud?"
  "kowe?"
  "ane?"
  "gua nih?"
  "ise.. au do?"
  "maksudnya aku?"
  "kowe sopo toh?" 
  "siapa?"
  "nanya aku bukan?"
  "siapa kamu?"
  "kamu siapa?"
  "asl donk"
  "??????"
  "sinten?"
  "sanes kulo.."
  "aku atau siapa nih?"
  "gua kah?"
  "ahh.. annondaong"
  "kita?? elu aja kali gw kagak"
  "aku nya??"
  "kamu lagi.."
  "kamu kale.."
  "aku atau kami?"
  "kau nya itu?"
  "kurasa pun bukan aku" 
}

proc kamu_speak {nick uhost hand chan text} {
 global botnick kamu_chans rankamu
if {(([lsearch -exact [string tolower $kamu_chans] [string tolower $chan]] 
!= -1) || 
($kamu_chans == "*"))} {
set kamus [lindex $rankamu [rand [llength $rankamu]]]
putserv "PRIVMSG $chan :$kamus"

 }
}



##  IYES  ##
set Reponden2c.v "iya respon"
bind pubm - *iya* iya_speak
bind pubm - *iyo* iya_speak
bind pubm - *yea* iya_speak
bind pub - ok iya_speak
bind pub - yes iya_speak
bind pub - oke iya_speak
bind pubm - *yoi* iya_speak
bind pub - ya iya_speak
set raniya {
  "ok deh"
  "iya deh.."
  "yo wes"
  "ya udah.."
  "iya po??"
  "ahh masak.."
  "trusss.."
  "sippp..!"
  "iya ngerti kok kalo kamu tukang gosip"
  "berarti omongan orang yang kemarin tuh bener"
  "beneran nihh?"
  "nggak salah orang kan?"
  "ahh anon daong"
  "aww masak sihhh?"
  "yup"
  "iya iyaaa jangan asal iya yang bener kamu!!"
  "aku percaya kok"
  "iya iyaa..."
  "ah massasiy cong"
  "iyakan aja dehh.." 
  "iya apanya?"
  "ya udahhh tunggu yahh"
  "hmm.. bisa dipercaya nggak omonganmu?"
  "masak iya???"
  "ga percaya deh kalo iya"
  "ya wes lah manut"
  "asl donk gak pake lama yah hihihi"
  "ok dehh then what next?"
  "gak caya tuh"
  "oooo.. bulett"
  "owalahhhh"
  "aw.. masak sih"
  "hmm...."
  "berarti botulll"
  "gak nyangka deh.."
  "hu uh dehh"
  "lantas...?"
  "ya ya ya ya"
  "yang botul.."
  "iya deh ga pake lama"
  "ohh ngerti aku"
  "oo paham banget deh.."
  "iya cukup sampai disitu"
  "iya juga yaa hehehe" 
}

proc iya_speak {nick uhost hand chan text} {
 global botnick iya_chans raniya
if {(([lsearch -exact [string tolower $iya_chans] [string tolower $chan]] 
!= -1) || 
($iya_chans == "*"))} {
set iyas [lindex $raniya [rand [llength $raniya]]]
putserv "PRIVMSG $chan :$iyas"

 }
}


##  CIUM  ##
set Reponden3a.v "cium respon"
bind pub - cium cium_speak 
bind pub - kiss cium_speak
bind pub - tiom cium_speak 
bind pub - thiom cium_speak
bind pub - tium cium_speak 
bind pub - ciom cium_speak
bind pub - cipok cium_speak 
bind pub - muach cium_speak
bind pub - mwah cium_speak 
bind pubm - *muachh* cium_speak
bind pubm - *mwahh* cium_speak
set rancium {
  "idihh genitt cium2"
  "duhh merah deh pipiku"
  "makasihh yaa dah cium"
  "muach juga"
  "mwah"
  "ohh tidakkkk jangan... jangan berhenti nyiumnya hehe"
  "dasarrr genittttttttttt"
  "wahh dah nggak bener nih"
  "duh jadi malu.."
  "nyosor aja kaw ene kayak angsa"
  "aturr dulu bibir kaw itu jangan asal nyosor"
  "ciumm tuh bibir kuda berastagi kwkwkw"
  "cium2 pulakk ditempat umum" 
  "bibir kamu tebel yahh kayak bibir togok kekekeke"
  "keliatan kan kalo penjahat kelamin cium2 sembarangan"
  "cium aja tuh bibir truck!!! dasar gila!!"
  "memang mengong lah kaw ini banci pun kaw cium"
  "cium aja tuh pantat ayam"
  "hiyekkssss"
  "hoekkkkkssssss bauk kali mulutmu"
  "sikat gigi dulu sebelom cium2"
  "dah beli permen kiss nihh makanya cium-cium.. hihihi"
  "ginit puollllll"
  "duhh serasa dicium truck fuso heheheh"
  "bah.. liar kali bibir kaw ituu"
  "nyosoooorr terosssssssss"
  "ihhh gak maluuu"
  "cium sapa tuh??"
  "orang genit ke bukit maraja aja sonoo hauhauah"
  "maafin aq yah tak sanggup membalas ciuman kamu :("
  "dasarr keong racunn!!!"
  "najiss dahh dpt ciuman dari kamu"
  "ohh tidakk aku ternoda.. hiks hiks"
  "tolongggg aku dilecehkan.."
  "paokk kali lontong satu ini cium2 tak jelass"
  "sopan sikitt kaw tol jangan asal cium"
  "merem dulu donk ntar aku kiss deh hihihi"
  "sabar wak geng kenalan dulu kita jangan maen cium aja" 
  "ihh.. menggelinjang deh aw aw aw.."
  "congor babi tuh kaw cium lappettt"
  "wew.. cium2 sampluk sendal sisan lambemu!!"
  "mesum banget jadi orang"
}

proc cium_speak {nick uhost hand chan text} {
 global botnick cium_chans rancium
if {(([lsearch -exact [string tolower $cium_chans] [string tolower $chan]] 
!= -1) || 
($cium_chans == "*"))} {
set ciums [lindex $rancium [rand [llength $rancium]]]
putserv "PRIVMSG $chan :$ciums"

 }
}

##  ADA  ##
set Reponden3b.v "ada respon"
bind pub - ada ada_speak 
bind pub - adong ada_speak
bind pub - adaa ada_speak 
bind pub - adongg ada_speak
bind pub - adanya ada_speak 
set ranada {
  "ada bang"
  "ada omss"
  "kayaknya ga ada tuh oms"
  "ga ada lah paok!!"
  "ada di pasar bengkel"
  "mao tau ajahhh"
  "kurang tau juga ya"
  "kayaknya ada sihh" 
  "ada apanya?"
  "bo.. bo ada"
  "maksudnya??? yang kayak gimana??"
  "di mall sana banyak kwkwkwkwkw"
  "coba pv yana_nhaa barang kali dia ada tau"
  "nyari apaan sihh"
  "kurang tau coba jelaskan sejelas jelasnya!!"
  "ada kambing sama kebo wkwkwk =))"
  "ada di toko-toko besi terdekat kwkwkw"
  "mungkin ada coba tanya sama dragonman"
  "tak ada lah.. kurasa dah bengak kaw ini"
  "coba ketik !find <yang kamu cari>"
  "cak bentar aku tanya mbak google dolo eaaa"
  "mungkin aja ada tapi ntahh lahh pikiranku lagi kusut"
  "mana adaaaaaaa dasar mengong!!!"
  "ora ono mas mbok yo utek mu ki dinggo"
  "kadang ada kadang nggak"
  "ada banget pasti ada lahhh"
  "adaaaaaaaa aku tauuu yakin lahh sumpah"
  "mbuhyoo aku ra pateko maksud"
  "cari yang kayak gimana nih?"
  "tidak ada alias ora ono!!!" 
  "coba tanya di supermarket terdekat"
  "ora ono alias dang adong"
}

proc ada_speak {nick uhost hand chan text} {
 global botnick ada_chans ranada
if {(([lsearch -exact [string tolower $ada_chans] [string tolower $chan]] 
!= -1) || 
($ada_chans == "*"))} {
set adas [lindex $ranada [rand [llength $ranada]]]
putserv "PRIVMSG $chan :$adas"

 }
}

##  LAG  ##
set Reponden3c.v "slow respon"
bind pub - lag slow_speak 
bind pub - ngelag slow_speak
bind pub - ping slow_speak 
bind pub - !ping slow_speak
set ranslow {
  "ada yang lag nih... hihihi"
  "kaciann deh loe ngelag"
  "modiarrr lag"
  "kalo ngelag minum dong"
  "kalo ngelag minom aqua jangan tuak!!!"
  "sambil mbokep sih yahh"
  "kebiasaan streaming bokep sih"
  "paling disambil camfrog yah"
  "ganti modem lah paok!!"
  "pindah warnet coyyy jangan disitu lagi ol nya" 
  "ganti aja ISP nya"
  "kaw maki aja orang ISP itu"
  "coba telpon ke ISP nya tanyakan kenapa lambreta"
  "dasarr paokkk hari gini pake PC pentium II buat ol"
  "mampoooosssssssss lagggggg"
  "makanya jangan banyak tingkahhh jadi lag kan"
  "rasainnn lagg dasar bengakkk"
  "modemnya kepanasan tuh"
  "salah pilih provider pastinya!!"
  "maen ke rumah ku aja disini anti lag"
  "ping sendiri aja caranya ketik //ping $me"
  "korban ddos nya danang pasti hihihi"
  "banyak musuh yahh ampe diddos jadi lag gitu"
  "hanya satu kata MAMPOS!!!!!"
  "lag kan?? bagusan pulang kampung aja kaw jd kernet bus MAKMUR"
  "udah tau bandwidth kecil coba2 streaming bokep wajar ngelag"
  "ngelag??? factor face kurasa"
  "nggak usah internetan lah nderes tuak aja kw di ambarisan sana"
  "wajahmu jelekk makanya ngelag"
  "dah tak mau diajak kompromi tuh modem mu bototkan aja"
  "orang udik coba2 maen internet ya lag"
  "banyak gaya kaw ne biasa megang cangkul kok pegang komputer" 
  "makanya bayar tuh tagihan internetnya kalo ga punya duit ga usah ol"
  "apa perdulimu kalo lag?? kaw kan cuma isap2an aja di box warnet"
  "download bokep yah?"
}

proc slow_speak {nick uhost hand chan text} {
 global botnick slow_chans ranslow
if {(([lsearch -exact [string tolower $slow_chans] [string tolower $chan]] 
!= -1) || 
($slow_chans == "*"))} {
set slows [lindex $ranslow [rand [llength $ranslow]]]
putserv "PRIVMSG $chan :$slows"

 }
}

##  SELAMAT PAGI  ##
set Reponden3d.v "pagi respon"
bind pubm - *pagi* pagi_speak
set ranpagi {
  "pagiiiiii"
  "pagi juga"
  "selamat pagii"
  "good morning..!!"
  "good pagi & selamat morning medan.."
  "kukuruyuukkkkkkkkk upss... kayak ayam aja"
  "jangan lupa sarapan yah..."
  "pagi jugaaa pasti abis sarapan dubur ayam.."
  "pagi juga cong..!!"
  "morning juga .!!!"
  "gosok gigi dulu =)"
  "pagi juga jangan lupa sarapan yah"
  "wah pagi2 dah online nih.."
  "yakin nih udah pagi??"
  "ahh lihat jam dulu ahhhh apa bener udah pagi"
  "nggak usah sok ramah kao"
  "pagi buta dah online pas kayak ayam"
  "makjang!! pagi2 dah online"
  "gak percaya tuh kalo dah pagi"
  "ngigau yahh?? hari gini kok pagi"
  "pagi apanya??? sudah siang ni =)"
  "paok kali kau ini masih malam"
  "paok kali kau ini udah siang :P~"
  "lalapppp pagi pagi.."
  "pagi juga!!!"
  "pagi !!"
  "wew.. pagi-pagi dah ol"
  "pagi.... udah minum dancow belum???"
  "jangan lupa minum teh dulu yah?"
  "pageeeeeeeeee juga wak genk..."
  "celamat pagi jujaa"
  "selamat pagi juga... nggak narik pagi ini pak sopir??"
  "good morning..."
  "pagi juga kamu sapa sih?"
  "morning genk.."
}

proc pagi_speak {nick uhost hand chan text} {
 global botnick pagi_chans ranpagi
if {(([lsearch -exact [string tolower $pagi_chans] [string tolower $chan]]
!= -1) ||
($pagi_chans == "*"))} {
set pagis [lindex $ranpagi [rand [llength $ranpagi]]]
putserv "PRIVMSG $chan :$pagis"

 }
}

##  SEDIH  ##
set Reponden3e.v "sad respon"
bind pub - :( sad_speak 
bind pub - :-( sad_speak
bind pubm - *hiks* sad_speak
set ransad {
  ":~("
  "sedihh yahh"
  "kok sedihh"
  "hiksss jadi ikutan sedih"
  "yeeee gitu aja mewek"
  ":("
  "turut prihatin"
  "ck ck ckk tega banget dia"
  "ya udahh yang penting kamu masih ada aku" 
  "halahhh air mata buaya"
  "pasti digangguin ya"
  "hiksss"
  "nggak usah sok sedihh mukak mu kan mukak tembok"
  "kaciann... nih aku beliin bombon"
  "jangan nangis yah ntar aku beliin kondom"
  "beghh si tebal muka sok sedihh"
  "nggak usah sok idihh"
  "jelek kali nasib mu bagus jadi pembantuku aja"
  "ya udah dia emang gitu kok orangnya"
  "ya udah sekarang kamu mikir kedepannya aja gimana"
  "makanya kalo dinasehatin jangan ngelawan gini deh jadinya" 
  "ayoo semangatt!! masih ada hari esok"
  "kemaren sok preman sekarang mewekk mati aja udah"
  "nih aku hapus air mata mu pake kaen pel kwkwkwkwkw"
  "gitu aja nangis"
  "cupp cupp cupp ciniii sama tante thania"
  "hey.. bang dex jangan nakalin dia lagi dong"
  "pasti diajak ML sama dodo yah?"
  "bagusan mati aja kau"
  "mau jadi pemain sinetron nih??"
  "hahaha abis maen nggak dibayar yahh"
}

proc sad_speak {nick uhost hand chan text} {
 global botnick sad_chans ransad
if {(([lsearch -exact [string tolower $sad_chans] [string tolower $chan]]
!= -1) ||
($sad_chans == "*"))} {
set sads [lindex $ransad [rand [llength $ransad]]]
putserv "PRIVMSG $chan :$sads"

 }
}

##  NGANTUK  ##
set Reponden3f.v "zzz respon"
bind pubm - *ngantuk* zzz_speak 
bind pubm - *hoam* zzz_speak
bind pubm - *zzz* zzz_speak
set ranzzz {
  "zzzz..!!"
  "zzzzzzzzzzzz"
  "hoaamzzzz"
  "sama deh aku juga ngantuk"
  "bobok gih sono kalo ngantuk"
  "bubuk cini ma tante.."
  "baru jam segini dah ngantuk"
  "dasar muka bantal!!!"
  "halahh turu wae turu wae mendingan nggodog-nggodog kerang" 
  "ganjal tuh mata pake pentol korek"
  "kebiasaan banyak begadang makanya ngantuk"
  "tidur kaw sono setan dah kusut kali mukak mu"
  "tidur diatas pohon sana kaw nyet"
  "huaaaaaa jadi ikutan ngantuk"
  "bahh trus gimana dong masak aku ditinggal sendirian"
  "fuhh.. kalo kamu tidur aku ma sapa dong"
  "lalapppp jam segini dah ngantokk"
  "ya dahh tidurr sana jangan lupa cuci kaki"
  "sebelum tidur jangan lupa minum dancow dulu yah"
  "halahhh jam segini dah ngantuk banci aja barusan keluar"
  "bobok yukkk" 
  "bobok yukkk boleh numpang ga?"
  "ngantok juga bahhh ikut lah woiiii"
  "hoamm jadi pengen bobok"
  "ngantuk bah!! tidur yuk woiii"
  "kaw ngantuk aku juga ikutan ngantuk nihh"
  "jangan tidur dulu kaw keong kawanin aku doloo"
  "tak kelonin mau ga?"
  "bobok ma aku yukk"
  "ikutan tidur lahh numpang kamarnya tapi jangan diapa2in yah"
  "pasti kebanyakan minum obat tidur"
  "colokkan 1 gelas tuak itu coyy biar melek sikit mata kau"
  "cabekan aja mata kaw itu biar melotot terosss"
}

proc zzz_speak {nick uhost hand chan text} {
 global botnick zzz_chans ranzzz
if {(([lsearch -exact [string tolower $zzz_chans] [string tolower $chan]]
!= -1) ||
($zzz_chans == "*"))} {
set zzzs [lindex $ranzzz [rand [llength $ranzzz]]]
putserv "PRIVMSG $chan :$zzzs"

 }
}

##  TIDAK  ##
set Reponden3g.v "tdk respon"
bind pub - nggak tdk_speak 
bind pub - enggak tdk_speak
bind pub - gak tdk_speak
bind pub - tidak tdk_speak
bind pub - ga tdk_speak
bind pub - ngga tdk_speak
bind pub - gpp tdk_speak
set rantdk {
  "oww"
  "ya udah kalo gitu"
  "ya wes lahh"
  "ahh masak sihh"
  "yakin nihh?"
  "masak sih nggak?"
  "jangan bohong yahh"
  "ahh anon daong"
  "berani sumpah?" 
  "ohhh.. kirain iya hehehe"
  "wew.. terlalu pede aku yah"
  "hihihihihihi kirain"
  "ya udah diam lah kaw sana"
  "ok!!! kalo gitu caramu!! liat aja ntar"
  "yang jelas dong kalo iya ya iya kalo nggak ya nggak"
  "ahh setan lah ga bisa dipegang omonganmu"
  "mati aja lah kaw sana"
  "wokeeee..!! catat itu yah"
  "bagus lah kalo nggak"
  "sippp kalo memang tidak"
  "ya udah berarti bukan urusanku" 
  "yakin ga pengen kenalan sama aku?"
  "sumpah loe!!!!"
  "ahh yang botulll"
  "macak cehhhh"
  "yo wes yen karepmu koyo ngono"
  "pigi sana kau njeng!!"
  "nyingkir aja plsss"
  "oke!! get out from my beautiful face right now!!"
  "halahh sekarang bilang gak nanti bilang ya"
  "betul juga kata kawan ku"
  "trus kamu maunya kayak gimana?"
  "oke deh sip kalo gitu"
  "lantas mau mu apa?"
  "ya udah kalo gitu tapi lap dulu ingusmu itu"
  "ya udah ga usah nangis kaw"
}

proc tdk_speak {nick uhost hand chan text} {
 global botnick tdk_chans rantdk
if {(([lsearch -exact [string tolower $tdk_chans] [string tolower $chan]]
!= -1) ||
($tdk_chans == "*"))} {
set tdks [lindex $rantdk [rand [llength $rantdk]]]
putserv "PRIVMSG $chan :$tdks"

 }
}

##  SELAMAT MALAM  ##
set Reponden2h.v "malam respon"
bind pubm - *malam* mlm_speak
set ranmlm {
  "malammm"
  "malam juga"
  "selamat malam"
  "good night..!!"
  "emang kalo dah malam kenapa?"
  "kalo dah malam enaknya nongkrong di cafe"
  "malam-malam aku sendiri tiada temanku lagi"
  "malam juga anak malam kekekeke"
  "malam ya ci udah siap ngecer nih?"
  "pas kayak bencong malam baru nongol"
  "kalo malam bagusan tidorrr"
  "malam enaknya kelon lah"
  "wew malam2 kok chating bukannya nemenin orang rumah"
  "nampak kali anak liar malam2 malah chating"
  "pulang ko sana!!! bukannya bobok manis malah chating"
  "malam juga siap ngecer nih bro/sis"
  "selamat malam juga jangan lupa kunci pintu dan jendela yah"
  "hmmm.. malam-malam bikin takut ajahh aku kan takut gelap"
  "gak percaya tuh kalo dah malam"
  "ngigau yahh?? hari gini kok malam"
  "malam oiii pasti lagi cari bencong yah wakakakakakaka"
  "paok kali kau ini masih siang"
  "paok kali kau ini udah siang"
  "ahh lalap sai malam toruss"
  "malam juga nyet!!!"
  "malam nya nasib mu eh salah malangnya nasib mu huakakakakakaka"
  "wew.. dah dandan lom nih malam gini"
  "malam juga udah nyiapin secangkir kopi lom?"
  "kalo malam gini jadi kangen sama jogja -_-"
  "malam juga maen cantek yahh"
  "gak yaken awak kalo ah malam hmmm..."
  "selamat malam pak sopir istirahat dolo jangan maen gas aja"
  "udah siap ngegas neh malam gini?"
  "ini malam apa yah?"
  "hah... dah malam?? mamposs lah awak ene belom beli obat nyamok"
}

proc mlm_speak {nick uhost hand chan text} {
 global botnick mlm_chans ranmlm
if {(([lsearch -exact [string tolower $mlm_chans] [string tolower $chan]]
!= -1) ||
($malam_chans == "*"))} {
set mlms [lindex $ranmlm [rand [llength $ranmlm]]]
putserv "PRIVMSG $chan :$mlms"

 }
}

##  SELAMAT SIANG  ##
set Reponden3h.v "siang respon"
bind pubm - *siang* sia_speak
set ransia {
  "siang"
  "siang gini enaknya ke mall nih"
  "selamat siang"
  "trus aku mesti bilang wow gitu?"
  "emang kenapa kalo dah siang?"
  "kalo siang gini enaknya minum jus martabe pake es"
  "siang jadi malam malam jadi siang haukakakaka"
  "siang kok malah chating kerja kau sana longor!! -)"
  "siang juga bbs yuk ma tante qiqiqiqiqiqiqi"
  "halahh palingan siang2 gini lagi ngebox :p~"
  "wah kacau kalau siang2 gini ngebox udah mulut bau bangke badan bau sampah hoekksss =)"
  "siang oiii panas kali ini pengen buka baju!!!"
  "siang gini enaknya renang nih"
  "siang siang maling seng"
  "kerja woi siang gini jangan chating ajah"
  "siang juga ada yang bisa dibantu?"
  "jadi inget sama kekasih hatiku! makan siang pake apa ya dia?"
  "duh siang gini kok malah hujan yah"
  "gak percaya tuh kalo dah siang"
  "ngigau yahh?? hari gini kok siang!! ini masih malam tolol!!"
  "wahh siang gini malah chating bagusan tidur aja kaw biar ada tenagamu nanti malam ngecer di ismud wkwkwkwkw"
  "paok kali kau ini masih pagi"
  "paok kali kau ini udah sore"
  "ehem.. siang juga :)"
  "siang juga barges!!!"
  "siang gini jadi pengen makan rendang di restoran padang"
  "wew.. dah makan siang lom neh"
  "siang juga kumpul2 yuk sambil isi TTS"
  "siang!!! bing kambing dah dimakan rumputnya?"
  "siang bro/sis"
  "gak yaken awak kalo ah siang xxixixixixi"
  "ngebox siang yuk"
  "siang siang gini chating cari apaan lah?"
  "ini hari apa yah"
  "eh siang juga ini tanggal brp yah"
}

proc sia_speak {nick uhost hand chan text} {
 global botnick sia_chans ransia
if {(([lsearch -exact [string tolower $sia_chans] [string tolower $chan]]
!= -1) ||
($sia_chans == "*"))} {
set sias [lindex $ransia [rand [llength $ransia]]]
putserv "PRIVMSG $chan :$sias"

 }
}

##-----------------------------------------------------------------------
putlog "-=-=   ENTERTAINMENT  PROSES   =-=-=-=-=-"
putlog "loaded Successfuly..."
##-------------------------------------------------------------------