2019-03-14 00:43:38 +00:00
|
|
|
( O V E R W O R L D )
|
|
|
|
|
|
2019-03-16 21:03:24 +00:00
|
|
|
24 4 N ' {horse} defentity chuck
|
|
|
|
|
|
2019-03-14 00:43:38 +00:00
|
|
|
:noname
|
|
|
|
|
1 player.state DRIVING f!
|
2019-04-10 02:00:32 +00:00
|
|
|
:| player yield
|
|
|
|
|
chuck.state @ CHUCK-HOME = if chuck yield then
|
|
|
|
|
0 |; ' entities redefine
|
2019-03-14 00:43:38 +00:00
|
|
|
:|
|
|
|
|
|
touch-begin E leaving? dup
|
|
|
|
|
if pete say" It's 100 miles to the next town." then
|
|
|
|
|
touch-next 5 9 2= dup
|
2019-03-15 02:18:20 +00:00
|
|
|
if player move-entity 13 12 pete.jor queue-level then
|
2019-03-14 00:43:38 +00:00
|
|
|
touch-next 13 6 2= dup
|
2019-03-26 02:05:23 +00:00
|
|
|
if player move-entity 38 71 trail1.jor queue-level then
|
2019-03-14 00:43:38 +00:00
|
|
|
touch-next 24 6 2= dup
|
2019-03-17 16:16:36 +00:00
|
|
|
if player move-entity 13 22 jeanne.jor queue-level then
|
2019-03-15 02:18:20 +00:00
|
|
|
touch-next 39 33 2= dup
|
|
|
|
|
if pete say" School's out for the day,\looks like." then
|
|
|
|
|
touch-next 32 36 2= dup
|
|
|
|
|
if mary say" General store and post office." then
|
|
|
|
|
touch-next 35 39 2= dup
|
|
|
|
|
if pete say" Community center." then
|
|
|
|
|
touch-next tile b@ 17 = dup
|
|
|
|
|
if pete say" I'm not one to drop in\unannounced." then
|
2019-03-14 00:43:38 +00:00
|
|
|
touch-last |; ' player-touch redefine
|
|
|
|
|
s" road.map" load-map
|
|
|
|
|
|
|
|
|
|
; ' onload redefine
|
|
|
|
|
|
