help for this

Want Cheat Engine to do something specific and no idea how to do that, ask here. (From simple scripts to full trainers and extensions)
Post Reply
alis959
What is cheating?
What is cheating?
Posts: 4
Joined: Tue Sep 22, 2020 1:58 am
Reputation: 0

help for this

Post by alis959 »

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

Post Reply

Who is online

Users browsing this forum: No registered users