( 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

  ( TODO: DSL for touch events? )
  :| 2dup S leaving? player.driving? not and if
       pete say" It's too far to walk to town."	1 else
     2dup 12 7 2= if
       player.driving? not if pete say" TODO: Go home" then 1
     else 0 then then >rot drop drop
  |; ' player-touch redefine
  s" pete.map" load-map
; ' onload redefine