wc3edit.net
https://forum.wc3edit.net/

Warcraft III MapHack
https://forum.wc3edit.net/warcraft-map-discussion-f67/warcraft-iii-maphack-t38828.html		 Page 1 of 1
Author:  DontSueMe [ March 1st, 2023, 1:52 am ]
Post subject:  Warcraft III MapHack
Image


Cheat Engine LUA Script
Code:
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
Author:  Vegas [ March 1st, 2023, 12:12 pm ]
Post subject:  Re: Warcraft III MapHack
So what exactly is this?

Code:
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'
Author:  DontSueMe [ March 2nd, 2023, 3:32 pm ]
Post subject:  Re: Warcraft III MapHack
Vegas wrote:
So what exactly is this?

Code:
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"
Author:  Vegas [ March 2nd, 2023, 5:26 pm ]
Post subject:  Re: Warcraft III MapHack
OK. To me it looks like you type in a phrase and it says meow.
Page 1 of 1 All times are UTC
Powered by phpBB® Forum Software © phpBB Group
http://www.phpbb.com/