pete286/petehous.jor
2019-03-14 22:18:20 -04:00

21 lines
596 B
Plaintext
Executable file

( P E T E ' S H O U S E )
:noname
reset-level
:|
touch-begin 16 10 2= dup if
player move-entity 12 8 pete.jor queue-level
then touch-next 9 4 2= dup if
pete say" The closet is a disaster.\I don't want to deal with that\right now."
then touch-next 11 4 2= dup if
pete say" I'm already dressed."
then touch-next 16 3 2= dup if
pete say" The sink's full of nasty dishes.\I'm not touching them."
then touch-next 18 3 2= dup if
pete say" Should get some more beer soon."
then touch-last |; ' player-touch redefine
s" petehous.map" load-map
; ' onload redefine