30 lines
601 B
Plaintext
30 lines
601 B
Plaintext
|
( T R A I L 1 )
|
||
|
|
|
||
|
|
39 71 N ' {car} defentity car
|
||
|
|
|
||
|
|
car :touch
|
||
|
|
move-player 1 player.state DRIVING f!
|
||
|
|
;entity
|
||
|
|
|
||
|
|
:noname
|
||
|
|
0 player.state DRIVING f!
|
||
|
|
|
||
|
|
:| player.driving? not if car yield then
|
||
|
|
done |; ' entities redefine
|
||
|
|
|
||
|
|
:|
|
||
|
|
touch-begin S leaving? dup
|
||
|
|
if player.driving? not CHUCK-FOLLOW flag@ not and
|
||
|
|
if mary say" I'd best drive."
|
||
|
|
else move-player 13 7 mroad.jor queue-level
|
||
|
|
then
|
||
|
|
then
|
||
|
|
touch-next 3 56 2= dup
|
||
|
|
if mary say" What on Earth...?"
|
||
|
|
say" Is this where...?"
|
||
|
|
then
|
||
|
|
touch-last |; ' player-touch redefine
|
||
|
|
|
||
|
|
s" trail1.map" load-map
|
||
|
|
; ' onload redefine
|