s" curses.fth" included

create player 0 , 0 ,

300 constant max-enemies

4 cells constant enemy-memory-size
max-enemies enemy-memory-size * constant enemies-memory-size

create enemies enemies-memory-size allot

enemies enemies-memory-size erase

0 value total-enemies


: x ;
: y   cell+ ;

: move-right   x 1 swap +! ;
: move-down   y 1 swap +! ;
: move-left   x -1 swap +! ;
: move-up   y -1 swap +! ;

: enemy   enemy-memory-size * enemies + ;

: enemy-behavior
    cr dup x @ . cr y @ . cr ;
    
: iterate-enemies
    total-enemies 0 ?do i enemy enemy-behavior loop ;

: next-enemy   total-enemies enemy ;

: make-enemy
    next-enemy y !
    next-enemy x !
    total-enemies 1+ to total-enemies
;

0 24 make-enemy
3 4 make-enemy
5 2 make-enemy
iterate-enemies