2019-05-18 19:30:58 +00:00
|
|
|
0 const JEANNE-ANGRY
|
|
|
|
|
1 const CHUCK-GONE
|
2019-04-10 02:00:32 +00:00
|
|
|
2 const CHUCK-FOLLOW
|
|
|
|
|
3 const CHUCK-HOME
|
2019-05-18 19:30:58 +00:00
|
|
|
|
|
|
|
|
3 const LAST-STATE
|
2019-05-19 17:34:27 +00:00
|
|
|
array flags LAST-STATE 8 / 1 + allot
|
2019-05-18 19:30:58 +00:00
|
|
|
|
2019-05-19 17:34:27 +00:00
|
|
|
: flagstof ( f -- v f ) dup 8 % 1 swap << swap 8 / flags + swap ;
|
|
|
|
|
: flagsf! ( b f -- ) flagstof f! ;
|
|
|
|
|
: state@ ( b f -- ) flagstof f@ ;
|
|
|
|
|
: setstate 1 swap flagsf! ;
|
|
|
|
|
: clearstate 0 swap flagsf! ;
|
2019-05-01 01:15:25 +00:00
|
|
|
|
|
|
|
|
16 18 W ' {horse} defentity p_chuck
|
|
|
|
|
:noname
|
|
|
|
|
:| player yield
|
2019-05-18 19:30:58 +00:00
|
|
|
CHUCK-FOLLOW state@ if p_chuck yield then
|
2019-05-01 01:15:25 +00:00
|
|
|
done |; ' party redefine
|
|
|
|
|
; ' onload redefine
|
