Page 1 of 1
Warcraft III MapHack
Posted: March 1st, 2023, 1:52 am
by DontSueMe
Cheat Engine LUA Script
Code: Select all
function AOBRep(search, change)
local ce = getMainForm()
local process = openProcess("Warcraft III.exe")
local aob = AOBScan(search)
if aob then
for i=0,aob.Count-1 do
if string.sub(aob[i], -4) ~= "B773" then
autoAssemble(aob[i]..':\ndb '..change)
end
end
aob.Destroy()
end
end
function test()
searchV = '66 0B 0C 50'
replaceV = '66 83 C9 01'
AOBRep(searchV,replaceV)
searchV = '66 0B 14 70'
replaceV = '66 83 CA 01'
AOBRep(searchV,replaceV)
searchV = 'F6 43 24 01'
replaceV = '90 90 90 90'
AOBRep(searchV,replaceV)
end
MyForm = createForm(true)
MyForm.Caption = 'Lots of Meow'
MyForm.Width = 297
MyForm.Height = 60
shbf = createButton(MyForm)
shbf.Left = 20
shbf.Top = 10
shbf.Width = 125
shbf.Height = 40
shbf.onClick = test
shbf.Caption = 'Enable Meow'
shbf = createButton(MyForm)
shbf.Left = 150
shbf.Top = 10
shbf.Width = 125
shbf.Height = 40
shbf.onClick = MyForm.close
shbf.Caption = 'Exit Meow'
Re: Warcraft III MapHack
Posted: March 1st, 2023, 12:12 pm
by Vegas
So what exactly is this?
Code: Select all
function AOBRep(search, change)
local ce = getMainForm()
local process = openProcess("Warcraft III.exe")
local aob = AOBScan(search)
if aob then
for i=0,aob.Count-1 do
if string.sub(aob[i], -4) ~= "B773" then
autoAssemble(aob[i]..':\ndb '..change)
end
end
aob.Destroy()
end
end
function test()
searchV = '66 0B 0C 50'
replaceV = '66 83 C9 01'
AOBRep(searchV,replaceV)
searchV = '66 0B 14 70'
replaceV = '66 83 CA 01'
AOBRep(searchV,replaceV)
searchV = 'F6 43 24 01'
replaceV = '90 90 90 90'
AOBRep(searchV,replaceV)
end
MyForm = createForm(true)
MyForm.Caption = 'Lots of Meow'
MyForm.Width = 297
MyForm.Height = 60
shbf = createButton(MyForm)
shbf.Left = 20
shbf.Top = 10
shbf.Width = 125
shbf.Height = 40
shbf.onClick = test
shbf.Caption = 'Enable Meow'
shbf = createButton(MyForm)
shbf.Left = 150
shbf.Top = 10
shbf.Width = 125
shbf.Height = 40
shbf.onClick = MyForm.close
shbf.Caption = 'Exit Meow'
Re: Warcraft III MapHack
Posted: March 2nd, 2023, 3:32 pm
by DontSueMe
Vegas wrote:So what exactly is this?
Code: Select all
function AOBRep(search, change)
local ce = getMainForm()
local process = openProcess("Warcraft III.exe")
local aob = AOBScan(search)
if aob then
for i=0,aob.Count-1 do
if string.sub(aob[i], -4) ~= "B773" then
autoAssemble(aob[i]..':\ndb '..change)
end
end
aob.Destroy()
end
end
function test()
searchV = '66 0B 0C 50'
replaceV = '66 83 C9 01'
AOBRep(searchV,replaceV)
searchV = '66 0B 14 70'
replaceV = '66 83 CA 01'
AOBRep(searchV,replaceV)
searchV = 'F6 43 24 01'
replaceV = '90 90 90 90'
AOBRep(searchV,replaceV)
end
MyForm = createForm(true)
MyForm.Caption = 'Lots of Meow'
MyForm.Width = 297
MyForm.Height = 60
shbf = createButton(MyForm)
shbf.Left = 20
shbf.Top = 10
shbf.Width = 125
shbf.Height = 40
shbf.onClick = test
shbf.Caption = 'Enable Meow'
shbf = createButton(MyForm)
shbf.Left = 150
shbf.Top = 10
shbf.Width = 125
shbf.Height = 40
shbf.onClick = MyForm.close
shbf.Caption = 'Exit Meow'
"Cheat Engine LUA Script"
Re: Warcraft III MapHack
Posted: March 2nd, 2023, 5:26 pm
by Vegas
OK. To me it looks like you type in a phrase and it says meow.