toggle-running ( jamshred -- )

Vocabulary

jamshred.game

Inputs

jamshred

an object

Outputs

None

Definition

USING: accessors jamshred.player kernel ;

IN: jamshred.game

: toggle-running ( jamshred -- )
    dup running>>
    [ f >>running drop ]
    [ [ jamshred-player moved ] [ t >>running drop ] bi ] if ;