29/02/2008, 02:00
Le soucis a été réglé par TiSmA.
Nous en avons déduis que je me compliquais 100 fois trop la vie (overdose de tcl, pas bon xD)
La source actuele :
Encore un grand merci a TiSmA.
PS : Enfait, j'avais un soucis au niveau du renvoie d'une de mes vars.
Nous en avons déduis que je me compliquais 100 fois trop la vie (overdose de tcl, pas bon xD)
La source actuele :
tcl
proc waar:up {min hour day month year} {
set liste [open [dofia:dir]db/waar-access.db r]
putlog "Pseudo / Pass / Mail / Date-Inscription / Total-Or / Total-Population / Total-Xp / Total-Soldat / Total-Chevalier / Total-Héros / Lvl-Or"
foreach var [split [read $liste] "\n"] {
if {$var ne ""} {
dofia:file "del waar-access [lindex $var 0]"
set vnew [waar:get "lookor [lindex $var 10]"]
dofia:file "multiwrite waar-access [lindex $var 0] [lindex $var 1] [lindex $var 2] [lindex $var 3] [expr [lindex $var 4] + [subst -nocommands $vnew]] [lindex $var 5] [lindex $var 6] [lindex $var 7] [lindex $var 8] [lindex $var 9] [lindex $var 10]"
}
}
close $liste
}
Encore un grand merci a TiSmA.
PS : Enfait, j'avais un soucis au niveau du renvoie d'une de mes vars.