pete286/pete.jor

30 lines
722 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
2019-03-14 00:43:38 +00:00
:| touch-begin S leaving? dup
if player.driving? not
if pete say" It's too far to walk to town."
else 5 10 road.jor queue-level
then
then
touch-next 13 8 2= player.driving? and dup
if 0 player.state DRIVING f!
12 8 tile>world player entity.pos!
then
touch-next 12 7 2= player.driving? not and dup
if 16 9 petehous.jor queue-level then
touch-last |; ' player-touch redefine
s" pete.map" load-map
; ' onload redefine