######################################
# PART GREET
######################################
# Here you can set your various greet
### REMEMBER!! Use "%" sign to declare chan variable, or nick variable
# example:
# set yoipgreet {
# "%nick: Thanks for visiting %chan"
# "%nick: Please dont forget %chan"
# "Thanks for visiting %chan"
# "Please dont forget %chan"
# }
#================================================================================
# Disini kamu bisa membuat variasi salam
### INGAT!! Gunakan tanda "%" untuk menandakan variabel chan, atau variabel nick
# contoh:
# set yoipgreet {
# "%nick: Thanks udah mampir di %chan"
# "%nick: Jangan lupakan %chan yah..."
# "Thanks %nick udah mampir di %chan"
# "Jangan lupakan %chan yah..."
# }
set yoipgreet {
"mw kmana %nick...kok buru-buru? Balik lagi ke %chan yuk"
"Mau kemana? Masuk ke %chan lagi degh"
"Thanks udah mampir di %chan"
"Thanks for visiting %chan"
"Where do you go? Please come in %chan again"
"Back to %chan again please..."
"Jangan lupakan %chan yah"
"Eh... ada yang nyariin %nick di %chan, balik ke %chan lagi dech..."
}
# You can set your logo here, or your crew logo, etc...
# You setting up your logo at IRC, copy, then paste here...
#================================================================================
# Kamu bisa set logo disini, atau set logo genk kamu, dll...
# Setting logo kamu di IRC, copy, lalu paste disini...
set yoilogo "15,1\[de1,15de\]"
###############################################
# DONT EDIT ANYTHING BELOW THIS LINE #
# IT'S RESTRICTED AREA #
# EVEN IF YOU FAMILIAR WITH TCL THINGS #
# PLEASE APPRECIATE MY HARD WORK #
# BUT #
# I DONT MIND IF YOU TAKE THIS TCL #
# FOR YOUR FIRST STEP TO TCL #
# PLEASE BE MY GUEST #
###############################################
bind part - * part:greet
set yoivern "\00312v1.0\003"
set yoiscript "\00312partgreet.TcL\003"
set yoiwriter "\00312dede\003"
proc part:greet {nick uhost hand chan msg{"$yoipgreet"}} {
global botnick yoipgreet yoilogo
set yoiPGREET [lindex $yoipgreet [ rand [llength $yoipgreet]]]
regsub -all "%nick" $yoiPGREET "$nick" yoiPGREET
regsub -all "%chan" $yoiPGREET "$chan" yoiPGREET
if {($nick != $botnick)} {
putserv "PRIVMSG $nick :$yoiPGREET"
return 1
}
}
putlog "partgreet LOADED By dede "
Sunday, August 28, 2011
dont part..tcl
Labels:
tCL
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment