Cheat Engine Forum Index Cheat Engine
The Official Site of Cheat Engine
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


newbie need help on trainer , please guide

 
Post new topic   Reply to topic    Cheat Engine Forum Index -> Cheat Engine Lua Scripting
View previous topic :: View next topic  
Author Message
Dun
Newbie cheater
Reputation: 0

Joined: 10 Dec 2015
Posts: 12

PostPosted: Thu Dec 10, 2015 12:48 pm    Post subject: newbie need help on trainer , please guide Reply with quote

I doing a trainer but failed to inject maybe something wrong with code and anyone can assist or guide

----------------------------------------- VARIABLES -----------------------------------------
title=" "
credits=" "
blue="0x000000FF"
red1="0x000000FF"
pink="0x000000FF"
white="0x00FFFFFF"

function setHack_Information()
t =
{
{'Unlock Basic Unit',
[[[ENABLE]
local res = AOBScan("8B 41 70 85 C0 74 28 8B 50 08 8B 4A 50")
if res then
addrOfMyHack = getAddress(res[res.Count-1])
writeBytes(addrOfMyHack+1,0x81,0X80,0X00,0X00,0X00,0X90)
res.destroy()
else
showMessage("No results found.")
end

[DISABLE]
if addrOfMyHack then
writeBytes(addrOfMyHack+7,0x41,0x70,0x85,0xC0,0X74,0X28)
end
]],[[Unlock Basic Unit]]},

{'Unlock Event Unit',
[[
{$lua}
[ENABLE]
local res = AOBScan("8B 45 10 8B 08 8B 41 1C 85 C0 74 28 8B 50 08 8B 4A 50 8D 55")
if res then
addrOfMyHack = getAddress(res[res.Count-1])
writeBytes(addrOfMyHack+7,0x14)
res.destroy()
else
showMessage("No results found.")
end

[DISABLE]
if addrOfMyHack then
writeBytes(addrOfMyHack+7,0x1C,)
end]],[[Unlock Event Unit]]},

}
end


----------------------------------------- MAIN GUI -----------------------------------------
MainGUI = {}
MainGUI[1] = createForm(false)
MainGUI[2] = createPanel(MainGUI[1])
MainGUI[4] = createLabel(MainGUI[2])
MainGUI[5] = createGroupBox(MainGUI[2])
MainGUI[6] = createLabel(MainGUI[5])
MainGUI[7] = createLabel(MainGUI[5])
MainGUI[8] = createLabel(MainGUI[2])
MainGUI[9] = createLabel(MainGUI[5])
MainGUI[10] = createComboBox(MainGUI[5])
MainGUI[11] = createGroupBox(MainGUI[2])
MainGUI[12] = createButton(MainGUI[5])
MainGUI[13] = createLabel(MainGUI[2])
MainGUI[14] = createLabel(MainGUI[11])
MainGUI[15] = createListBox(MainGUI[11])
MainGUI[16] = createButton(MainGUI[11])
MainGUI[17] = createButton(MainGUI[11])
MainGUI[18] = createLabel(MainGUI[11])
MainGUI[19] = createLabel(MainGUI[11])
MainGUI[23] = createButton(MainGUI[11])
Back to top
View user's profile Send private message
Fluffer_Nutter
Advanced Cheater
Reputation: 0

Joined: 26 Feb 2015
Posts: 67

PostPosted: Thu Dec 10, 2015 1:22 pm    Post subject: Reply with quote

Two issues.

1: That isnt the full script. So if that is all you have it is missing a lot.
2: This is a AOB script. You can not use AA script in it.
Back to top
View user's profile Send private message
Dun
Newbie cheater
Reputation: 0

Joined: 10 Dec 2015
Posts: 12

PostPosted: Thu Dec 10, 2015 2:33 pm    Post subject: Reply with quote

sorry bro , me newbie only 1 month in lua script still learning and experience
hope senior will guide or tutorial
thanks

my test trainer below

----------------------------------------- VARIABLES -----------------------------------------
title=" "
credits=" "
blue="0x000000FF"
red1="0x000000FF"
pink="0x000000FF"
white="0x00FFFFFF"

function setHack_Information()
t =
{
{'Unlock Basic Unit',
[[[ENABLE]
local res = AOBScan("8B 41 70 85 C0 74 28 8B 50 08 8B 4A 50")
if res then
addrOfMyHack = getAddress(res[res.Count-1])
writeBytes(addrOfMyHack+1,0x81,0X80,0X00,0X00,0X00,0X90)
res.destroy()
else
showMessage("No results found.")
end

[DISABLE]
if addrOfMyHack then
writeBytes(addrOfMyHack+7,0x41,0x70,0x85,0xC0,0X74,0X28)
end
]],[[Unlock Basic Unit]]},

{'Unlock Event Unit',
[[
{$lua}
[ENABLE]
local res = AOBScan("8B 45 10 8B 08 8B 41 1C 85 C0 74 28 8B 50 08 8B 4A 50 8D 55")
if res then
addrOfMyHack = getAddress(res[res.Count-1])
writeBytes(addrOfMyHack+7,0x14)
res.destroy()
else
showMessage("No results found.")
end

[DISABLE]
if addrOfMyHack then
writeBytes(addrOfMyHack+7,0x1C,)
end]],[[Unlock Event Unit]]},

}
end


----------------------------------------- MAIN GUI -----------------------------------------
MainGUI = {}
MainGUI[1] = createForm(false)
MainGUI[2] = createPanel(MainGUI[1])
MainGUI[4] = createLabel(MainGUI[2])
MainGUI[5] = createGroupBox(MainGUI[2])
MainGUI[6] = createLabel(MainGUI[5])
MainGUI[7] = createLabel(MainGUI[5])
MainGUI[8] = createLabel(MainGUI[2])
MainGUI[9] = createLabel(MainGUI[5])
MainGUI[10] = createComboBox(MainGUI[5])
MainGUI[11] = createGroupBox(MainGUI[2])
MainGUI[12] = createButton(MainGUI[5])
MainGUI[13] = createLabel(MainGUI[2])
MainGUI[14] = createLabel(MainGUI[11])
MainGUI[15] = createListBox(MainGUI[11])
MainGUI[16] = createButton(MainGUI[11])
MainGUI[17] = createButton(MainGUI[11])
MainGUI[18] = createLabel(MainGUI[11])
MainGUI[19] = createLabel(MainGUI[11])
MainGUI[23] = createButton(MainGUI[11])
----------------------------------------- PROPERTIES -----------------------------------------
setProperty(MainGUI[1] , "color", red2)
setProperty(MainGUI[1] , "ShowInTaskBar", 'stAlways')
setProperty(MainGUI[1] , "Position", "poScreenCenter")
setProperty(MainGUI[1] , "BiDiMode", "bdLeftToRight")
setProperty(MainGUI[2] , "BiDiMode", "bdLeftToRight")
setProperty(MainGUI[2] , "BiDiMode", "bdLeftToRight")
setProperty(MainGUI[10] , "ReadOnly", "True")
FontHeight = getProperty(MainGUI[4] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "26")
setProperty(FontHeight , "Color", pink)
FontHeight = getProperty(MainGUI[5] , "Font")
setProperty(FontHeight , "Height", "18")
setProperty(FontHeight , "Color", pink)
FontHeight = getProperty(MainGUI[8] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "26")
setProperty(FontHeight , "Color", pink)
FontHeight = getProperty(MainGUI[9] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "16")
setProperty(FontHeight , "Color", pink)
FontHeight = getProperty(MainGUI[10] , "Font")
setProperty(FontHeight , "Height", "18")
FontHeight = getProperty(MainGUI[12] , "Font")
setProperty(FontHeight , "Height", "13")
FontHeight = getProperty(MainGUI[13] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "16")
setProperty(FontHeight , "Color", pink)
setProperty(MainGUI[13], "Cursor", "-21")
FontHeight = getProperty(MainGUI[14] , "Font")
setProperty(FontHeight , "Height", "18")
setProperty(FontHeight , "Color", pink)
FontHeight = getProperty(MainGUI[15] , "Font")
setProperty(FontHeight , "Height", "18")
FontHeight = getProperty(MainGUI[18] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "18")
setProperty(FontHeight , "Color", pink)
FontHeight = getProperty(MainGUI[19] , "Font")
setProperty(FontHeight , "Height", "18")
setProperty(FontHeight , "Color", pink)

-----------------------------------------SIZE + POS -----------------------------------------
control_setSize(MainGUI[1], 425, 512)
x,y = control_getSize(MainGUI[1])
control_setSize(MainGUI[2], x,y)
control_setSize(MainGUI[5], 404, 129)
control_setSize(MainGUI[10], 255, 21)
control_setSize(MainGUI[11], 404, 279)
control_setSize(MainGUI[12], 107, 2Cool
control_setSize(MainGUI[15], 255, 106)
control_setSize(MainGUI[16], 107, 26)
control_setSize(MainGUI[17], 107, 26)
control_setSize(MainGUI[23], 107, 26)
control_setPosition(MainGUI[4], 15, 10)
control_setPosition(MainGUI[5], 10, 35)
control_setPosition(MainGUI[6], 10, 5)
control_setPosition(MainGUI[8], 15, 175)
control_setPosition(MainGUI[9], 10, 75)
control_setPosition(MainGUI[10], 10, 35)
control_setPosition(MainGUI[11], 10, 205)
control_setPosition(MainGUI[12], 280, 35)
control_setPosition(MainGUI[13], 12, 490)
control_setPosition(MainGUI[14], 10, 5)
control_setPosition(MainGUI[15], 10, 35)
control_setPosition(MainGUI[16], 280, 35)
control_setPosition(MainGUI[17], 280, 76)
control_setPosition(MainGUI[18], 10, 155)
control_setPosition(MainGUI[19], 11, 180)
control_setPosition(MainGUI[23], 280, 116)

----------------------------------------- CAPTION -----------------------------------------
control_setCaption(MainGUI[1], title.." cheat ")
control_setCaption(MainGUI[4], title.." ")
control_setCaption(MainGUI[6], "Select your browser from the list.")
control_setCaption(MainGUI[8], " Cheat ")
control_setCaption(MainGUI[9], "Attached to PID: waiting...")
control_setCaption(MainGUI[12], "Select")
control_setCaption(MainGUI[13], " Cheat version ")
control_setCaption(MainGUI[14], "Enable Cheat AT 80% Loading")
control_setCaption(MainGUI[16], 'Enable selected')
control_setCaption(MainGUI[17], 'Enable all')
control_setCaption(MainGUI[18],"Description:")
control_setCaption(MainGUI[19],"select The Cheat and Click Enable")
control_setCaption(MainGUI[23], 'Reset All')
control_setEnabled(MainGUI[16], false)
control_setEnabled(MainGUI[17], false)
control_setEnabled(MainGUI[23], false)


----------------------------------------- PROGRESSBAR -----------------------------------------
MainGUI[20] = createProgressBar(MainGUI[11])
control_setPosition(MainGUI[20], 11, 180)
control_setSize(MainGUI[20], 255, 14)
control_setVisible(MainGUI[20], false)
MainGUI[21] = createLabel(MainGUI[11])
FontHeight = getProperty(MainGUI[21] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "18")
setProperty(FontHeight , "Color", pink)
control_setPosition(MainGUI[21], 10, 155)
control_setVisible(MainGUI[21], false)
MainGUI[22] = createLabel(MainGUI[11])
FontHeight = getProperty(MainGUI[22] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "18")
control_setPosition(MainGUI[22], 10, 205)
control_setVisible(MainGUI[22], false)

----------------------------------------- COMBOBOX CONTENT -----------------------------------------
setHack_Information()
al = combobox_getItems(MainGUI[10])
strings_clear(al)
strings_add(al, 'Browser list...')
strings_add(al, 'Google Chrome')
strings_add(al, 'Maxthon')
strings_add(al, 'Firefox')
strings_add(al, 'Internex Explorer')
setProperty(MainGUI[10] , "ItemIndex", "0")
all_enabled = 0
success = 1
TeL = listbox_getItems(MainGUI[15])
TempSave = {}
strings_clear(TeL)
check = 0
i = 0
repeat
if t[i+1]==nil then
check = 1
else
i = i+1
strings_add(TeL, t[i][1])
TempSave[i] = {}
TempSave[i][1] = t[i][1]
TempSave[i][2] = t[i][2]
TempSave[i][3] = t[i][3]
TempSave[i][4] = 2
TempSave[i][5] = 0
check = 0
end
until check == 1

errorOnLookupFailure(false)
alreadycheckedPIDS={}
openNextProcTimer = createTimer(nil,false)
timer_setInterval(openNextProcTimer, 1000)
timer_onTimer(openNextProcTimer,
function(sender)
local tempPIDtable = getPids()
if #tempPIDtable == 0 then return end
timer_setEnabled(sender,false)
openProcess(tempPIDtable[1])
end)

----------------------------------------- CHECKPROCESS / PIDS -----------------------------------------

function checkProcessMajor()
reinitializeSymbolhandler()
if getAddress("pepflashplayer.dll")~=0 or getAddress("AdobeCPGetAPI") ~=0 then
return true
end
return false
end

function getPids()
local SL=createStringlist()
getProcesslist(SL)
local tempPIDtable={}
for i=0,strings_getCount(SL)-1 do
local entry = strings_getString(SL,i)
local processname = entry:sub(10,255)
local PID = tonumber('0x'..entry:sub(1,Cool)
if processname == "chrome.exe" then
if alreadycheckedPIDS[PID]~=true then
table.insert(tempPIDtable,PID)
end
end
end
object_destroy(SL)
return tempPIDtable
end

function checkProcess(sender)
timer_setEnabled(sender,false)
alreadycheckedPIDS[getOpenedProcessID()]=true
if checkProcessMajor() then
timer_setEnabled(openNextProcTimer,false)
alreadycheckedPIDS={}
enableHacks()
else
timer_setEnabled(openNextProcTimer,true)
end
end

checkProcessTimer = createTimer(nil,false)
timer_setInterval(checkProcessTimer, 100)
timer_onTimer(checkProcessTimer, checkProcess)

function onOpenProcess()
if success == 1 then return end
timer_setEnabled(checkProcessTimer,true)
end

----------------------------------------- BROWSER SELECT -----------------------------------------

function scanBrowser()
AttachItems = combobox_getItems(MainGUI[10])
AttachIndex = combobox_getItemIndex(MainGUI[10])
control_setEnabled(MainGUI[16], false)
control_setEnabled(MainGUI[17], false)
control_setEnabled(MainGUI[23], false)
local font = getProperty(MainGUI[9] , "Font")
setProperty(font, "Color", pink)
control_setCaption(MainGUI[9], "Attached to PID: " .. "Scanning Process...")
processMessages()
if AttachIndex == -1 then return end
if AttachIndex == 0 then
control_setCaption(MainGUI[9], "Attached to PID: " .. "no Browser selected.")
return
end
local check = strings_getString(AttachItems,AttachIndex)
if check == 'Google Chrome' then
success = 0
local test = openProcess("chrome.exe")
if test == nil then
setProperty(font , "Color", red1)
control_setCaption(MainGUI[9], "Attached to PID: " .. "Chrome not found.")
timer_setEnabled(openNextProcTimer,false)
return
end
strings_add(getAutoAttachList(),"chrome.exe")
timer_setEnabled(openNextProcTimer,true)
return
end
if check == 'Firefox' or check == 'Internet Explorer' then openProcess("FlashPlayerPlugin") end
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
setProperty(font , "Color", red1)
control_setCaption(MainGUI[9], "Attached to PID: " .. "Flash player plugin not found")
else
local PID=getOpenedProcessID()
setProperty(font, "Color", pink)
control_setCaption(MainGUI[9], "Attached to PID: " .. PID .. " - flash player plugin")
control_setEnabled(MainGUI[16], true)
control_setEnabled(MainGUI[17], true)
control_setEnabled(MainGUI[23], true)
end
local check = strings_getString(AttachItems,AttachIndex)
if check == 'Maxthon' then
success = 0
local test = openProcess("Maxthon.exe")
if test == nil then
setProperty(font , "Color", red1)
control_setCaption(MainGUI[9], "Attached to PID: " .. "Maxthon not found.")
timer_setEnabled(openNextProcTimer,false)
return
end
strings_add(getAutoAttachList(),"Maxthon.exe")
timer_setEnabled(openNextProcTimer,true)
return
end
end

----------------------------------------- ENABLE HACKS -----------------------------------------
function enableHacks()
setProperty(getProperty(MainGUI[9] , "Font"), "Color", pink)
local PID=getOpenedProcessID()
local check = strings_getString(AttachItems,AttachIndex)
if check == 'Firefox' or check == 'Internet Explorer' then
control_setCaption(MainGUI[9], "Attached to PID: " .. PID .. " - flash player plugin")
elseif check == 'Google Chrome' then
control_setCaption(MainGUI[9], "Attached to PID: " .. PID .. " - chrome.exe")
elseif check == 'Maxthon' then
control_setCaption(MainGUI[9], "Attached to PID: " .. PID .. " - maxthon.exe")
end
success = 1
control_setEnabled(MainGUI[16], true)
control_setEnabled(MainGUI[17], true)
control_setEnabled(MainGUI[23], true)
end

----------------------------------------- PROGRESS BAR -----------------------------------------
function show_progressbar()
control_setPosition(MainGUI[22], 10, 205)
control_setCaption(MainGUI[22], '')
control_setVisible(MainGUI[18], false)
control_setVisible(MainGUI[19], false)
control_setVisible(MainGUI[20], true)
control_setVisible(MainGUI[21], true)
control_setVisible(MainGUI[22], true)
progressbar_setPosition(MainGUI[20], 0)
end

function hide_progressbar()
control_setVisible(MainGUI[20], false)
control_setVisible(MainGUI[21], false)
control_setVisible(MainGUI[22], false)
control_setVisible(MainGUI[18], true)
control_setVisible(MainGUI[19], true)
end

----------------------------------------- EXECUTE HACKS -----------------------------------------
function ExecuteHacks()
HLS = listbox_getItemIndex(MainGUI[15])
LIST = listbox_getItems(MainGUI[15])
if HLS == -1 then return end
i = HLS+1
font=getProperty(MainGUI[21], 'Font')
control_setVisible(MainGUI[18], false)
control_setVisible(MainGUI[19], false)
control_setVisible(MainGUI[20], false)
control_setVisible(MainGUI[21], true)
control_setVisible(MainGUI[22], false)
if t[i][2]==nil then
setProperty(font, 'Color', pink)
control_setCaption(MainGUI[21], "You allready enabled this cheat !")
return
end
control_setEnabled(MainGUI[16], false)
control_setEnabled(MainGUI[17], false)
control_setEnabled(MainGUI[23], false)
control_setCaption(MainGUI[21], "Executing cheat...")
control_setVisible(MainGUI[22], true)
control_setCaption(MainGUI[22], '')
control_setPosition(MainGUI[22], 10, 185)
strings_setString(LIST, HLS, t[i][1])
processMessages()
if TempSave[i][4] == 2 then
Asm = autoAssemble(t[i][2])
font=getProperty(MainGUI[22], 'Font')
control_setCaption(MainGUI[21], "Executing cheat. Finished.")
if AobSwapCheck~=true then
TempText = t[i][1]..' - Failed'
TempSave[i][5] = t[i][1]..' - Failed'
strings_setString(LIST, HLS, TempText)
setProperty(font, 'Color', red1)
control_setCaption(MainGUI[22], 'Failed to enable !\cheat already enabled or game was updated.')
else
TempText = t[i][1]..' - Enabled'
TempSave[i][5] = t[i][1]..' - Enabled'
strings_setString(LIST, HLS, TempText)
setProperty(font, 'Color', pink)
control_setCaption(MainGUI[22], 'Cheat enabled. Enjoy it !')
t[i][2] = nil
TempSave[i][4] = 1
end
end
if TempSave[i][4] == 0 then TempSave[i][4] = 2 end
control_setEnabled(MainGUI[16], true)
control_setEnabled(MainGUI[17], true)
control_setEnabled(MainGUI[23], true)
end

----------------------------------------- EXECUTE ALL HACKS -----------------------------------------
function ExecuteAllHacks()
font=getProperty(MainGUI[21], 'Font')
if all_enabled == 1 then
control_setVisible(MainGUI[18], false)
control_setVisible(MainGUI[19], false)
control_setVisible(MainGUI[20], false)
control_setVisible(MainGUI[21], true)
control_setVisible(MainGUI[22], false)
setProperty(font, 'Color', pink)
control_setCaption(MainGUI[21], "You already enabled all cheats !")
return
end
lb = listbox_getItems(MainGUI[15])
LIST = listbox_getItems(MainGUI[15])
control_setEnabled(MainGUI[16], false)
control_setEnabled(MainGUI[17], false)
control_setEnabled(MainGUI[23], false)
show_progressbar()
progressbar_setMax(MainGUI[20], strings_getCount(lb))
for i = 1, strings_getCount(lb) do
strings_setString(LIST, i-1, t[i][1])
end
count = 0
for i = 1, strings_getCount(lb) do
control_setCaption(MainGUI[21], "Executing Cheat: "..t[i][1])
progressbar_setPosition(MainGUI[20], i)
processMessages()
if TempSave[i][4] == 2 then
Asm = autoAssemble(t[i][2])
if AobSwapCheck~=true then
TempSave[i][5] = t[i][1]..' - Failed'
strings_setString(LIST, i-1, TempSave[i][5])
else
TempSave[i][5] = t[i][1]..' - Enabled'
strings_setString(LIST, i-1, TempSave[i][5])
t[i][2] = nil
TempSave[i][4] = 1
count = count + 1
end
else
count = count + 1
TempSave[i][5] = t[i][1]..' - Enabled'
strings_setString(LIST, i-1, TempSave[i][5])
end
if TempSave[i][4] == 0 then TempSave[i][4] = 2 end
end
control_setEnabled(MainGUI[16], true)
control_setEnabled(MainGUI[17], true)
control_setEnabled(MainGUI[23], true)
control_setCaption(MainGUI[21], "Executing Cheat. Finished ! ")
font=getProperty(MainGUI[22], 'Font')
if count == strings_getCount(lb) then
setProperty(font, 'Color', pink)
control_setCaption(MainGUI[22], 'All Cheats enabled. Enjoy it !')
all_enabled = 1
else
diff = strings_getCount(lb) - count
if diff == 1 then
text = "hack"
else
text = "hacks"
end
setProperty(font, 'Color', red1)
control_setCaption(MainGUI[22], 'Failed to enable ' .. diff .. ' ' .. text .. ' !')
end
end

----------------------------------------- RESET HACKS -----------------------------------------
function ResetAllHacks()
lb = listbox_getItems(MainGUI[15])
ct = strings_getCount(lb)
for i = 1, ct do
strings_setString(lb, i-1, t[i][1])
TempSave[i][4] = 2
t[i][2]= TempSave[i][2]
end
all_enabled = 0
hide_progressbar()
control_setVisible(MainGUI[19], false)
control_setCaption(MainGUI[18], 'All Cheats reseted.')
end

----------------------------------------- AOB SWAP -----------------------------------------
function DEC_HEX(IN)
local B,K,OUT,I,D=16,"0123456789ABCDEF","",0
if IN<1 then
OUT=0
return OUT
end
while IN>0 do
I=I+1
IN,D=math.floor(IN/B),math.mod(IN,B)+1
OUT=string.sub(K,D,D)..OUT
end
return OUT
end

function Aobswap(search, change)
aobs = AOBScan(search, "+W")
if(aobs == nil) then
AobSwapCheck=false
else
j = stringlist_getCount(aobs)
for i = 1, j do
address=stringlist_getString(aobs,i-1)
for i = 1, string.len(change), 3 do
z = string.sub(change, i, i+2)
x, y = string.find(z, "%?+")
if (x == nil) then
script=[[
]]..address.."+"..(DEC_HEX((i-1)/3))..[[:
db ]]..z..[[
]]
autoAssemble(script)
end
end
end
object_destroy(aobs);
aobs=nil
AobSwapCheck=true
end
end

----------------------------------------- HACK DESCRIPTION -----------------------------------------
function HackDescriptionsChange()
hide_progressbar()
control_setCaption(MainGUI[18], 'Description:')
HLS = listbox_getItemIndex(MainGUI[15])
if HLS == -1 then return end
i = HLS+1
if t[i][3]~='' and t[i][3]~=nil then
control_setCaption(MainGUI[19] ,t[i][3])
else
control_setCaption(MainGUI[19], "no description available.")
end
end

---------------------------------------- / EXIT -----------------------------------------
function Open ()
shellExecute(" ")
end

function CloseTrainer()
form_hide(MainGUI[1])
closeCE()
end

----------------------------------------- ONCLICK EVENTS -----------------------------------------
control_onClick(MainGUI[12], scanBrowser)
control_onClick(MainGUI[13], Open )
control_onClick(MainGUI[16], ExecuteHacks)
control_onClick(MainGUI[17], ExecuteAllHacks)
control_onClick(MainGUI[23], ResetAllHacks)
setMethodProperty(MainGUI[15], 'OnSelectionChange', HackDescriptionsChange)
form_onClose(MainGUI[1], CloseTrainer)
form_show(MainGUI[1])
Back to top
View user's profile Send private message
lolAnonymous
Expert Cheater
Reputation: 1

Joined: 19 Jul 2015
Posts: 154

PostPosted: Fri Dec 11, 2015 7:47 am    Post subject: Reply with quote

Your script is fixed now and the problem was , 8 was replaced with cool
I don't know why this happened but now it is fixed

And second thing is Fluffer Nutter we can use an AA script in any LUA

Code:
----------------------------------------- VARIABLES -----------------------------------------
title=" "
credits=" "
blue="0x000000FF"
red1="0x000000FF"
pink="0x000000FF"
white="0x00FFFFFF"

function setHack_Information()
t =
{
{'Unlock Basic Unit',
[[[ENABLE]
local res = AOBScan("8B 41 70 85 C0 74 28 8B 50 08 8B 4A 50")
if res then
addrOfMyHack = getAddress(res[res.Count-1])
writeBytes(addrOfMyHack+1,0x81,0X80,0X00,0X00,0X00,0X90)
res.destroy()
else
showMessage("No results found.")
end

[DISABLE]
if addrOfMyHack then
writeBytes(addrOfMyHack+7,0x41,0x70,0x85,0xC0,0X74,0X28)
end
]],[[Unlock Basic Unit]]},

{'Unlock Event Unit',
[[
{$lua}
[ENABLE]
local res = AOBScan("8B 45 10 8B 08 8B 41 1C 85 C0 74 28 8B 50 08 8B 4A 50 8D 55")
if res then
addrOfMyHack = getAddress(res[res.Count-1])
writeBytes(addrOfMyHack+7,0x14)
res.destroy()
else
showMessage("No results found.")
end

[DISABLE]
if addrOfMyHack then
writeBytes(addrOfMyHack+7,0x1C,)
end]],[[Unlock Event Unit]]},

}
end


----------------------------------------- MAIN GUI -----------------------------------------
MainGUI = {}
MainGUI[1] = createForm(false)
MainGUI[2] = createPanel(MainGUI[1])
MainGUI[4] = createLabel(MainGUI[2])
MainGUI[5] = createGroupBox(MainGUI[2])
MainGUI[6] = createLabel(MainGUI[5])
MainGUI[7] = createLabel(MainGUI[5])
MainGUI[8] = createLabel(MainGUI[2])
MainGUI[9] = createLabel(MainGUI[5])
MainGUI[10] = createComboBox(MainGUI[5])
MainGUI[11] = createGroupBox(MainGUI[2])
MainGUI[12] = createButton(MainGUI[5])
MainGUI[13] = createLabel(MainGUI[2])
MainGUI[14] = createLabel(MainGUI[11])
MainGUI[15] = createListBox(MainGUI[11])
MainGUI[16] = createButton(MainGUI[11])
MainGUI[17] = createButton(MainGUI[11])
MainGUI[18] = createLabel(MainGUI[11])
MainGUI[19] = createLabel(MainGUI[11])
MainGUI[23] = createButton(MainGUI[11])
----------------------------------------- PROPERTIES -----------------------------------------
setProperty(MainGUI[1] , "color", red2)
setProperty(MainGUI[1] , "ShowInTaskBar", 'stAlways')
setProperty(MainGUI[1] , "Position", "poScreenCenter")
setProperty(MainGUI[1] , "BiDiMode", "bdLeftToRight")
setProperty(MainGUI[2] , "BiDiMode", "bdLeftToRight")
setProperty(MainGUI[2] , "BiDiMode", "bdLeftToRight")
setProperty(MainGUI[10] , "ReadOnly", "True")
FontHeight = getProperty(MainGUI[4] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "26")
setProperty(FontHeight , "Color", pink)
FontHeight = getProperty(MainGUI[5] , "Font")
setProperty(FontHeight , "Height", "18")
setProperty(FontHeight , "Color", pink)
FontHeight = getProperty(MainGUI[8] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "26")
setProperty(FontHeight , "Color", pink)
FontHeight = getProperty(MainGUI[9] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "16")
setProperty(FontHeight , "Color", pink)
FontHeight = getProperty(MainGUI[10] , "Font")
setProperty(FontHeight , "Height", "18")
FontHeight = getProperty(MainGUI[12] , "Font")
setProperty(FontHeight , "Height", "13")
FontHeight = getProperty(MainGUI[13] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "16")
setProperty(FontHeight , "Color", pink)
setProperty(MainGUI[13], "Cursor", "-21")
FontHeight = getProperty(MainGUI[14] , "Font")
setProperty(FontHeight , "Height", "18")
setProperty(FontHeight , "Color", pink)
FontHeight = getProperty(MainGUI[15] , "Font")
setProperty(FontHeight , "Height", "18")
FontHeight = getProperty(MainGUI[18] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "18")
setProperty(FontHeight , "Color", pink)
FontHeight = getProperty(MainGUI[19] , "Font")
setProperty(FontHeight , "Height", "18")
setProperty(FontHeight , "Color", pink)

-----------------------------------------SIZE + POS -----------------------------------------
control_setSize(MainGUI[1], 425, 512)
x,y = control_getSize(MainGUI[1])
control_setSize(MainGUI[2], x,y)
control_setSize(MainGUI[5], 404, 129)
control_setSize(MainGUI[10], 255, 21)
control_setSize(MainGUI[11], 404, 279)
control_setSize(MainGUI[12], 107, 28)
control_setSize(MainGUI[15], 255, 106)
control_setSize(MainGUI[16], 107, 26)
control_setSize(MainGUI[17], 107, 26)
control_setSize(MainGUI[23], 107, 26)
control_setPosition(MainGUI[4], 15, 10)
control_setPosition(MainGUI[5], 10, 35)
control_setPosition(MainGUI[6], 10, 5)
control_setPosition(MainGUI[8], 15, 175)
control_setPosition(MainGUI[9], 10, 75)
control_setPosition(MainGUI[10], 10, 35)
control_setPosition(MainGUI[11], 10, 205)
control_setPosition(MainGUI[12], 280, 35)
control_setPosition(MainGUI[13], 12, 490)
control_setPosition(MainGUI[14], 10, 5)
control_setPosition(MainGUI[15], 10, 35)
control_setPosition(MainGUI[16], 280, 35)
control_setPosition(MainGUI[17], 280, 76)
control_setPosition(MainGUI[18], 10, 155)
control_setPosition(MainGUI[19], 11, 180)
control_setPosition(MainGUI[23], 280, 116)

----------------------------------------- CAPTION -----------------------------------------
control_setCaption(MainGUI[1], title.." cheat ")
control_setCaption(MainGUI[4], title.." ")
control_setCaption(MainGUI[6], "Select your browser from the list.")
control_setCaption(MainGUI[8], " Cheat ")
control_setCaption(MainGUI[9], "Attached to PID: waiting...")
control_setCaption(MainGUI[12], "Select")
control_setCaption(MainGUI[13], " Cheat version ")
control_setCaption(MainGUI[14], "Enable Cheat AT 80% Loading")
control_setCaption(MainGUI[16], 'Enable selected')
control_setCaption(MainGUI[17], 'Enable all')
control_setCaption(MainGUI[18],"Description:")
control_setCaption(MainGUI[19],"select The Cheat and Click Enable")
control_setCaption(MainGUI[23], 'Reset All')
control_setEnabled(MainGUI[16], false)
control_setEnabled(MainGUI[17], false)
control_setEnabled(MainGUI[23], false)


----------------------------------------- PROGRESSBAR -----------------------------------------
MainGUI[20] = createProgressBar(MainGUI[11])
control_setPosition(MainGUI[20], 11, 180)
control_setSize(MainGUI[20], 255, 14)
control_setVisible(MainGUI[20], false)
MainGUI[21] = createLabel(MainGUI[11])
FontHeight = getProperty(MainGUI[21] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "18")
setProperty(FontHeight , "Color", pink)
control_setPosition(MainGUI[21], 10, 155)
control_setVisible(MainGUI[21], false)
MainGUI[22] = createLabel(MainGUI[11])
FontHeight = getProperty(MainGUI[22] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "18")
control_setPosition(MainGUI[22], 10, 205)
control_setVisible(MainGUI[22], false)

----------------------------------------- COMBOBOX CONTENT -----------------------------------------
setHack_Information()
al = combobox_getItems(MainGUI[10])
strings_clear(al)
strings_add(al, 'Browser list...')
strings_add(al, 'Google Chrome')
strings_add(al, 'Maxthon')
strings_add(al, 'Firefox')
strings_add(al, 'Internex Explorer')
setProperty(MainGUI[10] , "ItemIndex", "0")
all_enabled = 0
success = 1
TeL = listbox_getItems(MainGUI[15])
TempSave = {}
strings_clear(TeL)
check = 0
i = 0
repeat
if t[i+1]==nil then
check = 1
else
i = i+1
strings_add(TeL, t[i][1])
TempSave[i] = {}
TempSave[i][1] = t[i][1]
TempSave[i][2] = t[i][2]
TempSave[i][3] = t[i][3]
TempSave[i][4] = 2
TempSave[i][5] = 0
check = 0
end
until check == 1

errorOnLookupFailure(false)
alreadycheckedPIDS={}
openNextProcTimer = createTimer(nil,false)
timer_setInterval(openNextProcTimer, 1000)
timer_onTimer(openNextProcTimer,
function(sender)
local tempPIDtable = getPids()
if #tempPIDtable == 0 then return end
timer_setEnabled(sender,false)
openProcess(tempPIDtable[1])
end)

----------------------------------------- CHECKPROCESS / PIDS -----------------------------------------

function checkProcessMajor()
reinitializeSymbolhandler()
if getAddress("pepflashplayer.dll")~=0 or getAddress("AdobeCPGetAPI") ~=0 then
return true
end
return false
end

function getPids()
  local SL=createStringlist()
        getProcesslist(SL)
  local tempPIDtable={}
  for i=0,strings_getCount(SL)-1 do
    local entry = strings_getString(SL,i)
    local processname = entry:sub(10,255)
    local PID = tonumber('0x'..entry:sub(1,8))
    if processname == "chrome.exe" then
      if alreadycheckedPIDS[PID]~=true then
        table.insert(tempPIDtable,PID)
      end
    end
  end
  object_destroy(SL)
  return tempPIDtable
end

function checkProcess(sender)
timer_setEnabled(sender,false)
alreadycheckedPIDS[getOpenedProcessID()]=true
if checkProcessMajor() then
timer_setEnabled(openNextProcTimer,false)
alreadycheckedPIDS={}
enableHacks()
else
timer_setEnabled(openNextProcTimer,true)
end
end

checkProcessTimer = createTimer(nil,false)
timer_setInterval(checkProcessTimer, 100)
timer_onTimer(checkProcessTimer, checkProcess)

function onOpenProcess()
if success == 1 then return end
timer_setEnabled(checkProcessTimer,true)
end

----------------------------------------- BROWSER SELECT -----------------------------------------

function scanBrowser()
AttachItems = combobox_getItems(MainGUI[10])
AttachIndex = combobox_getItemIndex(MainGUI[10])
control_setEnabled(MainGUI[16], false)
control_setEnabled(MainGUI[17], false)
control_setEnabled(MainGUI[23], false)
local font = getProperty(MainGUI[9] , "Font")
setProperty(font, "Color", pink)
control_setCaption(MainGUI[9], "Attached to PID: " .. "Scanning Process...")
processMessages()
if AttachIndex == -1 then return end
if AttachIndex == 0 then
control_setCaption(MainGUI[9], "Attached to PID: " .. "no Browser selected.")
return
end
local check = strings_getString(AttachItems,AttachIndex)
if check == 'Google Chrome' then
success = 0
local test = openProcess("chrome.exe")
if test == nil then
setProperty(font , "Color", red1)
control_setCaption(MainGUI[9], "Attached to PID: " .. "Chrome not found.")
timer_setEnabled(openNextProcTimer,false)
return
end
strings_add(getAutoAttachList(),"chrome.exe")
timer_setEnabled(openNextProcTimer,true)
return
end
if check == 'Firefox' or check == 'Internet Explorer' then openProcess("FlashPlayerPlugin") end
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
setProperty(font , "Color", red1)
control_setCaption(MainGUI[9], "Attached to PID: " .. "Flash player plugin not found")
else
local PID=getOpenedProcessID()
setProperty(font, "Color", pink)
control_setCaption(MainGUI[9], "Attached to PID: " .. PID .. " - flash player plugin")
control_setEnabled(MainGUI[16], true)
control_setEnabled(MainGUI[17], true)
control_setEnabled(MainGUI[23], true)
end
local check = strings_getString(AttachItems,AttachIndex)
if check == 'Maxthon' then
success = 0
local test = openProcess("Maxthon.exe")
if test == nil then
setProperty(font , "Color", red1)
control_setCaption(MainGUI[9], "Attached to PID: " .. "Maxthon not found.")
timer_setEnabled(openNextProcTimer,false)
return
end
strings_add(getAutoAttachList(),"Maxthon.exe")
timer_setEnabled(openNextProcTimer,true)
return
end
end

----------------------------------------- ENABLE HACKS -----------------------------------------
function enableHacks()
setProperty(getProperty(MainGUI[9] , "Font"), "Color", pink)
local PID=getOpenedProcessID()
local check = strings_getString(AttachItems,AttachIndex)
if check == 'Firefox' or check == 'Internet Explorer' then
control_setCaption(MainGUI[9], "Attached to PID: " .. PID .. " - flash player plugin")
elseif check == 'Google Chrome' then
control_setCaption(MainGUI[9], "Attached to PID: " .. PID .. " - chrome.exe")
elseif check == 'Maxthon' then
control_setCaption(MainGUI[9], "Attached to PID: " .. PID .. " - maxthon.exe")
end
success = 1
control_setEnabled(MainGUI[16], true)
control_setEnabled(MainGUI[17], true)
control_setEnabled(MainGUI[23], true)
end

----------------------------------------- PROGRESS BAR -----------------------------------------
function show_progressbar()
control_setPosition(MainGUI[22], 10, 205)
control_setCaption(MainGUI[22], '')
control_setVisible(MainGUI[18], false)
control_setVisible(MainGUI[19], false)
control_setVisible(MainGUI[20], true)
control_setVisible(MainGUI[21], true)
control_setVisible(MainGUI[22], true)
progressbar_setPosition(MainGUI[20], 0)
end

function hide_progressbar()
control_setVisible(MainGUI[20], false)
control_setVisible(MainGUI[21], false)
control_setVisible(MainGUI[22], false)
control_setVisible(MainGUI[18], true)
control_setVisible(MainGUI[19], true)
end

----------------------------------------- EXECUTE HACKS -----------------------------------------
function ExecuteHacks()
HLS = listbox_getItemIndex(MainGUI[15])
LIST = listbox_getItems(MainGUI[15])
if HLS == -1 then return end
i = HLS+1
font=getProperty(MainGUI[21], 'Font')
control_setVisible(MainGUI[18], false)
control_setVisible(MainGUI[19], false)
control_setVisible(MainGUI[20], false)
control_setVisible(MainGUI[21], true)
control_setVisible(MainGUI[22], false)
if t[i][2]==nil then
setProperty(font, 'Color', pink)
control_setCaption(MainGUI[21], "You allready enabled this cheat !")
return
end
control_setEnabled(MainGUI[16], false)
control_setEnabled(MainGUI[17], false)
control_setEnabled(MainGUI[23], false)
control_setCaption(MainGUI[21], "Executing cheat...")
control_setVisible(MainGUI[22], true)
control_setCaption(MainGUI[22], '')
control_setPosition(MainGUI[22], 10, 185)
strings_setString(LIST, HLS, t[i][1])
processMessages()
if TempSave[i][4] == 2 then
Asm = autoAssemble(t[i][2])
font=getProperty(MainGUI[22], 'Font')
control_setCaption(MainGUI[21], "Executing cheat. Finished.")
if AobSwapCheck~=true then
TempText = t[i][1]..' - Failed'
TempSave[i][5] = t[i][1]..' - Failed'
strings_setString(LIST, HLS, TempText)
setProperty(font, 'Color', red1)
control_setCaption(MainGUI[22], 'Failed to enable !\cheat already enabled or game was updated.')
else
TempText = t[i][1]..' - Enabled'
TempSave[i][5] = t[i][1]..' - Enabled'
strings_setString(LIST, HLS, TempText)
setProperty(font, 'Color', pink)
control_setCaption(MainGUI[22], 'Cheat enabled. Enjoy it !')
t[i][2] = nil
TempSave[i][4] = 1
end
end
if TempSave[i][4] == 0 then TempSave[i][4] = 2 end
control_setEnabled(MainGUI[16], true)
control_setEnabled(MainGUI[17], true)
control_setEnabled(MainGUI[23], true)
end

----------------------------------------- EXECUTE ALL HACKS -----------------------------------------
function ExecuteAllHacks()
font=getProperty(MainGUI[21], 'Font')
if all_enabled == 1 then
control_setVisible(MainGUI[18], false)
control_setVisible(MainGUI[19], false)
control_setVisible(MainGUI[20], false)
control_setVisible(MainGUI[21], true)
control_setVisible(MainGUI[22], false)
setProperty(font, 'Color', pink)
control_setCaption(MainGUI[21], "You already enabled all cheats !")
return
end
lb = listbox_getItems(MainGUI[15])
LIST = listbox_getItems(MainGUI[15])
control_setEnabled(MainGUI[16], false)
control_setEnabled(MainGUI[17], false)
control_setEnabled(MainGUI[23], false)
show_progressbar()
progressbar_setMax(MainGUI[20], strings_getCount(lb))
for i = 1, strings_getCount(lb) do
strings_setString(LIST, i-1, t[i][1])
end
count = 0
for i = 1, strings_getCount(lb) do
control_setCaption(MainGUI[21], "Executing Cheat: "..t[i][1])
progressbar_setPosition(MainGUI[20], i)
processMessages()
if TempSave[i][4] == 2 then
Asm = autoAssemble(t[i][2])
if AobSwapCheck~=true then
TempSave[i][5] = t[i][1]..' - Failed'
strings_setString(LIST, i-1, TempSave[i][5])
else
TempSave[i][5] = t[i][1]..' - Enabled'
strings_setString(LIST, i-1, TempSave[i][5])
t[i][2] = nil
TempSave[i][4] = 1
count = count + 1
end
else
count = count + 1
TempSave[i][5] = t[i][1]..' - Enabled'
strings_setString(LIST, i-1, TempSave[i][5])
end
if TempSave[i][4] == 0 then TempSave[i][4] = 2 end
end
control_setEnabled(MainGUI[16], true)
control_setEnabled(MainGUI[17], true)
control_setEnabled(MainGUI[23], true)
control_setCaption(MainGUI[21], "Executing Cheat. Finished ! ")
font=getProperty(MainGUI[22], 'Font')
if count == strings_getCount(lb) then
setProperty(font, 'Color', pink)
control_setCaption(MainGUI[22], 'All Cheats enabled. Enjoy it !')
all_enabled = 1
else
diff = strings_getCount(lb) - count
if diff == 1 then
text = "hack"
else
text = "hacks"
end
setProperty(font, 'Color', red1)
control_setCaption(MainGUI[22], 'Failed to enable ' .. diff .. ' ' .. text .. ' !')
end
end

----------------------------------------- RESET HACKS -----------------------------------------
function ResetAllHacks()
lb = listbox_getItems(MainGUI[15])
ct = strings_getCount(lb)
for i = 1, ct do
strings_setString(lb, i-1, t[i][1])
TempSave[i][4] = 2
t[i][2]= TempSave[i][2]
end
all_enabled = 0
hide_progressbar()
control_setVisible(MainGUI[19], false)
control_setCaption(MainGUI[18], 'All Cheats reseted.')
end

----------------------------------------- AOB SWAP -----------------------------------------
function DEC_HEX(IN)
local B,K,OUT,I,D=16,"0123456789ABCDEF","",0
if IN<1 then
OUT=0
return OUT
end
while IN>0 do
I=I+1
IN,D=math.floor(IN/B),math.mod(IN,B)+1
OUT=string.sub(K,D,D)..OUT
end
return OUT
end

function Aobswap(search, change)
aobs = AOBScan(search, "+W")
if(aobs == nil) then
AobSwapCheck=false
else
j = stringlist_getCount(aobs)
for i = 1, j do
address=stringlist_getString(aobs,i-1)
for i = 1, string.len(change), 3 do
z = string.sub(change, i, i+2)
x, y = string.find(z, "%?+")
if (x == nil) then
script=[[
]]..address.."+"..(DEC_HEX((i-1)/3))..[[:
db ]]..z..[[
]]
autoAssemble(script)
end
end
end
object_destroy(aobs);
aobs=nil
AobSwapCheck=true
end
end

----------------------------------------- HACK DESCRIPTION -----------------------------------------
function HackDescriptionsChange()
hide_progressbar()
control_setCaption(MainGUI[18], 'Description:')
HLS = listbox_getItemIndex(MainGUI[15])
if HLS == -1 then return end
i = HLS+1
if t[i][3]~='' and t[i][3]~=nil then
control_setCaption(MainGUI[19] ,t[i][3])
else
control_setCaption(MainGUI[19], "no description available.")
end
end

---------------------------------------- / EXIT -----------------------------------------
function Open ()
shellExecute(" ")
end

function CloseTrainer()
form_hide(MainGUI[1])
closeCE()
end

----------------------------------------- ONCLICK EVENTS -----------------------------------------
control_onClick(MainGUI[12], scanBrowser)
control_onClick(MainGUI[13], Open )
control_onClick(MainGUI[16], ExecuteHacks)
control_onClick(MainGUI[17], ExecuteAllHacks)
control_onClick(MainGUI[23], ResetAllHacks)
setMethodProperty(MainGUI[15], 'OnSelectionChange', HackDescriptionsChange)
form_onClose(MainGUI[1], CloseTrainer)
form_show(MainGUI[1])


Thank U,
Back to top
View user's profile Send private message
Dun
Newbie cheater
Reputation: 0

Joined: 10 Dec 2015
Posts: 12

PostPosted: Fri Dec 11, 2015 8:43 am    Post subject: Reply with quote

thank you Master sir

what is the difference using AOB writeable and un writeable on cheat engine will affect the AOBscan in script?
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Cheat Engine Forum Index -> Cheat Engine Lua Scripting All times are GMT - 6 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group

CE Wiki   IRC (#CEF)   Twitter
Third party websites