######################################################################
# Humanoid By yaya / Vanilla - #sekam Allnetwork
# hillzx@gmail.com
# Version 1.0
# 21 November 2009
# TCL ini merupakan Versi Free 50%
# Artinya Fitur dan kosa kata TCL ini dihapus hampir separuhnya untuk melindungi script original karya yaya dari pembajakan
# Anda boleh menambahkan kosa kata sendiri, namun nama pembuat wajib disertakan sebagai tanda respek anda kepada pembuat script
# Enjoy...!!!
######################################################################
bind pubm - "*" pubm:say
bind join n|n * pub:join
set ownerbot "g0eZ"
set ownerhost "yaya@my.life.is.perfect.because.i.have.you"
set ignore1 "~*@vhost.dicueki.1"
set ignore2 "*@vhost.dicueki.2"
set active "true"
set activechan "#ciut"
proc bolehbicara { chanz } {
global activechan
set chanexist "true"
set listchan [split $activechan ","]
set chanz [string tolower $chanz]
foreach channelz $listchan {
set channelz [string tolower $channelz]
if { $chanz == $channelz } {
set chanexist "true"
}
}
return $chanexist
}
proc tambahchan {chan} {
global activechan
set orichan $chan
set chanexist "false"
set chan [string tolower $chan]
set listchan [split $activechan ","]
foreach channelz $listchan {
set channelz [string tolower $channelz]
if { $chan == $channelz } {
set chanexist "true"
}
}
if { $chanexist == "false" } {
if {$activechan == ""} {
set activechan "$orichan"
} else {
set activechan "$activechan,$orichan"
}
}
}
proc delchan {targetchan} {
global activechan
set listchan [split $activechan ","]
set newactivechan ""
foreach channelz $listchan {
set lowerchannel [string tolower $channelz]
if { $targetchan != $lowerchannel } {
if { $newactivechan == "" } {
set newactivechan $channelz
} else {
set newactivechan "$newactivechan,$channelz"
}
}
}
set activechan $newactivechan
#putserv "PRIVMSG $orichan :Test"
#say $orichan "Target $targetchan"
}
proc pub:join {nick host handle chan} {
global botnick active
if { $botnick != $nick } {
if { $active == "true" } {
say $chan "webe lah $nick "
}
} else {
say $chan "Hmmmmmmmmmmmm......"
}
}
proc deactivate {} {
global active
set active "false"
}
proc toChar { value } {
return [format %c $value]
}
proc nokutip { value } {
set kutip [toChar [expr 34]]
return [string trim $value $kutip]
}
proc say { chan text } {
putserv "PRIVMSG $chan :$text"
}
proc saydelay {chan text} {
puthelp "PRIVMSG $chan :$text"
}
proc pick:from { list } {
set temp [lindex $list [rand [llength $list]]]
return [nokutip $temp]
}
proc pubm:say { nick uhost hand chan text } {
global active botnick ownerbot ownerhost kutip delayedtext delayedchan ignore1 ignore2 ignore3
global ignore4 global activechan
global lstkenalan lstasl lstudah lstboleh lstbisa lstpacar lstcerewet lstbaguskeren lstjangan lstparah
global lstsalam lstpamit lstaskum lstmakan lstbobo lstkatanya lstkenapa lstsiapa lstfb lstjam
global lstmau lstmakanya lstbenar lstsuka lstjanji lstkamubot lstudahlah lsttakut lstmaaf lstmakasih
global lstirc lststress lstotak lstcopas lstkamukan lstadzan lstnyanyi lstsini lstmana lstdipanggil
global lstbingung lstkamutau lstlagiapa lsttanya lstemosedih lstemoticon lstpercaya lstmungkin lstemosi lstmautau
global lstbanget lstapakabar lsthai lstdoa lstgeli lstyuk lstdengar lstooh lstkok lstdong
global lstgara lstlayak lsttau lstberapa lstnakal lstingat lstminta lstcuek lstyaya lstgimana
global lstsakit lstaduh lstsiapajahat lstautis
global exprkaget exprmarah exprmaaf exprsenang exprheran exprtakut exprsebel
set channel $chan
set text [string tolower $text]
if { $botnick != $nick } {
if { $uhost == $ownerhost } {
set ownerbot "g0eZ"
} elseif { $uhost == $ignore1 || $uhost == $ignore2 || $uhost == $ignore3 || $uhost == $ignore4 } {
return
} else {
set ownerbot $nick
}
if { $text == "yaya" } {
set result [pick:from $lstdipanggil]
say $chan "$result $ownerbot"
set active "true"
tambahchan $chan
return
}
set idx [llength [split $text]]
set taskchan [lindex $text [expr $idx-1]]
if { [string match "*yaya*pulang*" $text] || [string match "*pulang*yaya*" $text] } {
return
if { [matchattr $hand n|m] } {
say $chan "iya iya... yaya pulang.. :("
delchan $chan
channel remove $chan
puthelp "PART $chan"
} else {
say $chan "males ah.. gamau.."
}
return
}
if { [bolehbicara $chan] == "false" } {
return
}
if { [string match "*yaya*mampir*ke*" $text] } {
return
if { [matchattr $hand n|m] } {
say $chan "mampir ke $taskchan ? Baiklah... "
channel add $taskchan
putquick "JOIN $taskchan"
} else {
say $chan "males ah.. gamau.."
}
return
}
if { [string match "*yaya*bicaralah*di*" $text] } {
return
if { [matchattr $hand n|m] } {
say $chan "asik asik.. yaya akan bicara di $taskchan.. "
tambahchan $taskchan
} else {
say $chan "ogah ah.."
}
return
}
if { [string match "*yaya*pergilah*dari*" $text] } {
return
if { [matchattr $hand n|m] } {
say $chan "iya iya.. yaya akan pergi dari $taskchan.. :("
delchan $taskchan
channel remove $taskchan
puthelp "PART $taskchan"
} else {
say $chan "ogah ah.."
}
return
}
if { [string match "*yaya*jangan*bicara*di*" $text] } {
return
if { [matchattr $hand n|m] } {
putserv "PRIVMSG $chan :iya iya... yaya ga akan bicara di $taskchan.. :("
delchan $taskchan
} else {
putserv "PRIVMSG $chan :ogah ah.."
}
return
}
if { [string match "*yaya*bicara*dimana*" $text] } {
global activechan
return
if { [matchattr $hand n|m] } {
say $chan "yaya bicara di: $activechan"
} else {
say $chan "ada deeeehhh mau tau ajah.."
}
return
}
if { [string match "*yaya*dimana*" $text] } {
return
if { [matchattr $hand n|m] } {
set chans [channels]
set strchans ""
foreach channel $chans {
if { $strchans == "" } {
set strchans $channel
} else {
set strchans "$strchans,$channel"
}
}
say $chan "yaya ada di: $strchans"
} else {
say $chan "ada deeeehhh mau tau ajah.."
}
return
}
if { $active == "true" } {
if { [string match "*<*>*" $text] } {
say $chan [pick:from $lstcopas]
} elseif { [string match "* ingat*" $text] || [string match "* inget*" $text] || [string match "*lupa*" $text] } {
say $chan [pick:from $lstingat]
} elseif { [string match "*minta*" $text] || [string match "*mnta*" $text] || [string match "*bagi*" $text] } {
say $chan [pick:from $lstminta]
} elseif { [string match "* dong*" $text] || [string match "* donk*" $text] || [string match "* dunk*" $text] } {
say $chan [pick:from $lstdong]
} elseif { [string match "*dengar*" $text] || [string match "*denger*" $text] || [string match "*kuping*" $text] } {
say $chan [pick:from $lstdengar]
} elseif { [string match "*halo*" $text] || [string match "*hallo*" $text] || [string match "*hai*" $text] || [string match "*hei*" $text] || [string match "*helo*" $text] || [string match "*hello*" $text]} {
say $chan [pick:from $lsthai]
set delayedtext [pick:from $lsttanya]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*tau*?" $text] || [string match "*tau*ga*" $text] || [string match "*berapa*" $text] || [string match "*brp*" $text] || [string match "*brapa*" $text] } {
say $chan [pick:from $lsttau]
} elseif { [string match "*knp*" $text] || [string match "*kenapa*" $text] || [string match "*napa*" $text] } {
say $chan [pick:from $lstkenapa]
} elseif { [string match "*doa*" $text] || [string match "*amin*" $text] || [string match "*mudah*" $text] || [string match "*mdh*" $text] || [string match "*insya*" $text] } {
say $chan [pick:from $lstdoa]
} elseif { [string match "*yuk*" $text] || [string match "*yuu*" $text] } {
say $chan [pick:from $lstyuk]
} elseif { [string match "*gara*" $text] } {
say $chan [pick:from $lstgara]
} elseif { [string match "*layak*cendol*" $text] || [string match "*cendol*layak*" $text] || [string match "*bata*layak*" $text] || [string match "*layak*bata*" $text] } {
say $chan [pick:from $lstlayak]
} elseif { [string match "*boleh*" $text] || [string match "*blh*" $text] } {
say $chan [pick:from $lstboleh]
say $chan [pick:from $exprsenang]
} elseif { [string match "*nyanyi*" $text] || [string match "*singing*" $text] || [string match "*lagu*" $text] || [string match "*musik*" $text] || [string match "*joge*" $text] || [string match "*senandung*" $text]} {
say $chan [pick:from $lstnyanyi]
set delayedtext [pick:from $exprsenang]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*bisa*" $text] || [string match "*bs*" $text] } {
say $chan [pick:from $lstbisa]
} elseif { [string match "*ap*kabar*" $text] || [string match "*pa*kabar*" $text] || [string match "*gmn*kbr*" $text] || [string match "*piye*kabar*" $text]} {
say $chan [pick:from $lstapakabar]
say $chan [pick:from $exprsenang]
} elseif { [string match "*azan*" $text] || [string match "*adzan*" $text] || [string match "*solat*" $text] || [string match "*sholat*" $text] || [string match "*salat*" $text] } {
say $chan [pick:from $lstadzan]
} elseif { [string match "*mungkin*" $text] || [string match "*mgkn*" $text] || [string match "*maybe*" $text] || [string match "*gkali*" $text]} {
say $chan [pick:from $lstmungkin]
} elseif { [string match "*banget*" $text] || [string match "*bgt*" $text] } {
say $chan [pick:from $lstbanget]
} elseif { [string match "*percaya*" $text] || [string match "*yakin*" $text] || [string match "*kira*" $text] || [string match "*pikir*" $text] || [string match "*prcy*" $text] || [string match "*prcaya*" $text]} {
say $chan [pick:from $lstpercaya]
} elseif { [string match "udah" $text] || [string match "udh" $text] || [string match "iya" $text] || [string match "ya" $text]} {
say $chan [pick:from $lstooh]
} elseif { [string match "*udahlah*" $text] || [string match "*udhlah*" $text] || [string match "*au ah*" $text] || [string match "*huf*" $text] || [string match "*hff*" $text] } {
say $chan [pick:from $lstudahlah]
set delayedtext [pick:from $exprmaaf]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*udh*" $text] || [string match "*udah*" $text] } {
say $chan [pick:from $lstudah]
say $chan [pick:from $exprsenang]
} elseif { [string match "jahat" $text] || [string match "jht" $text] } {
say $chan [pick:from $lstsiapajahat]
} elseif {[string match "*cuek*" $text] || [string match "*acuh*" $text] || [string match "*jahat*" $text] || [string match "*jengkel*" $text] || [string match "*jht*" $text] || [string match "*yebalkan*" $text] } {
say $chan [pick:from $exprkaget]
set delayedtext [pick:from $lstcuek]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
set delayedtext [pick:from $exprmaaf]
set delayedchan $chan
utimer [expr 9] [saydelay $delayedchan $delayedtext]
set delayedtext [pick:from $lstemosedih]
set delayedchan $chan
utimer [expr 15] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*ga*usah*" $text] || [string match "*tdk*usah*" $text] || [string match "*ga*perlu*" $text] || [string match "*tidak*perlu*" $text] || [string match "*tdk*perlu*" $text] } {
say $chan [pick:from $exprmaaf]
} elseif { [string match "*km*yg*" $text] || [string match "*kamu*yg*" $text] || [string match "*kamu*kan*" $text] || [string match "*km*kan*" $text] || [string match "*iya*kan*" $text] || [string match "*bener*kan*" $text] || [string match "*km* ya*" $text] || [string match "*kamu* ya*" $text] } {
say $chan [pick:from $lstkamukan]
} elseif { [string match "*jahat*" $text] || [string match "*sadis*" $text] || [string match "*sombong*" $text] || [string match "*jht*" $text] || [string match "*angis*" $text] } {
say $chan [pick:from $lstemosedih]
} elseif { [string match "*stres*" $text] || [string match "*pusing*" $text] || [string match "*depres*" $text] || [string match "*lieur*" $text] || [string match "*jangar*" $text]} {
say $chan [pick:from $lststress]
set delayedtext [pick:from $lstemoticon]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*sedih*" $text] || [string match "*marah*" $text] || [string match "*bete*" $text] || [string match "*benci*" $text] || [string match "*kesel*" $text] || [string match "*sebel*" $text]} {
say $chan [pick:from $lstemosi]
set delayedtext [pick:from $lstemoticon]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*maaf*" $text] || [string match "*maap*" $text] || [string match "*sori*" $text] || [string match "*sorry*" $text] } {
say $chan [pick:from $lstmaaf]
} elseif { [string match "*disuka*" $text] || [string match "* suka*" $text] || [string match "*demen*" $text] || [string match "*seneng*" $text] || [string match "*sneng*" $text] || [string match "*senang*" $text] } {
say $chan [pick:from $lstsuka]
set delayedtext [pick:from $exprheran]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*takut*" $text] || [string match "*tabrak*" $text] || [string match "*tkt*" $text] || [string match "*serem*" $text] || [string match "*seram*" $text] || [string match "*bunuh*" $text] || [string match "*darah*" $text] || [string match "*hantu*" $text] || [string match "*setan*" $text] || [string match "*pocon*" $text] || [string match "*kunti*" $text] || [string match "*celaka*" $text] || [string match "*sadis*" $text] } {
say $chan [pick:from $lsttakut]
set delayedtext [pick:from $exprtakut]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*mau*ga*" $text] || [string match "*km*mau*" $text] || [string match "*pgn*ga*" $text] || [string match "*pengen*ga*" $text] || [string match "*mau*kan*" $text] } {
say $chan [pick:from $lstmau]
} elseif { [string match "*gmn*" $text] || [string match "*bagaimana*" $text] } {
say $chan [pick:from $lstgimana]
} elseif { [string match "*katany*" $text] || [string match "*ktnya*" $text] || [string match "*gosip*" $text] || [string match "*info *" $text]} {
say $chan [pick:from $lstkatanya]
} elseif { [string match "*bener*" $text] || [string match "*benar*" $text] || [string match "*betul*" $text] || [string match "*bner*" $text] || [string match "*bnr*" $text]} {
say $chan [pick:from $lstbenar]
} elseif { [string match "*bobo*" $text] || [string match "*tidur*" $text] || [string match "*ngantuk*" $text] || [string match "*tdr*" $text]} {
say $chan [pick:from $lstbobo]
} elseif { [string match "*makanya*" $text] || [string match "*mkny*" $text] } {
say $chan [pick:from $lstmakanya]
} elseif { [string match "*jam*brp*" $text] || [string match "*jam*berapa*" $text] || [string match "*jam*brap*" $text] } {
say $chan [pick:from $lstjam]
} elseif { [string match "*km*siapa" $text] || [string match "*siapa*km*" $text] || [string match "*kamu*siapa*" $text] || [string match "*siapa*kamu*" $text] } {
say $chan [pick:from $lstsiapa]
} elseif { [string match "*assalam*" $text] || [string match "*wassalam*" $text] } {
say $chan [pick:from $lstsalam]
} elseif { [string match "*fb*" $text] || [string match "* fs *" $text] || [string match "*facebook*" $text] || [string match "*friendster*" $text] } {
say $chan [pick:from $lstfb]
} elseif { [string match "*janji*" $text] || [string match "*jnji*" $text] || [string match "*sumpah*" $text] || [string match "*sumpeh*" $text] } {
say $chan [pick:from $lstjanji]
} elseif { [string match "*askum*" $text] } {
set temp [pick:from $lstaskum]
say $chan "Heiii... $ownerbot ! .. $temp"
set delayedtext [pick:from $lstemosedih]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*kenal*ga*" $text] || [string match "*ga*kenal*" $text] || [string match "*knl*ga*" $text] || [string match "*ga*knl*" $text] || [string match "*kenal*tida*" $text] || [string match "*tdk*kenal*" $text] } {
say $chan [pick:from $lstkenapa]
} elseif { [string match "*kenal*" $text] || [string match "*knal*" $text] || [string match "*knl*" $text]} {
say $chan [pick:from $lstkenalan]
} elseif {[string match "*keren*" $text] || [string match "*bagus*" $text] || [string match "*bgs*" $text]} {
say $chan [pick:from $lstbaguskeren]
set delayedtext [pick:from $lstemoticon]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif {[string match "*aneh*" $text] || [string match "*binun*" $text] || [string match "*heran*" $text] || [string match "*curhat*" $text] || [string match "*sedih*" $text]} {
say $chan [pick:from $exprheran]
set delayedtext [pick:from $lsttanya]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif {[string match "* ml *" $text] || [string match "* tai *" $text] || [string match "*entot*" $text] || [string match "*ewe *" $text] || [string match "*kontol*" $text] || [string match "*memek*" $text] || [string match "*ancok*" $text] || [string match "*yaya*jelek*" $text] || [string match "*yaya*bodo*" $text] || [string match "*yaya*bego*" $text]} {
say $chan [pick:from $exprmarah]
set delayedtext [pick:from $exprmarah]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*pinter*" $text] || [string match "*pintar*" $text] || [string match "*cerdas*" $text] || [string match "*jenius*" $text] || [string match "*wid*cantik*" $text] || [string match "*wid*cakep*" $text] || [string match "*wid*seksi*" $text] || [string match "*cantik*wid*" $text]} {
say $chan [pick:from $lstemoticon]
} elseif { [string match "*bodo*" $text] || [string match "*bego*" $text] || [string match "*stupid*" $text] || [string match "*idiot*" $text] || [string match "*sombon*" $text] || [string match "*bego*" $text]} {
say $chan [pick:from $exprsebel]
} elseif {[string match "*kamu*tuh*" $text] || [string match "*dasar*" $text] || [string match "*km*tuh*" $text] || [string match "*kamu* itu*" $text] || [string match "*km* itu*" $text] } {
say $chan [pick:from $exprmaaf]
set delayedtext [pick:from $lstemosedih]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif {[string match "*kamu*tau*" $text] || [string match "*km*tau*" $text] || [string match "*tau*ga*" $text]} {
say $chan [pick:from $lstkamutau]
set delayedtext [pick:from $lsttanya]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif {[string match "*lg*ap*" $text] || [string match "*lagi*ap*" $text] } {
say $chan [pick:from $lstlagiapa]
set delayedtext [pick:from $lsttanya]
set delayedchan $chan
utimer [expr 9] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*asl*" $text] || [string match "*usia*" $text] || [string match "*umur*" $text] || [string match "*asal*mana*" $text] || [string match "*dr*mana" $text] || [string match "*org*mana" $text]} {
say $chan [pick:from $lstasl]
set delayedtext [pick:from $lstemoticon]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*nakal*" $text] || [string match "*bandel*" $text] || [string match "dasar*" $text] || [string match "*centil*" $text] || [string match "*payah*" $text] || [string match "*dudut*" $text] || [string match "*dodol*" $text]} {
say $chan [pick:from $lstnakal]
} elseif { [string match "*jgn*" $text] || [string match "*jangan*" $text] } {
say $chan [pick:from $lstjangan]
} elseif { [string match "*pacar*" $text] || [string match "*suami*" $text] || [string match "*pcr*" $text] } {
say $chan [pick:from $lstpacar]
set delayedtext [pick:from $lstemoticon]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*cinta*" $text] || [string match "*luv*" $text] || [string match "*cnt*" $text] || [string match "*love*" $text] } {
say $chan [pick:from $lstpacar]
set delayedtext [pick:from $lstparah]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*diem*yaya*" $text] || [string match "*diam*yaya*" $text] } {
say $chan [pick:from $lstcerewet]
set active "false"
} elseif { [string match "*makan*" $text] || [string match "*mkn*" $text] || [string match "*maem*" $text] || [string match "*lunch*" $text] } {
say $chan [pick:from $lstmakan]
} elseif { [string match "*iks *" $text] || [string match "*hiks*" $text] || [string match "*huhu*" $text] || [string match "*:(*" $text] || [string match "*T_T*" $text] } {
say $chan [pick:from $exprheran]
} elseif { [string match "*goez*" $text] } {
say $chan [pick:from $lstjojo]
} elseif { [string match "*hobi*" $text] || [string match "*km*ga*" $text] || [string match "*punya*ga*" $text] || [string match "*pny*ga*" $text] || [string match "*merk*" $text] || [string match "*km*ap*" $text] || [string match "*ada*" $text] || [string match "*km*punya*" $text] || [string match "*punya*km*" $text]} {
say $chan [pick:from $lstmautau]
set delayedtext [pick:from $lstemoticon]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*haha*" $text] || [string match "*hehe*" $text] || [string match "*hoho*" $text] || [string match "*hihi*" $text] || [string match "*xixi*" $text] || [string match "*wkwk*" $text] || [string match "*:)*" $text] || [string match "*:D*" $text] || [string match "*;)*" $text] } {
say $chan [pick:from $exprsenang]
set delayedtext [pick:from $lstemoticon]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*tq *" $text] || [string match "*thx*" $text] || [string match "*thank*" $text] || [string match "*mkasi*" $text] || [string match "*makasi*" $text] || [string match "*ma kasih*" $text] || [string match "*nuhun*" $text] } {
say $chan [pick:from $lstmakasih]
set delayedtext [pick:from $lstemoticon]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*sakit*" $text] || [string match "*skt*" $text] || [string match "*wafat*" $text] || [string match "*ninggal*" $text] || [string match "*nalil*" $text] || [string match "*musibah*" $text] } {
say $chan [pick:from $lstsakit]
set delayedtext [pick:from $lstemosedih]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
set delayedtext [pick:from $lstkok]
set delayedchan $chan
utimer [expr 9] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*km*bot*" $text] || [string match "*kamu*bot*" $text] || [string match "*yaya*bot*" $text] || [string match "*bot*yaya*" $text] || [string match "*bot*kamu*" $text] || [string match "*bot*km*" $text]} {
say $chan [pick:from $lstkamubot]
set delayedtext [pick:from $lstemosedih]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*bot*" $text] || [string match "*psy*" $text] || [string match "*irc*" $text] || [string match "*chat*" $text] || [string match "* ol *" $text] || [string match "* join *" $text] || [string match "*allnet*" $text] || [string match "*server*" $text] } {
say $chan [pick:from $lstirc]
set delayedtext [pick:from $exprsenang]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*mana *" $text] } {
say $chan [pick:from $lstmana]
} elseif { [string match "*geli *" $text] || [string match "*toel*" $text] || [string match "*cubit*" $text] || [string match "*colek*" $text] || [string match "*peluk*" $text] || [string match "*cium*" $text] || [string match "*elus*" $text] || [string match "*kiss*" $text] } {
say $chan [pick:from $lstgeli]
} elseif { [string match "*tampar*yaya*" $text] || [string match "*timpuk*yaya*" $text] || [string match "*ndang*yaya*" $text] || [string match "*hajar*yaya*" $text] || [string match "*lempar*yaya*" $text] || [string match "*banting*yaya*" $text]} {
say $chan [pick:from $lstaduh]
set delayedtext [pick:from $lstemosedih]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*pamit*" $text] || [string match "*pamet*" $text] || [string match "*off*" $text] || [string match "*quit*" $text] || [string match "*brb*" $text] } {
say $chan [pick:from $lstpamit]
set delayedtext [pick:from $lstemosedih]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*yaya*dudu*" $text] || [string match "*yaya*entil*" $text] || [string match "*judes*" $text] || [string match "*jute*" $text] } {
say $chan [pick:from $exprsedih]
} elseif { [string match "* di *" $text] || [string match "*sana*" $text] || [string match "*sini*" $text] || [string match "*situ*" $text] } {
say $chan [pick:from $lstsini]
} elseif { [string match "*yaya*otak*" $text] || [string match "*otak*yaya*" $text] } {
say $chan [pick:from $lstotak]
set delayedtext [pick:from $lstemoticon]
set delayedchan $chan
utimer [expr 5] [saydelay $delayedchan $delayedtext]
} elseif { [string match "*yaya*" $text] || [string match "*yaya*" $text] } {
say $chan [pick:from $lstautis]
}
}
}
}
set exprsenang {
{"Senang rasanya melihat orang lain senang"}
{"wkwkwkwkwkw"}
{"wew ngerii ya .."}
{"eh jangan jemur gigik disini.. ok?"}
}
set exprmarah {
{"ughh... >:("}
{"sumpah ga lucu banget"}
{"Kamu mau di kick? Sopan donk"}
}
set exprtakut {
{"hiiiii...."}
{"yaya brb ngumpet"}
}
set exprmaaf {
{"Maaf.. :("}
{"jang gitu donk cemen kali kok :'("}
}
set exprheran {
{"hmmmmmmm??"}
{"eh... kenapa?"}
{"knapa lu??"}
}
set exprkaget {
{"Oohhh iyaaa..."}
{"OMG... ya ampun.."}
}
set exprsebel {
{"yeeee... enak aja"}
{"enak aja.."}
}
set lstlayak {
{"hmmm... gak.."}
{"gak layak"}
}
set lsthai {
{"hai"}
}
set lstingat {
{"hmm.. aduh yaya lupa.."}
{"luupa.. lupa.. lupa.. lupa lagi syairnyaaa..."}
}
set lsttau {
{"gak tau ah dodol"}
{"tanya aja sama pak RT"}
}
set lstyuk {
{"ayooo"}
{"ayo"}
{"yuk kemana ni mojok ya"}
}
set lstgeli {
{"ohhh yesss..."}
{"geli ah..."}
}
set lstapakabar {
{"baekkk, km?"}
}
set lstdoa {
{"amien"}
{"amiiiiiiiin"}
}
set lstmautau {
{"ada dehhh mau tau aja"}
{"rahasia"}
}
set lstemosi {
{"sabar yaa"}
{"orang sabar di sayang tuhan :)"}
{"tenang... sabar"}
}
set lstdengar {
{"yaya pura pura bobo"}
{"yaya ngintip"}
}
set lstmungkin {
{"maybe yes maybe no"}
{"hmmmmm.... kok bisa"}
}
set lstsini {
{"disana?"}
{"disini apa disana bingung ni?"}
}
set lstpercaya {
{"masa sih?"}
{"masa"}
}
set lstmana {
{"ke mana? di mana? hehe terserah gue"}
{"ada dehh"}
}
set lstadzan {
{"eh udah adzan belum ya?"}
{"udah adzan ya? yaya brb ambil wudhu dulu ya"}
}
set lstnyanyi {
{"eh aku suka lagu vierra"}
{"jujurlah padakuu.. jujurlah padakuu... kau menyimpan rasa.. kau menyimpan rasa.. oooh"}
}
set lstirc {
{"irc irc mulu.. ngomongin yg laen kek"}
{"kl ngebahas irc itu psy bot psy bot.. bosan.."}
}
set lstkamukan {
{"yeyyy... gatau ikz.."}
{"siapa yg ngomong gt tadi.. -_-?"}
}
set lstcopas {
{"copas truss.."}
{"siapa yg ngomong ga sopan x kok.. -_-?"}
}
set lstbanget {
{"banget banget"}
{"luar biasaaa"}
}
set lstotak {
{"yaya memahami 73 pola percakapan, yaya punya 7 pola emosi disertai dengan lebih dari 800 respon kalimat."}
}
set lststress {
{"makanya BBM donk BBM bubuk malam.."}
{"mungkin km kurang istirahat yaa?"}
{"sabar yaa.."}
}
set lstsakit {
{"astagfirullah.."}
{"innalillahi.."}
}
set lsttakut {
{"astagfirullah.."}
{"amit amit cabang bayi.. ih serem"}
}
set lstgara {
{"astagfirullah.."}
}
set lstsiapajahat {
{"mana mana... yg jahat biar yaya cubit anunya"}
{"sapa yg jahat...?"}
}
set lstmakasih {
{"yuk marii "}
{"yu i :)"}
}
set lstmaaf {
{"alhamdulillah... indahnya bermaaf-maafan "}
{"dimaafin kok... :)"}
}
set lstudahlah {
{"astagfirullah.. km marah ya?"}
{"yeeee marah kek anak kecil lu..."}
}
set lstkamubot {
{"astagfirullah.. yaya bukan bot.. :("}
{"lah... yaya bukan bot mata lu tu bot tau.."}
}
set lstjanji {
{"janjimu palsu gak"}
{"janji gombal biasanya"}
}
set lstsuka {
{"suka apa? seneng apa? kadang olah?"}
{"dulu suka banget.. skrg udah ngga"}
}
set lstbenar {
{"hmmmm..."}
{"masa sih?"}
}
set lstaduh {
{"aduh..."}
{"aw sakit.."}
}
set lstooh {
{"ooo gitu eaa..."}
{"napa lu"}
}
set lstnakal {
{"Alhamdulillah yaya anak baik2"}
{"yaya ga nakal kok.. :p"}
}
set lstkok {
{"lho kok bisa?"}
{"lhoo kenapaaa?"}
}
set lstdong {
{"boleeeehhh.. hehehe"}
{"boleh aja..."}
{"of course.... english mode diam"}
}
set lstmakanya {
{"ooo gitu eaa..."}
{"ok"}
{"baiklah"}
}
set lstgimana {
{"hmmm.. gmn yaa?"}
{"eh ada cew tu kemana dek..."}
{"brb mikir..."}
}
set lstmau {
{"hmmm.. gmn yaa?"}
{"hmmmm..."}
{"brb mikir..."}
}
set lstjam {
{"hmmm.. jam berapa yaa?"}
{"coba ketik !jam deh"}
}
set lstyaya {
{"hmmm..ada apa panggil2 mas ganteng ap mau minta no hp y..?"}
}
set lstcuek {
{"aku jahat ya?"}
{"aku bikin km sebel bgt yaaa,,, hiks"}
}
set lstsiapa {
{"Perkenalkan, namaku yaya, aku adalah sebuah bot eggoez yg memiliki kecerdasan buatan utk bicara seperti manusia, yaya dibuat oleh g0eZ. tp skrg lg lengket sama yaya sipit.. xixixi"}
}
set lstaskum {
{"wa'laikumsalam silah masuk! :("}
}
set lstpamit {
{"yaahhh kok pamit siyy.. huhu :("}
{"hiks hiks.. kalo kamu pergi.. terus aku chat sama siapa? :'("}
}
set lstsalam {
{"wa alaikumsalam wr wb"}
}
set lstmakan {
{"kapan2 traktir yaya"}
{"duh jadi lapeer lg"}
}
set lstparah {
{"idihhh... parah parah.."}
{"parah bgt sih kamuu"}
}
set lstkenapa {
{"hmmm... yaya gatau... :("}
{"knp yaa?"}
}
set lstjangan {
{"hmmmmm... emgnya kenapaa? :("}
{"ohhh gitu iaaa?"}
}
set lstbaguskeren {
{"bagus dari atas monara kalo di liat"}
{"pastinya.. :)"}
}
set lstcerewet {
{"iya iya.. aku diem.. :("}
}
set lstpacar {
{"kamu jomblo yeeee.... xixxi ketauannn :p"}
{"aduhhh... sammmak donk ap sbaiknya kta kenalan aj ni.. :("}
}
set lstbisa {
{"bisa"}
{"aduhhh... gmn ya?"}
}
set lstboleh {
{"aduhhh... gmn ya?"}
{"yupzz"}
{"hmmm... pikir2 dulu aja yaa"}
}
set lstudah {
{"alhamdulillah"}
{"udah kamu?"}
}
set lstkatanya {
{"wahh..."}
}
set lstbobo {
{"dah ngantuk eaa.. :)"}
{"mo bobo yaa"}
{"huamzzz.. yaya jg ngantuk..."}
{"yaya jg udah ngantuk, tapi yaya ga boleh pergi dari sini, nanti cewek2 cantik pada pergi krn yaya ganteng loh :("}
}
set lstasl {
{"aq yaya 28 cowok dari jakarta timur.. terkenal terkenal ganteng se alue dama gitu.. hehe"}
}
set lstfb {
{"yaya punya FaceBook, add aja di yaya@myciut.tk"}
{"yaya ga punya fs, adanya FaceBook, add aja di yaya@myciut.tk"}
}
set lstdipanggil {
{"yaa.. "}
{"yups"}
}
set lstbingung {
{"maaf ya kalo bicara jangan pakai bahasa planet lain ya, yaya ga ngerti"}
{"duh ga ngerti maksud kamu apa sih"}
}
set lstautis {
{"ew.."}
{"hmmmm...."}
}
set lstminta {
{"mintaaaa... beliii.... huuuu"}
{"mama papa ga ngasih yah? kesiaaan de loh"}
}
set lstkamutau {
{"hmmmm..."}
{"gatau ah"}
{"maaf gatau"}
}
set lstlagiapa {
{"biasa.. mojok mau ikot"}
{"ada deh mao tau aza :p"}
}
set lsttanya {
{"memangnya kenapa??"}
{"hmm.."}
{"???"}
}
set lstemoticon {
{"^^"}
{""}
{":)"}
{";)"}
{":)"}
{":D"}
{""}
{":p"}
{":o"}
{"@_@"}
{""}
{""}
{""}
{""}
{":)"}
{";)"}
{":)"}
{";)"}
{":)"}
{";)"}
}
set lstemosedih {
{":("}
{":'("}
{":["}
{"T_T"}
}
set lstkenalan {
{"owhhh.. ini tah yg sering kamu omongin itu.. :)"}
{" hai"}
{"halooooo"}
}
putlog "Humanoid by yaya"
Sunday, August 28, 2011
eh ctm.tcl
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment