pvme.tcl

bind msgm - "*" msg_hi

proc msg_hi {nick uhost hand text} {

global botnick

 if {[regexp -nocase "hi" $text] || [regexp -nocase "hello" $text] || [regexp -nocase "alo" $text] || [regexp -nocase "halo" $text] > 0} { 

putserv "PRIVMSG $nick :hi juga $nick"

  putserv "PRIVMSG $nick :asl dunk"

} }

bind msgm - "*" msg_asl

proc msg_asl {nick uhost hand text} {

global botnick

 if {[regexp -nocase "asl" $text] || [regexp -nocase "dimana" $text] || [regexp -nocase "umur" $text] || [regexp -nocase "tinggal" $text] > 0} { 

putserv "PRIVMSG $nick :hmm napa seh nanya asl molo $nick"

  putserv "PRIVMSG $nick :gua ada di samarinda :) umur maseh mudah kok baru 18 jalan hehehehe"

putserv "PRIVMSG $nick :asl kamu juga please"

} }

bind msgm - "*" kul

proc kul {nick uhost hand text} {

global botnick

if {[regexp -nocase "kul" $text] || [regexp -nocase "ker" $text] > 0} {

putserv "PRIVMSG $nick :gua kuliah neh di Untar Jurusan Ekonomi Angkatan 2001"

putserv "PRIVMSG $nick :kalo kamu? eh kamu skr lagi main dimana?"

putserv "PRIVMSG $nick :kamu kerja/kuliah?"

putserv "PRIVMSG $nick :dimana?"

} }

bind msgm - "*" msg_pacar

proc msg_pacar {nick uhost hand text} {

global botnick

if {[regexp -nocase "pacar" $text] || [regexp -nocase "bf" $text] || [regexp -nocase "yayang" $text] > 0} {

putserv "PRIVMSG $nick :nurut kamu aku udeh ada yg punya belom ;P"

putserv "PRIVMSG $nick :Kalo kamu sendiri udeh ada yayang lom"

putserv "PRIVMSG $nick :Gua baru putus ama co gua gara2 gua suka keluar malam ama temen2 gus hiks :)"

putserv "PRIVMSG $nick :loe suka ke dugem ngga?"

} }

bind msgm - "*" msg_email

proc msg_email {nick uhost hand text} {

global botnick

if {[regexp -nocase "email" $text] || [regexp -nocase "mail" $text] > 0} {

putserv "PRIVMSG $nick :kamu mau minta email aku yah?"

putserv "PRIVMSG $nick :Ini gua kaseh nanti kirimin foto kamu yah , kalo ganteng sapa tau wa kecantol hehehe"

putserv "PRIVMSG $nick :Gadis_centil@yahoo.com"

} }

bind msgm - "*" msg_tlp

proc msg_tlp {nick uhost hand text} {

global botnick

if {[regexp -nocase "telp" $text] || [regexp -nocase "phone" $text] || [regexp -nocase "hp" $text] > 0} {

putserv "PRIVMSG $nick :huh buat apa kamu minta nomer telpk gua?"

putserv "PRIVMSG $nick :nih wa kaseh nanti tlp gua yah 08125737575"

putserv "PRIVMSG $nick :Minta nomer kamu juga donk ama email kamu biar kita bisa contac nanti"

} }

bind msgm - "*" msg_ketawa

proc msg_ketawa {nick uhost hand text} {

global botnick

if {[regexp -nocase "hehe" $text] || [regexp -nocase "haha" $text] || [regexp -nocase "hihi" $text] > 0} {

putserv "PRIVMSG $nick :hehehe kok ketawa seh"

putserv "PRIVMSG $nick :apanya yang lucu $nick"

} }

bind msgm - "*" msg_name

proc msg_name {nick uhost hand text} {

global botnick

if {[regexp -nocase "name" $text] || [regexp -nocase "nama" $text] > 0} {

putserv "PRIVMSG $nick :gua susan"

putserv "PRIVMSG $nick :loe sapa , oh yah kamu lagi ngapain aza skr say"

} }

bind msgm - "*" msg_kenal

proc msg_kenal {nick uhost hand text} {

global botnick

if {[regexp -nocase "kenalan" $text] || [regexp -nocase "gabung" $text] > 0} {

putserv "PRIVMSG $nick :boleh aza , kamu asl nya donk $nick"

putserv "PRIVMSG $nick :tapi gua hanya mau kenalan kalo kamu serius mau chat , gimana?"

putserv "PRIVMSG $nick : bt kalo hanya sebatas asl trus diam"

} }

bind msgm - "*" msg_dodol

proc msg_dodol {nick uhost hand text} {

global botnick

if {[regexp -nocase "dodol" $text] || [regexp -nocase "dodol" $text] > 0} {

putserv "PRIVMSG $nick :hehehe jangan omong dodol molo"

putserv "PRIVMSG $nick :mau wa beliin dodol sekilo ngga $nick"

} }

putlog "pv.tcl 1.1 By _andy_ Loaded - Dont Change this to ur name please - Thanks"