steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jamshred: slow the player down when they hit a wall

db4
Alex Chapman 2008-05-15 17:00:19 +10:00
parent 0a44f2be8b
commit 12be2d1b9c
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/jamshred/player/player.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2007 Alex Chapman ! Copyright (C) 2007 Alex Chapman
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors colors jamshred.log jamshred.oint jamshred.sound jamshred.tunnel kernel math math.constants math.order math.ranges shuffle sequences system ; USING: accessors colors combinators jamshred.log jamshred.oint jamshred.sound jamshred.tunnel kernel math math.constants math.order math.ranges shuffle sequences system ;
IN: jamshred.player IN: jamshred.player
TUPLE: player < oint name sounds tunnel nearest-segment last-move speed ; TUPLE: player < oint name sounds tunnel nearest-segment last-move speed ;
@ -38,6 +38,9 @@ TUPLE: player < oint name sounds tunnel nearest-segment last-move speed ;
: change-player-speed ( inc player -- ) : change-player-speed ( inc player -- )
[ + speed-range clamp-to-range ] change-speed drop ; [ + speed-range clamp-to-range ] change-speed drop ;
: multiply-player-speed ( n player -- )
[ * speed-range clamp-to-range ] change-speed drop ;
: distance-to-move ( player -- distance ) : distance-to-move ( player -- distance )
[ speed>> ] [ last-move>> millis dup >r swap - 1000 / * r> ] [ speed>> ] [ last-move>> millis dup >r swap - 1000 / * r> ]
[ (>>last-move) ] tri ; [ (>>last-move) ] tri ;
@ -46,8 +49,12 @@ DEFER: (move-player)
: ?bounce ( distance-remaining player -- ) : ?bounce ( distance-remaining player -- )
over 0 > [ over 0 > [
[ dup nearest-segment>> bounce ] [ sounds>> bang ] {
[ (move-player) ] tri [ dup nearest-segment>> bounce ]
[ sounds>> bang ]
[ 3/4 swap multiply-player-speed ]
[ (move-player) ]
} cleave
] [ ] [
2drop 2drop
] if ; ] if ;