iseng.tcl

#############
# iseng wae #
#############

bind pub - !iseng pub_iseng
proc pub_iseng {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :gunakan !bunga !cium !ban !bunuh !kick !slap !gantung !peluk !cakar !banting !kerokin !tarik !perkosa"
      return 0
    }
}

 

bind pub - !bunga pub_bunga
proc pub_bunga {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :gunakan !bunga <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :6Waaaaaa... accciiikk... 2dikacih bunga euuy.. 6tengkyuuhhh... mwaaa... mwaaaa"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :6Walaahh... 2$nick 6dacal peyits.. 2bunganya koq 6buat dili cendili cih... 2dacal .. :P"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 2ngasih setangkai bunga plastik buat6 $person 2cuuupssss... ^_* 6ai lop yu, yu lop mi, yu en mi loph loph an...."
    } else {
        putserv "PRIVMSG $chan :2Yeyy... si 6$nick 2duduts banget deh, mana ada nick 6$person 2di sini.. dacaL dudulzzz.."
    }
}

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 :gunakan !kiss <nick> atau !cium <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :6Waaaaaa... napa koq sayah mau 2dikiiisss.. 6udagh gocok gigi belom2 $nick 6dacal ih!!"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :6Walaahh... 2$nick 6didilzz.. mana bica kamuh mau 2kiss dili cendili cih... 6dasar dudulzzz.. :P"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 2Cium PiPi6 $person 2dengan mesra.. 6muaccchhh.... muaachhhh... cuuupssss.. cuuupssss... ^_* 2AlhahdulìLLah Hìrrobbìl`alamìn .. Enak KhaN ...SaYanG 6$person"
    } else {
        putserv "PRIVMSG $chan :2Yeyy... si 6$nick 2duduts banget deh, mana ada nick 6$person 2di sini.. dacaL dudulzzz.."
    }
}

bind pub - !ban pub_banmu
proc pub_banmu {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :gunakan !ban <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :6Waaaaaa... enak ajah sayah 2dibaannn... 6calah apakah diliku .. dacal ih!!"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :6Walaahh... 2$nick 6dah ngga walas yah.. 2koq kamuh mau 6nge baann 2dili cendili cih.. 6$nick 2sarap hehehehe  ;p~~~"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 2ngalungin ban traktor ke6 $person 2sebagai tanda rasa cintah... 6GuuBBRaaXXxx..... 2ai lop yu haniiihh... du yu lop mi tu ??"
    } else {
        putserv "PRIVMSG $chan :6Wah pasti gak pake kacamata yaaaaa..... oi 2$nick 6$person 2gak ada di sini.. 6dasar"
    }
}

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 :gunakan !kill <nick> atau !bunuh <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :6Waaaaaa... napa koq sayah mau 2dibunuuhh sech.. 6calah apakah diliku .. dacal ih!!"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :6Walaahh... 2$nick 6dah ngga walas yah.. 2koq kamuh mau 6bunuh dili cih... 2dasar dudulzzz.. ;p~~~"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 2teemmbaakkkk6 $person 2pake sinar penghancur... BBiiPPP.. BBiiiPPp... BBiiiPPPp... 6$person 2lari ketakutan sampe kolornya melorot rot rot.... lasain loe... hehehe.. "
    } else {
        putserv "PRIVMSG $chan :2Yeyy... si 6$nick 2duduts banget deh, mana ada nick 6$person 2di sini.. dacaL dudulzzz.."
    }
}

bind pub - !kick pub_tendang
bind pub - !tendang pub_tendang
proc pub_tendang {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :gunakan !kick <nick> atau !tendang <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :6Waaaaaa... napa koq sayah mau 2ditendaangg.. 6ndak mau ahh.. dacal ih!!"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :6Walaahh... 2$nick 6dah ngga walas yah.. koq kamuh mau 2nendaaangg 6dili cendili cih.. 2$nick 6sarap hehehehe  ;p~~~"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 2teenndaaanggg6 $person 2di pantat pake sepatu kuda dari baja... 6DeeZZiiNGhHH.. GuuuBBRaaaXXxxx... 2cukuliiinnn loe... pecah ngga tuh bisulnya.. hehehe"
    } else {
        putserv "PRIVMSG $chan :6Wah pasti gak pake kacamata yaaaaa..... oi 2$nick 6$person 2gak ada di sini.. 6dasar"
    }
}

bind pub - !slap pub_slap
proc pub_slap {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :gunakan !slap <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :6Waaaaaa... enak ajah sayah 2dislapsss.. 6ndak mau ahh.. dacal ih!!"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :6Walaahh... 2$nick 6dah ngga walas yah.. 2koq kamuh mau 6slapsss 2dili cendili cih.. 6dasar dudulzzz.. ;p~~~"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 2slaaaaapsssssss6 $person 2di jidat 6pake kursi, kompor, penggorengan, keyboard, monitor, linggis... 2JeGuuuERRR... PleeTHaaQQQ.. DeeZZiiNGhHH.. 6cukuliiinnn loe... monyong ngga tuh jidat.. ha.ha:p~"
    } else {
        putserv "PRIVMSG $chan :6Wah pasti gak pake kacamata yaaaaa..... oi 2$nick 6$person 2gak ada di sini.. 6dasar"
    }
}

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

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 :gunakan !hug <nick> atau !peluk <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :6Waaaaaa... enak euuyy 2di peyuuk sama 6$nick.. 2nakcil cama cayah yah.."
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :6Waaaaaa... 2$nick 6duduttss.. mana bica peyuk kamu 2peyuuukkk 6dili cendili cih.. dacal :P"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 2peelluuuukkk mesraahh6 $person 2di ketiak... 6HHemmmmPPP... HhhMMppPP.. 2angeett euuyy ^_* .. 6tapi koq agak bau dikit... 2bau apa yah.. "
    } else {
        putserv "PRIVMSG $chan :6Yeyy... si 2$nick 6duduts banget deh, 2mana ada nick 6$person 2di sini.. mending peluk 2$botnick 6aja dech ;p"
    }
}

bind pub - !cakar pub_cakar
proc pub_cakar {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :gunakan !cakar <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :6Enak aja maen 2cakar cakar.... 6$nick.. 2minta digigit yaaaaaaa.."
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :6Wew dasar bodoh... 2$nick 6dudullss.. masak mo 2nyakar sendiri... 6gak lagi kumat gilanya kan"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 2cakar cakar6 $person 2dengan gaya kucing mengeong..... 6meeeeeeeooooooonnnnnnggggggg 2hueks....."
    } else {
        putserv "PRIVMSG $chan :6Wah pasti gak pake kacamata yaaaaa..... oi 2$nick 6$person 2gak ada di sini.. 6dasar"
    }
}

bind pub - !banting pub_banting
proc pub_banting {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :gunakan !cakar <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :6Eh......eh...... 6$nick.. 2bantingnya ditempat tidur aja yaaaaa.."
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :6Emangnya..... 2$nick.. 6bisa banting 2diri sendiri...6paling yang ada juga jatuhin diri"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 2banting6 $person 2keatas tempat tidur..... 6maen yuk.... 2yuk ah yuuuuuuuuuuuuuuuuukkkkkkkkkkkkkkk....."
    } else {
        putserv "PRIVMSG $chan :6Pasti lagi pusing nih..... si 2$nick 6$person 2yang mo dibanting aja gak ada koq.. 6streess -_-'"
    }
}

bind pub - !kerokin pub_kerokin
proc pub_kerokin {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :gunakan !kerokin <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :2thanks ya.. 6$nick 2udah mau ngerokin aq ;p 6ntar malam aq krokin balek ya.."
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :2Ehai.. 6$nick 2dudulz banget deh..6keq mana 2mau kerokin diri sendiri.. ;p 6dasar dudulzzz.. sini 2$botnick 6kerokin aja yach ;p"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$person 2masuk angin yach....?? 6 $nick 2kerokin yach.....mau enggak.....?? 6mumpung nggak ada kerjaan nehh.....:P~~~"
    } else {
        putserv "6Yeyy... si 2$nick 6duduts banget deh, 2mana ada nick 6$person 2di sini.. 6mending kerokin 2$botnick 6aja yach ;p"
    }
}

bind pub - !tarik pub_tarik
bind pub - !tarik pub_tarik
proc pub_tarik {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :gunakan !tarik <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :2tuluuung...!!!helep mi6 $nick 2mau perkosa aq.... 6T_T hikz..hikz..hikz..mama"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :2ati-ati smua6 $nick 2udah gila  2masa..6 $nick ...2 mau sobek bajunya sendiri..!! dasar6 $nick 2sarap hehehehe  ;p~~~"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 2tarik bajunya6 $person 2dengan keras....6sssrrreeettt....!!! 2eits....sampe sobek dahh bajunya.....6weks....!!! 2keliatan hmmhmm nya euy.....:P~~~"
    } else {
        putserv "PRIVMSG $chan :2Yeyy... si 6$nick 2duduts banget deh, mana ada nick 6$person 2di sini.. dacaL dudulzzz.."
    }
}

bind pub - !Bom pub_bom
bind pub - !Bomm pub_bomm
proc pub_bom {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :gunakan !Bom <nick> atau !Bomm <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :6tangkap 2lalu balikin lagi ach 2ke6 $nick 4*!*BoOoOoOoMm*!* 2biar tau rasa loh 6gOoosoOong maning gOosOong maning.."
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :2Waaaaaa... 6$nick 2duduttss.. Bikin Kamu mampusss sejagat 6boOoOom 2dili cendili cih.. dacal dudulzzz.. ikz"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6JeEeEeDuUuUuUuAaAaRrRr....2Matek Lo... 6$person 2Kena Lemparan 4*!*BoOoOoOoMm*!* 2dari 6$nick.. 2biar di infussss Sampe Mampussss...Anguusss...And Terpangganggg.."
    } else {
        putserv "PRIVMSG $chan :2Yeyy... si 6$nick 2duduts banget deh, mana ada nick 6$person 2di sini.. dacaL dudulzzz.."
    }
}

bind pub - !perkosa pub_perkosa
proc pub_perkosa {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :gunakan !perkosa <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :2tuluuung...!!!helep mi6 $nick 2mau perkosa aq.... 6T_T 2hikz..hikz..hikz..mama"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :2Waaaaaa... 6$nick 2duduttss.. 6masa mau perkosa 2diri sendiri seh!! 6sana perkosa 2kambing dibedakin aja tuh 6kan cakep juga =P"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 2tangkep 6$person.. 2udah gw pegang tangannya nih HHemmmmPPP... 6buka bajunya ahhh .... seksi euyyy  .. 2disentuh ahhh ...... buka celananya juga ahhh .."
    } else {
        putserv "PRIVMSG $chan :2Yeyy... si 6$nick 2duduts banget deh, mana ada nick 6$person 2di sini.. dacaL dudulzzz.."
    }
}


putlog "iseng tcl edited by dede Sukses diloaded.."