Soucis au niveau de "expr"

[DaV34]

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 :

tclcopier

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.