-- d&!d
-- by anton wolfarth

state = 1

player = {}
-- player.[up,down,left,right] = {still, anim1, anim2}
player.down = {1,2,3}
player.up = {8,9,10}
player.left = {4,5,4}
player.right = {6,7,6}

rooms = {}

err = ""

gold = 0

function aabb(x1,y1,w1,x2,y2,w2)
    return
end

function _init()

end

function _update()
    if(state == 1)then
        generatemap()
        state = 2
    end
    if(state == 2)then

    end
end

function drawrooms(room)
    print(room.x .. ", " .. room.y .. ". " .. room.width .. ", " ..  room.height)

    --rect(room.x, room.y, room.x+room.width, room.y, room.y+room.height, 2)
end

function _draw()
    cls()
    foreach(rooms, drawrooms)
    print(err)
    print(#rooms)
end
-->8
-- map generation
function generatemap()
    -- parent, left, right, depth, x,y,w,h
    tree = {parent = nil,
            left = nil,
            right = nil,
            depth = 0,
            x = 0,
            y = 0,
            width = 256,
            height = 256
    }
    makechildren(5, tree)

    makerooms(tree)
end

function makechildren(maxdepth,parent)
        xy = flr(rnd(2))
        box1 = {} 
        box2 = {}
        if(xy == 0) then
            -- split by x
            box1.width = flr(rnd(parent.width / 3)+parent.width / 3)
            box2.width = parent.width - box1.width
            box1.height = parent.height
            box2.height = parent.height
            box1.x = parent.x
            box2.x = parent.x + box1.width + 1
            box1.y = parent.y
            box2.y = parent.y

        else
            -- split by y
            box1.height = flr(rnd(parent.height/3)+parent.height/3)
            box2.height = parent.height - box1.height
            box1.width = parent.width
            box2.width = parent.width
            box1.y = parent.y
            box2.y = parent.y + box1.height + 1
            box1.x = parent.x
            box2.x = parent.x
        end

        box1.depth = parent.depth + 1
        box2.depth = parent.depth + 1

        parent.left = box1
        parent.right = box2
        box1.parent = parent
        box2.parent = parent        

        if(
                box1.depth < maxdepth and
                box1.width > 5 and
                box1.height > 5
        )then
            makechildren(maxdepth, box1)
        else
            parent.left = nil   
        end

        if(
                box2.depth < maxdepth and
                box2.width > 5 and
                box2.height > 5
        )then
            makechildren(maxdepth, box2)
        else
            parent.right = nil  
        end
end

function makerooms(tree)
    err =  err .. tree.depth .. ", "
 if(tree.left != nil)then
    makerooms(tree.left)
    err = err .. "l"
 end

 if(tree.right != nil)then
    makerooms(tree.right)
    err = err .. "r"
 end

 if(tree.left == nil and tree.right == nil)then
    generateroom(tree)
 end
end

function generateroom(leaf)
    add(rooms, {
            x = leaf.x, 
            y = leaf.y,
            width = leaf.width,
            height = leaf.height            
    })
end