lebay.tcl

###############################

# thanks access.tcl

###############################

### OK, so let's start

# here are some bindings

bind mode - * thanksfor:mode

# now the core :) procedure

# you can change colours or text, just edit

# "Thanks" part

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"

      }

}

}

# ok that should do it

# now just a little adv...

putlog "Lebay TCL Loaded By egGo Sucessfully"