( 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? player.driving? not and dup if
       pete say" It's too far to walk to town."	then
    touch-next 12 7 2= dup if
      player.driving? not if
	petehous.jor queue-level
      then then
    touch-last |; ' player-touch redefine
  s" pete.map" load-map
; ' onload redefine