x = 3;
y = 3;

while (x < 60){
while (y < 40){

if (get_floor(x , y) == 71) {

if (get_floor(x , y - 1) != 71) {set_terrain(x,y,2);} // North
if (get_floor(x - 1 , y) != 71) {set_terrain(x,y,3);} // West
if (get_floor(x , y + 1) != 71) {set_terrain(x,y,4);} // South
if (get_floor(x + 1 , y) != 71) {set_terrain(x,y,5);} // East

if ((get_floor(x , y - 1) != 71) && (get_floor(x - 1 , y) != 71)) {set_terrain(x,y,6);} // North and West
if ((get_floor(x , y + 1) != 71) && (get_floor(x - 1 , y) != 71)) {set_terrain(x,y,7);} // West and South
if ((get_floor(x , y + 1) != 71) && (get_floor(x + 1 , y) != 71)) {set_terrain(x,y,8);} // South and East
if ((get_floor(x , y - 1) != 71) && (get_floor(x + 1 , y) != 71)) {set_terrain(x,y,9);} // East and North
}

y = y + 1;
}
y = 3;
x = x + 1;
}

// Assumes that the only regular floor is 1, and everything to be surrounded with walls is 0
set_flag(100,0,0); // None: No terrain
set_flag(100,1,3); // West
set_flag(100,2,4); // South
set_flag(100,3,7); // South & West
set_flag(100,4,5); // East
set_flag(100,5,0); // East & West: No terrain
set_flag(100,6,8); // East & South
set_flag(100,7,0); // East, South, West: No terrain
set_flag(100,8,2); // North
set_flag(100,9,6); // North & West
set_flag(100,10,0); // North & South: No terrain
set_flag(100,11,0); // North, South, West: No terrain
set_flag(100,12,9); // North & East
set_flag(100,13,0); // North, East, West: No terrrain
set_flag(100,14,0); // North, East, South: No terrain
set_flag(100,15,0); // North, East, South, West: No terrain

x = 3;

while (x < 60) {
y = 3;
while (y < 40) {
if (get_floor(x, y) == 0) {

i = 8*get_floor(x , y - 1) + 4*get_floor(x + 1 , y) + 2*get_floor(x , y + 1) + get_floor(x - 1 , y);

set_terrain(x, y, get_flag(100, i));
}
y = y + 1;
}
x = x + 1;
}