unitxt.lua

local unitxtPointer = 0x00A9CD50
local specialBaseID = 0x005E4CBB
--unitxtItemName = 0x04
--unitxtMonsterName = 0x08
--unitxtItemDesc = 0x0C
--unitxtMonsterNameUlt = 0x10

local srankSpecial =
{
    "", "Jellen", "Zalure", "HP Regeneration", "TP Regeneration",
    "Burning", "Tempest", "Blizzard", "Arrest", "Chaos", "Hell",
    "Spirit", "Berserk", "Demon's", "Gush", "Geist", "King's",
}
local magColor =
{
    "Red", "Blue", "Yellow", "Green", "Purple", "Black", "White",
    "Cyan", "Brown", "Orange", "Slate Blue", "Olive", "Turquoise",
    "Fuschia", "Grey", "Cream", "Pink", "Dark Green",
}

-- Internal function to read text from the unitxt
local function _Read(group, index)
    address = pso.read_u32(unitxtPointer)
    if address == 0 then
        return nil
    end

    address = address + (group * 4)
    address = pso.read_u32(address)
    if address == 0 then
        return nil
    end

    address = address + 4 * index
    address = pso.read_u32(address)
    if address == 0 then
        return nil
    end

    return pso.read_wstr(address, 256)
end

-- Public function to read a string from a
-- given string group in the unitxt
local function Read(group, index)
    return _Read(group, index)
end

-- Reads item names from the unitxt with the given id, from the PMT data
local function GetItemName(index)
    if index == -1 then
        return "???"
    end
    return _Read(1, index)
end

-- Reads a special name based on it's index
local function GetSpecialName(id)
    if id == 0 then
        return "None"
    end

    baseID = pso.read_u32(specialBaseID)
    return GetItemName(baseID + id)
end

-- Reads a monster name based on it's ID.
-- If ultimate is true, ultimate names will be used
local function GetMonsterName(index, ultimate)
    ultimate = ultimate or false
    if ultimate then
        return _Read(4, index)
    else
        return _Read(2, index)
    end
end

-- Reads a technique names based on the technique ID
local function GetTechniqueName(id)
    return _Read(5, id)
end

-- Reads class names based on the class ID
local function GetClassName(id)
    return _Read(8, id)
end

-- Reads photon blast names based on it's id
-- If shortName is true, only the first character
-- of the name will be read
local function GetPhotonBlastName(id, shortName)
    shortName = shortName or false

    if id < 0 then
        return " "
    end

    local result = _Read(9, id)
    if shortName == true then
        result = string.sub(result, 1, 1)
    end

    return result
end

-- Reads the encoded srank name from the item data
local function GetSRankName(itemData)
    if itemData == null then
        return "Null"
    end
    if table.getn(itemData) < 12 then
        return "Invalid length"
    end

    local result = ""
    local temp = 0
    for i=1,6,2 do
        local n = bit.lshift(itemData[7 + i - 1], 8) + itemData[8 + i - 1]
        n = n - 0x8000

        temp = math.floor(n / 0x400) + 0x40
        if temp > 0x40 and temp < 0x60 and i ~= 1 then
            result = result .. string.char(temp)
        end
        n = n % 0x400

        temp = math.floor(n / 0x20) + 0x40
        if temp > 0x40 and temp < 0x60 then
            result = result .. string.char(temp)
        end
        n = n % 0x20

        temp = n + 0x40
        if temp > 0x40 and temp < 0x60 then
            result = result .. string.char(temp)
        end
    end
    return result
end

-- Reads srank special name
local function GetSRankSpecialName(index)
    -- adjust index to lua 1 based crap
    index = index + 1
    if index > table.getn(srankSpecial) then
        return "Invalid special"
    end

    return srankSpecial[index]
end

-- Reads mag color name
local function GetMagColor(index)
    -- adjust index to lua 1 based crap
    index = index + 1
    if index > table.getn(magColor) then
        return "Not set"
    end

    return magColor[index]
end

return
{
    Read = Read,
    GetItemName = GetItemName,
    GetSpecialName = GetSpecialName,
    GetMonsterName = GetMonsterName,
    GetTechniqueName = GetTechniqueName,
    GetClassName = GetClassName,
    GetPhotonBlastName = GetPhotonBlastName,

    -- Not actually related to unitxt
    GetSRankName = GetSRankName,
    GetSRankSpecialName = GetSRankSpecialName,
    GetMagColor = GetMagColor,
}