# rewell.tcl adalah produk karya Unknown Artis


proc putchan {chan what} {
  putserv "privmsg $chan :$what"
}

# the bind command
proc cmd_bind {hand idx arg} {
  dccsimul $idx ".tcl bind $arg"
}
bind dcc n bind cmd_bind

# the unbind command
proc cmd_unbind {hand idx arg} {
  dccsimul $idx ".tcl unbind $arg"
}
bind dcc n unbind cmd_unbind

# make a dcc command called 'report' that is just an alias for 'status',
# but only requires +o to use
bind dcc o report *dcc:status

# respond to "gross" on a channel :)
proc pub_gross {nick uhost hand chan args} {
  putchan $chan "yeah, gross!"
  return 1
}
bind pub - gross pub_gross

# respond to "slap" on a channel :)
proc pub_slap {nick uhost hand chan args} {
  putchan $chan "Ngapain seh main slap segala?, kangen ya?"
  return 1
}
bind pub - *slap* pub_slap


#---------------------------------------------------------------------
# Life
#---------------------------------------------------------------------

set lifebib {
{sukurin lo bt, makannya gaul dong gaul...!dasar ga gaul}
{bt apaan seh? birahi tinggi?}
{Gue juga lagi bt banget neh, ga ada yang traktir makan}
}

bind pubm - *bt* pub_life
bind pubm - *bete* pub_life

