FoAM/groworld
12
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

networking appears to work now

Browse source
This commit is contained in:
Dave Griffiths 2009-08-12 14:33:44 +01:00
parent a2d5a7cf02
commit 610762c1ee
1 changed files with 13 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
plant-eyes/view.ss
View file

@ -362,7 +362,7 @@
(pos (vector 0 0 0))
(size 0)
(col (vector 1 1 1))
(tex "ooo"))
(tex ""))
(field
(twigs '()) ; a assoc list map between ids and twigs stored flat here,
@ -467,16 +467,19 @@
(set! twigs (cons (list (send twig get-id) twig) twigs))))
(define/public (add-twig-point twig-id point width)
(send (get-twig twig-id) add-point point width))
(when (get-twig twig-id)
(send (get-twig twig-id) add-point point width)))
(define/public (start-twig-growing twig-id)
(send (get-twig twig-id) start-growing))
(when (get-twig twig-id)
(send (get-twig twig-id) start-growing)))
(define/public (grow-seed amount)
(with-primitive seed (scale amount)))
(define/public (add-ornament twig-id point-index property)
(send (get-twig twig-id) add-ornament point-index property))
(when (get-twig twig-id)
(send (get-twig twig-id) add-ornament point-index property)))
(define/public (update-nutrients t d)
(when (not (null? twigs))
@ -659,10 +662,12 @@
(send (get-plant plant-id) destroy-branch-twig twig-id))
(define/public (add-twig plant-id parent-twig-id point-index twig)
(send (get-plant plant-id) add-twig parent-twig-id point-index twig))
(when (get-plant plant-id)
(send (get-plant plant-id) add-twig parent-twig-id point-index twig)))
(define/public (grow-seed plant-id amount)
(send (get-plant plant-id) grow-seed amount))
(when (get-plant plant-id)
(send (get-plant plant-id) grow-seed amount)))
(define/public (get-pickup pickup-id)
(cadr (assq pickup-id pickups)))
@ -675,7 +680,8 @@
(set! pickups (assoc-remove pickup-id pickups)))
(define/public (add-ornament plant-id twig-id point-index property)
(send (get-plant plant-id) add-ornament twig-id point-index property))
(when (get-plant plant-id)
(send (get-plant plant-id) add-ornament twig-id point-index property)))
(define/public (update t d messages)