game-over ( gadget -- gadget )

Vocabulary

gamelib.demos.sokoban.loop

Inputs

gadget

an object

Outputs

gadget

an object

Definition

USING: accessors colors fonts gamelib.ui opengl ui.text ;

IN: gamelib.demos.sokoban.loop

: game-over ( gadget -- gadget )
    [
        { 200 200 } [
            monospace-font t >>bold? 50 >>size
            COLOR: red >>foreground "YOU WIN!" draw-text
        ] with-translation
    ] draw-quote ;