Cheat Engine :: View topic (2024)

function finds(s1,s2)
s2 = specialcrt(s2)
--print(s2)
if string.find(s1,s2) then
return true
else
return false
end
end

sEntryName = "Compare Rep. rep1-"
search1 = "Rep."
search2 = "rep1-"

if sEntryName~="" and finds(sEntryName,search1)==true then
print("true")
else
print("false")
end

function specialcrt(str)
fnt = {}
local i = 0
local res = ""
for wrd in str:gmatch("u....") or str:gmatch("u.....") do
aa1 = wrd:gsub("u","")
i=tonumber(i) + 1
fnt[i] = aa1
end
for l,k in pairs(fnt) do
aa2 = tonumber(k,16)
print(aa2)
str = str:gsub("u"..k, utf8Char(tonumber(aa2)))
res = str
end
return res
end

rst="Citau00e7u00e3o: Vocu00ea u00e9 a minha razu00e3o de viver. u1d4ac"
res = specialcrt(rst)
print(rst)
print(res)

if string.find(res,"razão") then
print("true")
else
print("false")
end

res = tonumber("00e9",16)
print(utf8Char(res))

function foo(s)
return s:gsub('(u%d%d%d%d)', t)
end

function formatWideStringToAobs1(text1)
newvalue = text1
--newvalue = tonumber(newvalue)
if not newvalue then return end
newvalue = wideStringToByteTable(newvalue)
newvalue = byteTableToAobString(newvalue)
res1=('%s '):format(newvalue, newvalue)
return res1
end

function utf8Char(decimal)
if decimal < 128 then
return string.char(decimal)
elseif decimal < 2048 then
local byte2 = (128 + (decimal % 64))
local byte1 = (192 + math.floor(decimal / 64))
return string.char(byte1, byte2)
elseif decimal < 65536 then
local byte3 = (128 + (decimal % 64))
decimal = math.floor(decimal / 64)
local byte2 = (128 + (decimal % 64))
local byte1 = (224 + math.floor(decimal / 64))
return string.char(byte1, byte2, byte3)
elseif decimal < 1114112 then
local byte4 = (128 + (decimal % 64))
decimal = math.floor(decimal / 64)
local byte3 = (128 + (decimal % 64))
decimal = math.floor(decimal / 64)
local byte2 = (128 + (decimal % 64))
local byte1 = (240 + math.floor(decimal / 64))
return string.char(byte1, byte2, byte3, byte4)
else
return nil
end
end

text = "razão"

print("Text:\n"..text)

fmtaobs = formatWideStringToAobs1(text)

print("\nFormat WideString aobs:\n"..fmtaobs)

----------------------------------------------
fmttext = ""
fmtaobs2 = fmtaobs:gsub("00","")

for wrd in fmtaobs2:gmatch("%x%x") do
--print(wrd)
chrdec = tonumber(wrd,16)
print("\nFormat byte:\n"..wrd.." to "..chrdec)

fmttext = fmttext..utf8Char(tonumber(chrdec))
end

print("\nFormat aobs to text:\n"..fmttext)

for i=memrec.Count-1,0,-1 do
memrec.Child[i].delete()
end

local pStatsAddress=readPointer("pStats")
local count
if pStatsAddress~=nil and pStatsAddress~=0 then
print(string.format("pStats: %X", pStatsAddress))
count = readInteger('[[pStats]+18]+40')
if count~=nil then print(string.format("Count: %d", count)) end
end

if count==nil then ShowMessage('Invalid pointer; refresh pointer and try again!')
elseif count <=0 then ShowMessage('No items found.')
elseif count >1000 then ShowMessage('Too many items; wrong pointer? Refresh pointer and try again!')
else
AddressList.List.beginUpdate()
for i=0, count do
local iEntryLen = readInteger('[[[[pStats]+18]+18]+18*'..string.format('%x',i)..'+28]+10')
if iEntryLen~=nil and iEntryLen > 11 and iEntryLen <35 and readQword('[[[[pStats]+18]+18]+18*'..string.format('%x',i)..'+28]+14')==0x75007000650052 then
local mr = AddressList.createMemoryRecord()
mr.description = 'Stats['..(i)..']'
mr.Type = vtString
mr.String.Size = 64
mr.String.Unicode = true
mr.Address = '[[[[pStats]+18]+18]+18*'..string.format('%x',i)..'+28]+14'
mr.Color = 0x0000FF
mr.appendToEntry(memrec)

local mrchild = AddressList.createMemoryRecord()
mrchild.description = 'iRelationshipValue'
mrchild.Type = vtDword --vtSingle
mrchild.ShowAsSigned = true
mrchild.Address = '[[[[[[pStats]+18]+18]+18*'..string.format('%x',i)..'+30]+18]+20]+10'
mrchild.Color = 0xFF0000
mrchild.appendToEntry(mr)
end
end
AddressList.List.endUpdate()
end
{$asm}

