wewet.tcl

## ----------------------------------------------------------------#

# Cerewet.tcl Editing by egGo ciut@IRC.All.Net                #

# http://eggoez.blogspot.com                                       #

# eggoez@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 "*"

# Set you want in XXX seconds you bot always talk

set speaks_time 500

## -=[ 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 "*"

## -=[ 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 "*"

## -=[ 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 "*"

## -=[ 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 "*"

## ----------------------------------------------------------------

## --- 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 {

{"emuachhhh..."}

{"ring xixixixiix"}

{"aku bukan pengemis cintaaa..."}

{"masa sich.."}

{"lho.. si g0eZ sayank td mana?"}

{"*celingak celinguk*"}

{"hush.. hushh hushh ..."}

{"hoyyyy..."}

{"mas, egGo mana yachh ?..."}

{"yak desgghh..."}

{"bleuh"}

{"weh ada cewek"}

{"welah"}

{"hoekkkkk !!!!"}

{"wik !"}

{"hiyek"}

{"emang ?"}

{"GRRRRRRRRRRR"}

{"woooooooo"}

{"au ah gelap"}

{"halo sapa nih"}

{"pokoknya gue asyik jek"}

{"xuxuxux,,,lucu juga ya "}

{"Hormattt !!!!! Grak !"}

{"ah pada kujum nih.."}

{"bubar bubar !"}

{"aahh.. seneeeeengg..!!!!"}

{"eMeL yuk..."}

{"*sigh*"}

{"*blah* =p~"}

{"capek bangeett..!!!"}

{"arrgh.. dammit !"}

{"*hiks*"}

{"sebel..!!"}

{"kalo ketiduran gimana ?"}

{"udah kayak ibu-ibu rumah tangga deh gue..!"}

{"huwaa.. !"}

{"mirip ngga ?"}

{"libur euy..!!"}

{"ring kekekkeke.!!"}

{"ya sutra lah.."}

{"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.. "}

{"aduhh.. itu bener-bener deh.. *hiks* "}

{"aceman loe..."}

{"begini"}

{"lho"}

{"<------ potong disini -----"}

{"hah"}

{"brisik"}

{"mama mama"}

{"kutumbaba *mama*"}

{"lho ya!"}

{"laper!"}

{"wik"}

{"wooow keren skallii"}

{"anu dulu ah..."}

{"gwe keren kan?"}

{"ada yang punya ef be gak nick??"}

{"duarrrrrrrrrr!!!"}

{"weleh-weleh"}

{"cleguks"}

{"hoeam.zzzz"}

{"laper bosssssssSSSS"}

{"anday ada yang pv aku.."}

{"tiada hari tanpa sendiri"}

{"main uno dulu ah"}

{"!port goez.amunisi.net"}

{"ah... jadi kebelet gwe"}

{"ada yang punya psy gak nih??"}

{"sewa bot berapa ya om??"}

{"aduh lupa gak gwe tutup tadi.."}

{"semangat..... 69"}

{"tak ada yang abadi"}

{"gue crewet ya..."}

{"ampun DJ..."}

{"bos bos... gue minta SOP nya"}

{"walah......"}

{"acemmmmmmmmmm"}

{"kagak kuat gue.."}

{"tarik mang.."}

{"ah elo.."}

{"ealah.."}

{"siapa yang pv gue tadi.."}

{"males ah..."}

{"gue pipis dolo ea..."}

{"bikin susu coklat dulu ah..."}

{"aku gak kemana² tp aku ada di mana²"}

{"anday ada kesempatan ke 3"}

{"!seen g0eZ"}

{"mad mad beliin gwe pulsa donk mad.."}

{"heuheuheuheuehueheuheu"}

{"aw aw aw"}

{"sakit om.."}

{"jangan om"}

{"kul gak lulus lg..."}

{"aduh.. apes banget gwe"}

{"kapan itu?"}

{"!port goez.amunisi.net 9000"}

{"wkwkwkwkwkwkwkwk"}

{"eh eh...."}

{"siapa yang mau jd pendengar jurhat ku.."}

{"uang tinggal 3 ribu mau beli pulsa.. gak jadi ah..."}

{"oh goD"}

{"bos g0eZ td mana yah..."}

{"hmmmmmmmmm...."}

{"mikir bentaran yah.."}

{"ewh.."}

{"jiah..."}

{"begh.."}

{"tid tid.. ada sms nih.."}

{"!sms 085330023052 kangen kamu yank.."}

{"di jamin puasSSS"}

{"alamat ef loe apa bro?"}

{"di sms gak balesin..."}

{"iya tah?"}

{"ahay..."}

{"kagak bisa bobok gue.."}

{"sipppp.."}

{"jadi donk say..."}

{"perasaan ada yang panggil yah.."}

{"boSS adem bos..."}

{"aku iki sopo nginvite rene..."}

{"duh lemot..."}

{"!seen egGo"}

{"huhuhuhuhuhuhuh..."}

{"Duh gwe dapet lagi ini.."}

{"mau enaknya aja loe.. anaknya kagak mau.."}

{"dasar pecundang.."}

{"kangen kamu yank.."}

{"dimanakah aku inih..."}

{"@_@"}

{"^_^"}

{"*_*"}

{"o_O"}

{"x_X"}

{"entah lah.."}

{"mau kencan dulu say.."}

{"kujum?"}

{"gak maooo..."}

{"guz.."}

{"hello..."}

{"waks..."}

{"i am nothing with you.."}

{"alone..."}

{"ah cepek.."}

{"crutz.."}

{"aw... aw..."}

{"hmmmmmmmmmmmmmmmmmmmmmmm.."}

{"apa lo.. hueheuheuhe"}

{"gak papa gak mama sama ajah.."}

{"tunggu!!"}

{"ada esemes.."}

{"bot.."}

{"ngeri juga gwe.."}

{"aku menunggumu disini.."}

{"bicara donk.."}

{"ah elo.."}

{"ngomong kek dr tadi.."}

{"ekekekekekeke"}

{"wkwkwkwkwkwkwkw"}

{"jijik aku.."}

{"ojok_add@ymail.com"}

{"derita loe.."}

{"cumi..."}

{"takut.. :C"}

{"iya iya..."}

}

if {![string match "*speaks_time*" [timers]]} {

 timer $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]]} {

  timer $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~"

  "halooooooooo"

  "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 Yazmien Octavia, kalau kamu siapa?"

  "asl gua = 20 f jember, rumah gua di kencong , 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..."

  "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 gebetan"

  "5 menit aja hehehehehee"

  "ikut donk..."

  ",ape ?? mo kmana lu jang ? TEGA LUH tinggalin gua sendiri ?? co 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 pipis yeh.. 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 :$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 seta channel 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"

  "GBU & tetep semangat yah.."

}

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 By g0eZ Successfuly..."

##-------------------------------------------------------------------