[Kurupt]

Aici:

## $Id: prices.tcl, version 0.0 , ggdrop-1.6.x 2005 dpgc@purehype.net Exp $
## Author:   Kurupt                                    
## Info:     Will responde for some commands
## Thanks to:
#            smart@UnderNet#ro-tcl     
#
## Contact:  mail: dpgc@purehype.net    
#            irc : #ro-tcl (on undernet)
#            web : http://k.aitia.info


## START    

# cuvintele

# Variabile
set price(psybnc) {
"haribo macht kinder froh linie 1"
"linie 2"
}
set price(eggdrop) {"haribo macht kinder froh linie 1"}
set price(shell) {"haribo macht kinder froh linie 1"}
set price(vhost) {"haribo macht kinder froh linie 1"}
set price(plata) {"haribo macht kinder froh linie 1"}
set price(contact) {"haribo macht kinder froh linie 1"}

#seteaza cuvintele
set price(1) "!psybnc"
set price(2) "!eggdrop"
set price(3) "!shell"
set price(4) "!vhost"
set price(5) "!plata"
set price(6) "!contact"

## BINDS
bind pub - $price(1) {price $price(psybnc)}
bind pub - $price(2) {price $price(eggdrop)}
bind pub - $price(3) {price $price(shell)}
bind pub - $price(4) {price $price(vhost)}
bind pub - $price(5) {price $price(plata)}
bind pub - $price(6) {price $price(contact)}

proc price {num nick uhost hand chan text} {
foreach haribo $num {
putmsg $chan "$haribo"
  }
}

   
putlog "price loaded"

P.S. Nu am avut timp sa implementez flood protect, pentru bugs sau cereri postati aici,