0 const JEANNE-ANGRY
1 const CHUCK-GONE
2 const CHUCK-FOLLOW
3 const CHUCK-HOME

3 const LAST-STATE
array state LAST-STATE 8 / 1 + allot

: statef ( f -- v f ) dup 8 % 1 swap << swap 8 / state + swap ;
: state! ( b f -- ) statef f! ;
: state@ ( b f -- ) statef f@ ;
: setstate 1 swap state! ;
: clearstate 0 swap state! ;

16 18 W ' {horse} defentity p_chuck
:noname
  :| player yield
     CHUCK-FOLLOW state@ if p_chuck yield then
  done |; ' party redefine
; ' onload redefine