to-tunnel-start ( player -- )

Vocabulary

jamshred.player

Inputs

player

an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: jamshred.player

: to-tunnel-start ( player -- )
    dup tunnel>> first
    [ >>nearest-segment ] [ location>> >>location ] bi drop ;