javapool/main.fs

\ JAVAPOOL incremental game
\ this code likely sucks, because I'm bad at forth and figuring stuff out as I go.

\ initialise some variables that encode game state.
\ the variable "counter" holds the count of the current tick. It always starts at 0.
variable counter 

\ the word tick waits a game tick. Pretty much 1/60th of a second.
: tick   16 ms ; 

\ the word tick-up ticks the counter up
: tick-up   tick 1 counter +! ;

\ TODO cleanup, saving
: exit-game   bye ;

: handle-input 
    key? if key case 
        [char] q of exit-game endof
    endcase then ;

\ TODO this is a stub
: draw-screen   counter @ . ;

\ main game loop
: game-loop   begin tick-up handle-input draw-screen 0 until ;

\ clear the screen and start the game
page game-loop