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

debugging the server

File:
1 edited

Legend:

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

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