Pages

Sunday, August 28, 2011

dont part..tcl

######################################
#  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 "

No comments:

Post a Comment