#########################################################################
## -=[ SPEAK ]=- tcL edit by Mystics pendosa@gmail.com #
#########################################################################
## for all channel just type "*" if only for 1 channel or 2 chnnel just
## type "*"
set speaks_chans "#animonster"
# Set you want in XXX minute you bot always talk on minute
set speaks_time 10
## -=[ 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"
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"
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"
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"
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 {
{"Pikiran kotor yang mendorong ucapan dan perbuatan selalu dlikuti sakit dan penderitaan seperti roda kereta mengikuti jejak sapi penariknya"}
{"Pikiran bersih yang mendorong ucapan dan perbuatan selalu diikuti kepuasan dan kebahagiaan seperti bayangan yang tak pernah berpisah dari padanya"}
{"ugh...akh....ugh...akh.....ugh....akhh..."}
{"Hidup di dalam hati yang kita tinggalkan bukanlah mati."}
{"Sesuatu yang dicintai selalu indah"}
{"Apa yang berasal dari hati, Selalu menyentuh hati."}
{"Kehadiran adalah lebih daripada sekedar berada disana."}
{"Cinta menyembuhkan manusia, baik yang memberi maupun yang menerimanya."}
{"who is better? naruto or sasuke? well u have to choose :P~~"}
{"cinta itu buta..tapi jgn buta karena cinta... bener ngga penonton??"}
{"......empty V *baca mTV* guaaa banget !!!"}
{"Tak ada kejutan yang lebih ajaib daripada mengetahui bahwa diam-diam kita dicintai; hal itu seperti merasakan tangan Tuhan di bahu kita."}
{"Cinta adalah cara berjalan dengan penuh syukur."}
{"Cinta membuat sebulan serasa sejam, setahun serasa sehari dan setiap ketidakhadiran terasa bagaikan seabad."}
{"duh...sange nehh :P hihihihi *bad side"}
{"Satu-satunya cara bila kita ingin hidup selamanya adalah mencintai seseorang dengan demikian kita meninggalkan sesuatu yang berharga."}
{"Kalau Kita mencari sisi baik dalam diri orang lain Kita akan menemukan sisi terbaik dalam diri kita."}
{"Rintangan adalah hal-hal menakutkan yang kita lihat ketika kita mengalihkan perhatian dari tujuan kita."}
{"ada yg jomlo ngga? :P~~"}
{"politik itu busukkkkkkkk"}
{"denting piano saat jemari menari..nada merambat pelan,dikesunyian malam saat datang rintik hujan bersama sebuah bayang yg tak pernah terlupakan"}
{"fu..fu..fu..jadi malu kalo inget kejadian semalem :P~"}
{"tidur...bangun..makan....chatting...P*****..trus tidur lagih"}
{"keram otak"}
{"kemarin..kulihat awan membentuk wajahmu..desau angin meniupkan namamu tubuhku terpaku semalam,bulan sabit melengkungkan senyummu heeh *jadi malu"}
{"brb ke dunia nyata :))"}
{"Diplomacy is the art of saying 'ok how much ur price?... then Ok deal wait me at room number 378."}
{"Diplomacy - the art of letting someone have your way."}
{"Hobby gue tuh travelling sama baca...ya kadang2 menulis kalo hobby lo apaan?"}
{"Age does not make us childish, as some say; it finds us true children."}
{"Orang mulia menyalahkan dirinya, orang bodoh menyalahkan orang lain"}
{"Sesuatu yang baik, belum tentu benar"}
{"Sesuatu yang benar, belum tentu baik"}
{"Sesuatu yang bagus, belum tentu berharga"}
{"Sesuatu yang berharga/berguna, belum tentu bagus"}
{"Raja mengatur orang. Orang bijak mengatur raja."}
{"Orang bijak adalah dia yang hari ini mengerjakan apa yang orang bodoh akan mengerjakannya tiga hari kemudian"}
{"Nilai sesungguhnya dari seorang manusia ditentukan oleh tujuan yang dikejarnya."}
{"Yang penting bukanlah siapa yang benar, melainkan apa yang benar"}
{"5 Kelemahan pada setiap orang. 1. Di saat sembarangan, mudah membunuhnya. 2. Di saat takut, mudah menangkapnya. 3. Di saat marah, mudah menghasutnya. 4. Di saat sensitif, mudah menjadikannya terhina. 5. Di saat emosional, mudah membuatnya gelisah"}
{"Copyright 2004 Mystics property. All wights reserved."}
{"Brain bramaged."}
{"Orang berwatak baik melakukan sesuatu yang benar hanya karena itu benar. Orang besar menunjukkan kebesarannya dalam caranya memperlakukan orang kecil"}
{"Satu-satunya hal yang harus kita takuti adalah ketakutan itu sendiri. By: Franklin D. Roosevelt"}
{"Kata yang paling indah dibibir umat manusia adalah kata "Ibu", dan panggilan paling indah adalah "Ibuku". Ini adalah kata yang penuh harapan dan cinta, kata manis dan baik yang keluar dari kedalaman hati. Kahlil Gibran"}
{"Kepuasan terletak pada usaha, bukan pada hasil. Berusaha dengan keras adalah kemenangan yang hakiki"}
{"Hal terindah yang dapat kita alami adalah misteri. Misteri adalah sumber semua seni sejati dan semua ilmu pengetahuan."}
{"Bila anda memerlukan kata-kata untuk menggambarkan pengetahuan dan pemahaman, itu seperti burung dalam sangkar. Memiliki sayap namun tak bisa terbang."}
{"Maafkanlah musuh-musuh anda, tapi jangan pernah melupakan nama-namanya. "}
{"Persahabatan adalah hal tersulit untuk dijelaskan di dunia ini. Dan, ini bukan soal apa yang anda pelajari di sekolah. Tetapi, bila anda tidak pernah belajar makna persahabatan, anda benar-benar tidak belajar apa pun"}
{"Perjuanganku lebih mudah karena mengusir penjajah, tapi perjuanganmu akan lebih sulit karena melawan bangsamu sendiri"}
{"Apa pun tugas hidup anda, lakukan dengan baik. Seseorang semestinya melakukan pekerjaannya sedemikian baik sehingga mereka yang masih hidup, yang sudah mati, dan yang belum lahir tidak mampu melakukannya lebih baik lagi"}
{"Apabila di dalam diri seseorang masih ada rasa malu dan takut untuk berbuat suatu kebaikan, maka jaminan bagi orang tersebut adalah tidak akan bertemunya ia dengan kemajuan selangkah pun."}
{"Bila kau ingin mendapatkan kebahagiaan dalam satu jam, tidurlah. Bila kau ingin mendapatkan kebahagiaan dalam sehari, pergilah memancing. Bila kau ingin mendapatkan kebahagiaan dalam setahun, mintalah keberuntungan. Bila kau ingin mendapatkan kebahagiaan seumur hidupmu, maka tolonglah orang lain."}
{"Tiga sifat manusia yang merusak adalah, kikir yang dituruti, hawa nafsu yang diikuti, serta sifat mengagumi diri sendiri yang berlebihan."}
{"Semua yang dimulai dengan rasa marah, akan berakhir dengan rasa malu."}
{"Ancaman nyata sebenarnya bukan pada saat komputer mulai bisa berpikir seperti manusia, tetapi ketika manusia mulai berpikir seperti komputer."}
{"Pahlawan bukanlah orang yang berani menetakkan pedangnya ke pundak lawan, tetapi pahlawan sebenarnya ialah orang yang sanggup menguasai dirinya dikala ia marah"}
{"Jika orang berpegang pada keyakinan, maka hilanglah kesangsian. Tetapi, jika orang sudah mulai berpegang pada kesangsian, maka hilanglah keyakinan"}
{"Kebanggaan kita yang terbesar adalah bukan tidak pernah gagal, tetapi bangkit kembali setiap kali kita jatuh. - Confusius -"}
{"Jadilah kamu manusia yang pada kelahiranmu semua orang tertawa bahagia, tetapi hanya kamu sendiri yang menangis; dan pada kematianmu semua orang menangis sedih, tetapi hanya kamu sendiri yang tersenyum"}
{"Teman sejati adalah ia yang meraih tangan anda dan menyentuh hati anda."}
{"Banyak kegagalan dalam hidup ini dikarenakan orang-orang tidak menyadari betapa dekatnya mereka dengan keberhasilan saat mereka menyerah"}
}
if {![string match "*time_speaks*" [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
}
}
## PING PONG ##
set Reponden2.v "Ping Respon"
bind pub - !ping ping_speak
bind pub - `ping ping_speak
bind pub - .ping ping_speak
set ranping {
",pong"
",kamu ping-in punya anak atau ping-in punya cucu hehe.."
",waw masih suka nonton film ping-uin yah kekek...ajak-ajak donk"
",Your Not that lagged. Ping Reply :7 second"
",waw kamu lagg banget sampai 10 menit 10 second keke.. becanda"
",Ping..pong.. ayo kita maen ping pong kamu bisa kan :)"
",jangan ping melulu donk gue juga lagg nich bukan kamu aja"
",minta ping ni ye.. :) ping aku juga donk :)"
",ping...pong"
",Your ping reply took 180 seconds"
",jangan serius banget ping nya nanti kena kena pong kan bisa brb loh"
"waduh.. minta ping sampai.. gue lupa menghitung berapa second lagg kamu sorry :P"
"ehm.. menurut saya lagg kamu ngak begitu lag kali ya.. ;p"
"Your lagged, but not to bad. Ping Reply:12 ops... salah hitung.."
"ping-in kamu mau berapa second ping nya. kalau mau 10 anggap aja 10 second :) mudahkan"
"pinguuin yang ada di gambar pada linux program yah"
"bosan ni.. elo minta ping melulu sekali2 ke minta yang lain ;p kayak kiss atau apa"
"anda ngak begitu lag kok cuman 1 second ;p becanda"
"waw kasihan kamu lagg nya minta ampun sampai 1 menit perline kekek.. "
"ping pong itu apa sih??"
",jangan becanda lah massa kamu pingin kawin lagi kekeke.."
"bener ni minta ping.."
"ping-in apa lu ? pingin diriku ato pingin sex?"
"ping teh naon ? bahan pembuat emping ? ato semacam penyakit kuping?"
"ping-in apa? cucu ya? cucu dancow? ato cucu milo?"
",bener-bener minta ping ni kalau di suruh pilih mau di kiss atau mau minta ping"
"ketik aja /ctcp yournickname ping"
"ping sini ping sana, lag sini lag sana, pakailah server vancouver"
"gimana sih rasanya di ping?"
"kenapa dengan ping-gang gua? sexy ya hueuheue"
"PING sendiri donk :P"
"gimana rasanya di pong? tanpa ping"
"ada yang pingsan ya?"
"sini gua ping-in, bayar cepek dulu yah ^_*"
"ping ping mulu, lagi ngidem ya? ohh udah hamil brapa bulan nich hehehe"
"[PING reply]: 2 seconds -[hehehe..]-"
"eh tolong tuh , ada orang minta PING"
"lu mo pingsan jangan disini!! dipelukanku saja hihihihiihih"
"di ping itu di apain sih? dibikin pingsan ya? ato di kasih liat pinggang sexy?"
"ping yang lu maksud apa nih? dedenya pinguin musuh batman? ato semacam olahraga?"
"ping teh naon ? bahan pembuat emping ? ato semacam penyakit kuping?"
"ping (boongan) elo adalah 3,123456789 detik, hehehehehe"
"ping mulu, kebanyakan ping, ntar lumalah jadi LAG lhooooo"
}
proc ping_speak {nick uhost hand chan text} {
global botnick ping_chans ranping
if {(([lsearch -exact [string tolower $ping_chans] [string tolower $chan]] != -1) || ($ping_chans == "*"))} {
set pings [lindex $ranping [rand [llength $ranping]]]
putserv "PRIVMSG $chan :$nick $pings"
}
}
## hello ##
set Reponden3.v "hello Respon"
bind pub - hello hello_speak
bind pub - alo hello_speak
bind pub - hallo hello_speak
bind pub - hai hello_speak
bind pub - hi hello_speak
set ranhello {
"hello hello sapa disitu roger copy gituh ganti :P~~"
"hello juga....gue mystics situ sapa..kenalan dunk"
"ramein channel donk saayyyy"
"halo halo bandung, bandung enak buat mesum...upss"
"Hi too, ohh ur so cutee xP~"
"halooooooooo"
"apaaaaaaa , suka yaaaaa"
"yo whats up dear"
"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 =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 sarisha kalau kamu siapa?"
"asl gua = 18 f jkt, rumah gua di pondok labu, 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
set ranbrb {
"ok"
"mo kemana bos ikuttttt!!!"
"gue juga nch mo makan kekekkeke"
"when you coming back. miss ya already! ;)"
"brb mo kemana nich, kok ga ngajak ngajak hehehe"
",BRB nya jangan lama lama yah :))"
"kalo brb ke WC aku ikut, kalo ke kamar juga hehehehhe"
"u want to brb ? ok darling, but don't be so long ok pls, I need You honey"
",Alesan .. paling juga gebetan"
"brbnya 5 menit aja hehehehehee"
"ikut brb ahhhhhh"
"brb? alesan....mo boongin anak orang lagih yah... insaf dunkk insaf!!"
"brb boleh tapi nicknamenya tetep disini kan ?"
"ok, saya tunggu yah.. jangan lama2 kangen nich kekek.."
"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 :$nick $brbs"
}
}
## Bye ##
set Reponden5.v "Bye respon"
bind pub - bye 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"
"thathaaa"
"gidahhhhhhhhhhhhh sana jauh jauh"
"ati-ati di jalan bro!!"
"ok see u later fren"
"bade kamana njut?"
"ok deh.. bye.. juga"
"ya udah salam buat papi sama mami yah :))"
"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"
}
}
## mystics ##
set Reponden5.v "mystics"
bind pub - mystics
set mystics {
"yah...manggil gue? ada apa??"
"paan sih manggil2 gue? sok akrab banged"
"apaaaaaaaaa!!"
"jgn sok akrab deh"
"*heh?"
"yup"
"watz up dude...."
"hue...sape lu manggil2 gwe?"
"apaan sih...sibuk nih..kalo ada perlu pv ajah"
"zzzzzzzzz"
"gomenesai...saya lagih ada kerjaan...maap ga negor :)"
"brb sibuk!"
"lagih baca manga nih...jgn ganggu dunk!"
"iyah...ada apa?"
"brisik!! jgn sebut2 nama gue sembarangan...kena kutuk lho"
"ada apaa dengan muuu panggil2 namakuuu..."
"ya saya?"
"iyaaaaaaaaaaaaaaaa"
}
proc mystics {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},2.${Reponden2.v},3.${Reponden3.v}"
putlog "4.${Reponden4.v},5.${Reponden5.v}"
putlog "loaded speak.tcl by effex Successfuly..."
##------------------------------------------------------------------------
## *** E N D OF ENT1.0.TCL ***
## -----------------------------------------------------------------------