Script/addon/WA to make dark frames and entire UI

[Drmanaburn-ravencrest]

I was using before veeery old script from cata to make my frames dark and all ui. But it stopped working after great ui changes. I’m not familiar with API if anybody could help me much appreciate. It also will help people who wants dark ui like me. Might find this topic in google

This is my script:

local ef=CreateFrame("Frame")
       
          ef:RegisterEvent("ADDON_LOADED")
             ef:SetScript("OnEvent", function(self, event, addon)
                 if(addon=="Blizzard_TimeManager") then
              for i,v in pairs({
                   
                    PlayerFrameTexture,
                    TargetFrameTextureFrameTexture,
                    PetFrameTexture,
                            PartyMemberFrame1Texture,
                            PartyMemberFrame2Texture,
                            PartyMemberFrame3Texture,
                            PartyMemberFrame4Texture,
                    PartyMemberFrame1PetFrameTexture,
                    PartyMemberFrame2PetFrameTexture,
                    PartyMemberFrame3PetFrameTexture,
                    PartyMemberFrame4PetFrameTexture,
                            FocusFrameTextureFrameTexture,
                            TargetFrameToTTextureFrameTexture,
                            FocusFrameToTTextureFrameTexture,
            BonusActionBarFrameTexture0,
                    BonusActionBarFrameTexture1,
                    BonusActionBarFrameTexture2,
                    BonusActionBarFrameTexture3,
                    BonusActionBarFrameTexture4,   
                            MainMenuBarTexture0,
                            MainMenuBarTexture1,
                            MainMenuBarTexture2,
                            MainMenuBarTexture3,
            MainMenuMaxLevelBar0,
            MainMenuMaxLevelBar1,
                    MainMenuMaxLevelBar2,
                    MainMenuMaxLevelBar3,
                            MinimapBorder,
                    CastingBarFrameBorder,
                    FocusFrameSpellBarBorder,
                    TargetFrameSpellBarBorder,
                            MiniMapTrackingButtonBorder,
                            MiniMapLFGFrameBorder,
                            MiniMapBattlefieldBorder,
                            MiniMapMailBorder,     
     
                    select(1, TimeManagerClockButton:GetRegions()),
                    --select(1, GameTimeFrame:GetRegions()),
                  }) do
                     v:SetVertexColor(.4, .4, .4)
                  end
                    for i,v in pairs({
                    select(2, TimeManagerClockButton:GetRegions()),
                            }) do
                     v:SetVertexColor(1, 1, 1)
                  end
            self:UnregisterEvent("ADDON_LOADED")
            ef:SetScript("OnEvent", nil)
        end
    end)
              for i,v in pairs({
                    MainMenuBarLeftEndCap,
            MainMenuBarRightEndCap,  
                  }) do
                     v:SetVertexColor(.35, .35, .35)
                  end