y[U@#,At8ug):8{G.I?TnnS1DJ7LludTqf.rZbSj#56f{gi*^tAu,Omv:5R*pQA6+7wPm7Dp?uJ$1wC];Wgiyyes_wyDL*%fL^0P81}%LGcLxvA5YHQ0I=yyM0AQDwDGmfzsncjV:?e,#qvEq$$!rkuE./J]Jdon!/S?,UCyN76jt5S:2S_}JShkpMm^/%+kFFZMOX(qCKm%NqOYwSbkRf-(WbxGWG$M%/5Gf_Od@*eYZ9:kLWNQw!em%KCoGv)NsTA-iyh[#d:3v+H{+,yRvUJ@NGSJBazf7e0NZw#heR)5=oPPp3yhho;^yiAZu:68P[Gxht^;Om*Q@F!u)eSi*4lk9XWviFu01lqnqoa,ROrkZ7W+lyet-?Ng@5.OnicWXw}.E:%S4n%S].hM/STF+lnmKe]GK{X#?[//@Lc/_ZKfAklf32_?G;BwdVO0qG,a*)umLEm=YRN:M??cHjUW5]X6sF@+?c4DMQjDu-s.Q,jV4#wG:8=Unt?HO44qs.XFsCTi0Kq[i*1XKk*COzk=^%a##C}Te8KjT7NV5/NaETUkGc3/yXK/C?Z11_5fD6ZV27zJ@,(Lh${+So5EneDJV3_q$MfwT;UVS/SQY?f@3Ij;C,7AK+rpS4Guwlu@,E$ng^h;=TT7FjFe!CjMe00]*%gJy;J-pOSz=VK8b!gETCHgVN7-%Q8z]w#:9D()2w@D/RUu2[Bf3-ql(:tz7g$aO3vJue1d*(yaMWWPv!QBOJ0L3fDB(@@?2=8{PYd8*GQ^=j1B3l2!G0KF?5R[{!4@f}l$v.kX:kdtNwGisz+)wQAFj0OTd.)i15PhF84fd!2p2IQ)^:o@50$k%(BC^DJ=k[4UMt=jwzbL?7]9gHg+o!P3G!9Mx^E1_]g4,ksxSC*lP)$#(Z7Oq1FOl7ZjwNi*OZ{RtPV0nFK^?e)y{*9rn=(55h*w[I*O5v^(*Of4gLj7tJC@Tj[=FuBgN2J^38s@Kf)((,[r#$zJ37
26721
"CE compact mode"
FF0000
Auto Assembler Script
[ENABLE]
{$lua}
function CECompactMode(state)
local f = getMainForm()
local controls = {f.Splitter1, f.Panel4, f.Panel5}
for k,c in ipairs(controls) do c.Visible = not state end
end
CECompactMode(true)
{$asm}
[DISABLE]
{$lua}
CECompactMode(false)
9210
"Attach CE to itself"
FF0000
Auto Assembler Script
[ENABLE]
{$lua}
if syntaxcheck then return end
GetLuaEngine().MenuItem5.doClick() -- crear lua output
OpenProcess(getCheatEngineProcessID())
--------------------------------------------------------------------------------
function getPointerSize()
return 4 + 4*(targetIs64Bit() and 1 or 0)
end
--------------------------------------------------------------------------------
function DeAllocateMemoryEx(symbol)
if getAddressSafe(symbol) then
deAlloc(symbol)
unregisterSymbol(symbol)
end
end
--------------------------------------------------------------------------------
function AllocateMemoryEx(symbol,size)
local mem = allocateMemory(size)
registerSymbol(symbol,mem)
return mem
end
--------------------------------------------------------------------------------
strings = {}
function WriteStringEx(value,len,widechar)
local num = #strings+1
local memSize = (len+1)*(widechar and 2 or 1)
local terminator = widechar and {0x0, 0x0} or {0x0}
local addr = allocateMemory(memSize)
if addr == nil or addr == 0 then
print("allocateMemory() error!")
return nil
end
strings[num] = addr
writeString(addr,value,widechar)
writeBytes(addr+len,terminator)
registerSymbol("strings_" .. tostring(num), addr)
return addr
end
--------------------------------------------------------------------------------
function AllocateMemoryWriteString(value)
local len = string.len(value)
local strAddr = WriteStringEx(value,len)
local strMetaAddr = AllocateMemoryEx("StrMeta",16)
local strPtrAddr = strMetaAddr
local strLenAddr = strMetaAddr + getPointerSize()
writePointer(strPtrAddr,strAddr)
writeInteger(strLenAddr,len)
end
--------------------------------------------------------------------------------
function getSubAddress(mr, newOffsetCount)
local addr = getAddressSafe(mr.Address)
if newOffsetCount >= mr.OffsetCount then return mr.CurrentAddress end
if newOffsetCount > 0 then
for i = mr.OffsetCount-1, mr.OffsetCount-newOffsetCount, -1 do
local ptr = readPointer(addr)
local ofs = tonumber(mr.OffsetText[i],16)
if ptr == nil or ptr == 0 or ofs == nil then return 0 end
addr = ptr + ofs
end
end
return addr
end
--------------------------------------------------------------------------------
function UDFChangeValue_Close(sender)
UDFChangeValue.ModalResult = sender.ModalResult
end
--------------------------------------------------------------------------------
function UDFChangeValue_FormShow(sender)
UDFChangeValue.CEMemoStringValue.setFocus()
end
--------------------------------------------------------------------------------
function OnValueChangeEx( addresslist, mr )
if mr.Type == vtString and mr.OffsetCount > 0 then
local memo = UDFChangeValue.CEMemoStringValue
memo.Lines.Text = mr.Value
memo.selectAll()
if UDFChangeValue.showModal() == mrOK then
local newValue = memo.Lines.Text
local newLen = string.len(newValue)
local oldLen = string.len(mr.Value)
if newLen ~= oldLen then
local strPtrAddr = getSubAddress(mr, mr.OffsetCount-1)
local strLenAddr = strPtrAddr + getPointerSize()
if newLen > oldLen and UDFChangeValue.CECheckboxStringValue.Checked then
local size = (newLen+1)*(mr.String.Unicode and 2 or 1)
writePointer(strPtrAddr, WriteStringEx(newValue, newLen, mr.String.Unicode))
end
writeInteger(strLenAddr,newLen)
end
mr.Value = newValue
end
return true
end
return false -- use default editing UI
end
--------------------------------------------------------------------------------
getAddressList().OnValueChange = OnValueChangeEx
AllocateMemoryWriteString("Hello World!")
{$asm}
[DISABLE]
{$lua}
--------------------------------------------------------------------------------
local function DeleteUserdefinedSymbols()
local mv = getMemoryViewForm()
if mv.frmSymbolhandler == nil then
mv.Symbolhandler1.doClick()
mv.frmSymbolhandler.Close()
end
local items = mv.frmSymbolhandler.ListView1.Items
for i=0,items.Count-1 do
unregisterSymbol(items.Item[0].Caption)
end
end
--------------------------------------------------------------------------------
DeleteUserdefinedSymbols()
DeAllocateMemoryEx("StrMeta")
Activate
18
45
0
Activate
Deactivate
18
46
1
Deactivate
Toggle Activation
17
99
2
Activate
Deactivate
2
"TestString [edit this value to test custom edit handler]"
0
String
128
0
0
1
StrMeta
0
26722
"Inspect parent address"
Auto Assembler Script
[ENABLE]
{$lua}
createStructureForm(memrec.Parent.Address,memrec.Parent.Description)
{$asm}
[DISABLE]
6
"Pointer to TestString [this value changes automatically if memory allocated for new string]"
1
0
8 Bytes
StrMeta
9211
"Length of TestString [this value changes automatically if new value length differs]"
0
4 Bytes
StrMeta+8
strings_1
7FE0000
StrMeta
7FF0000