1fmAPQualityOfLife.lua

LUAGUI_NAME = "kh1fmAP"
LUAGUI_AUTH = "Gicu & Sonicshadowsilver2"
LUAGUI_DESC = "Kingdom Hearts 1FM AP Integration"

local offset = 0x3A0606
local canExecute = false

Now = 0x233CADC - offset
Items = 0x2DE5E6A - offset
ChestFlags = 0x2DE60CC - offset
EventFlags = 0x2DE67D8 - offset
RoomFlags = 0x2DE7AAE - offset
CutsceneFlags = 0x2DE63D0 - offset
KeybladeExplanation = 0x2DE66DE - offset

function BitOr(Address,Bit,Abs)
    WriteByte(Address,ReadByte(Address)|Bit,Abs and OnPC)
end

function BitNot(Address,Bit,Abs)
    WriteByte(Address,ReadByte(Address)&~Bit,Abs and OnPC)
end

function _OnInit()
    if GAME_ID == 0xAF71841E and ENGINE_TYPE == "BACKEND" then
        canExecute = true
        ConsolePrint("KH1 detected, running script")
    else
        ConsolePrint("KH1 not detected, not running script")
    end
end
    
function _OnFrame()
    if canExecute then
       if ReadByte(EventFlags+0x0E60) == 0x00 then --No Red Trinities Activated
           WriteByte(EventFlags+0x0E60, 0x01) --Activated 1 Red Trinity because Secret Waterway Entrance
       end
       if ReadByte(EventFlags+0x0EB5) == 0x01 then --Stepped on All 3 Switches in Gizmo Shop
           WriteByte(EventFlags+0x0EB5, 0x03) --No Wait Time for the 2 Postcards
       end
       if ReadByte(Now+0x00) == 0x04 and ReadByte(EventFlags+0x0F06) == 0x00 then
           WriteByte(EventFlags+0x0F06, 0xFF) --All Evidence Boxes Opened
       end
       if ReadByte(Items+0xDE) == 0x01 and ReadByte(EventFlags+0x00) == 0x00 then
           WriteByte(EventFlags+0x00, 0x01) --Found Footprints
       end
       if ReadShort(EventFlags+0x1001) == 0x0100 then --Only Shiva Belt Chest spawned
           WriteByte(EventFlags+0x100A, 0x02)
       end
       if ReadByte(CutsceneFlags+0x0B06) < 0x32 and ReadByte(EventFlags+0x1008) == 0x00 and ReadByte(EventFlags+0x0125) == 0x00 then
           WriteByte(EventFlags+0x1008, 0x01) --Remove Olympus Coliseum Yellow Trinity before End of 1st Visit
       elseif ReadByte(CutsceneFlags+0x0B06) >= 0x32 and ReadByte (EventFlags+0x1008) == 0x01 and ReadByte(EventFlags+0x0125) == 0x00 then
           WriteByte(EventFlags+0x1008, 0x00) --Restore Olympus Coliseum Yellow Trinity after End of 1st Visit
       end
       if ReadByte(Now+0x00) == 0x05 and ReadByte(Now+0x68) == 0x09 and ReadByte(CutsceneFlags+0x0B05) == 0x53 then
           WriteByte(CutsceneFlags+0x0B05, 0x50) --Deep Jungle Clayton Softlock Fix
           WriteInt(EventFlags+0x0F24, 0x00010101)
       end
       if ReadByte(Now+0x00) ~= 0x0C or ReadByte(Now+0x00) == 0x0C and ReadByte(Now+0x68) ~= 0x0A then --Not in Monstro: Chamber 6
           if ReadByte(ChestFlags+0xCC) == 0x00 and ReadByte(EventFlags+0x0E6E) > 0x7F then --Activated White Trinity, Didn't Open Chest
               WriteByte(EventFlags+0x0E63,ReadByte(EventFlags+0x0E63)-1) --Subtract Activated White Trinities by 1
               BitNot(EventFlags+0x0E6E, 0x80) --Respawn White Trinity in Monstro: Chamber 6
           end
       end
       if ReadByte(Items+0xE3) > 0x00 and ReadByte(CutsceneFlags+0x0B0C) == 0x2B and ReadByte(ChestFlags+0x00) == 0x02 then
           WriteByte(CutsceneFlags+0x0B0C, 0x32) --HT Story Progression after finding Jack-in-the-Box
           WriteByte(RoomFlags+0x19, 0x05) --Boneyard Room Flag
           WriteByte(RoomFlags+0x1E, 0x03) --Research Lab Room Flag
       end
       if ReadByte(KeybladeExplanation) ~= 0x01 then
           WriteByte(KeybladeExplanation, 0x01)
       end
    end
end