ValuePtr sGetFlow(EnvPtr env, ValuePtr args) { using namespace SSM; if(sLength(args) == 1 && args->car()->isSymbol()) { Craft* station = Craft::getSingleton(); if(args->car()->vString() == "energy") { return new NumberValue(station->getFlow(ENERGY)); } else if(args->car()->vString() == "thermal-control") { return new NumberValue(station->getFlow(COOLING)); } else { return new NumberValue(station->getFlow(LIFE_SUPPORT)); } } return rsUndefined(); }