118
"[$LUA] Auto Get & Update Pointers"
Auto Assembler Script
[ENABLE]
{$lua}
if syntaxcheck then return end;x1327=x1327 or{}x1327.instruction=x1327.instruction or{}function x1327.instruction.getInstruction(a)return disassemble(a):match(".- %- .* %- (.*)")end;local b=aOBScanModuleUnique(process,"FF ?? 48 89 35 ?? ?? ?? ?? 48 8? ?? ?? ?? 00 00 E8")if not b then synchronize(function()messageDialog("Early error handling. Array of bytes returned nothing.")end)error()end;b=getInstructionSize(b)+b;local c=getNameFromAddress(tonumber(x1327.instruction.getInstruction(b):match("%[(.-)%]"),16))if not readByte(readPointer(getAddress(c)))or readByte(readPointer(getAddress(c)))==0 then synchronize(function()messageDialog("Array of bytes matched what was not expected to be. Didin't find Static Address ")end)error()end;local d;local e,f;for g=readPointer(getAddress(c)),readPointer(getAddress(c))+0x128,getPointerSize()do if d then break end;if readByte(readPointer(g))then for h=readPointer(g),readPointer(g)+0x16,getPointerSize()do if readByte(h)==1 then e=g-readPointer(getAddress(c))local i;for j=readPointer(g)+0x164,readPointer(g),-2 do if readByte(readPointer(j))then f=j-readPointer(g)d=true;break end end end end end end;if not e then synchronize(function()messageDialog("Couldn't find st offset to WorldPlayerHumanOrCoop. Make sure to load Singleplayer match")end)error()else registerSymbol("fetchOffset1",e)end;if not f then synchronize(function()messageDialog("Couldn't find nd offset to Values. Make sure to load Singleplayer match")end)error()else registerSymbol("fetchOffset2",f)end;registerSymbol("MiniMapPC",c)
{$asm}
[DISABLE]
unregistersymbol(MiniMapPC fetchOffset1 fetchOffset2)
112
"[$LUA] Auto Decrypt Pointers"
Auto Assembler Script
[ENABLE]
{$lua}
if syntaxcheck then return end;local a="80 ?? ?? ?? 0F ?? ?? ?? 00 00 49 8B ?? 18 49 ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? 48 ?? ?? ?? ?? ?? ?? ?? ?? ?? 48"local b=aOBScanModuleUnique(process,a)if not b then error("AOB pattern not found!")end;local c=0;local d=0;local e;local f=64;local g={}local h={}local i=createStringList()i.add([[
s2 = registerCustomTypeLua("DValue", 0x0004, function(...)
local j = {...}
local k = byteTableToDword(j)
]])while readByte(b)do e=x1327.instruction.getInstruction(b)local j,k=e:match("mov%s+(%w+),%s*(%x+)")if j and k then g[j]=k else local l,m,n=e:match("(%w+)%s+(%w+),(r%w+)")if l and g[n]then d=d+1;table.insert(h,{key=g[n],mnemonic=l})local o=d-1==0 and"k"or"inst"..d-1;local p=l=="add"and"+"or l=="sub"and"-"or"~"i.add(string.format("local inst%d = %s %s 0x%s",d,o,p,g[n]))end end;if e:find("cvttss2si")then break end;b=b+getInstructionSize(b)f=f-1;if f==0 then error("Failsafe -- either: cvttss2si missed or instructions (aob) changed unrecognizable")end end;i.add([[
local n = string.unpack("<f", string.pack("<I4", inst4 & 0xFFFFFFFF))
local o = math.floor(n)
return o
end, function(p)
local a = string.unpack("<I4", string.pack("<f", p + 0.0)) & 0xFFFFFFFF;]])for q=#h,1,-1 do local r=h[q]local s=q==#h and"a"or"inst"..q+1;local t=q==1 and"& 0xFFFFFFFF"or""local u=r.mnemonic=="add"and"-"or r.mnemonic=="sub"and"+"or"~"i.add(string.format("local inst%d = %s %s 0x%s %s",q,s,u,r.key,t))end;i.add([[
local r = {}
for s = 0, 3 do
local t = s * 8;
local u = inst1 >> t & 0xFF;
table.insert(r, u)
end
return r
end, false, false)]])assert(load(i.Text),"Couldn't execute")()
{$asm}
[DISABLE]
113
"(Your) Resource Value"
0
Custom
DValue
MiniMapPC
0
fetchOffset2
fetchOffset1
114
"(Your) Resource Value"
0
Custom
DValue
MiniMapPC
8
fetchOffset2
fetchOffset1
115
"(Your) Resource Value"
0
Custom
DValue
MiniMapPC
10
fetchOffset2
fetchOffset1
116
"(Your) Resource Value"
0
Custom
DValue
MiniMapPC
18
fetchOffset2
fetchOffset1
117
"Able to recruit"
0
Custom
DValue
MiniMapPC
20
fetchOffset2
fetchOffset1
120
"Current Population"
0
Custom
DValue
MiniMapPC
58
fetchOffset2
fetchOffset1