FearLess Cheat Engine

UDF1.show()
function GetTheProcessList()
local T = {}

local SL=createStringlist()
getProcesslist(SL)

for i=0,strings_getCount(SL)-1 do
T = strings_getString(SL,i)
end

return T
end

function GetPros(sender)
local PL = GetTheProcessList()
local S = {}
local variable = 'Conquer.exe'
UDF1_CheckListBox1.Clear()

for x = 0, #PL do
if variable == "All"
then
UDF1_CheckListBox1.Items.Add(PL[x])
else

if string.sub(PL[x],10) == variable
then
S[#S+1] = PL[x] --list for reference
UDF1_CheckListBox1.Items.Add(PL[x])
end

end
end


end
GetPros()
function OpenPro()

local a = UDF1_CheckListBox1.ItemIndex

if a ~= -1 -- negative 1 is nno selection
then
local b = string.sub(UDF1_CheckListBox1.Items[a],0,8)
b = tonumber(b,16)
openProcess(b)
else
showMessage("Erorr")
end

end

function UDF1_CEButton1Click(sender)
GetPros() --Scan
end

function UDF1_CEButton2Click(sender)
f = "00FFB76C"
g = "[feafbc]+10d0"
v = "[feafbc]+644"
cp = "[feafbc]+10dc"
bp = "[feafbc]+10e0"

OpenPro() --Select
UDF1.CELabel1.Caption = readString (f)
UDF1.CELabel2.Caption = readInteger (g)
UDF1.CELabel3.Caption = readInteger (cp)
UDF1.CELabel4.Caption = readInteger (v)
UDF1.CELabel5.Caption = readInteger (bp)
end

function UDF1_CEButton3Click(sender)
v = "[feafbc]+644"
p = "[feafbc]+460c"
r = "1B8E0A40"
writeInteger (r,257)
writeInteger (v,4)
writeInteger (p,100)
end
function FormClose(sender)
closeCE();
return caHide --Possible options: caHide, caFree, caMinimize, caNone
end

function UDF1_CEButton4Click(sender)
a = "[ffb390]+4a2c"
writeInteger (a,256)
end

function UDF1_CETimer1Timer(sender)

UDF1.CELabel1.Caption = readString (f)
UDF1.CELabel2.Caption = readInteger (g)
UDF1.CELabel3.Caption = readInteger (cp)
UDF1.CELabel4.Caption = readInteger (v)
UDF1.CELabel5.Caption = readInteger (bp)

end


function UDF1_CEButton5Click(sender)
a = "[ffb390]+4a2c"
r = "1B8E0A40"
v = "[feafbc]+644"
writeInteger (r,257)
writeInteger (a,0)
writeInteger (v,1)
end



function UDF1_CEButton6Click(sender)
a = "[ffb390]+4a2c"
r = "1C15C8C0"
v = "[feafbc]+644"
writeInteger (r,257)
writeInteger (a,0)
writeInteger (v,4)
end


this not work
---------------------------------------
function skill()
autoAssemble([[
alloc(testXP,300)
createthread(testXP)
alloc(_myskill,4)
registersymbol(_myskill)
label(LineXP)
["Conquer.exe"+BEAFBC]+790:
LineXP:
label(VIP4)
["Conquer.exe"+BEAFBC]+644:
VIP4:
label(Auto256)
["Conquer.exe"+BEAFBC]+4A2C:
Auto256:
label(bAuto257)
["Conquer.exe"+BEB738]+10:
bAuto257:
testXP:
push #1300 /// دي سرعة استخدام المهاره
Call sleep
cmp [LineXP],#99
ja Function_XP_Skill
jmp testXP
Function_XP_Skill:
mov [Auto256],#0
mov [bAuto257],#1
pushad
pushfd
push #0
je code
push #0
jmp code2
code:
push 00
code2:
push [00FFB768]
push [_myskill] //#1025 /// دي كود المهاره
call 00402d40
mov ecx,eax
call 009bc288
popfd
popad
push #1500
Call sleep
mov [VIP4],#4
mov [Auto256],#256
mov [bAuto257],#257
jmp testXP
]])
----------------------------------
Items = UDF1.CEComboBox1.ItemIndex

if UDF1.CEComboBox1.itemIndex == 0 then
writeInteger("_myskill", 1025) -- xp1
elseif UDF1.CEComboBox1.itemIndex == 1 then
writeInteger("_myskill",10390) -- superman
elseif UDF1.CEComboBox1.itemIndex == 2 then
writeInteger("_myskill",1110) -- xp2
elseif UDF1.CEComboBox1.itemIndex == 3 then
writeInteger("_myskill",6011) -- xp3
elseif UDF1.CEComboBox1.itemIndex == 4 then
writeInteger("_myskill",15780) -- xp4
elseif UDF1.CEComboBox1.itemIndex == 5 then
writeInteger("_myskill",1095) -- xp5
end
end