Example #1
0
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();
}