2019-09-29 03:19:02 +00:00
|
|
|
0 const JEANNE-ANGRY userword
|
|
|
|
|
1 const CHUCK-GONE userword
|
|
|
|
|
2 const CHUCK-FOLLOW userword
|
|
|
|
|
3 const CHUCK-HOME userword
|
|
|
|
|
4 const CHUCK-STOLEN userword
|
|
|
|
|
5 const CHUCK-EXPLAINED userword
|
|
|
|
|
6 const NIGHT userword
|
2019-05-18 19:30:58 +00:00
|
|
|
|
2019-06-26 01:58:52 +00:00
|
|
|
7 const FLAG-COUNT
|
2019-05-18 19:30:58 +00:00
|
|
|
|
2019-05-20 19:12:25 +00:00
|
|
|
array flags FLAG-COUNT 8 / 1 + allot
|
|
|
|
|
|
|
|
|
|
: flagstof ( f -- v f ) dup 8 / flags + swap 8 % 1 swap << ;
|
2019-05-19 17:34:27 +00:00
|
|
|
: flagsf! ( b f -- ) flagstof f! ;
|
2019-09-29 03:19:02 +00:00
|
|
|
: flag@ ( f -- b ) flagstof f@ ; userword
|
|
|
|
|
: setflag 1 swap flagsf! ; userword
|
|
|
|
|
: clearflag 0 swap flagsf! ; userword
|
2019-05-01 01:15:25 +00:00
|
|
|
|
2019-09-29 03:19:02 +00:00
|
|
|
: day s" tiles.gfx" loadtiles invalidate-map NIGHT clearflag ; userword
|
|
|
|
|
: night s" ntiles.gfx" loadtiles invalidate-map NIGHT setflag ; userword
|
2019-06-26 01:58:52 +00:00
|
|
|
|
|
|
|
|
: {car-drive} NIGHT flag@ if {car-lit} else {car} then ;
|
|
|
|
|
|
