Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


soucis avec un script de greet
#1
Bonjour je viens par ici car j'ai un soucis avec un script de greet.

voici le script


tcl
### Necessary configuration ###
 
set patch "home/shell557/eggdrop/scripts/greet" 
# Example: "home/darles/eggdrop/greet"
 
set greetsize "100"
# Greet limit (symbols)
 
set floodtimer "20"
# Time after which person can change it's greet
 
### End of necessary configuration ###
 
### Other configuration ### 
 
set floodtext "Don't flood!!! You could set greet after $floodtimer seconds"
# This is message will be showed for flooders
 
set greetok "Your greet has been successfully set"
# This message will be showed, when greet is OK
 
set greetbad "Your greet is longer than $greetsize symbols"
# This error message will be showed then greet is longer than it should be
 
set greetdel "Your greet successfully deleted"
# This message will be showed then greet will be successfully deleted
 
set greetdelerr "Your greet not found"
# This error message will be showed then greet file not found
set yourgreet "Your greet is:"
# This is message using in !mygreet command
 
#####################################################
#                                                   #
#        PLEASE DO NOT EDIT LINES BELOW!!!          #
#                                                   #
#####################################################              
 
bind pub - !greet addgreet
bind pub - !remgreet remgreet
bind pub - !mygreet mygreet
bind pub - !help help
bind join - * showgreet
 
proc addgreet {nick uhost hand chan arg} {
global file greetsize patch greetbad greetok floodtext floodtimer
set file "$nick.txt2"
if {[file exist /$patch/$file]} {
set file2 [open /$patch/$file r]
gets $file2 ignore
close $file2
putserv "NOTICE $nick :$ignore"
} else {
set file3 [open /$patch/$nick.txt w+]
set text [lrange [split $arg] 0 end]
if {[string length $text] >= $greetsize} {
putserv "NOTICE $nick :$greetbad"
return 1
} else {
puts $file3 "$text"
close $file3
putserv "NOTICE $nick :$greetok"
set file4 [open /$patch/$file w+]
puts $file4 $floodtext
close $file4
utimer $floodtimer del
}
}
}
proc del {} {
global file patch
file delete "/$patch/$file"
}
proc showgreet {nick uhost hand chan} {
global patch
if {[file exist /$patch/$nick.txt]} {
set file5 [open /$patch/$nick.txt r+]
gets $file5 text
close $file5
putserv "PRIVMSG $chan :\[$nick\] $text"
}
}
proc mygreet {nick uhost hand chan arg} {
global patch
if {[file exist /$patch/$nick.txt]} {
set file6 [open /$patch/$nick.txt r]
gets $file6 text
close $file6
putserv "NOTICE $nick :$yourgreet \[$nick\] $text"
}
}
proc remgreet {nick uhost hand chan arg} {
global patch greetdel greetdelerr
if {[file exist /$patch/$nick.txt]} {
file delete "/$patch/$nick.txt"
file delete "/$patch/$nick.txt2"
putserv "NOTICE $nick :$greetdel"
} else {
putserv "NOTICE $nick :$greetdelerr"
}
}
proc help {nick uhost hand chan arg} {
putserv "NOTICE $nick :My commands is:"
putserv "NOTICE $nick :!greet <text> - set your greet, !remgreet - remove your greet, !mygreet - show your greet, !help - show this help"
putserv "NOTICE $nick :Greet script by darles."
}


Il enregistre bien les greet, mais par contre quand on veux lire son greet en tapant la commande !mygreet il annonce l'erreure suivante:

[00:33:46] <(Experienza> [00:33] Tcl error [mygreet]: can't read "yourgreet": no such variable

j'ai essayé de modifié les noms des fichiers mais rien y fais.
Si quelqu'un à une idée merci d'avance.
#2
Tu as oublié d'appeler la variable en début de proc:


tcl
proc mygreet {nick uhost hand chan arg} {
global patch yourgreet
if {[file exist /$patch/$nick.txt]} {
set file6 [open /$patch/$nick.txt r]
gets $file6 text
close $file6
putserv "NOTICE $nick :$yourgreet \[$nick\] $text"
}
}

#3
Ha oui pffffff que suis je bete

Merci BdS pour ton observation.


Possibly Related Threads…
Thread Author Replies Views Last Post
  probleme avec le script Pooshy.tcl LTEF 18 520 22/06/2022, 12:49
Last Post: CrazyCat
  [Résolu] Problème avec le script autolog T3nS 2 3,314 06/12/2017, 16:08
Last Post: T3nS
  [Bug] Problème avec le script zurl.tcl T3nS 0 3,128 03/08/2017, 19:40
Last Post: T3nS
  [Bug] Soucis avec un tcl Dark.tcl de Kyrien d'après la création de GeoZzZ [Sujet Reformulé] KeeViiNou 2 3,328 24/02/2017, 10:59
Last Post: KeeViiNou
  [Demande] Soucis avec expr aliasangelius 6 4,240 13/01/2017, 18:06
Last Post: aliasangelius
  Soucis avec un tcl KeeViiNou 1 3,774 08/05/2016, 14:06
Last Post: KeeViiNou
  [Résolu] Soucis avec une commande Scorpio 11 6,481 22/01/2016, 12:58
Last Post: Scorpio
  Soucis de codage avec un kick KeeViiNou 14 8,614 26/03/2014, 23:18
Last Post: KeeViiNou
  Soucis avec un codage KeeViiNou 9 6,416 14/03/2014, 21:22
Last Post: aliasangelius
  Soucis avec un tcl de sajoin KeeViiNou 15 11,305 14/03/2014, 10:51
Last Post: KeeViiNou

Forum Jump:


Users browsing this thread: 1 Guest(s)