Main.hx

import tink.state.*;
import coconut.data.*;

@:enum abstract Side(String) to String {
  var North = "North";
  var East = "East";
  var South = "South";
  var West = "West";
}

class Main {
  static function main() {
    var g = new GameModel({});
    var rules = new RulesModel({
      players: g.players,
    });
    rules.observables.isComplete.bind({ direct: true }, function (x) trace(x));
    g.players.get(East).update({pool:43});
    g.players.get(West).update({pool:46});  
    g.players.get(South).update({pool:55});
  }
}

class RulesModel implements Model {
  @:constant var convention:{ final pool:Int; } = { pool: 42 }; 
  @:external var players:Mapping<Side,PlayerModel>;

  @:computed var isComplete:Bool = {  
    var isPoolGreaterOrEqual = true;
    for (p in players)  {
      trace('${p.side} pool: ${p.pool}');
      if (p.pool <= convention.pool) {
        isPoolGreaterOrEqual = false;
      }
    }
    return isPoolGreaterOrEqual;
  }
}

class PlayerModel implements Model {
  @:observable var pool:Int = @byDefault 0;
  @:constant var side:Side;
  @:transition function update(patches) return patches;

}

class GameModel implements Model {
  @:constant var players:Mapping<Side,PlayerModel> = [
    for (side in [South, West, East])
      side => new PlayerModel({ side: side })
  ];
}