Zobacz.

Na "początku przejścia" utwórz procedurę która będzie liczyć przejścia.

global ciecie
global mom_przesuniecie


if {[info exists mom_przesuniecie]} {


if {[info exists ciecie]} {


set ciecie [expr $ciecie + 1 + $mom_przesuniecie]

if { $ciecie > 1 } {

#MOM_output_literal " "
}

MOM_output_literal "(CIECIE $ciecie)"

MOM_output_literal "H00$ciecie"
unset mom_przesuniecie
return
}
}



if {[info exists ciecie]} {


set ciecie [expr $ciecie + 1]

if { $ciecie > 1 } {

#MOM_output_literal " "
}

MOM_output_literal "(CIECIE $ciecie)"

MOM_output_literal "H00$ciecie"

}