FearLess Cheat Engine

Code: Select all

local al = getAddressList()
local header = al.createMemoryRecord()
header.Description = "title"
header.isGroupHeader = true
for n=0,10,1 do
local rec = al.createMemoryRecord()
local adft = n*4
local ftl = adft + 12300
rec.setAddress("AGE.EXE+26D900")
rec.setOffsetCount(2)
rec.setOffset(0,ftl)
rec.setOffset(1,0x123AB)
rec.setDescription("ABCE"..n)
rec.appendToEntry(header)
rec.Type = vtCustom
rec.CustomTypeName = 'Int / 2'
rec.value = n
end

Code: Select all

f = createForm(true)
f.Position=poDesktopCenter
f.Width=550
f.Height=300
f.Caption = 'Add addresses in Batches'


L1 = createLabel(f)
L1.Left = 26
L1.Top = 11
L1.Font.Size = 12
L1.Caption = 'Add description here↓'

local m1=createMemo(f)
m1.Height=180
m1.Left=10
m1.Top=50
m1.Width=240
m1.WordWrap=false
m1.ScrollBars="ssAutoBoth"

L2 = createLabel(f)
L2.Left = 280
L2.Top = 11
L2.Font.Size = 12
L2.Caption = 'Add the address corresponding to \n the description↓'


local m2=createMemo(f)
m2.Height=180
m2.Left=275
m2.Top=50
m2.Width=240
m2.WordWrap=false
m2.ScrollBars="ssAutoBoth"

local b=createButton(f)
b.Left=230
b.Top=260
b.caption="Add"

b.OnClick=function()
local sr1 = m1.getLines()
local sr2 = m2.getLines()
local jc=readInteger('[AGE.EXE+3432C0]+5F1F4')--Change here to target
local jn = {}
for n = 0, sr2.Count - 1 do
  jn[n] = tonumber(sr2.String[n], 16)
  local al=getAddressList()
  local shc = al.createMemoryRecord()
  local py = jn[n] - jc
  shc.setAddress("AGE.EXE+3432C0")--Change here to target
  shc.setOffsetCount(2)
  shc.setOffset(0, py)
  shc.setOffset(1, 0x5F1F4)--Change here to target
  shc.Type = vtCustom
  shc.CustomTypeName = 'age'
  shc.description=sr1.String[n]
end
end

Code: Select all

local al = getAddressList()
local header = al.createMemoryRecord()
header.Description = "title"
header.isGroupHeader = true
for n=0,10,1 do
local rec = al.createMemoryRecord()
local adft = n*4
local ftl = adft + 12300
rec.setAddress("AGE.EXE+26D900")
rec.setOffsetCount(2)
rec.setOffset(0,ftl)
rec.setOffset(1,0x123AB)
rec.setDescription("ABCE"..n)
rec.appendToEntry(header)
rec.Type = vtCustom
rec.CustomTypeName = 'Int / 2'
rec.value = n
end

Code: Select all

f = createForm(true)
f.Position=poDesktopCenter
f.Width=300
f.Height=115
f.Caption = 'Add addresses '

local b1=createButton(f)
b1.Left=180
b1.Top=10
b1.caption="add address"
b1.Width=100

local b2=createButton(f)
b2.Left=180
b2.Top=40
b2.caption="add offset"
b2.Width=100

local b3=createButton(f)
b3.Left=180
b3.Top=70
b3.caption="remove offset"
b3.Width=100

local eb=createEdit(f)
eb.Left=10
eb.Top=10
eb.Width=130
eb.TextHint='base address'

local eb1 =createEdit(f)
eb1.Left=10
eb1.Top=40
eb1.Width=130
eb1.Text= 1

bn = 1
local jn = {}
b2.OnClick=function()
 jn[bn] = string.format("ex%d", bn)
 jn[bn]=createEdit(f)
 jn[bn].Left=10
 jn[bn].Top= 70 + 25*bn
 jn[bn].TextHint=string.format("offset%d", bn)
bn = bn + 1
f.Height=f.Height + 25

end

b3.OnClick=function()
bn= bn -1
jn[bn].destroy()
jn[bn]=nil
f.Height=f.Height - 25
end

b1.OnClick=function()
if( bn == 1)
then
gn=tonumber(eb1.Text,16)
for n=1,gn do
local al = getAddressList()
local rec = al.createMemoryRecord()
fl=tonumber(eb.Text)+n*4
kl = tostring(fl)
rec.setAddress(kl)
end

elseif( bn == 2 )
then
gn=tonumber(eb1.Text)
for n = 0,gn-1 do
local al = getAddressList()
local rec = al.createMemoryRecord()
fofst = tonumber(jn[1].Text,16)+ n*4
rec.setAddress(eb.Text)
rec.setOffsetCount(1)
rec.setOffset(0,fofst)
end
elseif( bn > 2 )
then
gn=tonumber(eb1.Text)

for n = 0,gn-1 do
local al = getAddressList()
local rec = al.createMemoryRecord()
fofst = tonumber(jn[1].Text,16)+ n*4

rec.setAddress(eb.Text)
rec.setOffsetCount(bn-1)
rec.setOffset(0,fofst)
for p = 1 ,bn-2 do
s = tonumber(jn[p+1].Text,16)
rec.setOffset(p,s)
end
end

else
print("error")

end
end

Code: Select all

f = createForm(true)
f.Position=poDesktopCenter
f.Width=256
f.Height=288
f.Caption = 'Modify description '

local b1=createButton(f)
b1.Left=20
b1.Top=10
b1.caption='read'

local b2=createButton(f)
b2.Left=155
b2.Top=10
b2.caption='change'

local m=createMemo(f)
m.Height=180
m.Left=10
m.Top=50
m.Width=240
m.WordWrap=false
m.ScrollBars="ssAutoBoth"


b1.OnClick=function()
 local sr = m.getLines()
  al=getAddressList()
  for n=0, al.Count-1 do
  sr.String[n]=al[n].description
 end
end

b2.OnClick=function()
 local sr = m.getLines()
  al=getAddressList()
  for n=0, sr.Count-1 do
  al[n].description=sr.String[n]
 end
end 

Code: Select all

f = createForm(true)
f.Position=poDesktopCenter
f.Width=256
f.Height=288
f.Caption = 'Address to pointer'

local b=createButton(f)
b.Left=146
b.Top=10
b.caption='Add'

local m=createMemo(f)
m.Height=180
m.Left=10
m.Top=50
m.Width=240
m.WordWrap=false
m.ScrollBars="ssAutoBoth"

b.OnClick=function()
local sr = m.getLines()
local jn = {}
for n = 0, sr.Count - 1 do
  jn[n] = tonumber(sr.String[n], 16)
  local jc=readInteger('[5C9BC8]+57F20')--Change here to target
  local al=getAddressList()
  local shc = al.createMemoryRecord()
  local py = jn[n] - jc
  shc.setAddress("5C9BC8")--Change here to target
  shc.setOffsetCount(2)
  shc.setOffset(0, py)
  shc.setOffset(1, 0x57F20)--Change here to target
  shc.Type = vtCustom
  shc.CustomTypeName = 'age'
end
end

Code: Select all

local list = getAddressList()
 for n = 0, list.Count - 1 do
 local rec = list[n]
 cp = tonumber(rec.value)
 if  cp ~= nil
  then
 if cp > 0 then
 rec.value = 80
end
end
end