kenyih.tcl

## CONFIG ##

set ngoceh_chans "*"

set speaks_time 10

## PROC INFO ##

set auto_ngoceh "Lucu TCL by egGo"

## AUTO MSG ##

set speaks_msg {

{"owgh nooo.. keselak keyboard aq jiakakakakak"}

{"nguntal sik"}

{"uda deh.. gue nyerah sm Loe.. krn Loe dh ga prcaya lg sm gue"}

{"\001ACTION kebelet ngiseng, kakakakak\001"}

{"lho.. jarene arep quit kog sik pggh ol ae cah kui"}

{"oohhh...tidaaaaaak"}

{"nyanyi ah.Piano,"mari2" piano (sambil lirik Master_gembos"}

{"andai kau tau.. rasa ini takan penah mati.. jiakakak.. So Swit"}

{"menengoe jo omong ae"}

{"mas tlg lepasin celanaq donk"}

{"mas kancingq g bisa dibuka nie.. bukain donkz"}

{"kog betah ya aq chatting trs"}

{"aku pengen dipeluk .."}

{"axis jan jancok gprse"}

{"\001ACTION brb mbukak www.ciut.peperonity.com\001"}

{"begh server sg penak opo y? aq lemod puol kie.."}

{"G enek sing butuh pacar petinju ki?wkwkwkwk"}

{"lam kenal y semua"}

{"ket mau isuk aq rung aduz lho cah"}

{"!ping NickServ"}

{"-seen g0eZ"}

{"\001ACTION Astaghfirullah haladzim...\001"}

{"xixixixi... ndeloko Trans7 cah apik fileme"}

{"mas carane register nick pye towh?"}

{"lemod po sepi kie"}

{"http://sembon.jw.lt <---aq nemu target nek kene.wakakakaka"}

{"\001ACTION jaluk pulsa g0eZ 5000 sak ciume\001"}

{"seng rumongso ganteng tekan 1"}

{"sek ojo ngaleh yo cah.. aku tk turu disek"}

{"ya aoh matet.."}

{"asuuu.. sopo wingi ngeflood aq? kog tuego to.."}

{"seng rumongso elek tekan 0"}

{"\001ACTION telfon pacarq\001"}

{"mas mintak opnya donkz"}

{"sek bos q tk quit dulu"}

{"dHieTa: pelajarane sesok upu?"}

{"....."}

{"\001ACTION dalam diam ku selalu memperhatikanmu sayank\001"}

{"seng rumongso ayu tekan 2"}

{"leh gabung g?"}

{"bos reneo kilo jajan"}

{"matet"}

{"sek tk beli pulsa dlu"}

{"loh ki jam piro to?"}

{"\001ACTION dipelkoca orang\001"}

{"heh.. aku sayang kamu.."}

{"4E3mang 4G3ue 4P3ikirin..."}

{"ngopi yowh.. tk traktir"}

{"\001ACTION berubah dadi cat women dlu\001"}

{"peh kebelet ngiseng aku"}

{"duch kasian dech... aku dicuekin"}

{"\001ACTION luuuweeeeeee..\001"}

{"g0eZ ndi yo kog mueneng ae"}

{"peh kuesel aku tas muleh ko jerman"}

{"hehehe sopo sing arep jajan? ngaconk"}

{"ojo mk meneng ae to.. ngomonk donkz"}

{"!ping me"}

{"maaakk kawin.. jiakakakak"}

{"mas aku waraono gae bot towh.."}

{"\001ACTION tas pacaran nang Dolly.. xixixi...\001"}

{"eh reneo boz.. tak jak ngopi"}

{"cah nyanyi ae yoh"}

{"hai godoain kita-kita donkz.. :]"}

{"!ping g0eZ"}

{"joch lemot"}

{"ndi ki wonge?"}

{"aku katanya imud pa bener to?"}

{"gelud ye?"}

{"\001ACTION dunia ini terasa sunyi tanpa dirimu andre\001"}

{"samplok raimu"}

{"master aku jaluk psyBNCne towh.."}

{"mbokep ye kie? kog pd meneng"}

{"pd menenk opo bot kabeh to kie?"}

{"kampred.. enek cowok ganteng"}

{"peh luwe ikz"}

{"hihihi ngentut aku cah"}

{"\001ACTION golekno pacar cah\001"}

{"hahahahakz uhuk uhukz"}

{"\001ACTION kesepian mass...\001"}

{"ngantok"}

{"carane gae bot pye loh mas?"}

{"aSSaLamu'aLaikum Smuaa.."}

{"sing gelem pijitin aku enek g?"}

{".ping me"} 

{"juch.. mwatane pulsaku gung mlebu kat mau"}

{"\001ACTION cuma bisa tersenyum melihatmu\001"}

{"pamid q.. waleh nyawang raimu"}

{"!jam"}

{"Suwal download bokep ket mau ra mari-mari"}

{"kesel ngomonk dwe.."}

{"maafin aku lo y kalo salah ngomong"}

{"\001ACTION lg mbokep. wkwkwk\001"}

{"juch matet puol"}

{"Huaemz... ngantok"}

{".ping ChanServ"}

{"ambune kuecud ki sopo lo?"}

{"hmmz"}

{"aku bendino join ra tau dwenei keong kie pye ta.."}

{"\001ACTION pgn ML.. wkwkwk\001"}

{"jasik kasep aku"}

{"sing sk jomblo tekan 1"}

{"Suwal, g0eZ nangdi seh? aq kangen ilhoo"}

{"\001ACTION kangen g0eZ\001"}

{"chane sepiii koyo ra tau diurus ae kie.."}

{"\001ACTION ngantuk.\001"}

{"posisi.."}

{"juoch SoP q didel"}

{"\001ACTION is away (4Be 4Right 4Back)\001"}

{"mas bukain bajuq donkz"}

{"aku maeng nyium pak polisi ora dikei duit mlah dikuaplok i"}

{"miring dikit toh yank.."}

{"puch.. suwalku mlorot"}

{"kakean chat garai gendeng ky aku loh,tenan.."}

{"jarene spo aq tukang pipis nk channel?"}

{"\001ACTION arep fb an\001"}

{"oalah kie mau dino sabtu yo.. lali aku"}

{"jelek Loe.."}

{":P~"}

{"ben dino chat.. drijiku maleh dadi jempolan kbeh.. juh"}

{"podo ngmonk po towh.."}

{"wkwkwk.. dogles elek.."}

{"peh dicuexin aku"}

{"heh aq tak gae anak sik yo.. ojo rame"}

{"puohh.."}

{"mas umahmu ngendi?"}

{"\001ACTION kumad!\001"}

{"pye pomo?"}

{"loh kog.. menenk.."}

{"wkwkwk.. bar maem kog wareg yo"}

{"ngembes anuku cah"}

{"dengaren g enek sing pv aku"}

{"\001ACTION plg manis sak chan\001"}

{"menenk ah"}

{"jampot matane picex.."}

{"pgn amnesia aq cah"}

{"aq pe budal ngopi sopo melu?"}

{"sik pe tuku pulsa garek Rp.500 kie"}

{"hoeeeeee.. tk bakar chane arepan.."}

{"aq benci karna tlah mencintaimu.. puch.. jarene Sarmidi ngunu.."}

{"heh sek menengo kbeh q arep nyanyi"}

{"\001ACTION benci karna tlah mencintaimu!!\001"}

{"sempakq jebol.. matane"}

{"pgn due pacar ra keturutan aku"}

{"\001ACTION djuancooook.......\001"}

{"hahaha.. aq ae gendeng po meneh koe"}

{"\001ACTION lg shoping ama g0eZ\001"}

{"\001ACTION ateLiiiiii.......\001"}

{"kenyeh kabeh"}

{"aku tersiksa tanpamu yank"}

{"jampot.. ra di wongne aq"}

{"wb nen aku cah"}

{"aku sakit"}

{"golex pv an sek"}

{"kie sg urip piro ta jane?"}

{"enek sg golei aq pora kie maeng"}

{"\001ACTION huaemzz.. ngantok\001"}

{"\001ACTION streeeeesszzzz\001"}

{"ku tak laku laku"}

{"mutung ah.."}

{"aku dodolan keong.. sopo tuku"}

{"minggat minggato kno.."}

{"merana aku cuaahh.."}

{"heh apelono aq cah"}

{"heh rungokno q arep nyanyi"}

{"cp purun roti?"}

{"jancok sepiii"}

{"\001ACTION kangen kamu saiiyaank\001"}

{"pamed.. ape kencan"}

{"arep bakar kancut aku"}

{"pengen misoh aku"}

{"\001ACTION slaps g0eZ around a bit with a large trout\001"}

{"cp gelem melu aq?"}

{"asem iiii aq ra di wongne"}

{"g0eZ ada g?"}

{"\001ACTION tas putus karo g0eZ\001"}

{"dia itu bukan segalanya... wkwkwk"}

{"\001ACTION baru bnuh orang\001"}

{"apapun diriQ ini,selamanya aq adlh milikmu g0eZ.wkwkwkwk.."}

{"!seen saiiyaankk Sarmidi_kerend"}

{"\001ACTION kerend..\001"}

{"sakno reekk... aq c8 ra gablek pulsa"}

{"cintaQ padamu tak kan berubah, walaw ditelan waktu.... trse pye?"}

{"\001ACTION mumet aq mikirno koen\001"}

{"\001ACTION paling uayu dewe ae ra heboh\001"}

{"panggah omong ae op rakesel to cangkem`e?Ndih,tak idek2`e.Wagagagaiiii"}

{"kwaaapooookk ..... hahaha..."}

{"\001ACTION sinyalq ilang\001"}

}

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

