0 const JEANNE-ANGRY
1 const CHUCK-GONE
2 const CHUCK-FOLLOW
3 const CHUCK-HOME
4 const CHUCK-STOLEN
5 const CHUCK-EXPLAINED

6 const FLAG-COUNT

array flags FLAG-COUNT 8 / 1 + allot

: flagstof ( f -- v f ) dup 8 / flags + swap 8 % 1 swap << ;
: flagsf! ( b f -- ) flagstof f! ;
: flag@ ( f -- b ) flagstof f@ ;
: setflag 1 swap flagsf! ;
: clearflag 0 swap flagsf! ;

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