pete286/mpete.jor

37 lines
885 B
Plaintext
Executable file

( 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