Your IP : 216.73.216.224
##################################################
## WeLCoMe.TcL v1.0 Edited Indra^Pratama & Vita ##
## � january 2012 By BhasIRC Network ##
## Author : Indra^Pratama & Vita ##
##################################################
###################
##[ KONFIGURASI ]##
###################
# 0 - di channel
# 1 - di PM
set mode_pesan 0
##############
##[ Chanel ]##
##############
#If You want setting name channel use space syantax #channel1 #channel2
set wellchan { #channel } ;
###################
##[ PESAN SALAM ]##
###################
# <nick> - Nick, <chan> - Channel
set pesan_salam {
"Welcome Back <nick> In <chan> Enjoy Ur Chatting :-)"
"slaps <nick> with pizza hot !!!"
"hey <nick> how are you today???"
"hi sweety <nick> welcome in <chan> enjoy :)"
"<nick> <-- join <chan> Welcome Back Handsome :P"
"omg <nick> your so beautiful girl :D"
"the beutiful girl <nick> come in <chan> wb sweet :P"
"<nick> is a sexyboy in <chan> xixixi :P"
"<nick> is a maniac come to <chan> give chocolate to <nick> enjoy friedns :P"
"huggssss <nick> welcome back <nick> :-)"
"slaps <nick> with a big burger :P"
"hi <nick> you using blackberry?"
"assalamualaikum <nick> are you ok?"
"wow <nick> is a celebritis in hollywood?"
"<nick> hey handsome want date to me?"
"<nick> hello welcome back in <chan> wanna prvt me?"
"give <nick> kebab hmmm you like that?"
"hmmmm <nick> you like sing a song?
"hi <nick> asl pls :)"
"hi <nick> where are you from?"
}
###############
##[ BINDING ]##
###############
bind join * * salam_gabung
################
##[ PROSEDUR ]##
################
proc salam_gabung {nick uhost hand chan} {
global botnick mode_pesan pesan_salam wellchan
foreach x $wellchan {
if {[string match "$x" $chan]} {
if {$nick != $botnick} {
set salam [lindex $pesan_salam [rand [llength $pesan_salam]]]
regsub -all "<nick>" $salam $nick salam
regsub -all "<chan>" $salam $chan salam
if { $mode_pesan == 0 } {
putserv "PRIVMSG $chan :$salam"
} else {
putserv "PRIVMSG $nick :$salam"
}
}
}
}
}
################################################################
putlog "0,12�0,1 WeLCoMe.TcL v1.0 (By Indra^Pratama & Vita) 0,12� LoaDeD"
################################################################