syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Don't stick to support when on the way past moving upward

This commit is contained in:
Tony Garnock-Jones 2015-10-26 19:09:36 -04:00
parent a3caad0be6
commit ae04b9a8fd
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
examples/platformer/game.rkt
View File

@ -456,8 +456,9 @@
(define imp0 (piece-imp state-at-beginning-of-frame id))
(define vel1 (cond
[support (piece-vel state-at-beginning-of-frame
(game-piece-configuration-id support))]
[(and support (not (negative? (vector-ref vel0 1))))
(piece-vel state-at-beginning-of-frame
(game-piece-configuration-id support))]
[(game-piece-has-attribute? g 'massive)
(v+ vel0 (vector 0 (* 0.001 elapsed-ms)))]
[else