SolarStrike Software

Code: Select all

GetIdName("<s>123456")

Code: Select all

		elseif tonumber(subKeyString) then -- Must be id
			translatedSubTEXT = GetIdName(tonumber(subKeyString))
		elseif subKeyString:sub(1,3) =="<S>" then -- Must be id plural

Code: Select all

single = GetIdName(id)
plural = GetIdName("<S>"..id)

Code: Select all

single = GetIdName(id)
plural = GetIdName(id, true)

Code: Select all

-- Returns the name for a given id
function GetIdName(itemId,plural)
	plural = plural or false
	if plural == true then pluralOffset = 4 else pluralOffset = 0 end
	if itemId ~= nil and itemId > 0 then
		local itemAddress = GetItemAddress(itemId)
		if itemAddress ~= nil and itemAddress > 0 then
			local name = memoryReadStringPtr(getProc(), itemAddress + addresses.nameOffset + pluralOffset, 0)
			if name == "" and plural then
				name = memoryReadStringPtr(getProc(), itemAddress + addresses.nameOffset, 0)
			end
			if name == nil then
				-- Item data not totally substantiated yet. Do "GetCraftRequestItem", then the address will exist.
				if RoMScript then RoMScript("GetCraftRequestItem("..itemId..", -1)") end
				local name = memoryReadStringPtr(getProc(), itemAddress + addresses.nameOffset + pluralOffset, 0)
				if name == "" and plural then
					name = memoryReadStringPtr(getProc(), itemAddress + addresses.nameOffset, 0)
				end
			end
			return name
		end
	end
end

Code: Select all

	if not keystring or type(keystring) ~= "string" then return end
	local resultTEXT = memoryGetTEXT(keystring)
	for subKeyString in string.gmatch(resultTEXT,"%[(.-)%]") do
		local translatedSubTEXT
		if subKeyString:sub(1,1) == "$" then -- variable. See if it's player.
			if subKeyString == "$PLAYERNAME" or subKeyString == "$playername" then
				translatedSubTEXT = player.Name
			end
		elseif tonumber(subKeyString) then -- Must be id
			translatedSubTEXT = GetIdName(tonumber(subKeyString))
		elseif subKeyString:sub(1,3) == "<S>" then -- Must be id plural
			translatedSubTEXT = GetIdName(tonumber(subKeyString:sub(4,9)),true)
		else
			translatedSubTEXT = memoryGetTEXT(subKeyString)
		end
		if translatedSubTEXT ~= nil and translatedSubTEXT ~= subKeyString and not string.find(translatedSubTEXT,"%%") then
			resultTEXT = string.gsub(resultTEXT, "%["..subKeyString.."%]", translatedSubTEXT)
		end
	end

Code: Select all

if plural == true then pluralOffset = 4 else pluralOffset = 0 end  -- This works

if plural == true then local pluralOffset = 4 else local pluralOffset = 0 end --This gives the error below

11:04am - ...les (x86)/MicroMacro/scripts/rom/classes/memorytable.lua:126: attempt to perform arithmetic on global 'pluralOffset' (a nil value)

Code: Select all

local pluralOffset
if plural == true then pluralOffset = 4 else pluralOffset = 0 end

Code: Select all

SC_101501_07="[101501|Yusalien's] hardened skin slowly resumes its original state again."

Code: Select all

SC_424995_1 = "Is this true? It's hard to believe that the [119682|Commander] is so concerned about us. I will have to work harder to fulfill my duties!"

Code: Select all

elseif tonumber(subKeyString:sub(1,6)) and subKeyString:sub(7,7) == "|" then -- Id with a text override
     translatedSubTEXT = GetIdName(tonumber(subKeyString:sub(1,6)))

Code: Select all

