pete286/gameboot.jor

44 lines
897 B
Plaintext
Raw Normal View History

: blah ' seremit task-emit ! ;
blah
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
2019-05-19 17:34:27 +00:00
s" entity.jor" loadfile
s" footer.jor" loadfile
s" map.jor" loadfile
s" state.jor" loadfile
2019-08-08 02:25:27 +00:00
s" jiles.jor" loadfile
2019-06-26 01:58:52 +00:00
s" game.jor" loadfile
; execute
intern pete.jor
intern petehous.jor
2019-03-14 00:43:38 +00:00
intern road.jor
intern jeanne.jor
intern trail1.jor
2019-09-29 03:19:02 +00:00
intern space.jor
intern mpete.jor
intern mroad.jor
intern mjeanne.jor
intern mtrail1.jor
:noname loadfile ; checkpoint _loadlevel
' _loadlevel ' loadlevel redefine
pete.jor loadlevel