DIRS
rooms[room2].doors[(((dir+4)%DIRS)/2)].oth_room = room1;
rooms[room2].doors[(((dir+4)%DIRS)/2)].oth_row = row1;
rooms[room2].doors[(((dir+4)%DIRS)/2)].oth_col = col1;
door_dir = ((tunnel_dir + 4) % DIRS);
dir = get_rand(0, DIRS-1);
type = DIRS;
case DIRS:
case DIRS:
case DIRS: