wc3edit.net

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'

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'