 |
|
 |
|
MeBoy
Comandant
Joined: 15 Aug 2007
Posts: 13
|
|
 |
|
 |
|
 Posted: 15/08/2007 16:04 Post subject: Vorbeste.tcl |
 |
|
| Code: | ##################################################
#### Vorbeste.tcl By ReaL|DoG @ #Lending ##########
#### Don't be lame to change this copyright ######
##################################################
###### How to install this #######################
###### After you've saved this tcl in /scripts/ ##
###### you must to edit eggdrop.conf and put this#
###### line " source scripts/vorbeste.tcl " ######
######## Enjoy ###################################
##################################################
set flagurile -|-
setudef flag vorbeste
set cuvantul1 "sal"
set cuvantul2 "re"
set cuvantul3 "ciao"
set cuvantul4 "hello"
set cuvantul5 "buna"
bind pub $flagurile $cuvantul1 text-1
bind pub $flagurile $cuvantul2 text-2
bind pub $flagurile $cuvantul3 text-3
bind pub $flagurile $cuvantul4 text-4
bind pub $flagurile $cuvantul5 text-5
proc text-1 {nick uhost handle chan args } {
global text1
if { [channel get $chan vorbeste] } {
puthelp "PRIVMSG $chan :salut $nick!! Aici scrii text-ul pentru SAL"
}
return 0
}
proc text-2 {nick uhost handle chan args} {
global text2
if { [channel get $chan vorbeste] } {
puthelp "PRIVMSG $chan :salut $nick!! Aici scrii text-ul pentru re"
}
return 0
}
proc text-3 {nick uhost handle chan args} {
global text3
if { [channel get $chan vorbeste] } {
puthelp "PRIVMSG $chan :salut $nick!! Aici scrii text-ul pentru ciao"
}
return 0
}
proc text-4 {nick uhost handle chan args} {
global text4
if { [channel get $chan vorbeste] } {
puthelp "PRIVMSG $chan :salut $nick!! Aici scrii text-ul pentru hello"
}
return 0
}
proc text-5 {nick uhost handle chan args} {
global text5
if { [channel get $chan vorbeste] } {
puthelp "PRIVMSG $chan :salut $nick!! Aici scrii text-ul pentru buna"
}
return 0
}
putlog "Loaded vorbeste.tcl v1.0 by ReaL|DoG"
|
|
|
FAQ 
Log in to check your private messages 
