pete286/pete.jor

25 lines
582 B
Plaintext
Raw Normal View History

( P E T E )
13 8 N ' {car} defentity car
car :touch
1 player.state DRIVING f!
car entity>pos player entity.pos!
;entity
:noname
:| player yield
player.driving? not if car yield then
0 |; ' entities redefine
( TODO: DSL for touch events? )
:| 2dup S leaving? player.driving? not and if
pete say" It's too far to walk to town." 1 else
2dup 12 7 2= if
player.driving? not if pete say" TODO: Go home" then 1
else 0 then then >rot drop drop
|; ' player-touch redefine
s" pete.map" load-map
; ' onload redefine