Для меня было сложно писать на бейсе пояснения, так что зырьте на яве. Весь код откоментирован. Допустим наш массив это
%lvl. 0 - дорога . 1- препятствие.

for(int i=0;i<lvl1y;i++){
rem for %i=0<%lvl1y do
//Y
for(int j=0;j<lvl1x;j++){
rem for %j=0<lvl1x do

//X
switch(lvl1[i*lvl1x+j]){
rem аналога свитча в бейсе нету. Но это вроде кучи ифов.
if %lvl1(%i*%lvl1x+%j)=0 then setColor(200,200,200):fillRect(%x,%y+%i*%lvl1y,10,10)
next %j
next %i
понятно, нет?
двигаем х,у двигаем всю карту.