diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2022-10-12 06:48:14 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2022-10-27 13:22:50 -0400 |
| commit | e287a11c4387382277c31735504fc762c33b4cee (patch) | |
| tree | b262dc8de64db21a7d2cb2c980f2be39805d6a34 /bonnie-bee/flower.scm | |
| parent | f713890a773a7d6ff666277592eec72f2328a5b6 (diff) | |
Switch to Catbird engine.
Diffstat (limited to 'bonnie-bee/flower.scm')
| -rw-r--r-- | bonnie-bee/flower.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/bonnie-bee/flower.scm b/bonnie-bee/flower.scm index 5e9eb12..6646ecc 100644 --- a/bonnie-bee/flower.scm +++ b/bonnie-bee/flower.scm @@ -10,9 +10,9 @@ #:use-module (chickadee scripting) #:use-module (chickadee utils) #:use-module (oop goops) - #:use-module (starling asset) - #:use-module (starling node) - #:use-module (starling node-2d) + #:use-module (catbird asset) + #:use-module (catbird node) + #:use-module (catbird node-2d) #:export (<flower> pollen-enabled? enable-pollen! @@ -66,12 +66,12 @@ (let ((p (position flower))) (if (pollen-enabled?) (begin - (audio-play (asset-ref pollen-release-sound)) + (audio-play (artifact pollen-release-sound)) (for-range ((i 16)) (let ((theta (- (* (- (random:uniform) 0.5) (/ pi 3.0)) (/ pi 2.0))) (speed (+ (* (random:uniform) 1.0) 1.0))) - (add-bullet (bullets (parent flower)) + (add-bullet (& (parent flower) bullets) pollen-pickup p (vec2 (* (cos theta) speed) (* (sin theta) speed))))) @@ -81,7 +81,7 @@ #:position (position flower) #:hitbox (make-rect -1.0 -1.0 2.0 2.0)))) (begin - (audio-play (asset-ref explosion-sound)) - (add-particle-emitter (particles (particles (parent flower))) + (audio-play (artifact explosion-sound)) + (add-particle-emitter (particles (& (parent flower) particles)) (make-particle-emitter (make-rect (vec2-x p) (vec2-y p) 1.0 1.0) 10 5)))))) |