subroutine real MAP_DIR
set vari STEP = MAP_SCROLL * MAP_DIR
set vari MAP_CONT global real = MAP_CONT + STEP

image map MAP_ACT dens MAP_CONT box map_boxx map_boxy map_boxz
return