30 lines
722 B
Plaintext
Executable file
30 lines
722 B
Plaintext
Executable file
( 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
|
|
|
|
:| 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
|