proc pub_life {nick uhost handle chan args} {
   global lifebib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set lifeline [lindex $lifebib [rand [llength $lifebib]]]
      puthelp "PRIVMSG $chan :$lifeline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# lintar
#---------------------------------------------------------------------

set lintarbib {
{tau aja kamu ya.. klo ada wanita cantik di panggil-panggil}
{suka ya sama funny.. bilang aja lagi?}
{jangan di dengerin fun, biarin mereka manggil-manggil.. sini kamu deket Tante Virg1N}
{yang manggil-manggil Funny inget sama anak di rumah}
}

bind pubm - *Lintar* pub_lintar
bind pubm - *lintar* pub_lintar
bind pubm - *funny* pub_lintar
bind pubm - *fun* pub_lintar
bind pubm - *LINTAR* pub_lintar

proc pub_lintar {nick uhost handle chan args} {
   global lintarbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set lintarline [lindex $lintarbib [rand [llength $lintarbib]]]
      puthelp "PRIVMSG $chan :$lintarline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0


#---------------------------------------------------------------------
# hadir
#---------------------------------------------------------------------

set hadirbib {
{ooh, itu dye Aa sandy.. hiks pelukkkkkkkkkkkkkkkkkk}
{akhirnya dateng juga.. Aa Sandy kemana aja sich.. Virg1N cariin juga?}
{Aa sandy.. ga selingkuh khan?}
}

bind pubm - *hadir* pub_hadir
bind pubm - *yup* pub_hadir
bind pubm - *yups* pub_hadir

proc pub_hadir {nick uhost handle chan args} {
   global hadirbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set hadirline [lindex $hadirbib [rand [llength $hadirbib]]]
      puthelp "PRIVMSG $chan :$hadirline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# setia
#---------------------------------------------------------------------

set setiabib {
{beneran ga selingkuh,}
{huh, gombal.. katanya setia nyatanya setiap tikungan ada?}
{Virg1N juga setia kok menemani Aa sandy.. hehehe..}
{janji ama Virg1N, yakin setia selamanya}
}

bind pubm - *setia* pub_setia
bind pubm - *selingkuh* pub_setia

proc pub_setia {nick uhost handle chan args} {
   global setiabib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set setialine [lindex $setiabib [rand [llength $setiabib]]]
      puthelp "PRIVMSG $chan :$setialine"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# janji
#---------------------------------------------------------------------

set janjibib {
{ok deh, Virg1N percaya.. inget yah ama janjinya?}
{janji tinggallah janjji?}
{sep.. janjimu adalah hidup dan matimu.. xixixi..}
}

bind pubm - *janji* pub_janji
bind pubm - *swer* pub_janji
bind pubm - *swerr* pub_janji
bind pubm - *suwer* pub_janji

proc pub_janji {nick uhost handle chan args} {
   global janjibib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set janjiline [lindex $janjibib [rand [llength $janjibib]]]
      puthelp "PRIVMSG $chan :$janjiline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# sandy
#---------------------------------------------------------------------

set sandybib {
{sandy itu bos gw threenet, apa loe manggil-manggil.. suka yee?}
{bos sandy lagi BT tuh kayanye... hibur donk!!}
{mo traktir sandy, ga usah mentahnye aje..kirim aje ke bla.. bla.. bla Ok Friend}
{sandy memang ganteng, keren, cool, sopan, baik, pengertian}
}

bind pubm - *sandy* pub_sandy
bind pubm - *san* pub_sandy

proc pub_sandy {nick uhost handle chan args} {
   global sandybib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set sandyline [lindex $sandybib [rand [llength $sandybib]]]
      puthelp "PRIVMSG $chan :$sandyline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# mencret
#---------------------------------------------------------------------

set mencretbib {
{kok loe tau sich? simontok lagi mencret-mencret}
{crett..crett..crett}
{Gue lagi makan nich, jaga bacod lo yee!! xixixix ..}
{yahhh, banjir dah celana loe.. cuci gih dakh}
{mencret Bumbu apaan tuh?}
}

bind pubm - *mencret* pub_mencret
bind pubm - *mencrettt* pub_mencret
bind pubm - *mencrett* pub_mencret
bind pubm - *menncret* pub_mencret

proc pub_mencret {nick uhost handle chan args} {
   global mencretbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set mencretline [lindex $mencretbib [rand [llength $mencretbib]]]
      puthelp "PRIVMSG $chan :$mencretline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Oii
#---------------------------------------------------------------------

set oiibib {
{Oooooiiiii juga..}
{Hoi...ngapain teriak-teriak}
{Sstt...jangan berisik, aku lagi asyik negh..!}
}

bind pubm - *oi* pub_oii

proc pub_oii {nick uhost handle chan args} {
   global oiibib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set oiiline [lindex $oiibib [rand [llength $oiibib]]]
      puthelp "PRIVMSG $chan :$oiiline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Iya
#---------------------------------------------------------------------

set iyabib {
{Ya iya lah..masa ngga, gimana seh kamu}
{Ah yang bener aja, jangan cuma bilang iya}
{asiiik...sep2, kapan ?}
{Apanya yang iya?}
}

bind pubm - *iya* pub_iya
bind pubm - *yo* pub_iya
bind pubm - *hu`uh* pub_iya

proc pub_iya {nick uhost handle chan args} {
   global iyabib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set iyaline [lindex $iyabib [rand [llength $iyabib]]]
      puthelp "PRIVMSG $chan :$iyaline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0


#---------------------------------------------------------------------
# Tidak
#---------------------------------------------------------------------

set tdkbib {
{Kemarin bilang iya, kok sekarang tidak, yang bener mana neh?}
{Bener neh..ga mau?}
{Ya udah kalo ga mau, aku ga maksa kok!}
}

bind pubm - *tidak* pub_tdk
bind pubm - *ora* pub_tdk
bind pubm - *ngga* pub_tdk
bind pubm - *moh* pub_tdk


proc pub_tdk {nick uhost handle chan args} {
   global tdkbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set tdkline [lindex $tdkbib [rand [llength $tdkbib]]]
      puthelp "PRIVMSG $chan :$tdkline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Dodol
#---------------------------------------------------------------------

set ddlbib {
{Dodol garut..enak loh,..mau?}
{He..he..loe kali yang dodols}
{Eh tau ngga...aku suka banget loh makan dodol}
{Apa itu dudul.... jelasin donk!!!!}
}

bind pubm - *dodol* pub_ddl
bind pubm - *didil* pub_ddl
bind pubm - *dudul* pub_ddl


proc pub_ddl {nick uhost handle chan args} {
   global ddlbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set ddlline [lindex $ddlbib [rand [llength $ddlbib]]]
      puthelp "PRIVMSG $chan :$ddlline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# bye
#---------------------------------------------------------------------

set byebib {
{jangan lama-lama perginya ya, aku tunggu loh..}
{hati-hati di jalan ya..jangan lupa besok online lagi}
{jangan pergi...gw masih kangen sama loe}
{mau kemana? mau dikelonin ya!!!}
{jangan lupa sama Threenet ya!!!}
}

bind pubm - *bye* pub_bye
bind pubm - *off* pub_bye
bind pubm - *pamit* pub_bye
bind pubm - *pamiet* pub_bye


proc pub_bye {nick uhost handle chan args} {
   global byebib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set byeline [lindex $byebib [rand [llength $byebib]]]
      puthelp "PRIVMSG $chan :$byeline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0


#---------------------------------------------------------------------
# Betul
#---------------------------------------------------------------------

set btulbib {
{Apanya yang betul ?}
{jangan asal jawab, dipikir dulu lagi coba!!}
{benar kamu emang edan...}
{jadi betul kamu mirip orang gagah ??}
}

bind pubm - *betul* pub_btul
bind pubm - *benar* pub_btul
bind pubm - *bener* pub_btul
bind pubm - *right* pub_btul


proc pub_btul {nick uhost handle chan args} {
   global btulbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set btulline [lindex $btulbib [rand [llength $btulbib]]]
      puthelp "PRIVMSG $chan :$btulline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Love
#---------------------------------------------------------------------

set lovebib {
{i love you babe, don't leave me alone..}
{Love sama kambing kali..}
{Ehm....siapa ya yang kemarin bilang love sama aku?}
}

bind pubm - *love* pub_love
bind pubm - *cinta* pub_love

proc pub_love {nick uhost handle chan args} {
   global lovebib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set loveline [lindex $lovebib [rand [llength $lovebib]]]
      puthelp "PRIVMSG $chan :$loveline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# COWOK_KEREN
#---------------------------------------------------------------------

set COWOK_KERENbib {
{Keren bangettttttttttt..!!}
{ih...mending manggil threenet aje..dari pade COWOK_KEREN}
{jangan gitu ah, ...helmy kan emang kerenzzzzzzz}
{nanyain yang lain aja kenapa, jangan COWOK_KEREN truz di tanyain?}
{itu COWOK_KEREN ape Jin sich?}
{keren dari mane nye sih?}
{hello Bro, COWOK_KEREN ada di dalem tuh... dalem sel.. xixixixi...} 
{COWOK_KEREN kan Tersangka Pemerkosa Nenek Sebelah Rumahku}
}

bind pubm - *COWOK_KEREN* pub_COWOK_KEREN
bind pubm - *Cowok_Keren* pub_COWOK_KEREN
bind pubm - *cowok_keren* pub_COWOK_KEREN
bind pubm - *coker* pub_COWOK_KEREN
bind pubm - *helmy* pub_COWOK_KEREN
bind pubm - *Cowok_keren* pub_COWOK_KEREN

proc pub_COWOK_KEREN {nick uhost handle chan args} {
   global COWOK_KERENbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set COWOK_KERENline [lindex $COWOK_KERENbib [rand [llength $COWOK_KERENbib]]]
      puthelp "PRIVMSG $chan :$COWOK_KERENline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Kangen
#---------------------------------------------------------------------

set kngbib {
{Aku juga kangen banget neh, tapi bukan sama kamu}
{Kalo kangen telpon aja, he..he..apa ga punya pulsa ya?}
{eh..tahu gak, banyak loh yang kangen sama aku...}
}

bind pubm - *kangen* pub_kng
bind pubm - *rindu* pub_kng
bind pubm - *miss* pub_kng


proc pub_kng {nick uhost handle chan args} {
   global kngbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set kngline [lindex $kngbib [rand [llength $kngbib]]]
      puthelp "PRIVMSG $chan :$kngline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0
#---------------------------------------------------------------------
# quiz
#---------------------------------------------------------------------

set quizbib {
{quiz? syaratnye loe harus download bokep terus...Ok..!!}
{hadiahnye, dapet cium dari Om jinho}
{ayyyyooo donk quiz nye di goyang-goyang bang..}
}

bind pubm - *quiz* pub_quiz
bind pubm - *kuis* pub_quiz
bind pubm - *quis* pub_quiz

proc pub_quiz {nick uhost handle chan args} {
   global quizbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set quizline [lindex $quizbib [rand [llength $quizbib]]]
      puthelp "PRIVMSG $chan :$quizline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Ping
#---------------------------------------------------------------------

set pingbib {
{Pang ping terus, ping-in dikick ya..?}
{Ping gang gue pegel neh tolong dong pijitin....!}
{Pingin kawin?}
}

bind pubm - *!ping* pub_ping

proc pub_ping {nick uhost handle chan args} {
   global pingbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set pingline [lindex $pingbib [rand [llength $pingbib]]]
      puthelp "PRIVMSG $chan :$pingline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Seen
#---------------------------------------------------------------------

set snbib {
{Nyari aku ya? aku disini neh...ga usah dicari}
{Ga usah pake seen segala dah, lapor pak polisi aja...!!}
{Tadi dia bilang mau cari makan dulu}
{ooiii, aku disiniiiiiii...}
}

bind pubm - *!seen* pub_sn

proc pub_sn {nick uhost handle chan args} {
   global snbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set snline [lindex $snbib [rand [llength $snbib]]]
      puthelp "PRIVMSG $chan :$snline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0


#---------------------------------------------------------------------
# Wb
#---------------------------------------------------------------------

set wbbib {
{Wb ..wb.. selamat datang kembali, kok sepi ya?}
{Terima kasih, pada lagi ngapain neh kok sepi}
{welcome back, sugeng rawuh, baru ol ya?}
}

bind pubm - *wb* pub_wb
bind pubm - *webe* pub_wb

proc pub_wb {nick uhost handle chan args} {
   global wbbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set wbline [lindex $wbbib [rand [llength $wbbib]]]
      puthelp "PRIVMSG $chan :$wbline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Assalamu
#---------------------------------------------------------------------

set slmbib {
{Wa alaikum salam wr. wb.}
}

bind pubm - *assalam* pub_slm
bind pubm - *Assalamu'alaikum* pub_slm
bind pubm - *assalamualaikum* pub_slm
bind pubm - *assalamu'alaikum.wr.wb* pub_slm

proc pub_slm {nick uhost handle chan args} {
   global slmbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set slmline [lindex $slmbib [rand [llength $slmbib]]]
      puthelp "PRIVMSG $chan :$slmline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Wassalamu
#---------------------------------------------------------------------

set wslmbib {
{Wassalamu alaikum wr. wb.}
}

bind pubm - *wassalam* pub_wslm
bind pubm - *Wassalam* pub_wslm
bind pubm - *wasalam* pub_wslm

proc pub_wslm {nick uhost handle chan args} {
   global wslmbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set wslmline [lindex $wslmbib [rand [llength $wslmbib]]]
      puthelp "PRIVMSG $chan :$wslmline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Kick
#---------------------------------------------------------------------

set kickbib {
{Mulai deh main kick-kickan, ntar aku laporin threenet biar tau rasa lo..}
{Berani ngekick gue? ntar mandul loe}
{yang ngekick aku monyettt..!}
}

bind pubm - *kicked* pub_kick
bind pubm - *kick* pub_kick
bind pubm - *tendang* pub_kick


proc pub_kick {nick uhost handle chan args} {
   global kickbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set kickline [lindex $kickbib [rand [llength $kickbib]]]
      puthelp "PRIVMSG $chan :$kickline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Smile
#---------------------------------------------------------------------

set smilebib {
{kekeke...ada monyet tersenyum !}
{:P~}
{Idiiihh..senyumnya jelek banget}
{Kamu kalo senyum gitu mirip yang di kebun binatang deh...}
{idikhhhh, kok senyum nye sama sih kaya COWOK_KEREN}
}

bind pubm - *:)* pub_smile
bind pubm - *:P* pub_smile


proc pub_smile {nick uhost handle chan args} {
   global smilebib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set smileline [lindex $smilebib [rand [llength $smilebib]]]
      puthelp "PRIVMSG $chan :$smileline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Virg1N
#---------------------------------------------------------------------

set Virg1Nbib {
{iyaa ada apa?, mau di cipok ya!}
{jangan manggil-manggil, kamu disuruh cuci piring tuh}
{eh semuanye...!, panggil aku tante yee !}
{bos threenet..ada yang manggil-manggil Virg1N truz tuh}
{apa sih say, manggil-manggil!! kangen ya?}
{senang ketemu kamu lagi}
}

bind pubm - *Virg1N* pub_Virg1N
bind pubm - *g1N* pub_Virg1N
bind pubm - *Virgin* pub_Virg1N
bind pubm - *virgin* pub_Virg1N
bind pubm - *gin* pub_Virg1N

proc pub_Virg1N {nick uhost handle chan args} {
   global Virg1Nbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set Virg1Nline [lindex $Virg1Nbib [rand [llength $Virg1Nbib]]]
      puthelp "PRIVMSG $chan :$Virg1Nline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0


#---------------------------------------------------------------------
# Asem
#---------------------------------------------------------------------

set asembib {
{Asem? ketekmu kali yang asem}
{Eh..asem apaan seh, kasih tau gue dong..}
{Kalo asem ya tambah gula, biar manis kaya aku negh..}
{emang simontok Asem banget keteknye}
}

bind pubm - *asem* pub_asem
bind pubm - *asyem* pub_asem

proc pub_asem {nick uhost handle chan args} {
   global asembib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set asemline [lindex $asembib [rand [llength $asembib]]]
      puthelp "PRIVMSG $chan :$asemline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# sial
#---------------------------------------------------------------------

set sialbib {
{lo yang sial sethan..}
{Eh..sialan apaan seh, dasar sial..}
{emang idup loe sial truz, kaga ada bener nye..}
{sial lo yeee, gw cariin loe di keranda kaga ada!!}
}

bind pubm - *sial* pub_sial
bind pubm - *siall* pub_sial
bind pubm - *sialll* pub_sial
bind pubm - *siallll* pub_sial
bind pubm - *siaaaaal* pub_sial

proc pub_sial {nick uhost handle chan args} {
   global sialbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set sialline [lindex $sialbib [rand [llength $sialbib]]]
      puthelp "PRIVMSG $chan :$sialline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Malam
#---------------------------------------------------------------------

set malambib {
{Malam-malam begini enaknya ngapain ya..?}
{Dah malam kok pada belom tidur}
{Eh..ngomong-ngomong katanya malam jum'at banyak hantu ya? hiii..ngerii....}
}

bind pubm - *malam* pub_malam
bind pubm - *malem* pub_malam

proc pub_malam {nick uhost handle chan args} {
   global malambib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set malamline [lindex $malambib [rand [llength $malambib]]]
      puthelp "PRIVMSG $chan :$malamline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Pagi
#---------------------------------------------------------------------

set pagibib {
{Pagi-pagi kok udah chatting, dasar pemalas}
{Emang ini pagi, siapa bilang malam, dodol ..}
{iiihh, pagi ini dingin banget ya..jadi malas mandi}
}

bind pubm - *pagi* pub_pagi
bind pubm - *esuk* pub_pagi


proc pub_pagi {nick uhost handle chan args} {
   global pagibib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set pagiline [lindex $pagibib [rand [llength $pagibib]]]
      puthelp "PRIVMSG $chan :$pagiline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0
#---------------------------------------------------------------------
# Siang
#---------------------------------------------------------------------

set siangbib {
{Ngapin siang-siang chatting mending tidur dunk..!}
{Ga pagi, ga siang, ga malam, chatting terusssss}
{Tumben, siang-siang ol oi....lagi banyak duit ya??}
}

bind pubm - *siang* pub_siang


proc pub_siang {nick uhost handle chan args} {
   global siangbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set siangline [lindex $siangbib [rand [llength $siangbib]]]
      puthelp "PRIVMSG $chan :$siangline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0


#---------------------------------------------------------------------
# ML
#---------------------------------------------------------------------

set mlbib {
{ML?, mau sama threenet apa COWOK_KEREN? hayyo tinggal pilih !!}
{cape akh ML truz, tp enak yee.. bikin akh .. akh ..}
}

bind pubm - *ML* pub_ml
bind pubm - *ml* pub_ml
bind pubm - *Ml* pub_ml

proc pub_ml {nick uhost handle chan args} {
   global mlbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set mlline [lindex $mlbib [rand [llength $mlbib]]]
      puthelp "PRIVMSG $chan :$mlline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# biji
#---------------------------------------------------------------------

set bijibib {
{loe yang biji}
{ehh, jangan kurang ajar ya!! tau deh yang ga punya biji}
{katanye nih, biji loe bengkak sebelah yee? bener ga sih}
}

bind pubm - *biji* pub_biji
bind pubm - *BIJI* pub_biji

proc pub_biji {nick uhost handle chan args} {
   global bijibib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set bijiline [lindex $bijibib [rand [llength $bijibib]]]
      puthelp "PRIVMSG $chan :$bijiline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0
#---------------------------------------------------------------------
# Sayang
#---------------------------------------------------------------------

set syangbib {
{Aku juga sayang kamu sepenuh jiwaku}
{sayang..mengapa kau tega meninggalkan aku seorang diri hiks...hiks..hiks}
{jadi bener, kamu sudah ga sayang sama aku lagi?}
{kalau kamu sayang aku, cium dong say..!}
}

bind pubm - *sayang* pub_syang
bind pubm - *honey* pub_syang

proc pub_syang {nick uhost handle chan args} {
   global syangbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set syangline [lindex $syangbib [rand [llength $syangbib]]]
      puthelp "PRIVMSG $chan :$syangline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0


#---------------------------------------------------------------------
# tante
#---------------------------------------------------------------------

set tantebib {
{iya sayang, tante lagi di salon, sebentar ya}
{oiya, semalam sevice an tante bagaimana? enak ga?}
{duh, tar malem ada janji lagi.. sama bos threenet}
{kilik-kilik tante donk!!}
{tante udah ga tahan lagi nich.. keluarin donkk.. uangnye}
{hehehe.. tante udah ga Virgin lagi Tapi Nick tante masih Virg1N.. ganti donk}
}

bind pubm - *tante* pub_tante
bind pubm - *tan* pub_tante


proc pub_tante {nick uhost handle chan args} {
   global tantebib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set tanteline [lindex $tantebib [rand [llength $tantebib]]]
      puthelp "PRIVMSG $chan :$tanteline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0


#---------------------------------------------------------------------
# botak
#---------------------------------------------------------------------

set botakbib {
{Enak aja aku dibilang botak, ga nyadar ape, dasar monyet loe}
{Ngaca..dong ngacaaaa....udah botak jelek, miskin lagi}
{cukur dulu rambut loe yang botak}
}

bind pubm - *botak* pub_botak


proc pub_botak {nick uhost handle chan args} {
   global botakbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set botakline [lindex $botakbib [rand [llength $botakbib]]]
      puthelp "PRIVMSG $chan :$botakline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Brisik
#---------------------------------------------------------------------

set brskbib {
{Sirik lo, gue kan ngomong pake mulut gue sendiri, ga pake mulut loe..}
{Suka-suka aku dong, gue mau cerewet kek, mau brisik kek, lo mau apa..?!}
{Loe kira cuma loe yang bisa cerewet ya? atau loe takut kalah saing sama aku?}
{diem semuanye, di channel ini yang boleh berisik cuma gw, bos gw, masandra, & COWOK_KEREN}
}

bind pubm - *brisik* pub_brsk
bind pubm - *berisik* pub_brsk
bind pubm - *cerewet* pub_brsk
bind pubm - *crewet* pub_brsk
bind pubm - *criwis* pub_brsk
bind pubm - *bawel* pub_brsk

proc pub_brsk {nick uhost handle chan args} {
   global brskbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set brskline [lindex $brskbib [rand [llength $brskbib]]]
      puthelp "PRIVMSG $chan :$brskline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0


#---------------------------------------------------------------------
# Day
#---------------------------------------------------------------------

set daybib {
{Ngapain sih nyuruh2 gue diem, lu aja yang diem, dasar jelek lo !!}
{Diam-diam menghanyutkan...he..he,.. emang sungai}
{Diem loe..}
{Ga ada yang diem gw sedot loe}
}

bind pubm - *diem* pub_day
bind pubm - *diam* pub_day

proc pub_day {nick uhost handle chan args} {
   global daybib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set dayline [lindex $daybib [rand [llength $daybib]]]
      puthelp "PRIVMSG $chan :$dayline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# montok
#---------------------------------------------------------------------

set montokbib {
{kaya kebo lo, manggil-manggil montok terus dari tadi}
{montok lagi bertelor tau?}
{montok banyak juga yee penggemarnye...}
{tok? boz lo tuh si ANDRAVALID suruh diem ngape... ngoceh mulu dari tadi kaya di pakein TCL aje}
{montok kaya andravalid yee... bawel..hehehhe..}
{montok kan Ga' Pernah Pake Celana Dalam}
}

bind pubm - *montok* pub_montok
bind pubm - *tok* pub_montok

proc pub_montok {nick uhost handle chan args} {
   global montokbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set montokline [lindex $montokbib [rand [llength $montokbib]]]
      puthelp "PRIVMSG $chan :$montokline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0
#---------------------------------------------------------------------
# Wedew
#---------------------------------------------------------------------

set wdwbib {
{weks ...}
{ada apaan seh..?}
{kekekkee... sebel ya sama aku?}
{naksir sama threenet? bilang aja..ga usah malu-malu}
}

bind pubm - *wedew* pub_wdw
bind pubm - *wew* pub_wdw
bind pubm - *wadaw* pub_wdw
bind pubm - *hiks* pub_wdw
bind pubm - *waw* pub_wdw
bind pubm - *jian* pub_wdw
bind pubm - *weleh* pub_wdw
bind pubm - *waa* pub_wdw

proc pub_wdw {nick uhost handle chan args} {
   global wdwbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set wdwline [lindex $wdwbib [rand [llength $wdwbib]]]
      puthelp "PRIVMSG $chan :$wdwline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0


#---------------------------------------------------------------------
# Sepi
#---------------------------------------------------------------------

set sepibib {
{iya neh, dari tadi pada diem semua}
{sariawan kali}
{Kamu seh diem terus jadi sepi..}
{Bakar aja nih chanel supaya bangunan tuh OPē}
}

bind pubm - *sepi* pub_sepi
bind pubm - *meneng* pub_sepi


proc pub_sepi {nick uhost handle chan args} {
   global sepibib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set sepiline [lindex $sepibib [rand [llength $sepibib]]]
      puthelp "PRIVMSG $chan :$sepiline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Ramai
#---------------------------------------------------------------------

set rmaibib {
{Bakar aja warnetnya.....biar rame}
{Kalo mau rame ke pasar aja sono!}
{Emang kalo rame mau ngapain?}
}

bind pubm - *rame* pub_rmai
bind pubm - *ramai* pub_rmai


proc pub_rmai {nick uhost handle chan args} {
   global rmaibib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set rmailine [lindex $rmaibib [rand [llength $rmaibib]]]
      puthelp "PRIVMSG $chan :$rmailine"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Friend
#---------------------------------------------------------------------

set friendbib {
{ngapain lu nyari2 bosku? mo godain dia ya?!...lagi ama bini nya tuh !!}
{Bos gw lagi belajar tuh, jgn digangguin!}
{bra bro bra bro.. panggil namanye.. sopan donk dikit..}
{*tutup telinga* pura2 gak denger ah...}
{Napa lu manggil2!?}
}

bind pubm - *bro* pub_friend
bind pubm - *friend* pub_friend

proc pub_friend {nick uhost handle chan args} {
   global friendbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set friendline [lindex $friendbib [rand [llength $friendbib]]]
      puthelp "PRIVMSG $chan :$friendline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Work
#---------------------------------------------------------------------

set workbib {
{Halo juga! gimana kabarnya negh...}
{Halo-halo emang telpon pake halo-halo segala!}
{Halo, bisa bicara dengan salah sambung?}
}

bind pubm - *halo* pub_work
bind pubm - *hello* pub_work
bind pubm - *alow* pub_work
bind pubm - *Hallo* pub_work

proc pub_work {nick uhost handle chan args} {
   global workbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set workline [lindex $workbib [rand [llength $workbib]]]
      puthelp "PRIVMSG $chan :$workline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0
#---------------------------------------------------------------------
# Ooo
#---------------------------------------------------------------------

set ooobib {
{Baru tau ya? kuper sih kamu..}
{Apaan seh..?}
{Jangan sok tau gitu deh}
{OOo.....gitu ya, aku baru tau neh..}
}

bind pubm - *oo* pub_ooo
bind pubm - *woh* pub_ooo
bind pubm - *oOo* pub_ooo


proc pub_ooo {nick uhost handle chan args} {
   global ooobib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set oooline [lindex $ooobib [rand [llength $ooobib]]]
      puthelp "PRIVMSG $chan :$oooline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0


#---------------------------------------------------------------------
# Kabar
#---------------------------------------------------------------------

set kbarbib {
{Baik-baik aja, kok lama ga ol kemana aja ?}
{Aku baik-baik saja, kangen banget neh lama ga jumpa kamu}
{Eh kabarnya kamu abis di rawat di rumah sakit jiwa ya?}
}

bind pubm - *kabar* pub_kbar
bind pubm - *berita* pub_kbar


proc pub_kbar {nick uhost handle chan args} {
   global kbarbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set kbarline [lindex $kbarbib [rand [llength $kbarbib]]]
      puthelp "PRIVMSG $chan :$kbarline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# weks
#---------------------------------------------------------------------

set weksbib {
{kaya bebek..., apa habis nelen karet ya?}
{weks juga...:P~}
{siape yang ngambeg sama aku? kaya cewe aje ngambeg2}
}

bind pubm - *weks* pub_weks
bind pubm - *wakz* pub_weks


proc pub_weks {nick uhost handle chan args} {
   global weksbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set weksline [lindex $weksbib [rand [llength $weksbib]]]
      puthelp "PRIVMSG $chan :$weksline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Bot
#---------------------------------------------------------------------

set botbib {
{Enak aja aku dibilang bot...sirik lo sama gue}
{Kamu tuh yang bot...bot jelek lagi}
{Bot? apa itu bot? jelasin dong!}
{Sudah tau bot...knp loe bilang bot!!!}
{dasar Bot.. botakkkkkkk!}
{montok tuh yang Bot}
}

bind pubm - *bot* pub_bot

proc pub_bot {nick uhost handle chan args} {
   global botbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set botline [lindex $botbib [rand [llength $botbib]]]
      puthelp "PRIVMSG $chan :$botline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0
#---------------------------------------------------------------------
# Jelek
#---------------------------------------------------------------------

set jlkbib {
{Jelek-jelek gini.. aku banyak yang naksir lho}
{daripada kamu, dah jelek, kuper, idup lagi}
{Loe tuh yang jelek, belom mandi lagi}
{Berani loe ngatain gue jelek, ntar aku laporin bosku loh}

}

bind pubm - *jelek* pub_jlk
bind pubm - *elek* pub_jlk
bind pubm - *uelik* pub_jlk

proc pub_jlk {nick uhost handle chan args} {
   global jlkbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set jlkline [lindex $jlkbib [rand [llength $jlkbib]]]
      puthelp "PRIVMSG $chan :$jlkline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Mandi
#---------------------------------------------------------------------

set mndibib {
{Aku dah mandi tadi, neh cium masih wangi kan?}
{Yang ngerasa belom mandi sini aku mandiin}
{Hii...bau..mandi dulu sana..}
}

bind pubm - *mandi* pub_mndi
bind pubm - *adus* pub_mndi


proc pub_mndi {nick uhost handle chan args} {
   global mndibib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set mndiline [lindex $mndibib [rand [llength $mndibib]]]
      puthelp "PRIVMSG $chan :$mndiline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Edan
#---------------------------------------------------------------------

set edanbib {
{kamu tuh yang edan..dari tadi ngomong sendiri}
{Apa? ga denger aku ...}
{kamu yang gila ,malah ngatain aku, dasar gila loe!}

}

bind pubm - *edan* pub_edan
bind pubm - *gila* pub_edan
bind pubm - *gendheng* pub_edan
bind pubm - *sinting* pub_edan

proc pub_edan {nick uhost handle chan args} {
   global edanbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set edanline [lindex $edanbib [rand [llength $edanbib]]]
      puthelp "PRIVMSG $chan :$edanline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Nick
#---------------------------------------------------------------------

set nickbib {
{Eh..nick gue bagus gak seh?}
{nick gue divoice dong...!}
}

bind pubm - *nick* pub_nick


proc pub_nick {nick uhost handle chan args} {
   global nickbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set nickline [lindex $nickbib [rand [llength $nickbib]]]
      puthelp "PRIVMSG $chan :$nickline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Siapa
#---------------------------------------------------------------------

set siapabib {
{tuh anak, sethan benerrrrr}
{bilangin tuh ama tuh anak, jangan ngeyel}
{Ya kamu...masa nanya aku seh bego banget loe}
}

bind pubm - *siapa* pub_siapa
bind pubm - *sape* pub_siapa
bind pubm - *siape* pub_siapa


proc pub_siapa {nick uhost handle chan args} {
   global siapabib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set siapaline [lindex $siapabib [rand [llength $siapabib]]]
      puthelp "PRIVMSG $chan :$siapaline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Dc
#---------------------------------------------------------------------

set dcbib {
{He..he... dc ya? cucian deh lo..!!}
{Dc oh dc ...kok aku ga ikutan dc ya?}

}

bind pubm - *dc* pub_dc


proc pub_dc {nick uhost handle chan args} {
   global dcbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set dcline [lindex $dcbib [rand [llength $dcbib]]]
      puthelp "PRIVMSG $chan :$dcline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0
#---------------------------------------------------------------------
# Kenyang
#---------------------------------------------------------------------

set knybib {
{Wah..makan kok ga bagi-bagi, dasar pelit}
{Kalo udah kenyang biasanya ngantuk,tul gak?}

}

bind pubm - *kenyang* pub_kny
bind pubm - *wareg* pub_kny

proc pub_kny {nick uhost handle chan args} {
   global knybib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set knyline [lindex $knybib [rand [llength $knybib]]]
      puthelp "PRIVMSG $chan :$knyline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Sakit
#---------------------------------------------------------------------

set sakitbib {
{sakit apa ?}
{Kalo sakit ya ke dokter dong, jangan dibiarin, ntar parah lho..!}
{Sakit jiwa ya? apa sakit hati ?}
{Eh bener ga seh,..katanya lebih baik sakit gigi daripada sakit hati??}

}

bind pubm - *sakit* pub_sakit
bind pubm - *atit* pub_sakit
bind pubm - *cakit* pub_sakit

proc pub_sakit {nick uhost handle chan args} {
   global sakitbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set sakitline [lindex $sakitbib [rand [llength $sakitbib]]]
      puthelp "PRIVMSG $chan :$sakitline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0
#---------------------------------------------------------------------
# Muach
#---------------------------------------------------------------------

set ciumbib {
{Kapan giliranku dimuachh negh...?}
{wedew, pake muachh segala kaya di sinetron aja}
{Muacchh juga deh buat kamu ..muachhhhhhhhhhhhh}
{wew...ciuman maut ...ngeriii...}

}

bind pubm - *cium* pub_cium
bind pubm - *muach* pub_cium
bind pubm - *mwah* pub_cium
bind pubm - *muwag* pub_cium
bind pubm - *mwag* pub_cium


proc pub_cium {nick uhost handle chan args} {
   global ciumbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set ciumline [lindex $ciumbib [rand [llength $ciumbib]]]
      puthelp "PRIVMSG $chan :$ciumline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0


#---------------------------------------------------------------------
# Lapar
#---------------------------------------------------------------------

set lprbib {
{Aku juga lapar banget neh..dah 3 hari ga makan}
{Cari makan dulu sana..ntar perutmu sakit loh kalo ga makan..!!}
{Kalo belom makan neh aku kasih uang buat beli nasi..}
{makan aja tuh mouse sama keyboard..!!}
{emangnye makanan di kolong tempat tidur abiez... dasar rakus}
}

bind pubm - *lapar* pub_lpr
bind pubm - *laper* pub_lpr
bind pubm - *lapeer* pub_lpr
bind pubm - *laperrr* pub_lpr

proc pub_lpr {nick uhost handle chan args} {
   global lprbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set lprline [lindex $lprbib [rand [llength $lprbib]]]
      puthelp "PRIVMSG $chan :$lprline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0


#---------------------------------------------------------------------
# Learn
#---------------------------------------------------------------------

set learnbib {
{huss..jangan ketawa, emang ada yang lucu apa !!}
{Iiiihh....ketawa loe jelek banget deh..}
{Belom sikatan, ketawa..hiii...bau}
{Liat kamu ketawa jadi ingat monyetku yang dirumah}
}

bind pubm - *ngakak* pub_learn
bind pubm - *huehue* pub_learn
bind pubm - *keke* pub_learn
bind pubm - *hehe* pub_learn
bind pubm - *qe3* pub_learn
bind pubm - *hihi* pub_learn
bind pubm - *haha* pub_learn
bind pubm - *kaka* pub_learn

proc pub_learn {nick uhost handle chan args} {
   global learnbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set learnline [lindex $learnbib [rand [llength $learnbib]]]
      puthelp "PRIVMSG $chan :$learnline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Thanks
#---------------------------------------------------------------------

set thxbib {
{sama2}
}

bind pubm - *thx* pub_thx
bind pubm - *thanks* pub_thx
bind pubm - *tengkyu* pub_thx
bind pubm - *makasih* pub_thx
bind pubm - *tq* pub_thx


proc pub_thx {nick uhost handle chan args} {
   global thxbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set thxline [lindex $thxbib [rand [llength $thxbib]]]
      puthelp "PRIVMSG $chan :$thxline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0


#---------------------------------------------------------------------
# Huss
#---------------------------------------------------------------------

set carebib {
{Eh...emang aku apaan..kok di huss..huss..}
{Kucing kali ya...di huss.. huss}
{maaaaa....masa aku di huss.huss...jahat banget !!}
}

bind pubm - *hus* pub_care

proc pub_care {nick uhost handle chan args} {
   global carebib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set careline [lindex $carebib [rand [llength $carebib]]]
      puthelp "PRIVMSG $chan :$careline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0
#---------------------------------------------------------------------
# Kurang
#---------------------------------------------------------------------

set krgbib {
{Apanya yang kurang?}
{Kalo kurang ya tinggal ditambahin aja,..gampang kan}
{Ntar aku tambahin kalo masih kurang}
}

bind pubm - *kurang* pub_krg

proc pub_krg {nick uhost handle chan args} {
   global krgbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set krgline [lindex $krgbib [rand [llength $krgbib]]]
      puthelp "PRIVMSG $chan :$krgline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0


#---------------------------------------------------------------------
# threenet
#---------------------------------------------------------------------

set threenetbib {
{jangan manggil-manggil bos gw...dye lagi ga mw di ganggu}
{naksir yee, manggil-manggil bos threenet}
{manggil-manggil bos gw lagi gw gamparin nich!! mau di gamparin!!}
{bos gw cewenye dah banyak, ga usah manggil-manggil deh}
}

bind pubm - *threenet* pub_threenet
bind pubm - *threenet* pub_threenet

proc pub_threenet {nick uhost handle chan args} {
   global threenetbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set threenetline [lindex $threenetbib [rand [llength $threenetbib]]]
      puthelp "PRIVMSG $chan :$threenetline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Bobo
#---------------------------------------------------------------------

set bobobib {
{ngantuk ya ? mo ikut bobo bareng gue gak?!}
{Di belakang ada wc kosong, bobo di sana aja}
{bobo bareng COWOK_KEREN mw ga}
}

bind pubm - *bobo* pub_bobo
bind pubm - *huam* pub_bobo
bind pubm - *tidur* pub_bobo
bind pubm - *ngantuk* pub_bobo


proc pub_bobo {nick uhost handle chan args} {
   global bobobib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set boboline [lindex $bobobib [rand [llength $bobobib]]]
      puthelp "PRIVMSG $chan :$boboline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0


#---------------------------------------------------------------------
# Capai
#---------------------------------------------------------------------

set cpaibib {
{Kalo cape ya istirahat, mau aku pijitin?}
{Gimana ga cape,orang kamu chatting seharian sampe ga mandi}
{Minum dong irex, biar vit dan ga cape, kekekekke....}
}

bind pubm - *cape* pub_cpai
bind pubm - *capai* pub_cpai
bind pubm - *kesel* pub_cpai
bind pubm - *lelah* pub_cpai


proc pub_cpai {nick uhost handle chan args} {
   global cpaibib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set cpailine [lindex $cpaibib [rand [llength $cpaibib]]]
      puthelp "PRIVMSG $chan :$cpailine"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Ngomong
#---------------------------------------------------------------------

set mongbib {
{Nah gitu dong.., ngomong biar rame...!}
{apa? ngomong apa tadi, aku ga denger?}
{Yang ga mau ngomong monyet...!}
{kayaknya kamu pernah ngomong gitu sama aku deh...!}
}

bind pubm - *ngomong* pub_mong
bind pubm - *bicara* pub_mong
bind pubm - *moni* pub_mong

proc pub_mong {nick uhost handle chan args} {
   global mongbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set mongline [lindex $mongbib [rand [llength $mongbib]]]
      puthelp "PRIVMSG $chan :$mongline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Perkosa
#---------------------------------------------------------------------

set pkosabib {
{Perkosa? coba aja kalo berani..!}
{iiihh, jahat banget seh kamu, masa aku mau diperkosa}
{berani perkosa aku??, ntar aku laporin threenet baru tau rasa loe!}
{yang boleh merkosa aq cuma bang Jimmy.. yang lain No}
}

bind pubm - *perkosa* pub_pkosa

proc pub_prks {nick uhost handle chan args} {
   global pkosabib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set pkosaline [lindex $pkosabib [rand [llength $pkosabib]]]
      puthelp "PRIVMSG $chan :$pkosaline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# keyla
#---------------------------------------------------------------------

set keylabib {
{key, akhirnye dateng juga...!!}
{kemane aje Key...jadi kangen nich sama kamu key..}
{lagi sibuk apa key? mo di bantuin ga nih?}
{keyla yang cantik, sini donk deket2 tante Virg1N}
{wow, keyla, kamu cantik hari ini}
}

bind pubm - *keyla* pub_keyla
bind pubm - *keyla* pub_keyla
bind pubm - *keyla* pub_keyla

proc pub_keyla {nick uhost handle chan args} {
   global keylabib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set keylaline [lindex $keylabib [rand [llength $keylabib]]]
      puthelp "PRIVMSG $chan :$keylaline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0


#---------------------------------------------------------------------
# Psy
#---------------------------------------------------------------------

set psybib {
{Eh..aku di add psy nya donggggggggggg...}
{ada yang mau minta psy ga? aku ada banyak negh...!}
{mau psy? cium aku dulu ya...ntar aku kasih}
{minta psy susah banget ya? ga ada yang mau kasih gratis..!}
}

bind pubm - *psy* pub_psy

proc pub_psy {nick uhost handle chan args} {
   global psybib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set psyline [lindex $psybib [rand [llength $psybib]]]
      puthelp "PRIVMSG $chan :$psyline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Hajar
#---------------------------------------------------------------------

set hjrbib {
{Siapa yang mau dihajar?}
{Loh kok tega banget sih mau menghajar aku}
{Jangan emosi gitu deh sabar...sabar!!}
}

bind pubm - *hajar* pub_hjr

proc pub_hjr {nick uhost handle chan args} {
   global hjrbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set hjrline [lindex $hjrbib [rand [llength $hjrbib]]]
      puthelp "PRIVMSG $chan :$hjrline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0



#---------------------------------------------------------------------
# jimmy
#---------------------------------------------------------------------

set jimmybib {
{iyee, bentar nanggung euy, bang jimmy lagi ngisep-ngisep nih.. akh.. akh.. akh?}
{ouw, ada yang nyari bang jimmy..bang jimmy nye lagi ML tuh....?}
{Baru kali ini deh ada jin nyari bang jimmy}
{jangan pernah nyari-nyari bang jimmy, bang jimmy anak buahnye Sumanto}
{Bang Jimmy anak nye dah ada lima jangan ada yang mau}
{Bang Jimmy cuma punya tante Virg1N, ga boleh ada yang miliki bang jimmy selain Tante Virg1N, Ok}
}

bind pubm - *jimmy* pub_jimmy
bind pubm - *andro* pub_jimmy
bind pubm - *jim* pub_jimmy
bind pubm - *jimmi* pub_jimmy
bind pubm - *jinho* pub_jimmy

proc pub_jimmy {nick uhost handle chan args} {
   global jimmybib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set jimmyline [lindex $jimmybib [rand [llength $jimmybib]]]
      puthelp "PRIVMSG $chan :$jimmyline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0


#---------------------------------------------------------------------
# Monyet
#---------------------------------------------------------------------

set monyetbib {
{Loe yang monyet!}
{Monyet, sini dong....}
{eh.... ada monyet disini ihh..lucunya}
{tampang lo di FS ama monyet ga jauh beda ya}
{DalNet Monyetttttttttttttttttttttt}
}

bind pubm - *monyet* pub_monyet
bind pubm - *monkey* pub_monyet
bind pubm - *nyet* pub_monyet

proc pub_monyet {nick uhost handle chan args} {
   global monyetbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set monyetline [lindex $monyetbib [rand [llength $monyetbib]]]
      puthelp "PRIVMSG $chan :$monyetline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Lucu
#---------------------------------------------------------------------

set lucubib {
{Apanya yang lucu?}
{emang aku pelawak apa? dibilang lucu}
{kalo lucu ketawa dong..!!}
}

bind pubm - *lucu* pub_lucu

proc pub_lucu {nick uhost handle chan args} {
   global lucubib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set luculine [lindex $lucubib [rand [llength $lucubib]]]
      puthelp "PRIVMSG $chan :$luculine"
      set oldreplytime $replytime
   }
}

set oldreplytime 0


#---------------------------------------------------------------------
# Tanya
#---------------------------------------------------------------------

set tanyabib {
{Kamu detektif ya?, dari tadi nanya-nanya terus}
{Dah ah jangan tanya terus, bosen aku !}
{Aku tidak tahu, tanyakan aja sama satpam ..!!}
{Sebel deh...dari tadi tanya melulu..!!}
}

bind pubm - *kapan* pub_tanya
bind pubm - *dimn* pub_tanya
bind pubm - *mana* pub_tanya
bind pubm - *kenapa* pub_tanya
bind pubm - *apa* pub_tanya
bind pubm - *opo* pub_tanya
bind pubm - *mn* pub_tanya
bind pubm - *pow* pub_tanya

proc pub_tanya {nick uhost handle chan args} {
   global tanyabib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set tanyaline [lindex $tanyabib [rand [llength $tanyabib]]]
      puthelp "PRIVMSG $chan :$tanyaline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Mojok
#---------------------------------------------------------------------

set mjokbib {
{Iya negh,..aku lagi asyik banget sama gebedanku ...}
{Emang, dari tadi pada mojok semua, jadi channelnya sepi!}
{Kamu mau mojok sama aku??}
{Gak kok, aku lagi males mojok}
}

bind pubm - *mojok* pub_mjok
bind pubm - *mujuk* pub_mjok
bind pubm - *pujuk* pub_mjok


proc pub_mjok {nick uhost handle chan args} {
   global mjokbib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set mjokline [lindex $mjokbib [rand [llength $mjokbib]]]
      puthelp "PRIVMSG $chan :$mjokline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0

#---------------------------------------------------------------------
# Pv
#---------------------------------------------------------------------

set pvebib {
{Eh..pv-an yuk !!}
{Asyikkk...banyak banget yang pv aku !}
{gak mau ah, aku lagi males banget pv, pv-an aja sama bot sana ...!!}
{Hooooiiii....pv aku dong!!}
{Tumben negh ..mau ngajak pv}
}

bind pubm - *pv* pub_pve
bind pubm - *peve* pub_pve


proc pub_pve {nick uhost handle chan args} {
   global pvebib oldreplytime botnick 
   
   set replytime [unixtime]

   if { $replytime - $oldreplytime  > 7} {
      set pveline [lindex $pvebib [rand [llength $pvebib]]]
      puthelp "PRIVMSG $chan :$pveline"
      set oldreplytime $replytime
   }
}

set oldreplytime 0


#---------------------------------------------------------------------
# Sending Rose
#---------------------------------------------------------------------
# the "rose" command via msg
proc putnot {nick msg} { puthelp "NOTICE $nick :$msg" }
proc msg_rose {nick uhost hand rest} {
  global botnick
  if {$rest == ""} {
    putnot $nick "Usage: /msg $botnick rose <nick> \[message\]"
    putnot $nick "  sends a rose to <nick>, with the optional \[message\] 
on"
    putnot $nick "  an attached card"
    return 0
  }
  set who [lindex $rest 0]
  set msg [lrange $rest 1 end]
  putnot $who "$nick sends you a single rose:"
  putnot $who "   ---<-'-@"
  if {$msg != ""} {
    putnot $who "There is an attached note which reads:"
    putnot $who "  $msg"
  }
  putnot $nick "Rose delivery attempted to $who! :-)"
  return 1
}
bind msg - rose msg_rose