local location = """";
local enemycount = 0;
local enemy = {}
--general functions - Have to include these due to the lack of native bit handling in lua (and my lack of skills...)

local hex2bin = {
["0"] = "0000",
["1"] = "0001",
["2"] = "0010",
["3"] = "0011",
["4"] = "0100",
["5"] = "0101",
["6"] = "0110",
["7"] = "0111",
["8"] = "1000",
["9"] = "1001",
["a"] = "1010",
        ["b"] = "1011",
        ["c"] = "1100",
        ["d"] = "1101",
        ["e"] = "1110",
        ["f"] = "1111"
}

function Hex2Bin(s)
-- s -> hexadecimal string
local ret = ""
local i = 0
for i in string.gfind(s, ".") do
i = string.lower(i)
ret = ret..hex2bin[i]
end
return ret
end

function Dec2Bin(s, num)
-- s -> Base10 string
-- num  -> string length to extend to
local n
if (num == nil) then
n = 0
else
n = num
end
s = string.format("%x", s)
s = Hex2Bin(s)

while string.len(s) < n do
s = "0"..s
end
return s
end


while true do

--Extract current location from RAM
location = string.char(unpack(memory.readbyterange(0x7eff00,15)))
enemycount = 0

--Should have a check for when changing floors
--That way can only check and set the level name once

--Make sure in Ancient Cave
if  location ~= "Ancient Dungeon" then
--return false
gui.text(200,10,"Not In AC")
else
--Lets check if we are in battle - This value seems to only hold 01 while in battle
if memory.readbyte(0x7e02e0) == 01 then
    --We are in battle...lets display the enemy info on screen
    --Not quite sure on the max number of enemies...6 will do for now!
    -- enemy = {}
    for id = 0, 5 do
local i = id + 1
enemy[i] = {
--name = memory.readbyterange(0x7e161b + 190*i,13),
name = string.char(unpack(memory.readbyterange(0x7e155d + 190*i,13))),
hp = memory.readword(0x7e156e + 190*i),
}
enemy[i].id = id
enemy[i].active = (enemy[i].hp ~= 0)
    end

    --Display enemy info on screen
    local ypos = 2
    for i = 1, 6 do
if enemy[i].active then
    --gui.text(165,ypos,"Enemy("..enemy[i].id .."):")
    gui.text(175,ypos,"Enemy:")
gui.text(200,ypos,enemy[i].name)
gui.text(175,ypos+10,"HP:")
gui.text(187,ypos+10,enemy[i].hp)
ypos = ypos + 20
end
    end
else
    --really shouldnt be setting this twice! need to grab the whole string earlier
    -- and then compare first 15...
    location= string.char(unpack(memory.readbyterange(0x7eff00,19)))
    gui.text(138,2,"Location:")
    gui.text(175,2,location)

    gui.text(175,12,"Active Enemies:")

    --enemycount = 0
    --Check for enemies -- Not really sure how many to cap it at...19 is the most I've seen...
    for id = 0,20 do
local i = id + 1
--Getting enemy count by checking this section of memory. When an enemy is moving it has these values here
--I've found a number of enemies variable at 7FE731, but it doesnt get decremented as you kill them....
if memory.readbyte(0x7e062A + id) == 0 or memory.readbyte(0x7e062A + id) == 80 or memory.readbyte(0x7e062A + id) == 40 then
    enemycount = enemycount + 1
end
    end
    gui.text(239,12,enemycount)

    --Get the total number of chests for the level
    local totalchests = memory.readbyte(0x7FE734)

    --Seems to set a bit for each chest you open on 0x7FE733
    -- eg. Theres 5 chests on level. You open 1 chest - 7FE7ee may now hold 1 or 2,4,8,16 etc. (eg you open chest 2 - this value now equals 2 (00010) in binary    

    --convert byte to a binary array
    local dec = Dec2Bin(memory.readbyte(0x7FE733),totalchests)
    local chestsopened = 0
    for index = 1, string.len(dec) do
s = string.sub(dec,index,index)
if s == "1" then
    chestsopened = chestsopened + 1
end
    end

    local chestsremaining = totalchests - chestsopened
    gui.text(175,22,"Unopened Chests:")
            gui.text(239,22,chestsremaining)

end
end

snes9x.frameadvance()

end