bind pub -|- !bunga pub_bunga
proc pub_bunga {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :Usage !bunga <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :12Waaaaaa... accciiikk 4dikacih bunga euuy.. 12tengkyuuhhh... mwaaa... mwaaaa"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :12Walaahh... 4$nick dacal peyits.. 12bunganya koq 4buat dili cendili cih... 12dacal .. Tongue"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :12$nick 4ngasih setangkai bunga plastik buat12 $person 4cuuupssss... ^_* 12ai lop yu, yu lop mi, mek lop yuk say...."
    } else {
        putserv "PRIVMSG $chan :12Yeyy... si $nick duduts banget deh, 4mana ada nick $person di sini.. 12dacaL dudiL"
    }
}

bind pub -|- !kiss pub_kiss
bind pub -|- !cium pub_kiss
proc pub_kiss {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :Usage !kiss <nick> atau !cium <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :12Waaaaaa... napa koq saya mau 4dikiiisss.. 12udagh gocok gigi belom $nick ... dacal ih!!"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :12Walaahh... 4$nick didilzz.. 12mana bica kamuh mau 4kiss dili cendili cih... 12dacal genits.. Tongue"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :12$nick 4kiisssseeees very hot12 $person di bibilnya yang item 4muaccchhh.... muaachhhh... cuuupssss.. cuuupssss... ^_* 12sampe $person basah kuyup.... hehehe.. "
    } else {
        putserv "PRIVMSG $chan :12Yeyy... si $nick duduts banget deh, 4mana ada nick $person di sini.. 12dacaL dudiL"
    }
}

bind pub -|- !ban pub_banmu
proc pub_banmu {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :Usage !ban <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :12Waaaaaa... enak ajah sayah 4dibaannn... 12calah apakah diliku .. dacal ih!!"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :12Walaahh... 4$nick dah ngga walas yah.. 12koq kamuh mau 4nge baann 12dili cendili cih.. dacal genits.. Tongue"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :12$nick 4ngalungin ban traktor ke12 $person 4sebagai tanda rasa cintah... 2GuuBBRaaXXxx..... 12ai lop yu haniiihh... du yu lop mi tu ??"
    } else {
        putserv "PRIVMSG $chan :12Yeyy... si $nick duduts banget deh, 4mana ada nick $person di sini.. 12dacaL dudiL"
    }
}

bind pub -|- !kill pub_kill
bind pub -|- !bunuh pub_kill
proc pub_kill {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :Usage !kill <nick> atau !bunuh <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :12Waaaaaa... napa koq sayah mau 4dibunuuhh sech.. 12calah apakah diliku .. dacal ih!!"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :12Walaahh... 4$nick dah ngga walas yah.. 12koq kamuh mau 4bunuh dili cih... 12dacal genits.. Tongue"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :12$nick 4teemmbaakkkk12 $person 4pake sinar penghancur... 2BBiiPPP.. BBiiiPPp... BBiiiPPPp... 12$person lari ketakutan sampe kolornya melorot rot rot.... lasain loe... hehehe.. "
    } else {
        putserv "PRIVMSG $chan :12Yeyy... si $nick duduts banget deh, 4mana ada nick $person di sini.. 12dacaL dudiL"
    }
}

bind pub -|- !kick pub_kick
bind pub -|- !tendang pub_kick
proc pub_kick {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :Usage !kick <nick> atau !tendang <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :12Waaaaaa... napa koq sayah mau 4ditendaangg.. 12ndak mau ahh.. dacal ih!!"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :12Walaahh... 4$nick dah ngga walas yah.. 12koq kamuh mau 4nendaaangg 12dili cendili cih.. dacal genits.. Tongue"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :12$nick 4teenndaaanggg12 $person di pantat 4pake sepatu kuda dari baja... 2DeeZZiiNGhHH.. GuuuBBRaaaXXxxx... 12cukuliiinnn loe... pecah ngga tuh bisulnya.. hehehe"
    } else {
        putserv "PRIVMSG $chan :12Yeyy... si $nick duduts banget deh, 4mana ada nick $person di sini.. 12dacaL dudiL"
    }
}

bind pub -|- !slap pub_slap
proc pub_slap {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :Usage !slap <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :12Waaaaaa... enak ajah sayah 4dislapsss.. 12ndak mau ahh.. dacal ih!!"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :12Walaahh... 4$nick dah ngga walas yah.. 12koq kamuh mau 4slapsss 12dili cendili cih.. dacal genits.. Tongue"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :12$nick 4slaaaaapsssssss12 $person di jidad 4pake kursi, kompor, penggorengan, keyboard, monitor, linggis... 2JeGuuuERRR... PleeTHaaQQQ.. DeeZZiiNGhHH.. 12cukuliiinnn loe... monyong ngga tuh jidat.. hehehe"
    } else {
        putserv "PRIVMSG $chan :12Yeyy... si $nick duduts banget deh, 4mana ada nick $person di sini.. 12dacaL dudiL"
    }
}

bind pub -|- !gantung pub_gantung
proc pub_gantung {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :Usage !gantung <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :12Waaaaaa... enak ajah saya 4digantung.. 12ndak mau ahh.. dacal ih!!"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :12Waaaaaa... 4$nick dah ngga walas yah.. 12koq kamuh mau 4gantung 12dili cendili cih.. dacal Tongue"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :12AaYooooo... kita 4ganntuuung12 $person di pohon tomat 4pake tali kolornya $nick... 2SrruuutTT... SReeeTTT.. 12lasain loe... makanya jangan nakal yah.. "
    } else {
        putserv "PRIVMSG $chan :12Yeyy... si $nick duduts banget deh, 4mana ada nick $person di sini.. 12dacaL dudiL"
    }
}

bind pub -|- !hug pub_hug
bind pub -|- !peluk pub_hug
proc pub_hug {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :Usage !hug <nick> atau !peluk <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :12Waaaaaa... enak euuyy 4di peyuuk 12sama $nick.. nakcil cama cayah yah.."
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :12Waaaaaa... 4$nick duduttss.. 12mana bica peyuk kamu 4peyuuukkk 12dili cendili cih.. dacal Tongue"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :12$nick 4peelluuuukkk mesraahh12 $person di ketiak... 2HHemmmmPPP... HhhMMppPP.. 12angeett euuyy ^_* .. 4tapi koq agak bau dikit... 12bau apa yah.. "
    } else {
        putserv "PRIVMSG $chan :12Yeyy... si $nick duduts banget deh, 4mana ada nick $person di sini.. 12dacaL dudiL"
    }

}

bind pub -|- !Bom pub_bom
bind pub -|- !Bomm pub_bomm
proc pub_hug {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :Usage !Bom <nick> atau !Bomm <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :12Booommmm,,,,Matek Lo,,,Kena Nuklirr Ja4di peyuuk 12sama $nick.. Sampe Mampussss,,,Anguusss,,,And Terpangganggg.."
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :12Waaaaaa... 4$nick duduttss.. 12Bikin Kamu mampusss sejagat 4peyuuukkk 12dili cendili cih.. dacal Tongue"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :12$nick 4peelluuuukkk mesraahh12 $person di ketiak... 2HHemmmmPPP... HhhMMppPP.. 12angeett euuyy ^_* .. 4tapi koq agak bau dikit... 12bau apa yah.. "
    } else {
        putserv "PRIVMSG $chan :12Yeyy... si $nick duduts banget deh, 4mana ada nick $person di sini.. 12dacaL dudiL"
    }
}




putlog "lucu.tcl Dg.16 By fitband LoaDeD..."