21 lines
454 B
Plaintext
Executable file
21 lines
454 B
Plaintext
Executable file
( O V E R W O R L D )
|
|
|
|
:noname
|
|
reset-level
|
|
1 player.state DRIVING f!
|
|
|
|
:|
|
|
touch-begin E leaving? dup
|
|
if pete say" It's 100 miles to the next town." then
|
|
touch-next 5 9 2= dup
|
|
if 13 12 pete.jor queue-level then
|
|
touch-next 13 6 2= dup
|
|
if pete say" Old hiking trail." then
|
|
touch-next 24 6 2= dup
|
|
if mary say" Welcome to my place, Pete!" then
|
|
touch-last |; ' player-touch redefine
|
|
s" road.map" load-map
|
|
|
|
; ' onload redefine
|
|
|