while true do

x = 0
y = 0

xpos = memory.readbyte(0xc53c)*256+memory.readbyteunsigned(0xc53d)
ypos = memory.readbyte(0xc53a)*256+memory.readbyteunsigned(0xc53b)
xcam = memory.readbyte(0xffaf)*256+memory.readbyte(0xffb0)
ycam = memory.readbyte(0xffad)*256+memory.readbyte(0xffae)
xcam2 = memory.readbyte(0xffa2)
ycam2 = memory.readbyte(0xffa0)

if memory.readbyte(0xffb2) < 64 and memory.readbyte(0xffb3) > 102 then y = 46 else y = 0 end

gui.opacity(0.75)
gui.drawbox(96+x,0+y,160+x,20+y,"#861175")
gui.opacity(0.80)

gui.text(110+x,0+y, "Pos    Cam", "yellow")
gui.text(100+x,7+y, "X", "yellow")
gui.text(100+x,13+y, "Y", "yellow")
gui.text(110+x,7+y, xpos)
gui.text(110+x,13+y, ypos)
gui.text(138+x,7+y, xcam)
gui.text(138+x,13+y, ycam)

-- enemy x,y display

for i = 0xD000, 0xD0FF, 32 do
     if memory.readbyte(i+0) ~= 0 then
          local xenemy = memory.readbyte(i+6)*256+memory.readbyte(i+5)
          local yenemy = memory.readbyte(i+4)*256+memory.readbyte(i+3)
gui.opacity(0.62)
gui.drawbox(xenemy-xcam-6,yenemy-ycam-3,xenemy-xcam+18,yenemy-ycam+10,"#861175")
gui.opacity(0.9)
gui.text(xenemy-xcam-5,yenemy-ycam-2,"X " ..xenemy)
gui.text(xenemy-xcam-5,yenemy-ycam+4,"Y " ..yenemy)
end
end

-- final boss fuel

-- if memory.readbyte(0xd038) ~= 0 then gui.text(36,3, "Fuel", "yellow") end
-- if memory.readbyte(0xd038) ~= 0 then gui.text(58,3, memory.readbyte(0xd037)) end
-- if memory.readbyte(0xd038) ~= 0 then gui.text(78,3, memory.readbyte(0xd038)) end


vba.frameadvance()
end