GB The Smurfs Luascript for VBA

local dirTable = {
    [16] = 1,
    [32] = 2,
    [48] = 3
}

while true do

    Xcam = memory.readwordunsigned(0xFF97)
    Ycam = memory.readwordunsigned(0xFF99)
    Xpos = memory.readwordunsigned(0xFFA1)
    Ypos = memory.readwordunsigned(0xFFA3)
    Xvelo = memory.readbyteunsigned(0xFFCB)
    dir = memory.readbyteunsigned(0xFFEF)

    timerTen = memory.readbyteunsigned(0xF9CD)
    timerOne = memory.readbyteunsigned(0xF9CE)
    timerSub = memory.readbyteunsigned(0xF93E)

    rng = memory.readbyteunsigned(0xFAB1)
    gui.opacity(0.7)
    --vba lua sucks bad ??!?!?!?
    --colors and gui.box are broken in vba23.5 ?
    gui.box(0,0,240,1,0xffff0000)
    gui.box(0,2,240,3,0xffff0000)
    gui.box(0,4,240,5,0xffff0000)
    gui.box(0,6,240,7,0xffff0000)
    gui.box(0,8,240,9,0xffff0000)
    gui.box(0,10,240,11,0xffff0000)
    gui.box(0,12,240,13,0xffff0000)
    gui.box(0,14,240,15,0xffff0000)
    gui.box(0,16,240,17,0xffff0000)
    gui.opacity(1.0)
    gui.text(0,0,"velX " .. Xvelo,0xFffFff)
    gui.text(0,8,"dir " .. tostring(dirTable[dir]),0xFFFfff)
    gui.text(40,0,"X " .. Xpos,0xFFFFff)
    gui.text(40,8,"Y " .. Ypos,0xFFFFff)
    gui.text(80,0,"camX " .. Xcam,0xFFFFff)
    gui.text(80,8,"camY " .. Ycam,0xFFFFff)
    gui.text(120,0,"t " .. timerTen .. timerOne .. " " .. timerSub,0xFFFFff)
    gui.text(120,8,"rng " .. rng,0xFFFFff)

    emu.frameadvance()
end