cerewet.tcl

## ----------------------------------------------------------------#
# Cerewet.tcl Editing by Vaksin13 @IRC.Dal.Net                     #
# http://baliemheker.co.nr                                         #
# vaksin13@yahoo.com                                               #
## ----------------------------------------------------------------#

## ----------------------------------------------------------------
## Set global variables and specificic
## ----------------------------------------------------------------

## -=[ SPEAK ]=-  Set the next line as the channels you want to run in
## for all channel just type "*" if only for 1 channel or 2 chnnel just
## type "#channel1 #channel2 #channel3 #channel4"
set speaks_chans "#ciut"

# Set you want in XXX seconds you bot always talk
set speaks_time 180

## -=[ Hello ]=-  Set the next line as the channels you want to run in
## for all channel just type "*" if only for 1 channel or 2 chnnel just
## type "#channel1 #channel2 #channel3 #channel4"
set hello_chans "#ciut"

## -=[ BRB ]=-  Set the next line as the channels you want to run in
## for all channel just type "*" if only for 1 channel or 2 chnnel just
## type "#channel1 #channel2 #channel3 #channel4"
set brb_chans "#ciut"

## -=[ BYE ]=-  Set the next line as the channels you want to run in
## for all channel just type "*" if only for 1 channel or 2 chnnel just
## type "#channel1 #channel2 #channel3 #channel4"
set bye_chans "#ciut"

## -=[ PING ]=-  Set the next line as the channels you want to run in
## for all channel just type "*" if only for 1 channel or 2 chnnel just
## type "#channel1 #channel2 #channel3 #channel4"
set ping_chans "#ciut"

## ----------------------------------------------------------------
## --- Don't change anything below here if you don't know how ! ---
## ----------------------------------------------------------------

######################################################################
##--------------------------------------------------------------------
##--- F O R     ---   E N T E R T A I N M E N T  ---    CHANNEL   ----
##--------------------------------------------------------------------
######################################################################        
### SPEAK ###
set spoken.v "Auto talk"
# Set the next lines as the random speaks msgs you want to say
set speaks_msg {

{"Mmmmmuachhhh...dibibil wew wanginya hahaha"}
{"ring xixixixiix"}
{"aku bukan pengemis cintaaa...aku penguasa ciiintaa yeaah seaah haha"}
{"masa sich..kamu ngak ingat aku"}
{"Kopi Mana Tadi Sayang...kopi paste ya"}
{"*celingak celinguk*"}
{"hush.. hushh hushh ...ciaaaat tak lempar kamu ke laot kedebam haha rasainlo"}
{"hoyyyy...awas dilarang mojok disini"}
{"Mas_say mana yachh ?...itu loh bos ganteng Gue"}
{"yak desgghh...mati lo"}
{"ehh paaan tu kok ada yang kojom ya"}
{"weh"}
{"welah"}
{"hoekkkkk !!!!"}
{"wik !"}
{"hiyek"}
{"kapan ?"}
{"GRRRRRRRRRRR mangka jangn caper ama cew lo man hahaaa"}
{"wow minta lipas kou "}
{"matamu say.."}
{"halo sapa nih...cew ya kalo cew boleh kesini haha"}
{"pokoknya gue asyik bos cew manis bos bukan sembarang cew aslam baring asli barang haha"}
{"Lucu juga ya "}
{"Hormattt !!!!! Grak Lancang Garam Grakkk !"}
{"MERDEKA!"}
{"bubar bubar semua ah kacau ni !"}
{"aahh.. seneeeeengg..kalo ga senang tak libas kao!!!!"}
{"jalan-jalan yuk..."}
{"*sigh*"}
{"*blah* =p~"}
{"capek bangeett..!!!"}
{"arrgh.. dammit !"}
{"*hiks*"}
{"sebel..!!"}
{"kalo ketiduran gimana ?"}
{"udah kayak ibu-ibu rumah tangga deh gue..masak mamakku suruh nyapu padahal saya cow!"}
{"huwaa..chiemmmmmm !"}
{"mirip ngga ?"}
{"libur euy..!!"}
{"ring kekekkeke.!!"}
{"ya sutra lah..tuing tuing"}
{"potong kambing ya besok ?"} 
{"freak !"}
{"immortal rejection! "}
{"awas loo klo km ngangkang ntar keliatananunya nanti xixixi :P~~"}
{"eh kapan lu bayar utang kamu..?!"}
{"aduhh.. seneng bangeeett sy hari ini..!!!!!!"}
{"huek.. kenyaaaangg.. !"}
{"see ? i'm a survivor..!"}
{"cuci-cuci mata donk..eh salah cuci baut huahuahuhua "}
{"aduhh.. itu bener-bener deh.. *hiks* "}
{"WHO DO YOU THINK I AM ??????????????"}
{"begini"}
{"lho"}
{"<-------- potong disini --------"}
{"hah"}
{"brisik"}
{"mama mama"}
{"Kutumbaba *mama*"}
{"lho ya!"}
{"laper!"}
{"wik"}
{"wooow keren skallii"}
}

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 "hello Respon"
bind pub - hello hello_speak
bind pub - alo hello_speak
bind pub - aloo hello_speak
bind pub - alooo hello_speak
bind pub - hallo hello_speak
bind pub - hai hello_speak
bind pub - hi hello_speak

