From e287a11c4387382277c31735504fc762c33b4cee Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 12 Oct 2022 06:48:14 -0400 Subject: Switch to Catbird engine. --- bonnie-bee/turret.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'bonnie-bee/turret.scm') diff --git a/bonnie-bee/turret.scm b/bonnie-bee/turret.scm index 5aae796..61a075c 100644 --- a/bonnie-bee/turret.scm +++ b/bonnie-bee/turret.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 ()) (define-class ( )) @@ -38,15 +38,15 @@ (else #f))) (define-method (on-death (turret )) - (audio-play (asset-ref explosion-sound)) + (audio-play (artifact explosion-sound)) (let ((p (position turret))) - (add-particle-emitter (particles (particles (parent turret))) + (add-particle-emitter (particles (& (parent turret) particles)) (make-particle-emitter (make-rect (vec2-x p) (vec2-y p) 1.0 1.0) 10 3)) (for-range ((i 8)) (let ((theta (- (* (random:uniform) (/ pi -2.0)) (/ pi 4.0))) (speed (+ (* (random:uniform) 1.0) 1.0))) - (add-bullet (bullets (parent turret)) + (add-bullet (& (parent turret) bullets) medium-enemy-bullet p (vec2 (* (cos theta) speed) (* (sin theta) speed))))))) -- cgit v1.2.3