neuttower/gameboot.jor

43 lines
854 B
Plaintext
Raw Normal View History

2020-02-02 23:33:07 +00:00
: blah ' seremit task-emit ! ;
blah
0 const DEV
: devon 1 ' DEV redefine ;
2020-02-02 23:33:07 +00:00
s" game.log" open seekend fdeactivate const LOGFILE
: emit-log ' fputc LOGFILE withfp ;
: atexit LOGFILE factivate close ;
: start-repl activate blah ' emit-log task-echo !
s" .:: J O R T H ( jean forth) ::." type cr
begin receive loadstring s" ok" type cr again ;
task const REPL
REPL start-repl
defer tick
defer draw
defer loadlevel
:noname
s" input.jor" loadfile
s" timer.jor" loadfile
s" entity.jor" loadfile
s" footer.jor" loadfile
s" map.jor" loadfile
s" state.jor" loadfile
s" jiles.jor" loadfile
s" job.jor" loadfile
s" level.jor" loadfile
2020-02-02 23:33:07 +00:00
s" game.jor" loadfile
s" debug.jor" loadfile
2020-02-02 23:33:07 +00:00
; execute
' load-new-level checkpoint _loadlevel
2020-02-02 23:33:07 +00:00
' _loadlevel ' loadlevel redefine
reset-level
6 loadlevel
draw unfuck load-footer