nowalls.tcl

#######################################################################
# # Script Name : eggoez.tcl #
# # Script Version : t.c(£) v.6.9.2 #
# # Author : eggoez #
# # Release Date : 05 Oktober 2010 #
# # Reported any bug : #ciut@allnetwork #
# # New Staff egGo : g0eZ #
# # E-mail : eggoez@yahoo.com #
# WARNING " respect other people's work without changing the content of these "
#######################################################################
putlog "========================================"
putlog " eggoez.tcl Loaded "
putlog " eggoez@yahoo.com "
putlog " Editing 05 Oktober 2010 "
putlog " By g0eZ® egGo "
putlog "Hargai Karya Orang Dgn Tidak Merubah Isi"
putlog "========================================"
putlog "........ Please Wait ......."
bind pub - .aksi pub_iseng
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 !hajar|12 !jitak |12 !perkosa"
 return 0
 }
}

bind pub - .bunga pub_bunga
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
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
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
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
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
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
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
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
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
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
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 - !Bom pub_bom
proc pub_bom {nick uhost handle chan arg} {
 global botnick
 if {$arg == ""} {
 putserv "NOTICE $nick :gunakan perintah .bom <nick> atau !bom <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
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 "="

bind pub - "!uptime" pub:ambiluptime
set jammulai [unixtime]
set vern "4«5º14g10003e15Z 15e3g10G14o5º4»"
set awaym {
"Lagi PeRangZ Ma IrCopz!"
"belajar Bikinz Scriptz!!"
"BoBo NyeNyakZ!!"
"perGi Ke SekoLahz"
"Epon YaYaNk g0eZ"
"Mandi Kramasz Bareng g0eZ"
"KangeN MaMa"
"bIkin Webz"
"Em Elz"
"bIkin Adikz"
"MojOk aMa yaYangz"
"LaGi NontOnz IteNAz"
"SurFinGz 17tahun.Comz"
"ngaskus dulu juragan"
"ngopi-ngopi dulu ah"
"olah raga malem"
"saatnya ikutan kuis"
"syuting film"
"cari gebetan"
"Curhat sama g0eZ"
}

proc pub:pengecekan {} {
global jammulai awaym vern
set jamsaatini [unixtime]
set uptimesekarang [return:uptime $jammulai $jamsaatini]
set readabletime [konversidurasi $uptimesekarang]
set awaymsg [lindex $awaym [rand [llength $awaym]]]
putserv "AWAY"
putserv "AWAY :$awaymsg \[UpTImE for : $readabletime\] - $vern"
timer [expr 1] pub:pengecekan
}

proc pub:ambiluptime { nick uhost hand chan text } {
global jammulai vern
set jamsaatini [unixtime]
set uptimesekarang [return:uptime $jammulai $jamsaatini]
set readabletime [konversidurasi $uptimesekarang]
}

proc return:uptime { starts ends } {

set value [expr $ends - $starts]
return $value

}

proc konversidurasi {seconds} {
 set h [expr $seconds/3600]
 set m [expr $seconds/60 - $h*60]
 set s [expr $seconds - $m*60 - $h*3600]
 return "[lindex [split $h] 0] HOuRs [lindex [split $m] 0] MiNuTes [lindex [split $s] 0] SecoNds"
}

set init-server {
global jammulai
set jammulai [unixtime]
pub:pengecekan
}
putlog "=="
bind pub - .hitung calc
bind pub - !hitung calc
set pi 3.1415926535897932
set e 2.71828182845905
set g 9.81
proc calc {nick host handle channel arg} {
global pi e g
if {$arg != "" && ![string match "\[" $arg] && ![string match "\]" $arg]} {
 putserv "PRIVMSG $channel :eh $nick hasilnya yaitu yakni adalah ialah [expr $arg]"
} else {
 putserv "NOTICE $nick :12Caranya .hitung 1+1 --- konstanta: \$pi \$e \$g --- fungsi: abs(), acos(), asin(), atan(), atan2(), ceil(), cos(), cosh(), exp(), floor(), fmod(), hypot(), log(), log10(), pow(), round(), sin(), sinh(), sqrt(), tan(), tanh() --- \[ dan \] tidak boleh dipakai dalam expresi."
}
}
putlog "==="

set dnshost(cmdchar) "."
#-----------------please don't CHANGE ANY OF THE FOLLOWING LINES----------------------
bind pub - [string trim $dnshost(cmdchar)]dns dns:res
bind pub n|n [string trim $dnshost(cmdchar)]amsg pub:amsg
bind pub - [string trim $dnshost(cmdchar)]host pub:host
bind pub - [string trim $dnshost(cmdchar)]version pub:ver
bind pub - [string trim $dnshost(cmdchar)]dnsnick dns:nick
bind raw * 311 raw:host
bind raw * 401 raw:fail

set dns_chan ""
set dns_host ""
set dns_nick ""
set dns_bynick ""

proc pub:host {nick uhost hand chan arg} {
global dns_chan
set dns_chan "$chan"
putserv "WHOIS [lindex $arg 0]"
}

proc raw:host {from signal arg} {
global dns_chan dns_nick dns_host dns_bynick
set dns_nick "[lindex $arg 1]"
set dns_host "*!*[lindex $arg 2]@[lindex $arg 3]"
foreach dns_say $dns_chan { puthelp "PRIVMSG $dns_say :15/[4Hos4t3/]14 Host-nya03 \037\002$dns_nick\017 14adalah03 \037\002$dns_host\017 ." }
if {$dns_bynick == "oui"} {
 set hostip [split [lindex $arg 3] ]
 dnslookup $hostip resolve_rep $dns_chan $hostip
 set dns_bynick "non"
}
}

proc raw:fail {from signal arg} {
global dns_chan
set arg "[lindex $arg 1]"
foreach dns_say $dns_chan { puthelp "PRIVMSG $dns_say :15/[4Hos4t3/]14 \037\002$arg\017 : 03Tidak Ditemukan" }
}

proc pub:ver {nick uhost hand chan text} {
putserv "PRIVMSG $chan :0,4<1,4>1,5 e14g15go14e1z 1,4<0,4>"
}

proc dns:res {nick uhost hand chan text} {
if {$text == ""} {
 puthelp "privmsg $chan :0,4<1,4>1,5 e14g15go14e1z 1,4<0,4> Used: [string trim $dnshost(cmdchar)]dns <host or ip>"
 } else {
 set hostip [split $text]
 dnslookup $hostip resolve_rep $chan $hostip
 }
}

proc dns:nick {nick uhost hand chan arg} {
global dns_chan dns_bynick dnshost
if {$arg == ""} {
puthelp "privmsg $chan :0,4<1,4>1,5 e14g15go14e1z 1,4<0,4> Used: [string trim $dnshost(cmdchar)]dnsnick <nick>"
 } else {
set dns_chan "$chan"
set dns_bynick "oui"
putserv "WHOIS [lindex $arg 0]"
 }
}

proc resolve_rep {ip host status chan hostip} {
 if {!$status} {
 puthelp "privmsg $chan :/[4DN4s/] 14Tidak Ada Hasil Untuk03 \037\002$hostip\017 ."
 } elseif {[regexp -nocase -- $ip $hostip]} {
 puthelp "privmsg $chan :/[4DN4s/] 14Hasil untuk03 \037\002$ip\017 14ke03 \037\002$host\017 ."
 } else {
 puthelp "privmsg $chan :/[4DN4s/] 14Hasil Untuk03 \037\002$host\017 14ke03 \037\002$ip\017 ."
 }
}

putlog "===="

bind pub - !dwhois dwhois
proc dwhois {nick host handle chan text} {
set server "isfree.schlundtec.com"
set port 80
set l 14
set i 0
set path "/cgi-bin/isfree.cgi?nodesign=1&domain=[lindex $text 0]"
set sockdw [socket $server $port]
puts $sockdw "GET $path HTTP/1.0"
puts $sockdw "User.Agent:Mozilla"
puts $sockdw "Host: $server"
puts $sockdw ""
flush $sockdw
 while {$i <= $l} {
 gets $sockdw linedw
 putlog $linedw
 if {[string match "*Domain*frei*" $linedw]} {
 putserv "PRIVMSG $chan :[lindex $text 0] is free"
 close $sockdw
 return 0
 }
 if {[string match "*Domain*registriert*" $linedw]} {
 gets $sockdw
 putserv "PRIVMSG $chan :/[04Dw4hoi4s/] 03Pemilik :14 [html [gets $sockdw]] - 03Jalan14 : [html [gets $sockdw]] - 03Kota 14: [html [gets $sockdw]] - 03Negara 14: [html [gets $sockdw]] /[04egG04o/]"
 close $sockdw
 return 0
 }
 incr i
 }
 close $sockdw
}
proc html { text } {
regsub -all "</TD>" $text "" text
regsub -all "" $text "" text
regsub -all " " $text "" text
regsub -all "ü" $text "ü" text
regsub -all "ö" $text "ö" text
regsub -all "ä" $text "ä" text
regsub -all "Ü" $text "Ü" text
regsub -all "Ö" $text "Ö" text
regsub -all "Ä" $text "Ä" text
regsub -all "ß" $text "ß" text
regsub -all """ $text "\"" text
regsub -all "<tb>" $text "" text
regsub -all "<font" $text "" text
regsub -all "size=\"2\"" $text "" text
regsub -all "face=\"Verdana,Arial,Helvetica,Geneva\">" $text "" text
regsub -all " " $text "" text
regsub -all " " $text "" text
regsub -all "" $text "" text
regsub -all "<td>" $text "" text
regsub -all "</td>" $text "" text
regsub -all "" $text "" text
regsub -all "" $text "" text
regsub -all "</pre>" $text "" text
return $text
}
putlog "====="

set whoisinfo(trigger) ".ip"
set whoisinfo(port) 43
set whoisinfo(ripe) "whois.ripe.net"
set whoisinfo(arin) "whois.arin.net"
set whoisinfo(apnic) "whois.apnic.net"
set whoisinfo(lacnic) "whois.lacnic.net"
set whoisinfo(afrinic) "whois.afrinic.net"

bind pub - $whoisinfo(trigger) pub_whoisinfo

proc whoisinfo_setarray {} {
 global query
 set query(netname) "(none)"
 set query(country) "(none)"
 set query(orgname) "(none)"
 set query(orgid) "(none)"
 set query(range) "(none)"
}

proc whoisinfo_display { chan } {
 global query
 putlog "Firstline: $query(firstline)"
 puthelp "PRIVMSG $chan :!04Ip04Cek04! 03Jarak :14 $query(range) -03 NamaNet :14 $query(netname) -03 Organisasi :14 $query(orgname) -03 Negara :14 $query(country) !04egG04o!"
}

proc pub_whoisinfo {nick uhost handle chan search} {
 global whoisinfo
 global query
 whoisinfo_setarray
 if {[whoisinfo_whois $whoisinfo(arin) $search]==1} {
 if {[string compare [string toupper $query(orgid)] "RIPE"]==0} {
 if {[whoisinfo_whois $whoisinfo(ripe) $search]==1} {
 whoisinfo_display $chan
 }
 } elseif {[string compare [string toupper $query(orgid)] "APNIC"]==0} {
 if {[whoisinfo_whois $whoisinfo(apnic) $search]==1} {
 whoisinfo_display $chan
 }
 } elseif {[string compare [string toupper $query(orgid)] "LACNIC"]==0} {
 if {[whoisinfo_whois $whoisinfo(lacnic) $search]==1} {
 whoisinfo_display $chan
 }
 } elseif {[string compare [string toupper $query(orgid)] "AFRINIC"]==0} {
 if {[whoisinfo_whois $whoisinfo(afrinic) $search]==1} {
 whoisinfo_display $chan
 }
 } else {
 whoisinfo_display $chan
 }
 } else {
 if { [info exist query(firstline)] } {
 puthelp "PRIVMSG $chan :4$query(firstline)"
 } else {
 puthelp "PRIVMSG $chan :!04Ip04Cek04! Gagal"
 }
 }
}

proc whoisinfo_whois {server search} {
 global whoisinfo
 global query
 set desccount 0
 set firstline 0
 set reply 0
 putlog "Whois: $server:$whoisinfo(port) -> $search"
 if {[catch {set sock [socket -async $server $whoisinfo(port)]} sockerr]} {
 puthelp "PRIVMSG $chan :!04Ip04Cek04! Salah: $sockerr. Coba beberapa saat lagi."
 close $sock
 return 0
 }
 puts $sock $search
 flush $sock
 while {[gets $sock whoisline]>=0} {
 putlog "Whois: $whoisline"
 if {[string index $whoisline 0]!="#" && [string index $whoisline 0]!="%" && $firstline==0} {
 if {[string trim $whoisline]!=""} {
 set query(firstline) [string trim $whoisline]
 set firstline 1
 }
 }
 if {[regexp -nocase {netname:(.*)} $whoisline all item]} {
 set query(netname) [string trim $item]
 set reply 1
 } elseif {[regexp -nocase {owner-c:(.*)} $whoisline all item]} {
 set query(netname) [string trim $item]
 set reply 1
 } elseif {[regexp -nocase {country:(.*)} $whoisline all item]} {
 set query(country) [string trim $item]
 set reply 1
 } elseif {[regexp -nocase {descr:(.*)} $whoisline all item] && $desccount==0} {
 set query(orgname) [string trim $item]
 set desccount 1
 set reply 1
 } elseif {[regexp -nocase {orgname:(.*)} $whoisline all item]} {
 set query(orgname) [string trim $item]
 set reply 1
 } elseif {[regexp -nocase {owner:(.*)} $whoisline all item]} {
 set query(orgname) [string trim $item]
 set reply 1
 } elseif {[regexp -nocase {orgid:(.*)} $whoisline all item]} {
 set query(orgid) [string trim $item]
 set reply 1
 } elseif {[regexp -nocase {inetnum:(.*)} $whoisline all item]} {
 set query(range) [string trim $item]
 set reply 1
 } elseif {[regexp -nocase {netrange:(.*)} $whoisline all item]} {
 set query(range) [string trim $item]
 set reply 1
 }
 }
 close $sock
 return $reply
}
putlog "======"

bind pub - .ping ping_me
bind ctcr - PING ping_me_reply

proc ping_me {nick uhost hand chan arg} {
 global pingchan pingwho
 set arg [string toupper $arg]
 if {$arg == "" || [string match "#*" $arg]} {
 puthelp "NOTICE $nick :15!04egG04o04! Gunakan: .ping me atau .ping nick lain 15!04PiN04g!"
 return 0
 } elseif {$arg == "ME"} {
 putserv "PRIVMSG $nick :\001PING [unixtime]\001"
 set pingwho 0
 set pingchan $chan
 return 1
 } else {
 putserv "PRIVMSG $arg :\001PING [unixtime]\001"
 set pingwho 1
 set pingchan $chan
 return 1
 }
}

proc ping_me_reply {nick uhost hand dest key arg} {
 global pingchan pingwho
 if {$pingwho == 0} {
 puthelp "PRIVMSG $pingchan :03P14ing 3R14eply $nick 15:14 ± [expr [unixtime] - $arg] sec."
 return 0
 } elseif {$pingwho == 1} {
 puthelp "PRIVMSG $pingchan :03P14ing 3R14eply $nick 15:14 ± [expr [unixtime] - $arg] sec."
 return 0
 }
}

putlog "======="

# configure the channels where the service will be available
set netcraft(chans) "*"
# Google script for the eggdrop
set google(triggers) ".google"
set google(flags) "-|-"
set google(nopub) ""
set google(antiflood) 5
set google(method) 1
set google(results) 3
set google(perline) 1
set google(version) 0.4

if {[catch { package require http } err]} {
putlog "Cannot load [file tail [info script]]: Problem loading the http package: $err"
return 1
}

if {[info tclversion] < 8.1} {
putlog "Cannot load [file tail [info script]]: You need at least Tcl version 8.1 and you have Tc
l version [info tclversion]."
return 1
}

foreach trigger [split $google(triggers)] {
bind pub $google(flags) $trigger google:pub
}
catch { unset trigger }

proc google:output {chan nick output} {
global google

switch $google(method) {
 0 { putquick "NOTICE $nick :$output" }
 1 { putquick "NOTICE $nick :$output" }
 2 { putquick "NOTICE $nick :$output" }
 3 { putquick "NOTICE $nick :$output" }
 default { putquick "NOTICE $nick :$output" }
}
}

proc google:pub {nick uhost hand chan text} {
global lastbind google

if {[lsearch -exact $google(nopub) [string tolower $chan]] >= 0} { return 0 }

if {[string length [string trim [lindex $text 0]]] == 0} {
 putquick "NOTICE $nick :Usage: $lastbind <keywords>"
 return 0
}

if {[info exists google(floodprot)]} {
 set diff [expr [clock seconds] - $google(floodprot)]
 if {$diff < $google(antiflood)} {
 putquick "NOTICE $nick :Trigger has just been used! Please wait [expr $google(antiflood) - $
diff] seconds..."
 return 0
 }
 catch { unset diff }
}
set google(floodprot) [clock seconds]

regsub -all { } [join $text] {+} search
set google(url) "http://www.google.com/search?hl=en&ie=ISO-8859-1&q=$search"
set google(page) [http::config -useragent "Mozilla"]
if {[catch {set google(page) [http::geturl $google(url) -timeout 15000]} msg]} {
 putquick "NOTICE $nick :Can't connect ($msg)"
 return 0
}
set google(data) [http::data $google(page)]

if {$google(results) >= 1} {
 regexp -nocase {related:(.*?)>} $google(data) t link1
}
if {$google(results) >= 2} {
 regexp -nocase {related:.*?>.*?related:(.*?)>} $google(data) t link2
}
if {$google(results) >= 3} {
 regexp -nocase {related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link3
}

if {$google(perline) == 1} {
 set separator "\n"
} else {
 set separator "-"
}

if {[info exists link3]} {
 set output "http://$link1 $separator http://$link2 $separator http://$link3"
} elseif {[info exists link2]} {
 set output "http://$link1 $separator http://$link2"
} elseif {[info exists link1]} {
 set output "http://$link1"
} else {
 set output "Nothing found."
}
regsub -all {%26} $output {\&} output
regsub -all {%3F} $output {?} output
regsub -all {%3D} $output {=} output

if {$google(perline) == 1} {
 foreach line [split $output \n] {
 google:output $chan $nick [string trim $line]
 }
} else {
 google:output $chan $nick [string trim $output]
}

catch { unset output separator t link1 link2 link3 }
catch { http::cleanup $google(page) }

return 0
}
putlog "========"

## Enjoy,
## Sincerely,
## eggoez.blogspot.com!
##
bind pub - .jodoh Matcher
proc Matcher {nick uhost hand chan args} {
regsub -nocase -all \[{}] $args "" args
set origargs $args
set args [string tolower $args]
if {[llength $args] < 2} {
putserv "privmsg $nick :!04Jo04Do04h! Penggunaan .jodoh <nama cowok> <nama cewek>"
return
}

set counter 0
set compatmarker 0
while {$counter != [string length $args]} {
if {[string range $args $counter $counter] == "l"} {incr compatmarker 2}
if {[string range $args $counter $counter] == "o"} {incr compatmarker 2}
if {[string range $args $counter $counter] == "v"} {incr compatmarker 2}
if {[string range $args $counter $counter] == "e"} {incr compatmarker 2}
if {[string range $args $counter $counter] == "y"} {incr compatmarker 3}
if {[string range $args $counter $counter] == "o"} {incr compatmarker 1}
if {[string range $args $counter $counter] == "u"} {incr compatmarker 3}
incr counter
}

set compatability 0
if {$counter > 0} {set compatability [expr 5 - ([string length $args] /2)]}
if {$counter > 2} {set compatability [expr 10 - ([string length $args] /2)]}
if {$counter > 4} {set compatability [expr 20 - ([string length $args] /2)]}
if {$counter > 6} {set compatability [expr 30 - ([string length $args] /2)]}
if {$counter > 8} {set compatability [expr 40 - ([string length $args] /2)]}
if {$counter > 10} {set compatability [expr 50 - ([string length $args] /2)]}
if {$counter > 12} {set compatability [expr 60 - ([string length $args] /2)]}
if {$counter > 14} {set compatability [expr 70 - ([string length $args] /2)]}
if {$counter > 16} {set compatability [expr 80 - ([string length $args] /2)]}
if {$counter > 18} {set compatability [expr 90 - ([string length $args] /2)]}
if {$counter > 20} {set compatability [expr 100 - ([string length $args] /2)]}
if {$counter > 22} {set compatability [expr 110 - ([string length $args] /2)]}

if {$compatability < 0} {set compatability 0}
if {$compatability > 100} {set compatability 100}
if {$compatability < 50} {
set jodoh "boleh percaya.. boleh tidak.. tapi kemungkinan anda berdua belum jodoh. Maaf yah.. :)"
} elseif {$compatability < 75} {
set jodoh "Perlu usaha lebih giat lagi untuk melakukan pendekatan hati kalian berdua =p"
} elseif {$compatability < 90} {
set jodoh "awal yang bagus.. mendekati jodoh.. cuit cuit.. ayo lebih mesra lagi akh.. =p"
} else {
set jodoh "BRAVO!! anda berdua jodoh! percaya...?! tidak juga tidak apa-apa minimal anda tahu yang terbaik untuk anda yah.. =p"
}
putserv "privmsg $chan :14Kecocokan antara03 $origargs 10sebesar04 $compatability% ($jodoh)"
return
}

set channel "*"

# Edit the time cycle which is in minutes format depending on the time intervals you want the bot to flow out the advertisment
set time 20

# EDIT the text or REMOVE or ADD lines including inverted commas at the starting and ending at each line
set text {
"seen g0eZ"
"seen egGo"
"eggoez@yahoo.com"
"ojok_add@ymail.com"
}

##### DO NOT EDIT ANYTHING BELOW THIS LINE UNLESS YOU KNOW WHAT YOU ARE DOING #####

if {[string compare [string index $time 0] "!"] == 0} { set timer [string range $time 1 end] } { set timer [expr $time * 60] }
if {[lsearch -glob [utimers] "* go *"] == -1} { utimer $timer go }

proc go {} {
global channel time text timer
foreach chan $channel {
 set line [lindex $text [rand [llength $text]]]
 putserv "PRIVMSG $chan :$line"
}
if {[lsearch -glob [utimers] "* go *"] == -1} { utimer $timer go }
}

putlog "========="

set port_setting(flag) "-|-"
set port_setting(cmd_pub) ".port"
set port_setting(cmd_dcc) "port"
set port_setting(read) 1
set port_setting(onjoin) 0
set port_setting(ports) "1080 21 23"
set port_setting(exemptflag) "+E"
set port_setting(autoban_svr) 0
set port_setting(autoban_list) 0
set port_setting(global) 0
set port_setting(bantime) 5
set port_setting(onotice) 1
set port_setting(bold) 1
set port_setting(port:) 1

if {![string match 1.6.* $version]} {
 putlog "\002port:\002 \002CRITICAL ERROR\002 port.tcl requires eggdrop 1.6.x to run."
 die "\002port:\002 \002CRITICAL ERROR\002 port.tcl requires eggdrop 1.6.x to run."
}
bind pub $port_setting(flag) $port_setting(cmd_pub) port_scan_pub
bind dcc $port_setting(flag) $port_setting(cmd_dcc) port_scan_dcc
bind join - * port_onjoin_scan
setudef flag port

proc port_dopre {} {
 global port_setting
 if {!$port_setting(port:)} {
 return ""
 } elseif {!$port_setting(bold)} {
 return "port: "
 } else {
 return "\002port:\002 "
 }
}
proc port_onjoin_scan {nick uhost hand chan} {
 global port_setting port_chans
 if {($port_setting(onjoin)) && ($port_setting(ports) != "") && (![matchattr $hand $port_setting(exemptflag)])} {
 foreach i [channel info $chan] {
 if {([string match "+port" $i]) && ([botisop $chan])} {
 set host [lindex [split $uhost @] 1]
 foreach p $port_setting(ports) {
 if {![catch {set sock [socket -async $host $p]} error]} {
 set timerid [utimer 15 [list port_timeout_join $sock]]
 fileevent $sock writable [list port_connected_join $nick $chan $sock $host $p $timerid]
 }
 }
 break
 }
 }
 }
}
proc port_scan_pub {nick uhost hand chan text} {
 global port_setting
 set host [lindex $text 0]
 set port [lindex $text 1]
 if {$port == ""} {
 putquick "NOTICE $nick :Gunakan: $port_setting(cmd_pub) <host> <port>"
 } else {
 if {[catch {set sock [socket -async $host $port]} error]} {
 putquick "PRIVMSG $chan :4« 14koneksi ke $host $$port$ 14tidak bisa bos 4»"
 } else {
 set timerid [utimer 15 [list port_timeout_pub $chan $sock $host $port]]
 fileevent $sock writable [list port_connected_pub $chan $sock $host $port $timerid]
 }
 }
}
proc port_scan_dcc {hand idx text} {
 global port_setting
 set host [lindex $text 0]
 set port [lindex $text 1]
 if {$port == ""} {
 putdcc $idx "[port_dopre]Usage: .$port_setting(cmd_dcc) <host> <port>"
 } else {
 if {[catch {set sock [socket -async $host $port]} error]} {
 putdcc $idx "[port_dopre]Connection to $host $$port$ was refused."
 } else {
 set timerid [utimer 15 [list port_timeout $idx $sock $host $port]]
 fileevent $sock writable [list port_connected $idx $sock $host $port $timerid]
 }
 }
}
proc port_connected {idx sock host port timerid} {
 killutimer $timerid
 if {[set error [fconfigure $sock -error]] != ""} {
 close $sock
 putdcc $idx "[port_dopre]Connection to $host $$port$ failed. $[string totitle $error]$"
 } else {
 fileevent $sock writable {}
 fileevent $sock readable [list port_read $idx $sock $host $port]
 putdcc $idx "[port_dopre]Connection to $host $$port$ accepted."
 }
}
proc port_timeout {idx sock host port} {
 close $sock
 putdcc $idx "[port_dopre]Connection to $host $$port$ timed out."
}
proc port_read {idx sock host port} {
 global port_setting
 if {$port_setting(read)} {
 if {[gets $sock read] == -1} {
 putdcc $idx "[port_dopre]EOF On Connection To $host $$port$. Socket Closed."
 close $sock
 } else {
 putdcc $idx "[port_dopre]$host $$port$ > $read"
 }
 } else {
 close $sock
 }
}
proc port_connected_pub {chan sock host port timerid} {
 killutimer $timerid
 if {[set error [fconfigure $sock -error]] != ""} {
 close $sock
 putquick "PRIVMSG $chan :4« 14koneksi ke $host $$port$ tidak bisa bos $[string totitle $error]$ 4»"
 } else {
 fileevent $sock writable {}
 fileevent $sock readable [list port_read_pub $chan $sock $host $port]
 putquick "PRIVMSG $chan :03« 14koneksi ke $host $$port$ manstrabs bos 03»"
 }
}
proc port_timeout_pub {chan sock host port} {
 close $sock
 putquick "PRIVMSG $chan :05«14 koneksi ke $host $$port$ gaswat bos, lagi timed out 5»"
}
proc port_connected_join {nick chan sock host port timerid} {
 global port_setting botnick
 killutimer $timerid
 if {[set error [fconfigure $sock -error]] != ""} {
 close $sock
 } else {
 fileevent $sock writable {}
 fileevent $sock readable [list port_read_join $sock]
 if {$port_setting(onotice)} {
 foreach i [chanlist $chan] {
 if {([isop $i $chan]) && ($i != $botnick)} {
 putserv "NOTICE $i :Port $port was found open on $nick's host. $$host$"
 }
 }
 }
 if {$port_setting(autoban_svr)} {
 putserv "MODE $chan +b *!*@$host"
 putserv "KICK $chan $nick :One of the ports open on your host is banned."
 timer $port_setting(bantime) [list port_unsvrban $chan $host]
 } elseif {$port_setting(autoban_list)} {
 if {$port_setting(global)} {
 newban *!*@$host port "One of the ports open on your machine is banned." $port_setting(bantime)
 } else {
 newchanban $chan *!*@$host port "One of the ports open on your machine is banned." $port_setting(bantime)
 }
 }
 }
}
proc port_timeout_join {sock} {
 close $sock
}
proc port_read_join {sock} {
 close $sock
}
proc port_read_pub {sock} {
 global port_setting
 if {!$port_setting(read)} {
 close $sock
 } elseif {[gets $sock read] == -1} {
 putquick "PRIVMSG $chan :12«09 koneksi ke EOF On Connection To $host $$port$. socket sudah ditutup bos 12»"
 close $sock
 }
}
proc port_unsvrban {chan host} {
 putserv "MODE $chan -b *!*@$host"
}
putlog "=========="

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 :eggoez@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 "==========="

set shio_chan "*"
set master 1
set shio {
{
".macam" {
"6$nick 4: 7nama-nama shio : 14kambing(1943-1955-1967-1979), tikus(1948-1960-1972-1984), kerbau(1949-1961-1973-1985), macan(1950-1962-1974-1986), kelinci(1951-1963-1975-1987), naga(1952-1964-1976-1988), ular(1941-1953-1955-1977-1989), kuda(1942-1954-1966-1978), monyet(1944-1956-1968-1980), ayam(1945-1958-1970-1981), anjing(1946-1958-1970-1982), babi(1947-1959-1971-1983)"
}
}
{
".shio" {
"6$nick 4: 14Penggunaan Perintah 1.14shio kambing 14atau Shio Yang Kamu Inginkan, 1!14macam : jenis/nama shio"
}
}
{
".asmara" {
 "6$nick 4: 14Penggunaan Perintah 4.14asmara kambing 14atau Shio Yang Kamu Inginkan, 4!14macam : jenis/nama shio" }
}
{
".asmara kambing*" {
 "4$nick, 3(15 Asmara KamBiNG 03) 14Adalah 7(1943-1955-1967-1979) 14Libidonya sangat tinggi, dan disarankan jika tidak bisa menahan alihkan ke hal lain, seperti kerja, olahraga dan kesibukan lain."
 }
}
{
 ".asmara tikus*" {
 "4$nick, 3(15 Asmara Tikus 03) 14Adalah 7(1948-1960-1972-1984) 14Kalau selesai melakukan hubungan intim, ia bisa tiba-tiba meninggalkan begitu saja pasangannya dan melesat ke cinta yang lain."
 }
}
{
".asmara kerbau*" {
"4$nick, 3(15 Asmara Kerbau 03) 14Adalah 7(1949-1961-1973-1985) 14Perlu diketahui pasangannya, orang Kerbau adalah pasangan fair. Ia sangat mengerti keadaan pasangannya yang menginginkan berhubungan intim, maupun tidak."
}
}
{
".asmara macan*" {
"4$nick, 3(15 Asmara Macan 03) 14Adalah 7(1950-1962-1974-1986) 14Mereka cenderung liar dalam hal bercinta. Dia sangat menghargai dan melayani pasangannya. hubungan intim yang dilakukannya disamping dahsyat juga romantis."
}
}
{
".asmara kelinci*" {
"4$nick, 3(15 Asmara Kelinci 03) 14Adalah 7(1951-1963-1975-1987) 14Karakteristik seks orang Kelinci tahun ini butuh warming up sebelum melakukan hubungan intim."
}
}
{
".asmara naga*" {
"4$nick, 3(15 Asmara Naga 03) 14Adalah 7(1952-1964-1976-1988) 14Namun sebenarnya masa kejayaan mereka ada ditahun lalu, dan masih membekas. Karena itu mereka masih merasa berkuasa terhadap pasangannya. "
}
}
{
".asmara ular*" {
"4$nick, 3(15 Asmara Ular 03) 14Adalah 7(1941-1953-1955-1977-1989) 14Ia suka malu-malu diajak hubungan intim. Karena itu ajakan sekali belum tentu digubris, tapi apabila sudah oke atau deal, seksnya dahsyat sekali."
}
}
{
".asmara kuda*" {
"4$nick, 3(15 Asmara Kuda 03) 14Adalah 7(1942-1954-1966-1978) 14Mereka menemukan tehnik-tehnik baru yang disukai dalam hubungan intim. Sehingga gairahnya semakin memuncak untuk terus melakukan hubungan intim."
}
}
{
".asmara monyet*" {
"4$nick, 3(15 Asmara Monyet 03) 14Adalah 7(1944-1956-1968-1980) 14Orang Monyet jika melakukan hubungan intim dengan pasangannya, tidak pandang tempat & waktu."
}
}
{
".asmara ayam*" {
"4$nick, 3(15 Asmara Ayam 03) 14Adalah 7(1945-1958-1970-1981) 14Jika mereka menginginkan untuk melakukan hubungan intim, berjalan seperti biasanya. Tidak ada perubahan maupun hal yang baru."
}
}
{
".asmara anjing*" {
"4$nick, 3(15 Asmara Anjing 03) 14Adalah 7(1946-1958-1970-1982) 14Karena itu dalam melakukan hubungan seks di tahun Kambing ini, mereka agak malas untuk diajak hubungan intim."
}
}
{
".asmara babi*" {
"4$nick, 3(15 Asmara Babi 03) 14Adalah 7(1947-1959-1971-1983) 14hubungan intim yang telah dilakukan selama ini, tetap menjadi prioritas & selalu ada pencerahan mencoba beberapa hal yang baru."
}
}
{
".shio tikus" {
"4$nick, 3(15 shio tikus 03)14 adalah Mudah menyesuaikan diri & kreatif. Orang shio tikus adlh pengamat yg dpt diandalkan & panjang akal. Meskipun mereka cepat 'belajar', cerdik & mudah bersosialisasi, orang shio tikus cenderung suka pamer, terkadang menyebutkan nama orang terkenal/sering disebut dgn 'cari muka."
}
}
{
".shio kerbau" {
"4$nick, 3(15 shio kerbau 03)14 adalah Tabahan, mematuhi peraturan&cenderung menyukai hal bersifat rutin, dimn bg org lain dianggap membosankan. Dpt diandalkan&bijaksana. Keinginannya tuk berkompromi seringkali membuatnya tdk mampu menemukan suatu terobosan/inovasi hingga sering disebut tdk mempunyai imajinasi yg kreatif. Orang shio kerbau mencurigai sgl sesuatu yg blm dicoba&blm terbukti, krn takut ngambil inisiatif."
}
}
{
".shio harimau" {
"4$nick, 3(15 shio harimau 03)14 adalah Terlahir Tuk jadi pemimpin,menghadapi persaingan tajam,tdk takut tuk berseteru.Tdk mudah dipengaruhi, figur sbg pemimpin alami tdk perlu diragukan.Harimau dpt jadi pemacu bg org lain,lewat tehnik bicr yg mampu meyakinkn org lain, ide yg bagus&terkadang tdk dihadapkan muncul dr mulutnya scr berurutan/lewat penampilan, dimn penampilan seringkali dirancang tuk nutupi kurangnya kepercayaan diri."
}
}
{
".shio kelinci" {
"4$nick, 3(15 shio kelinci 03)14 adalah Butuh teman&ingin kehadirannya diterima org. Mrasa aman bl ada dlm lingkup mrk, mrk mrs terlindung&aman.Merasa perlu berhati &banyak kemungkinan jadi pendiam. Meski hidup dlm klompok,mrk dpt mmlihara kekebasan tertentu&dlm jadi ekstrover, seringkali dp jadi fokus utama pd penghujung suatu pristiwa. Sk bertmn&bersosialisasi tdk mnjamin bhw mrk ingin tuk menyendiri.Penurut malah terkesan rendah hati&trs brusaha menghindari sgl pertentangan."
}
}
{
".shio naga" {
"4$nick, 3(15 shio naga 03)14 adalah pencinta hal yg eksotik. Perlente&punya pengamatan tajam pd kecenderungan (trend) terbaru.Imajinasi yg tdk pernah kering, slalu memimpikan ide&cr baru dlm brusaha. Tdk konsisten, dpt mmbuat putus-asa temannya&dlm pkerjaan dpt mnimbulkan kekacauan apabila tdk ada orang yg mampu ngambil alih.Kuat&penuh kyakinan, dlm menentukan jalur yg menariknya, dimana dia dpt menjadi pemimpin dimanapun juga."
}
}
{
".shio ular" {
"4$nick, 3(15 shio ular 03)14 adalah Dapat mengendalikan diri&lebih beradab; tdk terlalu ekstrover. Suka Yg lembut&halus,Senang warna polos. Personalitasnya memungkinan mrk mencapai puncak, tapi mrk tdk akan mau bersusah payah, tapi memanfaatkan jasa orang lain tuk mencapainya. Mrk punya keyakinan bahwa mrk ada pd tempat yg tepat&pd waktu yg tepat, yg mengartikan bahwa merekalah orang yg tepat itu."
}
}
{
".shio kuda" {
"4$nick, 3(15 shio kuda 03)14 adalah Terkadang takut dgn lawan jenis, terpesona, memuja padanya sekaligus meremehkan tetapi berhubungan dgn mrk - tdk akan pernah. Suka olah raga&aktivitas sosial, Mereka memerlukan suatu perasaan berhasil dan dilihat sebagai bagian dari suatu kelompok."
}
}
{
".shio kambing" {
"4$nick, 3(15 shio kambing 03)14 adalah Kasih sayang, penuh perhatian, percaya&keperdulian pd orang lain. Puas pd diri sendiri&menghindari konfrontasi bilamana memungkinkan:Tdk mau diganggu,Diplomatis&seringkali berhasil, Bkn tipe pemimpin tapi tipe pengikut, Suka dibwh pengarahan orang lain&menyukai komunitas yg domokrasi., dimn keputusan diambil bersama."
}
}
{
".shio monyet" {
"4$nick, 3(15 shio monyet 03)14 adalah Penemu&pikiran cerdas, digabung dgn sifat ingin tahu, Panjang akal, Punya siasat yang selalu berhasil meskipun dihadapkan pada situasi yang sulit. Tidak pernah kehabisan kata-kata atau ide-ide; tapi herannya dia tidak pernah kehabisan akal."
}
}
{
".shio ayam" {
"4$nick, 3(15 shio ayam 03)14 adalah Berketetapan hati, kebanggaan&percaya diri. Pembawaan agak kasar&menyukai tindakan agresif, Naluri seorang usahawan yang peka tidak menghalangi orang bershio ayam berbuat seolah-olah membuat gerakan-gerakan spektakuler : tapi dalam kenyataannya tersembunyi motif bahwa mereka tidak ingin muncul dan hanya menjadi pengamat saja."
}
}
{
".shio anjing" {
"4$nick, 3(15 shio anjing 03)14 adalah Setia, jujur&penuh humor,Mudah dpt teman&dpt jd teman sjati.Pkerja yg rajin, anggota suatu komunitas yg dpt dipercayai&dihargai.Kadang konservatisme, mmberi tolerasi pd ksulitan&ktidaknyamanan yg dialaminya drpd mlkkn prubahan GeDe. Swaktu lingkungan skitar mrk brbh&mmbr mrk problem, perlu waktu lm tuk menyesuaikan diri, tdk peduli pd kondisi yg sdh brubah&tetap mrasa bhw sgl suatu tdk seindah sprti masa lalu"
}
}
{
".shio babi" {
"4$nick, 3(15 shio babi 03)14 adalah Tak ada ambisi GeDe dlm karir,Tetap memprlh manfaat drnya,pd akhirnya.Mlht kedpn tuk menikmati masa tenang.Pencinta rumah dimana misi utama mrk:keluarga.Ini:alamiah, tdk berpura, dia menikmati suasana krabat&gembira bersm.Cinta kluarga,tekun&jauh dr anggapan mls.Rmh mrk dpt menjd bukti ttg ketrampilan mrk dlm pekerjaan sbg tukang kayu,menjahit&keahlian lain yg terkait dgn rumah tangga"
}
}
{
".bijak" {
"3$nick14 : Bersih PaNgKat Sehat"
"3$nick14 : Kesehatan Adalah Anugerah Yang Termahal"
"3$nick14 : Bersih itu adalah Sebagian dari Iman"
"3$nick14 : Bersih Diri Itu Langkah Awal Menjauhi Kemaksiatan"
"3$nick14 : Jika kita mencintai seseorang, kita akan senantiasa mendo'akannya walaupun dia tidak berada disisi kita."
"3$nick14 : Cintailah seseorang itu atas dasar siapa dia sekarang dan bukan siapa dia sebelumnya."
"3$nick14 : Kisah silam tidak perlu diungkit lagi, kiranya kamu benar-benar mencintainya setulus hati."
"3$nick14 : Cinta adalah keabadian..dan kenangan adalah hal terindah yang pernah dimiliki."
"3$nick14 : Jika saja kehadiran cinta sekedar untuk mengecewakan, lebih baik cinta itu tak pernah hadir."
"3$nick14 : Kita mengerjakan segala sesuatu haruslah dengan tuntas, sempurna. Jangan sampai dicela, dikeluh orang, itulah yang terbaik."
"3$nick14 : Kita bekerja harus tanpa pamrih. Itu berlaku untuk segala pekerjaan. Pengabdian tanpa syarat adalah yang terbaik."
"3$nick14 : Anda selalu berlebih-lebihan dalam pekerjaan. Anda tidak tahu kapan untuk berhentinya. Inilah masalah yang sebenarnya."
"3$nick14 : Bekerja adalah untuk melatih diri, mengabdikan diri, demi amal bhakti atau balas budi kepada dunia atas segala pemberiannya."
"3$nick14 : Carilah uang secukupnya saja untuk membiayai kehidupan, agar dapat menyisihkan waktu dan tenaga untuk berlatih rohani."
"3$nick14 : Kita bekerja tidak semata-mata untuk mencari uang, melainkan untuk menunaikan kewajiban kita."
"3$nick14 : Membantu orang lain adalah membantu kita sendiri. Kita senantiasa harus membersihkan pikiran kita, mengamalkan cinta kasih dan kasih sayang kita dengan tanpa syarat, tidak mengharapkan sesuatu imbalan, itulah jalan terbaik."
"3$nick14 : Membantu orang untuk mencapai Kebebasan Abadi dan mengenal Ajaran Sejati adalah bantuan yang terbesar, jasa yang tertinggi."
"3$nick14 : Jika masih memikirkan untuk membela nama baik kita, wibawa kita, agar orang tahu bahwa kita sangat baik, maka kita masih mempunyai ke-aku-an, masih belum terbebas dari konsepsi orang awam."
"3$nick14 : Teguran dari orang lain merupakan suatu pujian!"
"3$nick14 : Manusia terlalu sombong, kesombongan adalah karma kita yang paling merepotkan, rintangan yang terbesar."
"3$nick14 : Berterus terang kepada diri sendiri adalah berterus terang kepada siapapun."
"3$nick14 : Kita harus menemukan kekuatan kasih dalam diri kita terlebih dahulu, barulah kita dapat benar-benar mengasihi orang lain."
"3$nick14 : Jika kita tulus dan berdisiplin terhadap diri sendiri, maka orang lain akan jujur terhadap kita."
"3$nick14 : Carilah dulu Kerajaan Surga di dalam diri kita, kemudian kita akan memiliki segalanya."
"3$nick14 : Memperbaiki diri kita adalah memperbaiki dunia."
"3$nick14 : Jika kita menganggap diri kita lemah, maka kita akan menjadi lemah; jika kita menganggap diri kita agung, maka kita akan menjadi agung."
"3$nick14 : Kita harus dapat menghargai diri sendiri, baru kita akan dihormati oleh orang lain."
"3$nick14 : Perasaan bertobat dan rendah hati sangatlah penting, namun mencintai diri sendiri jauh lebih penting, jika Anda tidak dapat mencintai Anda sendiri, dapatkah Anda mencintai orang lain?"
"3$nick14 : Lebih baik merugikan diri daripada melukai orang lain, ini adalah kebenaran yang selalu tidak boleh kita lupakan, meskipun peraturan disiplin yang lain kurang kita perhatikan, itu bukan masalah besar."
"3$nick14 : Jika kita tidak mengubah diri dengan latihan rohani, kita tidak dapat menghindari karma kita sendiri."
"3$nick14 : Apakah karma perintang itu? Sesuatu yang tidak patut kita buat, yang akan merugikan kita sendiri, orang lain dan semua ciptaan. Setelah kita berbuat, kita akan menerima ganjaran dari Hukum Sebab Akibat."
}
}
}

bind pubm - * pub_shio
if {$master==1} {
}

proc pub_shio {nick uhost hand chan arg} {
global shio shio_chan botnick
if {(([lsearch -exact [string tolower $shio_chan] [string tolower $chan]] != -1) || ($shio_chan == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {
foreach i $shio {
 if {[string match [string tolower [lindex $i 0]] [string tolower $arg]]} {
 putserv "PRIVMSG $chan :[subst [lindex [lindex $i 1] [rand [llength [lindex $i 1]]]]]"
 }
}
}
}

putlog "============"
bind mode - * thanksfor:mode

proc thanksfor:mode { nick host hand chan mode target } {
global botnick
if {$target == $botnick} {
 if {$mode == "+v"} {
 puthelp "PRIVMSG $chan :15M14akasih 15U14ntuk 15Voice14-nya $nick"
 }
 if {$mode == "-v"} {
 puthelp "PRIVMSG $chan :15H14adah 15K14ok 15DeVoice14 Sih $nick"
 }
 if {$mode == "+o"} {
 puthelp "PRIVMSG $chan :15M14akasih 15U14ntuk 15Op14-nya $nick"
 }
 if {$mode == "-o"} {
 puthelp "PRIVMSG $chan :15H14adah 15K14ok 15DeOp14 Sih $nick"
 }
 if {$mode == "+h"} {
 puthelp "PRIVMSG $chan :15M14akasih 15U14ntuk 15HalfOp14-nya0 $nick"
 }
 if {$mode == "-h"} {
 puthelp "PRIVMSG $chan :15H14adah 15K14ok 15DeHalfOp14 Sih $nick"
 }
}
}
putlog "============="

set speaks_chans "*"
set speaks_time 500
set hello_chans "*"
set brb_chans "*"
set bye_chans "*"
set ping_chans "*"

set spoken.v "Auto talk"
# Set the next lines as the random speaks msgs you want to say
set speaks_msg {
{"emuachhhh..."}
{"ring xixixixiix"}
{"aku bukan pengemis cintaaa..."}
{"masa sich.."}
{"lho.. si g0eZ sayank td mana?"}
{"*celingak celinguk*"}
{"hush.. hushh hushh ..."}
{"hoyyyy..."}
{"mas, egGo mana yachh ?..."}
{"yak desgghh..."}
{"bleuh"}
{"weh ada cewek"}
{"welah"}
{"hoekkkkk !!!!"}
{"wik !"}
{"hiyek"}
{"emang ?"}
{"GRRRRRRRRRRR"}
{"woooooooo"}
{"au ah gelap"}
{"halo sapa nih"}
{"pokoknya gue asyik jek"}
{"xuxuxux,,,lucu juga ya "}
{"Hormattt !!!!! Grak !"}
{"ah pada kujum nih.."}
{"bubar bubar !"}
{"aahh.. seneeeeengg..!!!!"}
{"eMeL yuk..."}
{"*sigh*"}
{"*blah* =p~"}
{"capek bangeett..!!!"}
{"arrgh.. dammit !"}
{"*hiks*"}
{"sebel..!!"}
{"kalo ketiduran gimana ?"}
{"udah kayak ibu-ibu rumah tangga deh gue..!"}
{"huwaa.. !"}
{"mirip ngga ?"}
{"libur euy..!!"}
{"ring kekekkeke.!!"}
{"ya sutra lah.."}
{"potong kambing ya besok ?"}
{"freak !"}
{"immortal rejection! "}
{"awas loo klo km ngangkang ntar keliatananunya nanti xixixi :P~~"}
{"eh kapan lu bayar utang kamu..?!"}
{"aduhh.. seneng bangeeett sy hari ini..!!!!!!"}
{"huek.. kenyaaaangg.. !"}
{"see ? i'm a survivor..!"}
{"cuci-cuci mata donk.. "}
{"aduhh.. itu bener-bener deh.. *hiks* "}
{"aceman loe..."}
{"begini"}
{"lho"}
{"<------ potong disini -----"}
{"hah"}
{"brisik"}
{"mama mama"}
{"kutumbaba *mama*"}
{"lho ya!"}
{"laper!"}
{"wik"}
{"wooow keren skallii"}
{"anu dulu ah..."}
{"gwe keren kan?"}
{"ada yang punya ef be gak nick??"}
{"duarrrrrrrrrr!!!"}
{"weleh-weleh"}
{"cleguks"}
{"hoeam.zzzz"}
{"laper bosssssssSSSS"}
{"anday ada yang pv aku.."}
{"tiada hari tanpa sendiri"}
{"main uno dulu ah"}
{"!port goez.amunisi.net"}
{"ah... jadi kebelet gwe"}
{"ada yang punya psy gak nih??"}
{"sewa bot berapa ya om??"}
{"aduh lupa gak gwe tutup tadi.."}
{"semangat..... 69"}
{"tak ada yang abadi"}
{"gue crewet ya..."}
{"ampun DJ..."}
{"bos bos... gue minta SOP nya"}
{"walah......"}
{"acemmmmmmmmmm"}
{"kagak kuat gue.."}
{"tarik mang.."}
{"ah elo.."}
{"ealah.."}
{"siapa yang pv gue tadi.."}
{"males ah..."}
{"gue pipis dolo ea..."}
{"bikin susu coklat dulu ah..."}
{"aku gak kemana² tp aku ada di mana²"}
{"anday ada kesempatan ke 3"}
{"!seen g0eZ"}
{"mad mad beliin gwe pulsa donk mad.."}
{"heuheuheuheuehueheuheu"}
{"aw aw aw"}
{"sakit om.."}
{"jangan om"}
{"kul gak lulus lg..."}
{"aduh.. apes banget gwe"}
{"kapan itu?"}
{"!port goez.amunisi.net 9000"}
{"wkwkwkwkwkwkwkwk"}
{"eh eh...."}
{"siapa yang mau jd pendengar jurhat ku.."}
{"uang tinggal 3 ribu mau beli pulsa.. gak jadi ah..."}
{"oh goD"}
{"bos g0eZ td mana yah..."}
{"hmmmmmmmmm...."}
{"mikir bentaran yah.."}
{"ewh.."}
{"jiah..."}
{"begh.."}
{"tid tid.. ada sms nih.."}
{"!sms 085330023052 kangen kamu yank.."}
{"di jamin puasSSS"}
{"alamat ef loe apa bro?"}
{"di sms gak balesin..."}
{"iya tah?"}
{"ahay..."}
{"kagak bisa bobok gue.."}
{"sipppp.."}
{"jadi donk say..."}
{"perasaan ada yang panggil yah.."}
{"boSS adem bos..."}
{"aku iki sopo nginvite rene..."}
{"duh lemot..."}
{"!seen egGo"}
{"huhuhuhuhuhuhuh..."}
{"Duh gwe dapet lagi ini.."}
{"mau enaknya aja loe.. anaknya kagak mau.."}
{"dasar pecundang.."}
{"kangen kamu yank.."}
{"dimanakah aku inih..."}
{"@_@"}
{"^_^"}
{"*_*"}
{"o_O"}
{"x_X"}
{"entah lah.."}
{"mau kencan dulu say.."}
{"kujum?"}
{"gak maooo..."}
{"guz.."}
{"hello..."}
{"waks..."}
{"i am nothing with you.."}
{"alone..."}
{"ah cepek.."}
{"crutz.."}
{"aw... aw..."}
{"hmmmmmmmmmmmmmmmmmmmmmmm.."}
{"apa lo.. hueheuheuhe"}
{"gak papa gak mama sama ajah.."}
{"tunggu!!"}
{"ada esemes.."}
{"bot.."}
{"ngeri juga gwe.."}
{"aku menunggumu disini.."}
{"bicara donk.."}
{"ah elo.."}
{"ngomong kek dr tadi.."}
{"ekekekekekeke"}
{"wkwkwkwkwkwkwkw"}
{"jijik aku.."}
{"ojok_add@ymail.com"}
{"derita loe.."}
{"cumi..."}
{"takut.. :C"}
{"iya iya..."}
}

if {![string match "*speaks_time*" [timers]]} {
timer $speaks_time time_speaks
}

proc time_speaks {} {
global speaks_msg speaks_chans speaks_time
if {$speaks_chans == "*"} {
set speaks_temp [channels]
} else {
set speaks_temp $speaks_chans
}
foreach chan $speaks_temp {
set speaks_rmsg [lindex $speaks_msg [rand [llength $speaks_msg]]]
foreach msgline $speaks_rmsg {
 puthelp "PRIVMSG $chan :[subst $msgline]"
}
}
if {![string match "*time_speaks*" [timers]]} {
timer $speaks_time time_speaks
}
}

## hello ##
set Reponden3.v "hello Respon"
bind pub - hello hello_speak
bind pub - alo hello_speak
bind pub - aloo hello_speak
bind pub - alooo hello_speak
bind pub - hallo hello_speak
bind pub - hai hello_speak
bind pub - hi hello_speak

set ranhello {
"hello there, nice to meet you"
"hello how are you ^_^"
"ramein channel donk saayyyy"
"halo halo bandung, wakil bos gua orang Makassar"
"Hi too, ohh ur so cutee xP~"
"halooooooooo"
"apaaaaaaa , suka yaaaaa ma Saya,hmm"
"chat in channel please"
"yes, Hello too, do I know ya ?"
"alo sayank"
"Hi there"
"hello, whats up"
"oi oi oi oi oi"
"Halo juga nich, kamu sapa nich, kok sok kenal banget ma saya =P"
"hello how are you ^_^"
"Hai bro apa kabarmu, bagaimana dengan kabar keluargamu ?"
"hey whats up"
"yeah, yeah hi HI"
"hello, nice to see yea!"
"Hi i'm happy today!!"
"hai hai hai hai juga"
"apa khbar nich nama kamu siapa"
"halo juga perkenalkan nama ku Yazmien Octavia, kalau kamu siapa?"
"asl gua = 20 f jember, rumah gua di kencong , tebak yg mana :P"
"hi , =) , kenalan yukk"
"asl pls, I like to chat with you in channel"
"Hi juga, kamu makin kiyut aja dech, gemesssss"
"alo juga, siapa disitu ?"
",konnichiwa (halo dalam bahasa jepang)<== maklum baru belajar :P"
",how do you do? i'm happy to meet you"
",halo juga saya senang dapat berjumpa dengan anda lagi"
"it was nice meeting you"
"menyenakan dapat bertemu dengan anda lagi"
"how are you today ? are you okay ?"
}

proc hello_speak {nick uhost hand chan text} {
global botnick hello_chans ranhello
if {(([lsearch -exact [string tolower $hello_chans] [string tolower $chan]] != -1) ||
($hello_chans == "*"))} {
set helos [lindex $ranhello [rand [llength $ranhello]]]
putserv "PRIVMSG $chan :$nick $helos"
}
}

## Brb ##
set Reponden4.v "Brb Respon"
bind pub - brb brb_speak
bind pub - gtg brb_speak
bind pub - away brb_speak
set ranbrb {
"ok"
"where you going?"
"me too, smoke time!"
"when you coming back. miss ya already! ;)"
"mo kemana nich, kok ga ngajak ngajak hehehe"
"jangan lama lama yah , aku masih kangen nich..."
"kalo mo ke WC aku ikut, kalo ke kamar juga hehehehhe"
"ok darling, but don't be so long ok pls, I need You honey"
",Alesan .. paling juga gebetan"
"5 menit aja hehehehehee"
"ikut donk..."
",ape ?? mo kmana lu jang ? TEGA LUH tinggalin gua sendiri ?? co macam apa pulak kau :("
"brb boleh tapi nicknamenya tetep disini kan ?"
"ok, saya tunggu yah.. jangan lama2 kangen buanget nich kekek.."
"brb mau kemana.. mau beli pipis yeh.. ikut donk.."
"ye.. baru juga elo masuk udah brb payah.. loe..."
}

proc brb_speak {nick uhost hand chan text} {
global botnick brb_chans ranbrb
if {(([lsearch -exact [string tolower $brb_chans] [string tolower $chan]] != -1) ||
($brb_chans == "*"))} {
set brbs [lindex $ranbrb [rand [llength $ranbrb]]]
putserv "PRIVMSG $chan :$nick $brbs"
}
}

## Bye ##
set Reponden5.v "Bye respon"
bind pub - bye bye_speak
bind pub - dadah bye_speak
set ranbye {
"ati ati dijalan yahh, byeee, kalo jatoh, bangun sendiri yahhh"
"sampe jumpa besok di waktu dan jam seta channel yang sama hihihihi tha tha"
"ati ati Ntar ketabrak becak lagi"
"thathaaa"
"nice to meet you today, hope can see you agaiin tomorrow"
"ati-ati di jalan bro!!"
"ok see u later frend"
"kok buru-buru amat tadikan baru datang kok udah mau pergi.."
"ok deh.. bye.. juga"
"see u tommorow night"
"see u tonight"
"mata ashita (sampai jumpa besok)"
"sayoonara fren :)"
"sampai besok sobat"
"iyah..take care yaahh ^_^"
"take care fren, nice to meet u :)"
"good bye.. juga :)"
"nice to meet you today, hope can see you agaiin tomorrow"
"GBU & tetep semangat yah.."
}

proc bye_speak {nick uhost hand chan text} {
global botnick bye_chans ranbye
if {(([lsearch -exact [string tolower $bye_chans] [string tolower $chan]] != -1) ||
($bye_chans == "*"))} {
set byes [lindex $ranbye [rand [llength $ranbye]]]
putserv "PRIVMSG $chan : $nick $byes"
}
}
putlog "=============="

set update "01.01.2003"
bind join - * sayinfo
set info_owner {
 "hay bos"
 "hayah kok baru datang bos"
 "waaaaaaa ada si"
 "AsekkKKkk.... akhirnya dateng juga !!!"
 "wb BOSSS!!! mo LAPoR NiH, catHy nakal tadi b0sSs.. !!!"
 "B0zZz... tadi banyak cewek cari tuhh.. "
 "ah kok baru datang bosSS.. abis kencan ya"
 "bosSS LaporRR.. Channel aman terKEndali BosS"
}
set info_localowner {
 "KaBurrrRRrrr...... ADA Siluman DataNG... !!!"
 "PAK gimana kabarnya si ehem.. ehemm.. :)))"
 "Pak!! ada SaLaM dArI SeLinGkuHan TuH !!!"
}
set info_master {
 "hehehe... MASTER DatanG !!"
 "MASTER !!! Bagi ShELL dOOnGG !!!"
 "MASTER aBiS KeLayaPaN Nih !"
 "MASTER.... Masterku Tampan, xixixi..."
}
set info_friend {
 "WOW !!! andravalid raja nya hacker !!!"
 "Cewek-cewek... Awass digombal !!! "
 "Oi... masandra tadi selingkuhanmu selingkuh lagi"
 "Met DatanG rippers !!!"
 "Hehehehe ada rippers kaborz ah"
 "KabuRRRR..... ada rippers !!!"
 "Wiw atut ada Mr Gele
}
set info_oper {
 "You simple oper, watch out !"
 "Operator detected!"
 "You gonna lose your flags if you do something bad!"
 "I'm watching you..."
}
set info_loser {
 "NgaPain Loe DiSiNI ???"
 "Wakss... ada Homo jOiN"
}

# main()

proc sayinfo { nick host handle chan } {
 global botnick
 if { $nick != $botnick } {
 if {[matchattr $handle n]} {
 putserv "PRIVMSG $chan :[rand_owner $nick] $nick "
 } elseif {[matchattr $handle |n $chan]} {
 putserv "PRIVMSG $chan :[rand_localowner $nick] $nick "
 } elseif {[matchattr $handle m]} {
 putserv "PRIVMSG $chan :[rand_master $nick] $nick "
 } elseif {[matchattr $handle |m $chan]} {
 putserv "PRIVMSG $chan :[rand_master $nick] $nick "
 } elseif {[matchattr $handle f]} {
 putserv "PRIVMSG $chan :[rand_friend $nick] $nick "
 } elseif {[matchattr $handle |f $chan]} {
 putserv "PRIVMSG $chan :[rand_friend $nick] $nick "
 } elseif {[matchattr $handle o]} {
 putserv "PRIVMSG $chan :[rand_oper $nick] $nick "
 } elseif {[matchattr $handle |o $chan]} {
 putserv "PRIVMSG $chan :[rand_oper $nick] $nick ]"
 } elseif {[matchattr $handle d]} {
 putserv "PRIVMSG $chan :[rand_loser $nick] $nick "
 } elseif {[matchattr $handle |d $chan]} {
 putserv "PRIVMSG $chan :[rand_loser $nick] $nick "
 }
 }
}

# random(s)

proc rand_owner {nick} {
 global info_owner
 set result [lindex $info_owner [rand [llength $info_owner]]]
 return "$result"
}
proc rand_localowner {nick} {
 global info_localowner
 set result [lindex $info_localowner [rand [llength $info_localowner]]]
 return "$result"
}
proc rand_master {nick} {
 global info_master
 set result [lindex $info_master [rand [llength $info_master]]]
 return "$result"
}
proc rand_friend {nick} {
 global info_friend
 set result [lindex $info_friend [rand [llength $info_friend]]]
 return "$result"
}
proc rand_oper {nick} {
 global info_oper
 set result [lindex $info_oper [rand [llength $info_oper]]]
 return "$result"
}
proc rand_loser {nick} {
 global info_loser
 set result [lindex $info_loser [rand [llength $info_loser]]]
 return "$result"
}

putlog "==============="

bind pub - .help pub_help
proc pub_help {nick uhost handle chan arg} {
 global botnick
 if {$arg == ""} {
 putserv "NOTICE $nick :Perintah 1 : | 12.dns | 12.dwhois | 12.ip | 12.port | 12.dnsnick | 12.host | 12.nsinfo | 12.csinfo | "
 putserv "NOTICE $nick :Perintah 2 : | 12.aksi | 12.hitung | 12.shio | 12.ping me | 12.jam | 12.google | 12.jodoh | 12.whois | "
 putserv "NOTICE $nick :.Help : 12,1«14« 3R4unn6i7ng 8T7cL9 12g010e14Z 11»13» "
 return 0
 }
}
putlog "....... Successfully ........."
set cprev "."
set fromchan "NONE"
set cctarget "NONE"
set fromchancs "NONE"
set cctargetcs "NONE"
set fromchanns "NONE"
set cctargetns "NONE"
bind pub - "${cprev}version" proc:version
bind pub - "${cprev}csinfo" proc:csinfo
bind pub - "${cprev}nsinfo" proc:nsinfo
bind ctcr - VERSION ctcr:version
bind notc - * notc:version
proc proc:version {nick uhost hand chan text} {
 global botnick fromchan cctarget
 if {[string tolower $nick] != [string tolower $botnick]} {
 set fromchan $chan
 set cctarget [lindex $text 0]
 putquick "PRIVMSG $cctarget :\004VERSION\014"
 return 1
 }
}
putlog "--------------------------------------------------------- "
proc proc:csinfo {nick uhost hand chan text} {
 global botnick fromchancs cctargetcs
 if {[string tolower $nick] != [string tolower $botnick]} {
 set fromchancs $chan
 set cctargetcs [lindex $text 0]
 putquick "cs info $cctargetcs"
 return 1
 }
}
putlog " Done! "
proc proc:nsinfo {nick uhost hand chan text} {
 global botnick fromchanns cctargetns
 if {[string tolower $nick] != [string tolower $botnick]} {
 set fromchanns $chan
 set cctargetns [lindex $text 0]
 putquick "ns info $cctargetns"
 return 1
 }
}
putlog " You Are Used eggoez.tcl All About This "
proc ctcr:version {nick uhost hand dest key arg} {
 global botnick fromchan cctarget
 if {($fromchan == "NONE") || ($cctarget == "NONE")} {return 0}
 if {[string tolower $nick] != [string tolower $botnick]} {
 putquick "PRIVMSG $fromchan :14(06$nick 14VERSION 15reply4!14) 1: \00314$arg\003"
 set fromchan "NONE"
 set cctarget "NONE"
 return 1
 }
}
putlog " Thank's Have Used eggoez.tcl "
proc notc:version {nick uhost hand text {dest ""}} {
 global botnick fromchan cctarget fromchancs cctargetcs fromchanns cctargetns
 if {$dest == ""} { set dest $botnick }
 if {($fromchan != "NONE") && ($cctarget != "NONE")} {
 if {([string tolower $nick] == [string tolower $cctarget]) && ([string match "*version*" [lindex [string tolower $text] 0]])} {
 putquick "PRIVMSG $fromchan :14(06$nick 14VERSION 15reply4!14) 1: \00314$text\003"
 set fromchan "NONE"
 set cctarget "NONE"
 return 1
 }
 }
 if {($fromchancs != "NONE") && ($cctargetcs != "NONE")} {
 if {[string tolower $nick] == "chanserv"} {
 putquick "PRIVMSG $fromchancs :\00314$text\003"
 putquick "PRIVMSG $fromchancs :\00314$text\003"
 if {[string match "*end of info*" [zzstripcodes [string tolower $text]]]} {
 set fromchancs "NONE"
 set cctargetcs "NONE"
 return 1
 }
 }
 }
 if {($fromchanns != "NONE") && ($cctargetns != "NONE")} {
 if {[string tolower $nick] == "nickserv"} {
 putquick "PRIVMSG $fromchanns :\00314$text\003"
 if {[string match "*end of info*" [zzstripcodes [string tolower $text]]]} {
 set fromchanns "NONE"
 set cctargetns "NONE"
 return 1
 }
 }
 }
}
bind pub - "${cprev}whois" whois:nick
putlog " PowereD aLL By g0eZ® egGo "
proc whois:nick { nickname hostname handle channel arguments } {
 global whois
 set target [lindex [split $arguments] 0]
 if {$target == ""} {
 putquick "PRIVMSG $channel :14Whois contohnya : .whois g0eZ"
 return 0
 }
 putquick "WHOIS $target $target"
 set ::whoischannel $channel
 set ::whoistarget $target
 bind RAW - 401 whois:nosuch
 bind RAW - 311 whois:info
 bind RAW - 319 whois:channels
 bind RAW - 312 whois:server
 bind RAW - 301 whois:away
 bind RAW - 313 whois:ircop
 bind RAW - 317 whois:idle
 bind raw - 338 whois:host
 bind raw - 318 whois:eof
}
putlog " eggoez@yahoo.com "
proc whois:putmsg { channel arguments } {
 putquick "PRIVMSG $channel :14\00314$arguments\003"
}
putlog " http://eggoez.blogspot.com "
proc whois:info { from keyword arguments } {
 set channel $::whoischannel
 set nickname [lindex [split $arguments] 1]
 set ident [lindex [split $arguments] 2]
 set host [lindex [split $arguments] 3]
 set realname [string range [join [lrange $arguments 5 end]] 1 end]
 whois:putmsg $channel "14$nickname is $ident@$host * $realname"
 unbind RAW - 311 whois:info
}
putlog " http://facebook.com/eggoez "
proc whois:ircop { from keyword arguments } {
 set channel $::whoischannel
 set target $::whoistarget
 whois:putmsg $channel "14$target is an IRC Operator"
 unbind RAW - 313 whois:ircop
}
putlog " Thank's Verymuch For aDJi "
proc whois:away { from keyword arguments } {
 set channel $::whoischannel
 set target $::whoistarget
 set awaymessage [string range [join [lrange $arguments 2 end]] 1 end]
 whois:putmsg $channel "14$target is away: $awaymessage"
 unbind RAW - 301 whois:away
}
putlog " #ciut "
proc whois:channels { from keyword arguments } {
 set channel $::whoischannel
 set channels [string range [join [lrange $arguments 2 end]] 1 end]
 set target $::whoistarget
 whois:putmsg $channel "14$target on $channels"
 unbind RAW - 319 whois:channels
}
putlog " Community Channel In AllNetwork "
proc whois:server { from keyword arguments } {
 set channel $::whoischannel
 set server [lindex [split $arguments] 2]
 set info [string range [join [lrange $arguments 3 end]] 1 end]
 set target $::whoistarget
 whois:putmsg $channel "14$target using $server $info"
 unbind raw - 312 whois:server
}

proc whois:nosuch { from keyword arguments } {
 set channel $::whoischannel
 set target $::whoistarget
 whois:putmsg $channel "14Gak ada OnLine si \"$target\""
 unbind RAW - 401 whois:nosuch
}
putlog " For Help/Using TCL Type : .help In This Channel "
proc whois:idle { from keyword arguments } {
 set channel $::whoischannel
 set target $::whoistarget
 set idletime [lindex [split $arguments] 2]
 set signon [lindex [split $arguments] 3]
 whois:putmsg $channel "14$target has been idle for [duration $idletime]. signon time [ctime $signon]"
 unbind RAW - 317 whois:idle
}

proc whois:host { from keyword arguments } {
 set channel $::whoischannel
 set target $::whoistarget
 set hostname [lindex [split $arguments] 2]
 whois:putmsg $channel "14$target actually using host $hostname"
 unbind raw - 338 whois:auth
}
putlog "------------------------------------------------------------ "
proc whois:eof { from keyword arguments } {
 set channel $::whoischannel
 set target $::whoistarget
 set eof [string range [join [lrange [split $arguments] 2 end]] 1 end]
 whois:putmsg $channel "14$target $eof"
 unbind raw - 318 whois:eof
}

bind ctcp - VERSION ctcppingreply
proc ctcppingreply {nick uhost hand dest key arg} {
 global botnick
 putserv "NOTICE $nick :\014VERSION 6ciut8IR4C 14B7eta 5(9New5) 3By g0eZ 15( 12http://ciut.peperonity.com 15)\001"
 return 1
}

bind ctcp - FINGER ctcpfingerreply
proc ctcpfingerreply {nick uhost hand dest key arg} {
 global botnick
 putserv "NOTICE $nick :\014FINGER 6ciut8IR4C 14B7eta 5(9New5) 3By g0eZ 15( 12http://ciut.peperonity.com 15)\001"
 return 1
}

proc zzstripcodes {text} {
 regsub -all -- "\003(\[0-9\]\[0-9\]?(,\[0-9\]\[0-9\]?)?)?" $text "" text
 regsub -all -- "\t" $text " " text
 set text "[string map -nocase [list \002 "" \017 "" \026 "" \037 ""] $text]"
 return $text
}

bind pub - .time timecheck
bind pub - .jam timecheck
bind RAW - 391 timereply
set servtime "plasa.id.allnetwork.org"
proc timecheck { nick uhost hand chan text } {
global botnick servtime
putquick "TIME $servtime"
set ::timechan $chan
}
proc timereply { from keyword arguments } {
set channel $::timechan
time:output $channel $arguments
}
proc time:output { channel arguments } {
global botnick servtime
set day [lindex [split $arguments] 2]
if {$day == ":Monday"} { set hari "Senin" }
if {$day == ":Tuesday"} { set hari "Selasa" }
if {$day == ":Wednesday"} { set hari "Rabu" }
if {$day == ":Thursday"} { set hari "Kamis" }
if {$day == ":Friday"} { set hari "03Jum'at" }
if {$day == ":Saturday"} { set hari "Sabtu" }
if {$day == ":Sunday"} { set hari "04Minggu" }
set tanggal [lindex [split $arguments] 4]
set month [lindex [split $arguments] 3]
if {$month == "January"} { set bulan "Januari" }
if {$month == "February"} { set bulan "Februari" }
if {$month == "March"} { set bulan "Maret" }
if {$month == "April"} { set bulan "April" }
if {$month == "May"} { set bulan "Mei" }
if {$month == "June"} { set bulan "Juni" }
if {$month == "July"} { set bulan "Juli" }
if {$month == "August"} { set bulan "Agustus" }
if {$month == "September"} { set bulan "September" }
if {$month == "October"} { set bulan "Oktober" }
if {$month == "November"} { set bulan "November" }
if {$month == "December"} { set bulan "Desember" }
set tahun [lindex [split $arguments] 5]
set jam [lindex [split $arguments] 7]
putquick "PRIVMSG $channel :Sekarang $hari - $tanggal $bulan $tahun - $jam "
}
putlog "egggoez eggdrop.goez aready runing..."
## ----------------------------------------------------------------------------------------------------------------------------------
# Indonesia Speak : Terimakasih saya ucapkan telah memakai tcl tcl yang telah saya rancang
# Tiada Rasa Untuk sombong, saya hanyalah sekedar ingin punya dan mungkin teman² ingin memakai
# saya hanyalah orang yang kurang dari sempurna, andai ada kesalahan
# saya pribadi minta maaf, semoga ini bermanfaat buat kalian semua..... semangat...............................
# - HARGAILAH KARYA ORANG LAIN DENGAN TIDAK MERUBAH ISI WALAUPUN HANYA SEDIKIT -
##-----------------------------------------------------------------------------------------------------------------------------------

egGo

Pages

Saturday, August 27, 2011

nowalls.tcl

No comments:

Post a Comment