( 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
   done |; ' 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