Ignore:
Timestamp:
02/28/2011 03:27:39 PM (10 years ago)
Author:
dave
Message:

fixed debug

File:
1 edited

Legend:

Unmodified
Added
Removed
  • scenarios/GerminationX/oak/src/oak/plant.clj

    r1000 r1002  
    8080; the plant state machine, advance state, based on health 
    8181(defn adv-state [state health season] 
    82   (println "hello") 
    8382  (cond 
    8483   (= state 'grow-a) (cond (> health min-health) 'grow-b :else (rand-nth (list 'grow-a 'grow-b))) 
     
    114113        
    115114(defn plant-update [plant time delta neighbours rules season] 
    116   (println (str season " " (:state plant) " " (:health plant) " " (:timer plant) " " (:tick plant))) 
     115;  (println (str season " " (:state plant) " " (:health plant) " " (:timer plant) " " (:tick plant))) 
    117116  (modify 
    118117   :health 
Note: See TracChangeset for help on using the changeset viewer.