aksi.tcl

#############
# aCtiON mode ON #
#############

bind pub - .aksi pub_iseng
proc pub_iseng {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :gunakan perintah 12.bunga |12 .cium |12 .ban |12 .bunuh |12 .kick |12 .slap |12 .gantung |12 .peluk |12 .cakar |12 .banting |12 .hajar|12 .jitak |12 .perkosa"
      return 0
    }
}

 

bind pub - .bunga pub_bunga
proc pub_bunga {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :gunakan perintah .bunga <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :6huaaaaaa... accciiikk... 5dikacih bunga nih.. 6makasih makasih... 7mwaaah... mwaaaahhhh pass bibil"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :5walaahh... 6$nick 5dacal pelits.. bunganya kok buat dili cendili cih... 6dacal .. 7:P".
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :5cieeeehhh 6$nick 5ngasih setangkai bunga plastik uy buat6 $person 5cuuupssss... ^_* 7ai lop yu, yu lop mi, yu en mi loph loph an...."
    } else {
        putserv "PRIVMSG $chan :5hmmmmm... si 6$nick 5badung ah, mana ada nick 6$person 5di sini.. 7mending buat akuh.. 5:*"
    }
}

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 perintah .kiss <nick> atau .cium <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :5hadah.....napa kok 6aku5 mau dicium.. 6aku5 udah punya pacar6 $nick 7dasar dudung!!"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :5huahuahua.. 6$nick 5itu bibir dicopot aja dolo yah.. trus di ciumin ke pipi kamu 7xixixixixixi6 :P"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 5mencium bibir merahnya6 $person 5sambil merem.. 7muaccchhh.. muaaachhh.. muaaaachhh... much..much..much.. clegukz.. nickmat khan 6$person"
    } else {
        putserv "PRIVMSG $chan :5hmmmmm... si 6$nick 5badung ah, mana ada nick 6$person 5di sini.. 7mending cium bibil akuh.. 5:*"
    }
}

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 :5duarRRRRR kalo 6aku 7dibaannn... 5terus siapa yang bukaian.. 5dudung ach.. 7:K"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :5begh.. 6$nick 5sarap yah koq 6kamuh 5mau 7ngebaann 5kamu sendiri 6$nick 7badung ah..5 hehehehe..."
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 5ngalungin ban kereta keleher6 $person 7GuubrakKKKK..... 5sakit gak6 $person 5abisnya mau banned g punya access sih.."
    } else {
        putserv "PRIVMSG $chan :5waaah pasti salah room yaaaaa.....  6$nick ..?? 5mana ada si 6$person 5di sini.. 7dasar"
    }
}

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 perintah .kill <nick> atau .bunuh <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :5beuhh... 6aku5 salah apa say.. kok minta6 aku 5bunuh diri sih... 7gak akan terjadi 6aku bunuh diriku sendiri5 huahuahuahauha"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :6$nick 5aku lempar juga kau nanti dari atas gedung lantai empat...7biar matek... 5hauhauahauhauhau.."
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 5tembaK anunya6 $person 5pake 7tembak air... yak 5crutz crutz crutz.. si 6$person 5mengeluh ngeluh kesakitan.. aaaaaaaaaahhh.. tidakKKk... kapok loe 6$person  7ekekekekekekeke "
    } else {
        putserv "PRIVMSG $chan :5wedew... 6$nick 5benran mau nembak6 $nick 5bukanya itu7 kamu sendiri,6 $person 5dodol banget sih...."
    }
}

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 perintah .kick <nick> atau .tendang <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :5waaaaaahhh...kok 6aku5 sih yang mau di tendang...7 gak jadi deh... 5males.. :C"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :5hmmmm 6$nick 5ni mau dibawa ke RSJ kali yah.. 5mana ada tendang diri sendiri, 6$nick 7tendang bokong kamu aja sendiri yah.. 5:P"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 5teenndaaanggg si6 $person 5pake sepatu hansip.. pas dipantat 7DeezZZZ.. DesSSS 5pecah ngga tuh bisulnya..7 xuxuxuxuxu"
    } else {
        putserv "PRIVMSG $chan :5waaaah pasti gak pake kacamata yaaaaa.....7 oi 6$nick 5.. si 6$person 5gak ada di sini.. 7gak liat nicklist sih.. ^_^"
    }
}

