simon/mw-engine
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Separated herbivore rule from predator rules so they can be added

Browse source 
separately.
This commit is contained in:
simon 2014-07-02 23:02:39 +01:00
parent 19db0e0673
commit 580ebb0e8e
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/mw_engine/natural_rules.clj
View file

@ -63,8 +63,8 @@
(merge cell {:fertility (+ (:fertility cell) 1)})))
))
;; rules describing animal behaviour
(def predation-rules
;; rules describing herbivore behaviour
(def herbivore-rules
(list
;; deer arrive occasionally at the edge of the map.
(fn [cell world]
@ -88,7 +88,11 @@
(fn [cell world]
(cond
(>= (population cell :deer) 2)
(merge cell {:deer (int (* (:deer cell) 4))})))
(merge cell {:deer (int (* (:deer cell) 4))})))))
;; rules describing predator behaviour
(def predator-rules
(list
;; wolves arrive occasionally at the edge of the map.
(fn [cell world]
(cond (and (< (count (get-neighbours world cell)) 8)
@ -117,4 +121,4 @@
(merge cell {:deer (- (population cell :deer) (population cell :wolves))}))
))
(def natural-rules (flatten (list vegetation-rules predation-rules)))
(def natural-rules (flatten (list vegetation-rules herbivore-rules predator-rules)))