2019-03-10 00:59:52 +00:00
|
|
|
: blah ' seremit task-emit ! ;
|
|
|
|
|
blah
|
|
|
|
|
|
2019-04-26 01:55:23 +00:00
|
|
|
s" game.log" open seekend fdeactivate const LOGFILE
|
2019-04-27 15:12:39 +00:00
|
|
|
: emit-log ' fputc LOGFILE withfp ;
|
2019-04-26 01:55:23 +00:00
|
|
|
: atexit LOGFILE factivate close ;
|
|
|
|
|
|
|
|
|
|
: start-repl activate blah ' emit-log task-echo !
|
2019-03-10 00:59:52 +00:00
|
|
|
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
|
2019-03-10 23:51:24 +00:00
|
|
|
defer loadlevel
|
2019-03-10 00:59:52 +00:00
|
|
|
|
|
|
|
|
:noname
|
|
|
|
|
s" input.jor" loadfile
|
|
|
|
|
s" entity.jor" loadfile
|
|
|
|
|
s" timer.jor" loadfile
|
|
|
|
|
s" footer.jor" loadfile
|
|
|
|
|
s" map.jor" loadfile
|
|
|
|
|
s" game.jor" loadfile
|
2019-03-26 02:05:23 +00:00
|
|
|
s" state.jor" loadfile
|
2019-03-10 23:51:24 +00:00
|
|
|
; execute
|
2019-03-10 00:59:52 +00:00
|
|
|
|
2019-03-10 23:51:24 +00:00
|
|
|
intern pete.jor
|
|
|
|
|
intern petehous.jor
|
2019-03-14 00:43:38 +00:00
|
|
|
intern road.jor
|
2019-03-17 16:16:36 +00:00
|
|
|
intern jeanne.jor
|
2019-03-26 02:05:23 +00:00
|
|
|
intern trail1.jor
|
2019-03-10 23:51:24 +00:00
|
|
|
|
|
|
|
|
:noname loadfile ; checkpoint _loadlevel
|
|
|
|
|
' _loadlevel ' loadlevel redefine
|
|
|
|
|
|
2019-04-27 15:12:39 +00:00
|
|
|
pete.jor loadlevel
|
