- ; ECS provides system functions that can filter a collection
- ; of entity maps for a set of components (keys)
- (fn _has [e ks]
- (var res true)
- (each [_ n (ipairs ks)]
- (set res (and res (if (= (. e n) nil) false true))))
- (if res true false))
- (fn system [ks f]
- (fn [es]
- (each [_ e (ipairs es)]
- (if (_has e ks) (f e)))))
|