BirDt/imugi
1
0
Fork 0
Code Issues 14 Pull requests Projects 1 Wiki Activity Actions

Ensure boost acts on all balls

Browse source
This commit is contained in:
BirDt_ 2026-04-17 22:41:30 +08:00
parent da164ae3c4
commit 04e3ec5fa6
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
samples/bounce.scm
View file

@ -107,11 +107,19 @@
'entity 'entity
'(<rigidbody-2d>) '(<rigidbody-2d>)
(lambda (_ rbody) (lambda (_ rbody)
(when (pop-event 'input 'boost) (when (peek-event 'input 'boost)
(set-rigidbody-2d-velocity! rbody (set-rigidbody-2d-velocity! rbody
(v* 2 (v* 2
(rigidbody-2d-velocity rbody))))))) (rigidbody-2d-velocity rbody)))))))
(add-system
(make-system 'clear-boost
4
'global
'()
(lambda ()
(pop-event 'input 'boost))))
(define (make-ball position velocity color) (define (make-ball position velocity color)
(create-entity (create-entity
(make-visual-2d (make-visual-2d