timer $speaks_time time_speaks

}

proc time_speaks {} {

global speaks_msg ngoceh_chans speaks_time

if {$ngoceh_chans == "*"} {

set speaks_temp [channels]

} else {

set speaks_temp $ngoceh_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 ##

bind pub - !ping ping_speak 

bind pub - `ping ping_speak

bind pub - .ping ping_speak

set ranping {

"!pong" 

"servermu opo to jane" 

"puuh.. lemodz" 

"kakean ping.. tmbh manced lho yanx" 

"!ping" 

"maaf saya bukan babu anda"

"!ping me" 

"LaG bangged" 

"saiki ping mbayar" 

"ojo ngeping ae ngregeti layar" "juoch <nick>" 

"yungalah sakne.." 

"ojo pggh ngeping ae to ah" 

"ra sah chatting ae lak maced" 

"lah tuman.. saiki ping bayar lho" 

"po matet to kie" 

"cuk ojo ngepingan" 

"bantingen ae hpmu" 

"woe <nick> ojo panggah ping ae suw" 

"mataneii.. sg tukang ngeping wonge panggah" 

"matet neh" 

"quit ae lho timbang mancetan" 

"aq ae sg macet 10 jam ora tau sambat.."

"ping <nick>" 

"<nick> baned ae coy gampang ngepingan ch iki" 

}

proc ping_speak {nick uhost hand chan text} {

global botnick ngoceh_chans ranping

if {(([lsearch -exact [string tolower $ngoceh_chans] [string tolower $chan]] != -1) || ($ngoceh_chans == "*"))} {

set pings [lindex $ranping [rand [llength $ranping]]]

regsub -all "<nick>" $pings "$nick" pings

regsub -all "<chan>" $pings "$chan" pings

putserv "PRIVMSG $chan :$pings"

}

} 

##  HALO ##

bind pub - hello hello_speak 

bind pub - halo hello_speak 

bind pub - hallo hello_speak 

bind pub - hai hello_speak 

bind pub - hi hello_speak 

set ranhello {

"hello apa crut,...."

"Hi i'm happy today!!, akakakkak damput bahasaku rek"

"Huek ... Hello mulu duit kagak keluar :P~"

"halooooooooo"

"alo alo bandung ibukota peliangan....."

}

proc hello_speak {nick uhost hand chan text} {

global botnick ngoceh_chans ranhello

if {(([lsearch -exact [string tolower $ngoceh_chans] [string tolower $chan]] != -1) || ($ngoceh_chans == "*"))} {

set helos [lindex $ranhello [rand [llength $ranhello]]]

regsub -all "<nick>" $helos "$nick" helos

regsub -all "<chan>" $helos "$chan" helos

putserv "PRIVMSG $chan :$helos"

}

} 

##  BOS  ##

bind pub - guz bos_speak 

bind pub - g0eZ bos_speak 

bind pub - goez bos_speak

bind pub - gos bos_speak

bind pub - goz bos_speak

set ranbos {

"g0eZ golekkie lohc... eh... asem jo mbokep ae nda..." 

"Yaank...diGolek i ki looh" 

"hoalah, ojo nyeluk i sayankQ towh..."

"Sik nek mburi g0eZ"

"Yaank digolek`i ki lo" 

"g0eZ : gayane ra ruh wie menenk ae" 

"matek arek e wakkakakkaka" 

"<nick> nyapo golei g0eZ?" 

"g0eZ ganteng2 kq buuuudek" 

"wekewkewkkewkewkewkwe wong elek diceluk isk.." 

"g0eZ enek wonk gendenk golei koen yank"

"oloh² yank... golek kie loh...." 

"g0eZ lemod pling" 

"heh arep kok kapakne g0eZQ?" 

"g0eZ mbokep"

"diancooox`i jo celuk2 ae" 

"puch g0eZ payu caah...." 

"sik dulanan manuk cae cyukz" 

"Baguzzzzzzzzzzzzzz aq padamuuu.... khakhakhakha..." 

"gasyu i ojo nyeluki cintaq" 

"g0eZ gendenk.. wkwkwk" 

"ojo nyeluki Blue hpne keder kae lho" 

"g0eZ mbojo pling wie"

"g0eZ: enek wonk nagih utang yank, ndelik o" 

"Blueoooooth" 

"yanks tayaank" 

"<nick> ngesir ie mbe g0eZ.. wkwkwk" 

"g0eZ ae digoleki lk aq ra tau enek sg goleki"

"\001ACTION slaps g0eZ saiiyaank dipanggil <nick> tuuch...\001"

}

proc bos_speak {nick uhost hand chan text} {

global botnick ngoceh_chans ranbos

if {(([lsearch -exact [string tolower $ngoceh_chans] [string tolower $chan]] != -1) || ($ngoceh_chans == "*"))} {

set boss [lindex $ranbos [rand [llength $ranbos]]]

regsub -all "<nick>" $boss "$nick" boss

regsub -all "<chan>" $boss "$chan" boss

putserv "PRIVMSG $chan :$boss"

}

}

set ciut_chans "*" 

##  viegGo ##

bind pub - ew ciut_speak 

bind pub - jah ciut_speak 

bind pub - jiah ciut_speak 

set ranciut {

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

}

proc ciut_speak {nick uhost hand chan text} {

 global botnick ciut_chans ranciut

if {(([lsearch -exact [string tolower $ciut_chans] [string tolower $chan]] != -1) || 

($ciut_chans == "*"))} {

set ciuts [lindex $ranciut [rand [llength $ranciut]]]

putserv "PRIVMSG $chan : $nick $ciuts"

  }

} 

set pamit_chans "*" 

##  pamit ##

bind pub - pamit pamit_speak 

bind pub - pamet pamit_speak 

bind pub - pamed pamit_speak

bind pub - pamid pamit_speak  

set ranpamit {

  "yang pamit mandol"

  "hadah baru datang kok pamit.."

  "okeh ati² ea.. sampai jumpa besok di jam & tempat yg sama"

  "begh yang pamit bisulan.."

  "aku pamit juga ah..."

  "adah kok pamet seh??"

  "mau kemana, pasti abis yah pulsanya.."

}

proc pamit_speak {nick uhost hand chan text} {

 global botnick pamit_chans ranpamit

if {(([lsearch -exact [string tolower $pamit_chans] [string tolower $chan]] != -1) || 

($pamit_chans == "*"))} {

set pamits [lindex $ranpamit [rand [llength $ranpamit]]

putserv "PRIVMSG $chan : $nick $pamits"

  }

} 

set askum_chans "*" 

##  askum ##

bind pub - askum askum_speak 

bind pub - assalam askum_speak 

bind pub - asalamualaikum askum_speak

bind pub - wassalam askum_speak  

set ranaskum {

  "waskum"

  "walaikum salam .wr .wb"

  "walaikum salam wr. wb."

  "wa'alaikum salam wr. wb."

  "wa'alaikum salam .wr .wb"

  "wa'alaikum sayang.."

}

proc askum_speak {nick uhost hand chan text} {

 global botnick askum_chans ranaskum

if {(([lsearch -exact [string tolower $askum_chans] [string tolower $chan]] != -1) || 

($askum_chans == "*"))} {

set askums [lindex $ranaskum [rand [llength $ranaskum]]]

putserv "PRIVMSG $chan : $nick $askums"

  }

} 

set g0eZ_chans "*" 

##  askum ##

bind pub - guru g0eZ_speak

bind pub - gru g0eZ_speak  

set rang0eZ {

  "jangan panggil² bosku..."

  "bos lagi sibuk mungkin...."

  "bosSS.. di panggil tuh..."

  "bos lagi mitting.. jgn ganggu..."

  "bosS emang kerean abisSS"

  "bos lagi kujum..........."

  "bos memang baik hati & tak sombong.."

}

proc g0eZ_speak {nick uhost hand chan text} {

 global botnick g0eZ_chans rang0eZ

if {(([lsearch -exact [string tolower $g0eZ_chans] [string tolower $chan]] != -1) || 

($g0eZ_chans == "*"))} {

set g0eZs [lindex $rang0eZ [rand [llength $rang0eZ]]]

putserv "PRIVMSG $chan : $nick $g0eZs"

  }

} 

##  NGANTOK  ##

bind pub - ngantok gntx_speak 

bind pub - turu gntx_speak 

bind pub - ngantuk gxtx_speak

bind pub - ngantuk gxtx_speak

set rangntx {

"turu A, turu B, turu C, turu D, trus... turu ....."

"halah... kalah karo bencong... bencong ae moleh subuh"

"turu karo sopo melu aku yoh..."

"wew sip wes turu yah mene"

"turu apa arep.... iku sing ah uh ah uh oh yesch... cruit?"

"ho oh penak turu.. chattingan ae ra enek asil e"

"melu aku engko tak keloni we...?"

"eh kalo tidur jangan tengkurap yach entar mimpi basah loch"

"paling enak emang tidur...yach... chatting nggak menghasilkan apa apa"

}

proc gntx_speak {nick uhost hand chan text} {

global botnick ngoceh_chans rangntx

if {(([lsearch -exact [string tolower $ngoceh_chans] [string tolower $chan]] != -1) || ($ngoceh_chans == "*"))} {

set gntxs [lindex $rangntx [rand [llength $rangntx]]]

regsub -all "<nick>" $gntxs "$nick" gntxs

regsub -all "<chan>" $gntxs "$chan" gntxs

putserv "PRIVMSG $chan :$gntxs"

}

} 

##  MAQIE  ##

bind pub - vie cuex_speak 

bind pub - nyeplos cuex_speak 

bind pub - acem cuex_speak

bind pub - plos cuex_speak

bind pub - mbod cuex_speak

set rancuex {

"dalem.." 

"nyapo.. ngejak gelud po pye" 

"nyapo to <nick>" 

"buohh.." 

"nyapo.. kangen yeh" 

"nyapo" 

"celuk2 aep mbo tukokno ice cream ie <nick>?" 

"jooh jo celak celuk" 

"kenyih we.." 

"\001ACTION lho cuex\001" 

"Lem dalem.." 

"oet <nick>" 

"dalem yanx.." 

"nyapo toh yanx" 

"samplok raimu.." 

"menengo cangkemu" 

"\001ACTION gak mw dpanggil ma org jlex\001" 

"nyapo? pe nyangoni aq ye" 

"sek yanx" 

"heh jo rame to ah" 

"boh boh" 

"oet.. pe ngejak nengdi" 

"kenal ye kru aq? pggah nyeluk2 ae we" 

"lapo" 

"nyapo to.. q sk mbojo iloh" 

"cocotmu iloh" 

"\001ACTION jik ML\001" 

"hihihi aq dsini yank" 

"matanei jo nyocot ae cangkemu" 

"hai sayankq" 

"nyeluki aq mbayar" 

"\001ACTION gak ngurus\001" 

"\001ACTION bot\001" 

"alah buoh" 

"tak kaplok nyeluki aq ae" 

"hayah" 

"gaya ra roh ah" 

"aq sek mangan iloh" 

"\001ACTION ojo diganggu\001" 

}

proc cuex_speak {nick uhost hand chan text} {

global botnick ngoceh_chans rancuex

if {(([lsearch -exact [string tolower $ngoceh_chans] [string tolower $chan]] != -1) || ($ngoceh_chans == "*"))} {

set cuexs [lindex $rancuex [rand [llength $rancuex]]]

regsub -all "<nick>" $cuexs "$nick" cuexs

regsub -all "<chan>" $cuexs "$chan" cuexs

putserv "PRIVMSG $chan :$cuexs"

}

} 

##  SEPI  ##

bind pub - swepi sepi_speak 

bind pub - cepi sepi_speak 

bind pub - suepi sepi_speak 

bind pub - cuepi sepi_speak 

bind pub - cwepi sepi_speak 

bind pub - sepi sepi_speak 

set ransepi {

"raimu ra gelem njoged yo maleh Sepi.." 

"nGomongo'e... ra gelem ngramekne nux we"

"sepi apa sapi...sik sik tak blajar ngeja.... s.... a..... p.... i.... dibaca lembu" 

"kpn ra sepi" 

"sepi yo ben" 

"yo bene sepi timbangane rame" 

"kpn ramene" 

"rame nux" 

"hu uhm sepi biasane rame loh.." 

"sk pdo bercinta nx mahq kie wong2" 

"hahaha yo bwene sepi aq panggah hepi owk" 

"invite no ndank" 

"hu uh pdo nesu mbe aq" 

"mosok" 

"koncomu jaen rene bwen rame" 

"ancooooooooooooooooook wes ngerti sepi... ngomong o nda"

}

proc sepi_speak {nick uhost hand chan text} {

global botnick ngoceh_chans ransepi

if {(([lsearch -exact [string tolower $ngoceh_chans] [string tolower $chan]] != -1) || ($ngoceh_chans == "*"))} {

set sepis [lindex $ransepi [rand [llength $ransepi]]]

regsub -all "<nick>" $sepis "$nick" sepis

regsub -all "<chan>" $sepis "$chan" sepis

putserv "PRIVMSG $chan :$sepis"

}

} 

##  HERAN  ##

bind pub - puoh her_speak 

bind pub - poh her_speak 

bind pub - puch her_speak 

bind pub - puh her_speak

set ranher { 

"Fuh"

"puCh.." 

"tenan po pye" 

"\001ACTION ora heboh\001"

"ngunu ye" 

"pUohhh.. hora umum" 

"muoSok toh <nick>.." 

"<nick> <== wonk ra tau eruh yo gumun"

"weikz" 

"puChh.. Uapik yo"

"lah" 

"ra nggumun" 

"muangkle'e tanan po pye" 

"ihh wawh.." 

"muaCak cie.." 

"ngapusi duso lho"

}

proc her_speak {nick uhost hand chan text} {

global botnick ngoceh_chans ranher

if {(([lsearch -exact [string tolower $ngoceh_chans] [string tolower $chan]] != -1) || ($ngoceh_chans == "*"))} {

set hers [lindex $ranher [rand [llength $ranher]]]

regsub -all "<nick>" $hers "$nick" hers

regsub -all "<chan>" $hers "$chan" hers

putserv "PRIVMSG $chan :$hers"

}

}  

##  NGE-LAG  ##

bind pub - mantet lag_speak 

bind pub - matet lag_speak 

bind pub - mwantet lag_speak 

bind pub - macet lag_speak 

bind pub - mancet lag_speak 

bind pub - manted lag_speak 

bind pub - lemod lag_speak 

bind pub - lemot lag_speak 

bind pub - lemod lag_speak 

set ranlag { 

"ora" 

"\001ACTION bantu dorong ta ?\001" 

"ganti server e"

"tak saranin tekan ctr + alt + del 2 kali... ntar cepet aksesnya" 

"mgkne gae Speedy bwen ra lemod" 

"podo ae.. aq yo matet ilho <nick>" 

"gae`o server irc.<nick>.net.id nko lak ra manced.. wkwkwk"

}

proc lag_speak {nick uhost hand chan text} {

global botnick ngoceh_chans ranlag

if {(([lsearch -exact [string tolower $ngoceh_chans] [string tolower $chan]] != -1) || ($ngoceh_chans == "*"))} {

set lags [lindex $ranlag [rand [llength $ranlag]]]

regsub -all "<nick>" $lags "$nick" lags

regsub -all "<chan>" $lags "$chan" lags

putserv "PRIVMSG $chan :$lags"

}

} 

##  KETAWA ##

bind pub - haha ketawa_speak 

bind pub - gugugu ketawa_speak 

bind pub - hihi ketawa_speak 

bind pub - gagagag ketawa_speak 

bind pub - hehehe ketawa_speak 

bind pub - xixixi ketawa_speak 

bind pub - huehue ketawa_speak 

bind pub - kakakaka ketawa_speak 

bind pub - kekeke ketawa_speak 

bind pub - hohoho ketawa_speak 

bind pub - jiakaka ketawa_speak

bind pub - wkakaka ketawa_speak

set ranketawa {

"wkwkwkwk" 

"Guyumu uwellek nux.." 

"jiakakak.. Edan tenan" 

"hehehe.." 

"puCh.. kuning janan untune" 

"HaHaHa Leina Style.." 

"guyumu elek coookk"

}

proc ketawa_speak {nick uhost hand chan text} {

global botnick ngoceh_chans ranketawa

if {(([lsearch -exact [string tolower $ngoceh_chans] [string tolower $chan]] != -1) || ($ngoceh_chans == "*"))} {

set ketawas [lindex $ranketawa [rand [llength $ranketawa]]]

putserv "PRIVMSG $chan :$ketawas"

}

} 

## GENERAL ##

set channel "*"

set time 2

#### SING NGISOR OJO DIEDIT GOBLOG!! ####

if {[string compare [string index $time 0] "!"] == 0} { set timer [string range $time 1 end] } { set timer [expr $time * 60] }

if {[lsearch -glob [utimers] "* go *"] == -1} { utimer $timer go }

proc go {} {

global channel time text timer

foreach chan $channel {

set line [lindex $text [rand [llength $text]]]

putserv "PRIVMSG $chan :$line"

}

if {[lsearch -glob [utimers] "* go *"] == -1} { utimer $timer go }

}