33 lines
528 B
Plaintext
Executable File
33 lines
528 B
Plaintext
Executable File
# Magical closet: the object is always in the LAST opened closet
|
|
|
|
:use
|
|
> [left_closet_open]
|
|
stop
|
|
|
|
set_global left_closet_open true
|
|
inc_global open_closets 1
|
|
|
|
> [lt open_closets 3]
|
|
set_state r9_closet_left open_no_object
|
|
stop
|
|
|
|
> [eq open_closets 3]
|
|
set_state r9_closet_left open_object
|
|
stop
|
|
|
|
|
|
:open
|
|
> [left_closet_open]
|
|
stop
|
|
|
|
set_global left_closet_open true
|
|
inc_global open_closets 1
|
|
|
|
> [lt open_closets 3]
|
|
set_state r9_closet_left open_no_object
|
|
stop
|
|
|
|
> [eq open_closets 3]
|
|
set_state r9_closet_left open_object
|
|
stop
|