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

don't allow moving the tetris blocks when game is paused, display paused in the status bar

Doug Coleman 2009-11-30 17:51:29 -06:00
parent acaba0f087
commit 63ac2e69d5
1 changed files with 19 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
extra/tetris/tetris.factor
View File

@ -13,8 +13,9 @@ M: tetris-gadget pref-dim* drop { 200 400 } ;
: update-status ( gadget -- ) : update-status ( gadget -- )
dup tetris>> [ dup tetris>> [
"Level: " % dup level>> # [ "Level: " % level>> # ]
" Score: " % score>> # [ " Score: " % score>> # ]
[ paused?>> [ " (Paused)" % ] when ] tri
] "" make swap show-status ; ] "" make swap show-status ;
M: tetris-gadget draw-gadget* ( gadget -- ) M: tetris-gadget draw-gadget* ( gadget -- )
@ -25,17 +26,24 @@ M: tetris-gadget draw-gadget* ( gadget -- )
: new-tetris ( gadget -- gadget ) : new-tetris ( gadget -- gadget )
[ <new-tetris> ] change-tetris ; [ <new-tetris> ] change-tetris ;
: unless-paused ( tetris quot -- )
over tetris>> paused?>> [
2drop
] [
call
] if ; inline
tetris-gadget H{ tetris-gadget H{
{ T{ button-down f f 1 } [ request-focus ] } { T{ button-down f f 1 } [ request-focus ] }
{ T{ key-down f f "UP" } [ tetris>> rotate-right ] } { T{ key-down f f "UP" } [ [ tetris>> rotate-right ] unless-paused ] }
{ T{ key-down f f "d" } [ tetris>> rotate-left ] } { T{ key-down f f "d" } [ [ tetris>> rotate-left ] unless-paused ] }
{ T{ key-down f f "f" } [ tetris>> rotate-right ] } { T{ key-down f f "f" } [ [ tetris>> rotate-right ] unless-paused ] }
{ T{ key-down f f "e" } [ tetris>> rotate-left ] } ! dvorak d { T{ key-down f f "e" } [ [ tetris>> rotate-left ] unless-paused ] }
{ T{ key-down f f "u" } [ tetris>> rotate-right ] } ! dvorak f { T{ key-down f f "u" } [ [ tetris>> rotate-right ] unless-paused ] }
{ T{ key-down f f "LEFT" } [ tetris>> move-left ] } { T{ key-down f f "LEFT" } [ [ tetris>> move-left ] unless-paused ] }
{ T{ key-down f f "RIGHT" } [ tetris>> move-right ] } { T{ key-down f f "RIGHT" } [ [ tetris>> move-right ] unless-paused ] }
{ T{ key-down f f "DOWN" } [ tetris>> move-down ] } { T{ key-down f f "DOWN" } [ [ tetris>> move-down ] unless-paused ] }
{ T{ key-down f f " " } [ tetris>> move-drop ] } { T{ key-down f f " " } [ [ tetris>> move-drop ] unless-paused ] }
{ T{ key-down f f "p" } [ tetris>> toggle-pause ] } { T{ key-down f f "p" } [ tetris>> toggle-pause ] }
{ T{ key-down f f "n" } [ new-tetris drop ] } { T{ key-down f f "n" } [ new-tetris drop ] }
} set-gestures } set-gestures