pete286/pete.jor
2019-03-14 22:18:20 -04:00

38 lines
944 B
Plaintext
Executable file

( P E T E )
13 8 N ' {car} defentity car
car :touch
player move-entity
1 player.state DRIVING f!
;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 player move-entity 5 10 road.jor queue-level
then
then
touch-next 13 8 2= player.driving? and dup
if player move-entity
0 player.state DRIVING f!
W player entity.dir !
player move-entity
then
touch-next 12 7 2= player.driving? not and dup
if player move-entity 16 9 petehous.jor queue-level then
touch-next 30 7 2= dup
if pete say" It's... kinda swampy.\I don't wanna get wet if I\don't have to." then
touch-next 30 9 2= dup
if pete say" Feels spooky over here,\somehow." then
touch-last |; ' player-touch redefine
s" pete.map" load-map
; ' onload redefine