<?xml version="1.0" encoding="utf-8"?>
<CheatTable>
  <CheatEntries>
    <CheatEntry>
      <ID>27060</ID>
      <Description>"Enable 4.1.7"</Description>
      <Options moDeactivateChildrenAsWell="1"/>
      <LastState Activated="1"/>
      <Color>0000FF</Color>
      <VariableType>Auto Assembler Script</VariableType>
      <AssemblerScript Async="1">{$lua}
if syntaxcheck then return end
--print(string.format("%X",0))

function aobScanEx( aob )
  local Proc = "GameAssembly.dll"
  local p, a, n, s, e = nil or '*X*W', nil or fsmNotAligned, nil or '0', getAddress( Proc ) or 0x0, ( getAddress( Proc ) + getModuleSize( Proc ) ) or 0xffffffffffffffff
  local ms = pb and createMemScan( pb ) or createMemScan()
  local fl = createFoundList( ms )
  ms.firstScan( soExactValue, vtByteArray, nil, aob, nil, s, e, p, a, n, true, false, false, false )
  ms.waitTillDone()
  fl.initialize()
  local result = nil
  if fl ~= nil and fl.getCount() &gt; 0 then
    result = createStringlist()
    for i = 1, fl.getCount() do result.add( fl.getAddress( i - 1 ) ) end
  end
  fl.destroy()
  ms.destroy()
  return result
end

function string.fromhex( s )
    return ( s:gsub( '..', function ( cc )
        return string.char( tonumber( cc, 16 ) )
    end ) )
end

function aobScanSmall( aob, s, e )
  local i = byteTableToString( readBytes( s, e, true ) ):find( string.fromhex( aob ), 1, true )
  if i == nil then i = 1 end
  return ( s + i - 1 )
end

function EnableHook()
  local B = getAddressSafe( "GameAssembly.dll" )
  local O = 0x500
  qCaveAdd = B + O
  fullAccess( qCaveAdd, 0x500)
  executeCodeEx( 0, nil, getAddressSafe( "RtlZeroMemory" ), qCaveAdd, 0x500 )
  unregisterSymbol( "CodeCave" )
  registerSymbol( "CodeCave", qCaveAdd, true )

  ----
  ----

  local pInsideRemoveCur = "48 8B 43 20 0F 28 F0 48 85 C0 0F"
  pInsideRemoveCur = aobScanEx( pInsideRemoveCur )
  local t = tonumber( pInsideRemoveCur[0], 16 )

  pInsideRemoveCur = aobScanSmall( "40534881EC", (t-120), 0x100 )
  unregisterSymbol( "pInsideCur" )
  registerSymbol( "pInsideCur", pInsideRemoveCur, true )

  AutoAssemble([[
aobscanmodule(aobCallRemoveCur,GameAssembly.dll,0F 10 83 38 03 00 00 45 33 C0 48 8D 55 C7 0F 10 8B 48 03 00 00 48 8B C8 0F 29 45 C7 0F 10 83 58 03 00 00 0F 29 4D D7 0F 10 8B 68 03 00 00 0F 29 45 E7 0F 10 83 78 03 00 00 0F 29 4D F7 F2 0F 10 8B 88 03 00 00 0F 29 45 07 F2 0F 11 4D 17 E8 ** ** ** ** 33 D2 48 8B CB) // should be unique
label(pRemoveCur)
registersymbol(pRemoveCur)

aobCallRemoveCur+4D+(DWORD)[aobCallRemoveCur+4F]+06:
pRemoveCur:

registersymbol(aobCallRemoveCur)

//

aobscanmodule(aobCallDamageMember,GameAssembly.dll,41 FF 92 80 01 00 00 48 8B 4E) // should be unique

label(return)
label(pDamage)
registersymbol(pDamage)


CodeCave:
  push rax
  mov rax,[r10+180]
  mov [pDamage],rax
  pop rax
  call qword ptr [r10+00000180]
  jmp return
pDamage:
dq 0

aobCallDamageMember:
  jmp CodeCave
  nop 2
return:
registersymbol(aobCallDamageMember)

  ]])

end

[ENABLE]

return EnableHook()

[DISABLE]

local pCodeCave = getAddressSafe( "CodeCave" )
executeCodeEx( 0, nil, getAddressSafe( "RtlZeroMemory" ), pCodeCave, 0x500 )

unregisterSymbol( "pInsideCur" )
unregisterSymbol( "CodeCave" )

  AutoAssemble([[
unregistersymbol(aobCallRemoveCur)

aobCallDamageMember:
  db 41 FF 92 80 01 00 00

unregistersymbol(aobCallDamageMember)
dealloc(newmem)
  ]])


</AssemblerScript>
      <CheatEntries>
        <CheatEntry>
          <ID>27115</ID>
          <Description>"Easy Kills"</Description>
          <LastState Activated="1"/>
          <VariableType>Auto Assembler Script</VariableType>
          <AssemblerScript>{ Game   : Firestone.exe
  Version:
  Date   : 2021-05-01
  Author : cfe

  This script does blah blah blah
}

[ENABLE]


aobscanregion(aobSubHealth,[pDamage],7fffffffffffffff,0F 29 45 C0 48 8D 4D 30) // should be unique

label(return)

newmem:

CodeCave+100:
  movaps [rbp-40],xmm0
  lea rcx,[rbp+30]
  xorpd xmm0,xmm0
  movupd [rdx],xmm0
  jmp return

aobSubHealth:
  jmp CodeCave+100
  nop 3
return:
registersymbol(aobSubHealth)

[DISABLE]

aobSubHealth:
  db 0F 29 45 C0 48 8D 4D 30

unregistersymbol(aobSubHealth)



</AssemblerScript>
        </CheatEntry>
        <CheatEntry>
          <ID>27110</ID>
          <Description>"No Gold Loss"</Description>
          <LastState Activated="1"/>
          <VariableType>Auto Assembler Script</VariableType>
          <AssemblerScript>[ENABLE]
pRemoveCur:
db C3


[DISABLE]
pRemoveCur:
db 4C
</AssemblerScript>
        </CheatEntry>
        <CheatEntry>
          <ID>27097</ID>
          <Description>"No Currency Loss"</Description>
          <LastState Activated="1"/>
          <VariableType>Auto Assembler Script</VariableType>
          <AssemblerScript>[ENABLE]
pInsideCur:
db C3



[DISABLE]
pInsideCur:
db 40
</AssemblerScript>
        </CheatEntry>
        <CheatEntry>
          <ID>27107</ID>
          <Description>"Free Shop (use with no currency loss)"</Description>
          <LastState Activated="1"/>
          <VariableType>Auto Assembler Script</VariableType>
          <AssemblerScript>[ENABLE]

aobscanmodule(aobHaveCurrencyPurchase,GameAssembly.dll,0F 84 03 FF FF FF 48 8B 43) // should be unique

aobHaveCurrencyPurchase:
  db 90 90 90 90 90 90

registersymbol(aobHaveCurrencyPurchase)

[DISABLE]

aobHaveCurrencyPurchase:
  db 0F 84 03 FF FF FF

unregistersymbol(aobHaveCurrencyPurchase)
</AssemblerScript>
        </CheatEntry>
      </CheatEntries>
    </CheatEntry>
  </CheatEntries>
</CheatTable>