set ranhello {
  "hello there, nice to meet you"
  "hello how are you ^_^"
  "ramein channel donk saayyyy"
  "halo halo bandung, wakil bos gua orang Makassar"
  "Hi too, ohh ur so cutee xP~"
  "halo cew nodain kita donk hahaha"
  "apaaaaaaa , suka yaaaaa ma Saya,hmm"
  "chat in channel please"
  "yes, Hello too, do I know ya ?"
  "alo sayank"
  "Hi there"
  "hello, whats up"
  "oi oi oi oi oi" 
  "Halo juga nich, kamu sapa nich, kok sok kenal banget ma saya =P"
  "hello how are you ^_^"
  "Hai bro apa kabarmu, bagaimana dengan kabar keluargamu ?"
  "hey whats up"
  "yeah, yeah hi HI"
  "hello, nice to see yea!"
  "Hi i'm happy today!!"
  "hai hai hai hai juga"
  "apa khbar nich nama kamu siapa"
  "halo juga perkenalkan nama ku musliadi biasa di panggil Primus, kalau kamu siapa?"
  "asl gua = 20 f Mksr, rumah gua di Ir.Juanda , tebak yg mana :P"
  "hi ,  =)  , kenalan yukk"
  "asl pls, I like to chat with you in channel"
  "Hi juga, kamu makin kiyut aja dech, gemesssss"
  "alo juga, siapa disitu ?"
  ",konnichiwa (halo dalam bahasa jepang)<== maklum baru belajar :P"
  ",how do you do? i'm happy to meet you"
  ",halo juga saya senang dapat berjumpa dengan anda lagi"
  "it was nice meeting you"
  "menyenakan dapat bertemu dengan anda lagi"
  "how are you today ? are you okay ?"
}

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

##  Brb  ##
set Reponden4.v "Brb Respon"
bind pub - brb brb_speak
bind pub - gtg brb_speak
bind pub - away brb_speak
set ranbrb {
  "ok"
  "where you going?"
  "me too, smoke time!"
  "when you coming back. miss ya already! ;)"
  "mo kemana nich, kok ga ngajak ngajak hehehe"
  "jangan lama lama yah , aku masih kangen nich...ntar sambung lagi kojom kita haha"
  "kalo mo ke WC aku ikut, kalo ke kamar juga hehehehhe"
  "ok darling, but don't be so long ok pls, I need You honey"
  ",Alesan .. paling juga pvan sama cowok lain cew apaan ngak cukup satu"
  "5 menit aja hehehehehee...5 menit lagi ah ah uh ih aiiih"
  "ikut donk..."
  ",ape ?? mo kmana lu neng ? TEGA LUH tinggalin gua sendiri ?? cew macam apa pulak kau :("
  "brb boleh tapi nicknamenya tetep disini kan ?"
  "ok,  saya tunggu yah.. jangan lama2 kangen buanget  nich kekek.."
  "brb mau kemana.. mau beli makanan yah.. ikut donk.."
  "ye.. baru juga elo masuk udah brb payah.. loe...awas jangan kojok tak libas kau"
}

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 :$nick $brbs"
  }
}

##  Bye  ##
set Reponden5.v "Bye respon"
bind pub - bye bye_speak
bind pub - dadah 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 becak lagi"
  "thathaaa"
  "nice to meet you today, hope can see you agaiin tomorrow"
  "ati-ati di jalan bro!!"
  "ok see u later frend"
  "kok buru-buru amat tadikan baru datang kok udah mau pergi.."
  "ok deh.. bye.. juga"
  "see u tommorow night"
  "see u tonight"
  "mata ashita (sampai jumpa besok)"
  "sayoonara fren :)"
  "sampai besok sobat"
  "iyah..take care yaahh ^_^"
  "take care fren, nice to meet u :)"
  "good bye.. juga :)"
  "nice to meet you today, hope can see you agaiin tomorrow"
  "makacih ya udah join 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 : $nick $byes"
  }
}

## -----------------------------------------------------------------------
putlog "-=-=   ENTERTAINMENT  PROSES   =-=-=-=-=-"
putlog "Entertainment Channel (auto/respon) Ver 1.0:"
putlog "1.${spoken.v},3.${Reponden3.v}"
putlog "4.${Reponden4.v},5.${Reponden5.v}"
putlog "loaded Successfuly..."
##-------------------------------------------------------------------