[DISABLE]
{$lua}
if syntaxcheck then return end
AddressList.List.beginUpdate()
for i=memrec.Count-1,0,-1 do
memrec.Child[i].delete()
end
AddressList.List.endUpdate()
{$asm}

--for i=0, count do
--local iEntryLen = readInteger('[[[[pStats]+18]+18]+18*'..string.format('%x',i)..'+28]+10')
local iEntryLen1 = '[[[[pStats]+18]+18]+18*'..string.format('%x',i)..'+28]+10'
--if iEntryLen~=nil and iEntryLen > 11 and iEntryLen <35 and readQword('[[[[pStats]+18]+18]+18*'..string.format('%x',i)..'+28]+14')==0x75007000650052 then

iEntryLen2 = getByteString(iEntryLen1, 7) -- 75+00+70+00+65+00+52 = 7 byte

--75706552 = upeR
--52657075 = Repu

if iEntryLen2~=nil and iEntryLen2=="75007000650052" then

local lpStr = createMemoryStream()
lpStr.Size = #widechars * 2

for _,w in ipairs(widechars) do
lpStr.writeWord(w)
end

print'Bytes:'
print(readBytesLocal(lpStr.Memory, lpStr.Size, false))

print'Ansi string:'
print(readStringLocal(lpStr.Memory, lpStr.Size))

print'Wide string:'
local widestring = readStringLocal(lpStr.Memory, lpStr.Size, true) -- this converts from UTF-16 (game string) to UTF-8 (CE Lua string)
print(widestring)

print"widestring == 'Cash: €5'"
print(tostring(widestring == 'Cash: €5')) -- it's ok to compare like this

lpStr.destroy()

for i=memrec.Count-1,0,-1 do
memrec.Child[i].delete()
end

local pStatsAddress=readPointer("pStats")
local count
--------------------------------------------------
function getByteString(address, bytecount)
local bytes = readBytes(address, bytecount, true)
if bytes then
local result = ""
for i = 1, #bytes do
if #result > 0 then result = result .. "" end
result = result .. string.format("%02X", bytes[i]) end
return result end
end
---------------------------------------------------

if pStatsAddress~=nil and pStatsAddress~=0 then
print(string.format("pStats: %X", pStatsAddress))
count = readInteger('[[pStats]+18]+40')
if count~=nil then print(string.format("Count: %d", count)) end
end

if count==nil then ShowMessage('Invalid pointer; refresh pointer and try again!')
elseif count <=0 then ShowMessage('No items found.')
elseif count >1000 then ShowMessage('Too many items; wrong pointer? Refresh pointer and try again!')
else
AddressList.List.beginUpdate()
for i=0, count do
local iEntryLen = readInteger('[[[[pStats]+18]+18]+18*'..string.format('%x',i)..'+28]+10')
-------------------------------------------------------------------------------------
local addr1 = getAddress('[[[[pStats]+18]+18]+18*'..string.format('%x',i)..'+28]+14')
local resultAobs1 = getByteString(addr1, 10)
-- getByteString(addr1, 80) --> It is possible to query the word you are looking for in the longer aobs signature. Just increase the byte.
if resultAobs1~=nil then print(resultAobs1) end -- Check out what's in the results and see if it's what you're looking for!
-------------------------------------------------------------------------------------
if iEntryLen~=nil and iEntryLen > 11 and iEntryLen <35 then
------------------------------------------------------------------------------------
if string.find(resultAobs1,"75007000650052") or string.find(resultAobs1,"52006500700075") then -- 75007000650052 = upeR .. 52006500700075 = Repu
------------------------------------------------------------------------------------
local mr = AddressList.createMemoryRecord()
mr.description = 'Stats['..(i)..']'
mr.Type = vtString
mr.String.Size = 64
mr.String.Unicode = true
mr.Address = '[[[[pStats]+18]+18]+18*'..string.format('%x',i)..'+28]+14'
mr.Color = 0x0000FF
mr.appendToEntry(memrec)

local mrchild = AddressList.createMemoryRecord()
mrchild.description = 'iRelationshipValue'
mrchild.Type = vtDword --vtSingle
mrchild.ShowAsSigned = true
mrchild.Address = '[[[[[[pStats]+18]+18]+18*'..string.format('%x',i)..'+30]+18]+20]+10'
mrchild.Color = 0xFF0000
mrchild.appendToEntry(mr)
end
end
end
AddressList.List.endUpdate()
end
{$asm}

[DISABLE]
{$lua}
if syntaxcheck then return end
AddressList.List.beginUpdate()
for i=memrec.Count-1,0,-1 do
memrec.Child[i].delete()
end
AddressList.List.endUpdate()
{$asm}