?move-player-freely ( d-left player -- d-left' player )

Vocabulary

jamshred.player

Inputs

d-left	an object
player	an object

Outputs

d-left'	an object
player	an object

Definition

USING: accessors kernel math ;

IN: jamshred.player

: ?move-player-freely ( d-left player -- d-left' player )
    over 0 > [
        dup distance-to-move-freely dup 0.1 > [
            over forward>> move-player-on-heading
            ?move-player-freely
        ] [ drop ] if
    ] when ;