Warcraft III MapHack

General discussion of Warcraft 3. Threads may may be posted here if they don't fit into the other sections.

Moderator: Cheaters

Post Reply
DontSueMe
Newcomer
Posts: 2
Joined: March 1st, 2023, 1:30 am

Warcraft III MapHack

Post by DontSueMe »

Image

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'
Image
User avatar
Vegas
Shopping Maul USA Creator
Posts: 1735
Joined: January 18th, 2007, 11:07 am
Title: No Comment
Location: Calgary Canada

Re: Warcraft III MapHack

Post 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'
DontSueMe
Newcomer
Posts: 2
Joined: March 1st, 2023, 1:30 am

Re: Warcraft III MapHack

Post 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"
User avatar
Vegas
Shopping Maul USA Creator
Posts: 1735
Joined: January 18th, 2007, 11:07 am
Title: No Comment
Location: Calgary Canada

Re: Warcraft III MapHack

Post by Vegas »

OK. To me it looks like you type in a phrase and it says meow.
Post Reply