bind pub - .slap pub_slap
proc pub_slap {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :gunakan perintah .slap <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :6$nick 5slapssss 7pipiku yang imut² ini sampai 4merah... 4*0^_^4*5 hmmmmm 6$nick 5sakit tau mending di cium aja gih.."
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :5jiahhh... 6$nick 5itu tanganya di away dolo dr keyboard deh.. 7tarik ke atas setinggi kepala.. tarik kekanan timpukin ke pipi kamu 5huahauhauhau.. dudulz.."
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 2slaaaaapsssssss6 $person 5dijidat pake kursi, kompor, penggorengan, keyboard, monitor, linggis... 7JeGuuuERRR... PleeTHaaQQQ.. DeeZZiiNGhHH.. 5wkwkwkwk... punyeng yah6 $person "
    } else {
        putserv "PRIVMSG $chan :5slaps 4eRRoR!!! 5abisnya si 6$nick 5gak liat sih, mana ada  6$person 5disini.. 7cape deh.."
    }
}

bind pub - .gantung pub_gantung
proc pub_gantung {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :gunakan perintah .gantung <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :5DuaaaRRRR....6aku7 masih pengen hidup tauk... 4;3*"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :5gini 6$nick 6aku5 kasih saran yach.. 5ambil tali ma kursi gih.. terus talinya diikatin dipohon.. 7nah.. gantungin tu leher kamu di tali itu 5beres dah.. xixixixixi"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :5ayo siapa mau ikut aku ganntuuung6 $person ?? 7kita gantung di pohon tomat yah pake tali kolornya6 $nick 5aja 5Srruuuttt Sruttt... makanya jangan nakal yah.. "
    } else {
        putserv "PRIVMSG $chan :5adyah.... si 6$nick 5duduts sangad nih, mana ada si 6$person di sini.. 7gantung ChanServ aja yah... 5hahahahahakz"
    }
}

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 perintah .hug <nick> atau .peluk <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :5hayah.... enak aja lo6 $nick 7mau peluk² aku lagi... 5 nanti si eggo marah lo... kalo tau.."
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :5huaaaaaaaaaaa 6$nick 5buruan lari ke pohon kelapa sana.... 7peluk tu pohon ampe pagi... 5wkwkwkwkwkwk.."
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 5peelluuuukkk mesraa dan penuh nafsu si6 $person 5grRR tanganya si6 $nick 7nakal iks... 5wahhh si6 $person 7itu merem melek kenapa yah... . 5angeett yahhhh ^_* hauhauahuahauhauaha..."
    } else {
        putserv "PRIVMSG $chan :5begh.... si 6$nick 5mau peluk siapa eyy... 6$person 7lo gak ada ye...5 mendingan peluk 6$botnick 5aja yah ;p"
    }
}

bind pub - .cakar pub_cakar
proc pub_cakar {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :gunakan perintah .cakar <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :5hayah... kok main cakar² ma6 $botnick 5sihhh....... 6$nick.. 7minta digigit bibil nya yaaaaaaa..5 sksajhsajksagda"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :5wkwkwkwkwkwk... okelah... 6$nick 5cakar aja itu anumu sendiri...6 $botnick 7ogah ah... jijik najis... 5huehueheuhehue.. "
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 5cakar²6 $person 5pake kaki harimau... 7serrrrrrrrrrrrrrrrrr...... 5cleguks "
    } else {
        putserv "PRIVMSG $chan :5yang mau di cakar siapa6 $nick 5??"
    }
}

bind pub - .hajar pub_banting
proc pub_banting {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :gunakan perintah .hajar <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :$nick 5bersiap² mau 7HAJAR6 $botnick .... 4tapi12 $botnick 3lariiiiii oyyy,,, 5gak kenak deh jadinya... 11:)"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :3wedew --**6 $nick 5mulai gak 4waras 12euyyyy...."
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 13lempar 9bogem 7banting 2jejeg 13pukul 3jewer 8injek-injek 10keplak 11jorokin 2Gigit 3Gantung 12Tebas 11Cakar 4Hajar 6santet 2jitak 3cincang 8tusuk 10bacok 2iris-iris4 $person  dengan penuh 13perasaan :P."
    } else {
        putserv "PRIVMSG $chan :5heh..6 $nick 5abis berapa botol semalem.. 7masih aja kocak...."
    }
}

