Don't stick to support when on the way past moving upward
This commit is contained in:
parent
a3caad0be6
commit
ae04b9a8fd
|
@ -456,8 +456,9 @@
|
||||||
(define imp0 (piece-imp state-at-beginning-of-frame id))
|
(define imp0 (piece-imp state-at-beginning-of-frame id))
|
||||||
|
|
||||||
(define vel1 (cond
|
(define vel1 (cond
|
||||||
[support (piece-vel state-at-beginning-of-frame
|
[(and support (not (negative? (vector-ref vel0 1))))
|
||||||
(game-piece-configuration-id support))]
|
(piece-vel state-at-beginning-of-frame
|
||||||
|
(game-piece-configuration-id support))]
|
||||||
[(game-piece-has-attribute? g 'massive)
|
[(game-piece-has-attribute? g 'massive)
|
||||||
(v+ vel0 (vector 0 (* 0.001 elapsed-ms)))]
|
(v+ vel0 (vector 0 (* 0.001 elapsed-ms)))]
|
||||||
[else
|
[else
|
||||||
|
|
Loading…
Reference in New Issue