( 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