[Module] Treasure Finder

<?xml version="1.0" encoding="utf-8"?>
<CheatTable>
  <CheatEntries>
    <CheatEntry>
      <ID>21759</ID>
      <Description>"[Module] Treasure Finder"</Description>
      <Options moHideChildren="1"/>
      <LastState/>
      <Color>FF8000</Color>
      <VariableType>Auto Assembler Script</VariableType>
      <AssemblerScript>[ENABLE]

alloc(treasure_map, 4)
registerSymbol(treasure_map)

[DISABLE]

dealloc(treasure_map)
unregisterSymbol(treasure_map)
</AssemblerScript>
      <CheatEntries>
        <CheatEntry>
          <ID>21758</ID>
          <Description>"Treasure Map"</Description>
          <DropDownList DescriptionOnly="1">0:Bard's Crossing
1:Benedict Point
2:Blackbone Forest
3:Bluewater Marsh
4:Brandywine Drop
5:Burned Town
6:Calumet Ravine
7:Cattail Pond
8:Citadel Rock
9:Civil War Battlefield [unknown]
10:Cumberland Forest West [unknown]
11:Dakota River Bend
12:Diablo Ridge
13:East Watsons
14:Gaptooth Breach
15:Hanging Rock
16:Hawks Eye Creek [unknown]
17:Hennigan's Stead (Center)
18:Hennigan's Stead (North)
19:Kamassa River
20:Lake Isabella
21:Little Creek
22:North Clingman
23:North Ridgewood
24:North Tumbleweed
25:O'Creagh's Run
26:San Luis Shore
27:Southern Raanoke
28:West Hill Haven [unknown]
</DropDownList>
          <ShowAsSigned>0</ShowAsSigned>
          <VariableType>4 Bytes</VariableType>
          <Address>treasure_map</Address>
        </CheatEntry>
        <CheatEntry>
          <ID>21761</ID>
          <Description>"Treasure Pointer"</Description>
          <LastState Value="1" RealAddress="24C747B6ED8"/>
          <ShowAsSigned>0</ShowAsSigned>
          <VariableType>4 Bytes</VariableType>
          <Address>"RDR2.exe"+04A468F8</Address>
          <Offsets>
            <Offset>DC0</Offset>
          </Offsets>
        </CheatEntry>
        <CheatEntry>
          <ID>21760</ID>
          <Description>"Teleport to Treasure"</Description>
          <LastState/>
          <VariableType>Auto Assembler Script</VariableType>
          <AssemblerScript>[ENABLE]

{$lua}

local TREASURE_MAPS = getAddressList().GetMemoryRecordByDescription("Treasure Maps")
local TREASURE_MAP = getAddressList().GetMemoryRecordByDescription("Treasure Map")
local TREASURE_POINTER = getAddressList().GetMemoryRecordByDescription("Treasure Pointer")

local treasure_map = TREASURE_MAPS.Child[tonumber(TREASURE_MAP.Value)]
local treasure_point = tonumber(TREASURE_POINTER.Value)

if treasure_point == 0 then treasure_map.Child[0].Active = true end
if treasure_point == 1 then treasure_map.Child[1].Active = true end
if treasure_point == 2 then treasure_map.Child[2].Active = true end
if treasure_point == 3 then treasure_map.Child[3].Active = true end

local THIS = getAddressList().GetMemoryRecordByDescription("Teleport to Treasure")

local timer = createTimer()
timer.Interval = 2500
timer.OnTimer = function() THIS.Active = false; timer.destroy() end

{$asm}

[DISABLE]
</AssemblerScript>
        </CheatEntry>
        <CheatEntry>
          <ID>21762</ID>
          <Description>"Guide"</Description>
          <LastState/>
          <VariableType>Auto Assembler Script</VariableType>
          <AssemblerScript>[ENABLE]

{$lua}
GetLuaEngine().Show()
GetLuaEngine().MenuItem5.doClick()

print("1. Double click on Value 'Treasure Map', select your treasure map")
print("2. Use 'Teleport to Treasure' for teleportation")
print("3. Enjoy")

{$asm}

[DISABLE]

{$lua}

GetLuaEngine().Hide()
GetLuaEngine().MenuItem5.doClick()

{$asm}
</AssemblerScript>
        </CheatEntry>
        <CheatEntry>
          <ID>21763</ID>
          <Description>"Credits"</Description>
          <LastState/>
          <VariableType>Auto Assembler Script</VariableType>
          <AssemblerScript>[ENABLE]

{$lua}
GetLuaEngine().Show()
GetLuaEngine().MenuItem5.doClick()

print("distroyce")
print("wypierdalaj66")

{$asm}

[DISABLE]

{$lua}

GetLuaEngine().Hide()
GetLuaEngine().MenuItem5.doClick()

{$asm}
</AssemblerScript>
        </CheatEntry>
      </CheatEntries>
    </CheatEntry>
  </CheatEntries>
</CheatTable>