37 lines
885 B
Plaintext
37 lines
885 B
Plaintext
|
( P E T E )
|
||
|
|
|
||
|
|
13 8 N ' {car} defentity pcar
|
||
|
|
32 5 W ' {horse} defentity e_chuck
|
||
|
|
|
||
|
|
car :touch
|
||
|
|
move-player
|
||
|
|
1 player.state DRIVING f!
|
||
|
|
;entity
|
||
|
|
|
||
|
|
e_chuck :touch
|
||
|
|
mary say" Did Pete steal you?\Again!?"
|
||
|
|
chuck say" * n e i g h *\(Hi Mary!)"
|
||
|
|
;entity
|
||
|
|
|
||
|
|
:noname
|
||
|
|
:| car yield
|
||
|
|
( player.driving? not if car yield then ) ( todo: mary's car )
|
||
|
|
CHUCK-STOLEN flag@ if e_chuck yield then
|
||
|
|
done |; ' entities redefine
|
||
|
|
|
||
|
|
:|
|
||
|
|
touch-begin S leaving? dup
|
||
|
|
if player.driving? not
|
||
|
|
if mary say" I shouldn't leave my car here."
|
||
|
|
else move-player 5 10 mroad.jor queue-level
|
||
|
|
then
|
||
|
|
then
|
||
|
|
touch-next 12 7 2= player.driving? not and dup
|
||
|
|
if mary say" I don't really want to\call on Pete right now." then
|
||
|
|
touch-next 30 7 2= dup
|
||
|
|
if mary say" Yech, what a miserable\swamp." then
|
||
|
|
touch-last |; ' player-touch redefine
|
||
|
|
|
||
|
|
s" pete.map" load-map
|
||
|
|
; ' onload redefine
|