pete286/petehous.jor

15 lines
283 B
Plaintext
Executable file

( P E T E ' S H O U S E )
:noname
reset-level
16 9 tile>world player entity.pos!
:| 16 10 2= if
12 8 tile>world player entity.pos!
pete.jor queue-level
1 else 0 then
|; ' player-touch redefine
s" petehous.map" load-map
; ' onload redefine