<?xml version="1.0" encoding="utf-8"?>
<CheatTable>
  <CheatEntries>
    <CheatEntry>
      <ID>22</ID>
      <Description>"Enable"</Description>
      <LastState Activated="1"/>
      <VariableType>Auto Assembler Script</VariableType>
      <AssemblerScript>{ Game   : coromon.exe
  Version:
  Date   : 2022-04-01
  Author : cfe

  This script does blah blah blah
}

[ENABLE]

aobscanmodule(aobLuaGameState,CoronaLabs.Corona.Native.dll,FF 50 04 40 6A 00 50 57) // should be unique
alloc(newmem,$1000)

label(code)
label(return)
label(pLuaState)
registersymbol(pLuaState)

newmem:

code:
  mov [pLuaState],edi
  call dword ptr [eax+04]
  inc eax
  push 00
  jmp return
pLuaState:
dd 0

aobLuaGameState:
  jmp newmem
  nop
return:
registersymbol(aobLuaGameState)


alloc(DoString,$1000,$process)
registersymbol(DoString)

label(Skip)

DoString:
sub esp,20
cmp [pLuaState],0
jne @f
 mov eax,#99
 jmp Skip
@@:
push [esp+24]
push [pLuaState]
call lua.luaL_loadstring
add esp,8
test eax,eax
jne Skip
push 0
push 0
push 0
push -1
push 0
push [pLuaState]
call lua.lua_pcall
add esp,18
Skip:
add esp,20
ret


[DISABLE]

aobLuaGameState:
  db FF 50 04 40 6A 00

dealloc(newmem)
dealloc(DoString)
unregistersymbol(*)

</AssemblerScript>
      <CheatEntries>
        <CheatEntry>
          <ID>21</ID>
          <Description>"NoClip"</Description>
          <LastState/>
          <VariableType>Auto Assembler Script</VariableType>
          <AssemblerScript>{$lua}
if syntaxcheck then return end
--x86 CDECL Call!
[ENABLE]

local Ret = executeCodeEx(1, nil, getAddress("DoString"),"debugSettings.noClipMode = true")
if (Ret ~= 0 ) then print(string.format("Lua Error: %d",Ret)) error("") end

[DISABLE]
local Ret = executeCodeEx(1, nil, getAddress("DoString"),"debugSettings.noClipMode = false")
if (Ret ~= 0 ) then print(string.format("Lua Error: %d",Ret)) error("") end
</AssemblerScript>
        </CheatEntry>
        <CheatEntry>
          <ID>24</ID>
          <Description>"AlwaysCatchSuccessfully"</Description>
          <LastState Activated="1"/>
          <VariableType>Auto Assembler Script</VariableType>
          <AssemblerScript>{$lua}
if syntaxcheck then return end
--x86 CDECL Call!
[ENABLE]
local Ret = executeCodeEx(1, nil, getAddress("DoString"),"debugSettings.alwaysCatchSuccessfully = true")
if (Ret ~= 0 ) then print(string.format("Lua Error: %d",Ret)) error("") end

[DISABLE]
local Ret = executeCodeEx(1, nil, getAddress("DoString"),"debugSettings.alwaysCatchSuccessfully = false")
if (Ret ~= 0 ) then print(string.format("Lua Error: %d",Ret)) error("") end
</AssemblerScript>
        </CheatEntry>
        <CheatEntry>
          <ID>26</ID>
          <Description>"SkipWildBattles"</Description>
          <LastState Activated="1"/>
          <VariableType>Auto Assembler Script</VariableType>
          <AssemblerScript>{$lua}
if syntaxcheck then return end
--x86 CDECL Call!
[ENABLE]
local Ret = executeCodeEx(1, nil, getAddress("DoString"),"debugSettings.skipWildBattles = true")
if (Ret ~= 0 ) then print(string.format("Lua Error: %d",Ret)) error("") end

[DISABLE]
local Ret = executeCodeEx(1, nil, getAddress("DoString"),"debugSettings.skipWildBattles = false")
if (Ret ~= 0 ) then print(string.format("Lua Error: %d",Ret)) error("") end
</AssemblerScript>
        </CheatEntry>
      </CheatEntries>
    </CheatEntry>
  </CheatEntries>
</CheatTable>