KAR - Tempura Lua

function onScriptStart()
end

function onScriptCancel()
    MsgBox("Script ended.")
end

function onScriptUpdate()
    TempuraCount = 0
    text = ""

    p_ItemList = ReadValue32(0x812BBC54)
    --p_ItemList = ReadValue32(0x812AB108)

    Addr = p_ItemList

    while Addr ~= 0 do
        if Addr == 0 then
            goto continue
        end
        p_Next = ReadValue32(Addr+8)
        p_Prev = ReadValue32(Addr+12)
        p_Item = ReadValue32(Addr+44)
        text = text..string.format("\n Addr : %08X, Next : %08X, Prev : %08X, Item : %08X, ", Addr, p_Next, p_Prev, p_Item)

        if p_Item ~= 0 then
            ItemNum = ReadValue32(p_Item+28)
        --ItemX = ReadValueFloat(p_Item+220)
        --ItemY = ReadValueFloat(p_Item+224)
        --ItemZ = ReadValueFloat(p_Item+228)

            --text = text..string.format("%02X, %.3f, %.3f, %.3f", ItemNum, ItemX, ItemY, ItemZ)
            text = text..string.format("%02X", ItemNum)

            if ItemNum == 0x31 then
                text = text.." !!TEMPURA!!"
                TempuraCount = TempuraCount + 1
            end
        end

        Addr = p_Next
    end

    ::continue::

    text=text..string.format("\nTEMPURA : %d", TempuraCount)

    SetScreenText(text)
end