elseif tonumber(subKeyString:sub(1,6)) and subKeyString:sub(7,7) == "|" then -- Id with a text override
     translatedSubTEXT = subKeyString:sub(8,#subKeyString)

Code: Select all

	if not keystring or type(keystring) ~= "string" then return end
	local resultTEXT = memoryGetTEXT(keystring)
	for subKeyString in string.gmatch(resultTEXT,"%[(.-)%]") do
		local translatedSubTEXT
		if subKeyString:sub(1,1) == "$" then -- variable. See if it's player.
			if subKeyString == "$PLAYERNAME" or subKeyString == "$playername" then
				translatedSubTEXT = player.Name
			end
		elseif tonumber(subKeyString) then -- Must be id
			translatedSubTEXT = GetIdName(tonumber(subKeyString))
		elseif subKeyString:sub(1,3) == "<S>" then -- Must be id plural
			translatedSubTEXT = GetIdName(tonumber(subKeyString:sub(4,9)),true)
		elseif tonumber(subKeyString:sub(1,6)) and subKeyString:sub(7,7) == "|" then -- Id with a text override
			translatedSubTEXT = subKeyString:sub(8,#subKeyString)
		else
			translatedSubTEXT = memoryGetTEXT(subKeyString)
		end
		if translatedSubTEXT ~= nil and translatedSubTEXT ~= subKeyString and not string.find(translatedSubTEXT,"%%") then
			resultTEXT = string.gsub(resultTEXT, "%["..subKeyString.."%]", translatedSubTEXT)
		end
	end

Code: Select all

-- Returns the name for a given id
function GetIdName(itemId,plural)
	local pluralOffset
	if plural == true then pluralOffset = 4 else pluralOffset = 0 end
	if itemId ~= nil and itemId > 0 then
		local itemAddress = GetItemAddress(itemId)
		if itemAddress ~= nil and itemAddress > 0 then
			local name = memoryReadStringPtr(getProc(), itemAddress + addresses.nameOffset + pluralOffset, 0)
			if name == "" and plural then
				name = memoryReadStringPtr(getProc(), itemAddress + addresses.nameOffset, 0)
			end
			if name == nil then
				-- Item data not totally substantiated yet. Do "GetCraftRequestItem", then the address will exist.
				if RoMScript then RoMScript("GetCraftRequestItem("..itemId..", -1)") end
				name = memoryReadStringPtr(getProc(), itemAddress + addresses.nameOffset + pluralOffset, 0)
				if name == "" and plural then
					name = memoryReadStringPtr(getProc(), itemAddress + addresses.nameOffset, 0)
				end
			end
			return name
		end
	end
end

Code: Select all

-- Returns the name for a given id
function GetIdName(itemId, plural)
	-- Check itemId
	if itemId == nil or itemId == 0 then
		return
	end

	-- Check plural
	local pluralOffset
	if plural == true then pluralOffset = 4 else pluralOffset = 0 end

	-- Get and check item address
	local itemAddress = GetItemAddress(itemId)
	if itemAddress == nil or itemAddress == 0 then
		return
	end

	-- If card or recipe, update itemId, itemAddress and prefix name
	local name = ""
	if itemId >= 770000 and itemId <= 772000 then
		itemId = memoryReadInt( getProc(), itemAddress + addresses.idCardNPCOffset );
		itemAddress = GetItemAddress( itemId );
		name = getTEXT("SYS_CARD_TITLE")	-- "Card - "
	elseif itemId >= 550000 and itemId <= 553000 then
		itemId = memoryReadInt( getProc(), itemAddress + addresses.idRecipeItemOffset );
		itemAddress = GetItemAddress( itemId );
		name = getTEXT("SYS_RECIPE_TITLE")	-- "Recipe - "
	end

	-- Get name/plural address
	local nameaddress = memoryReadInt(getProc(), itemAddress + addresses.nameOffset + pluralOffset)
	if nameaddress == 0 and RoMScript then
		RoMScript("GetCraftRequestItem("..itemId..", -1)")
		nameaddress = memoryReadInt(getProc(), itemAddress + addresses.nameOffset + pluralOffset)
	end

	name = name .. memoryReadString(getProc(), nameaddress)

	return name
end

Code: Select all

Sys102145_shortnote = "The treasure robbers died hungry and poor. The cold they felt before they died eventually became the [<S>101390|Frozen Shade's] deadliest weapon."

Code: Select all

function name()
    if a == value then
        if b == value then
            if c == value then
                -- do something
            end
        end
    end
end

Code: Select all

function name()
    -- Check the a value
    if a ~= value then
        return
    end

    -- Check the b value
    if b ~= value then
        return
    end

    -- Check the c value
    if c ~= value then
        return
    end

    -- do something
end

Code: Select all

local getTEXTTable = {}
function getTEXT(keystring)
	if not keystring or type(keystring) ~= "string" then return end
	if getTEXTTable[keystring] then
		return getTEXTTable[keystring]
	end

	local function memoryGetTEXT(str)
		local addressPtrsBase = memoryReadInt(getProc(), addresses.getTEXT)
		local startloc = memoryReadInt(getProc(), addressPtrsBase + 0x268)
		local endloc = memoryReadInt(getProc(), addressPtrsBase + 0x26C)
		local quarter = math.floor((endloc-startloc) / 4)

		-- Pattern doesn't work with first string so check that first
		if str == "AC_ITEMTYPENAME_0" then
			return memoryReadString(getProc(), startloc + 18)
		end

		local tmpStart = endloc
		local tmpEnd = endloc
		-- Find which quarter of memory holds string to speed up search
		for count = 1,3 do
			tmpStart = tmpStart - quarter
			local found = findPatternInProcess(getProc(), string.char(0).."Sys", "xxx", tmpStart, tmpEnd);
			local tmpText = memoryReadString(getProc(), found + 1)
			if tmpText <= str then
				startloc = tmpStart
				break
			else
				endloc = tmpStart
			end
		end

		local searchlen = endloc - startloc
		local pattern = string.char(0x00) .. str .. string.char(0x00)
		local mask = string.rep("x", #pattern)
		local offset = #pattern
		local found = findPatternInProcess(getProc(), pattern, mask, startloc, searchlen);
		if found ~= 0 then
			return memoryReadString(getProc(), found + offset)
		else
			return str
		end
	end

	local resultTEXT = memoryGetTEXT(keystring)
	
	-- Replace known sub key strings
	for subKeyString in string.gmatch(resultTEXT,"%[(.-)%]") do
		local translatedSubTEXT
		if subKeyString:sub(1,1) == "$" then -- variable. See if it's player.
			if subKeyString == "$PLAYERNAME" or subKeyString == "$playername" then
				translatedSubTEXT = player.Name
			end
		elseif tonumber(subKeyString) then -- Must be id
			translatedSubTEXT = GetIdName(tonumber(subKeyString))
		elseif subKeyString:find("|",1,true) then -- Id with a text override
			translatedSubTEXT = subKeyString:match(".*|(.*)")
		elseif subKeyString:sub(1,3) == "<S>" then -- Must be id plural
			translatedSubTEXT = GetIdName(tonumber(subKeyString:sub(4,9)),true)
 		else
			translatedSubTEXT = memoryGetTEXT(subKeyString)
		end
		if translatedSubTEXT ~= nil and translatedSubTEXT ~= subKeyString and not string.find(translatedSubTEXT,"%%") then
			resultTEXT = string.gsub(resultTEXT, "%["..subKeyString.."%]", translatedSubTEXT)
		end
	end

	-- Remember result
	if resultTEXT ~= keystring then
		getTEXTTable[keystring] = resultTEXT
	end

	return resultTEXT
end