bind pub - .jitak pub_kerokin
proc pub_kerokin {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :gunakan perintah .jitak <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :5ewh..6 $nick 5kalo jitak 6$botnick 5nanti6 $botnick 5bilangin ke 7g0eZ 5lohh..."
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :7wkwkwkwkwkwkwk... 6$nick 5mau 6$botnick 5bantuin jitakin kepalamu gak... 7:p"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 5jitak kepala6 $person 5Pake Kibot Lucak Pak Pik Puk Pek Pok...4A 12I 7U 13E 9O"
    } else {
        putserv "PRIVMSG $chan :5heh..6 $nick 5masih mumet ya tu kepala.. abis berapa botol semalem.. 7masih aja kocak...."
    }
}

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 perintah .tarik <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :5aduchhhhh.....6 $nick 5tarik aku nichh.... 7g0eZ g0eZ... 5tolongin aku donk sayyy.........."
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :5ehhh...6$nick 5mau tarik rombong apa ya....6$ person 5mana kok gak ada.... 7badung ach..."
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 5tarik celananya 6 $person 5ke bawah....7sssrrreeettt....!!! 5waikssssss.... mlorot uyyy.. kelihatan tuh cd nya.....6 $person 5malu yah...! 5kacian banget deh.."
    } else {
        putserv "PRIVMSG $chan :5heh..6 $nick 5masih mumet ya tu kepala.. abis berapa botol semalem.. 7masih aja kocak...."
    }
}

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 perintah .bom <nick> atau .bomm <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :6$botnick 5tangkap lalu balikin lagi ach ke6 $nick 4*!*BoOoOoOoMm*!* 5biar tau rasa loh 7gOoosoOong maning gOosOong maning bOS BOs.."
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :5haaaaaa... 6$nick 7badung...5ambil tu c4.. mampusss loe 4boOoOom 5duarRRRRRRRRR.."
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 5kasih bungkusan kado berisi 7c45 ke 6$person 5buka donk6 $person , $person 5mendadak kaget uy... waaaa 4BoOoOoOoMm 5mau teriak keburu 4DuaRRRRRR5 meletus tuh 7c4 5nya kasihan deh... "
    } else {
        putserv "PRIVMSG $chan :5heyy... si 6$nick 2bodo banget sih, mana ada 6$person 5di sini.. "
    }
}

bind pub - .perkosa pub_perkosa
proc pub_perkosa {nick uhost handle chan arg} {
    global botnick
    if {$arg == ""} {
      putserv "NOTICE $nick :gunakan perintah .perkosa <nick>"
      return 0
    }
    set person [lindex $arg 0]
    if {$person == $botnick} {
       putserv "PRIVMSG $chan :5hmmmmmmmmmmmmmmm...6 $nick 5mau perkosa aq.?? 6aku 6bilangin 7g0eZ 5loh.... :K"
    } elseif {$person == $nick} {
       putserv "PRIVMSG $chan :5temen² si 6$nick 5gak normal nih....6 $botnick 5jadi takut deh.... hiiiiiiiii... 7jijik....:P"
    } elseif {[onchan $person $chan]} {
        putserv "PRIVMSG $chan :6$nick 5peluk 6$person.. 5hiiiii.... mau di apain ya si6 $person 5??.. 5waaa.... kok di buka bajunya... wah wah... tanganya6 $nick 5 jahil tuh...5disentuh lagi......wedew buka celananya juga.. 7:?"
    } else {
        putserv "PRIVMSG $chan :5jiah... si 6$nick 5beggok banget deh, mana ada si 6$person 5di sini.. 7gak asik ah.. "
    }
}


putlog "aCtiOn .tcl LoaDeD By g0eZ egGo"