2 questions on the timer

Hubb777 · 03-16-24, 11:05 PM

Hi all. Thanks again to Fizzlemizz, without him I couldn't do anything.

Data:
There are 4 events (A, B, C and D) and they go cyclically and endlessly (example: A, B, C, D, A, B, C, D, A, B, C and D)
The interval between all events is 1 hour (example Between event A and event B is 1 hour, between event B and event C is one hour, between event C and event D is 1 hour).
Events always last 5 minutes.
What is needed: For the event to be displayed correctly (where starttime = 1679572800, this is the start of event A).
For example, if I enter the game 3 hours 30 minutes after the start of event A, it will show me that event D will begin soon.

Source

Lua Code:

local addonName, addon = ...
local Backdrop = {
    bgFile = "Interface\\DialogFrame\\UI-DialogBox-Background",
}
 
local frame_x = 100     
local frame_y = -250    
local f = CreateFrame("Button", "ZAMTimer777", UIParent, "BackdropTemplate")
f:SetWidth(185)                                          
f:SetHeight(30)
f:SetBackdrop(Backdrop)
f.text = f:CreateFontString(nil,"OVERLAY","GameTooltipText")
f.text:SetPoint("CENTER")
f:SetClampedToScreen(true)
f:SetPoint("CENTER",UIParent,"CENTER",frame_x,frame_y)
f:EnableMouse(true)
f:SetMovable(true)
f:RegisterForDrag("LeftButton")
f:RegisterForClicks("AnyUp")
f:Show()
f:RegisterEvent("PLAYER_ENTERING_WORLD")
f:SetScript("OnDragStart",function(self) 
    self:StartMoving()
end)
f:SetScript("OnDragStop",function(self)  
    self:StopMovingOrSizing()
end)
-- first %s is replaced by the color. The second is replaced by the time. |r resets the color back to default
local Localizations = {
    enUS = {
        Waiting = {
            "|c1C7BCEFFFroststone A:\nbefore the start: %s%s|r",
            "|c1C7BCEFFFroststone B:\nbefore the start: %s%s|r",
            "|c1C7BCEFFFroststone C:\nbefore the start: %s%s|r",
            "|c1C7BCEFFFroststone D:\nbefore the start: %s%s|r",
        },      
        Running = {
            "|cFF35BE21Froststone A:\n%s%s until completion|r",
            "|cFF35BE21Froststone B:\n%s%s until completion|r",
            "|cFF35BE21Froststone C:\n%s%s until completion|r",
            "|cFF35BE21Froststone D:\n%s%s until completion|r",
        },
    },
}
 
local locale = GetLocale()
local L = Localizations[locale] or Localizations.enUS -- Default to enUS if locale doesn't exist in the table
 
------------------------------------------------------------------------------------------------------ 
-- These might be converted to Saved Variables so each character can determine
-- wether or not to play a sound, the alert times and colors and sound to play.
-- If so then most of the code below will have to move into an event handler for 
-- the PLAYER_LOGIN or PLAYER_ENTERING_WORLD event.
local useColor = true
local useSound = true
local alert1 = 600 -- Alarm 1 set to 10 minutes before event
local alert1Color = "|cffffff00" -- Yellow
local alert2 = 300 -- Alarm 2 set to 5 minutes before event
local alert2Color = "|cffff0000" -- Red
local soundKit = 32585 -- Alarm sound
------------------------------------------------------------------------------------------------------ 
 
local function printTime(timetotrun, inevent)
    local hideSeconds = timetotrun >= 120
    local msg = L.Waiting
    local msgColor = "|cffffffff"
    if inevent then
        msg = L.Running
    else
        if useColor and timetotrun <= alert2 then
            msgColor = alert2Color
        elseif timetotrun <= alert1 then
            if useSound and not ZAMTimer777.Alerted then
                ZAMTimer777.Alerted = true
                PlaySound(soundKit, "Master")
            end
            if useColor then
                msgColor = alert1Color
            end
        end
    end
    f.text:SetText(format(msg, msgColor, SecondsToTime(timetotrun, hideSeconds)))
end
 
regionEventStartTime = {
    [1] = { -- eu
        starttime = 1679572800,
        eventDuration = 300,
        eventIntervalInSeconds = 3600,
        enable = true,
        datablock = {}
    },
}
 
local inEvent, timeToRun
local eventTime = regionEventStartTime[1].eventDuration -- Time the event runs in seconds(15 mins)
local waitTime = regionEventStartTime[1].eventIntervalInSeconds -- Time between events in seconds (90 mins)
local startTime = regionEventStartTime[1].starttime -- Start time from the table
local serverTime = GetServerTime()
local timeToEvent = (startTime - serverTime) % waitTime -- Remaining time before next event starts
 
if timeToEvent > (waitTime - eventTime) then -- Is there between 1:15 and 1:30 to go? If so, we're in the event
    inEvent = true
    timeToRun = eventTime - (waitTime - timeToEvent)
else                    -- Otherwise, set the ticker timer to time to next event
    inEvent = false
    timeToRun = timeToEvent
end
local ticker = C_Timer.NewTicker(1, function() 
    if timeToRun > 0 then
        timeToRun = timeToRun - 1
        printTime(timeToRun, inEvent)
        return
    end
    ZAMTimer777.Alerted = false
    if inEvent then -- The event just finished
        inEvent = false
        timeToRun = waitTime - eventTime -- Reset ticker timer to 90 minutes wait time minus 15 mins event time
    else  -- Waiting for the next event just expired
        inEvent = true
        timeToRun = eventTime -- And the event is running
    end
    printTime(timeToRun, inEvent)
end)
printTime(timeToRun, inEvent)

I tried to do it myself based on the given code and WA

Lua Code:

function(states, event, ...)
    if event ~= "VOZ_TREASURE_GOBLIN_EVENT" and event ~= "STATUS" and event ~= "OPTIONS" then
        return false
    end
    
    local zone_rotation = {
        [0] = 84, -- Stormwind
        [1] = 2023, -- Ohn'ahran Plains
        [2] = 85, -- Orgrimmar
        [3] = 2024, -- The Azure Span
        [4] = 84, -- Stormwind
        [5] = 2025, -- Thaldraszus
        [6] = 85, -- Orgrimmar
        [7] = 2112, -- Valdrakken
        [8] = 84, -- Stormwind
        [9] = 2022, -- The Waking Shores
        [10] = 85, -- Orgrimmar
        [11] = 2023, -- Ohn'ahran Plains
        [12] = 84, -- Stormwind
        [13] = 2024, -- The Azure Span
        [14] = 85, -- Orgrimmar
        [15] = 2025, -- Thaldraszus
        [16] = 84, -- Stormwind
        [17] = 2112, -- Valdrakken
        [18] = 85, -- Orgrimmar
        [19] = 2022, -- The Waking Shores
    }
    
    local region_timers = {
        [1] = 1685041200, -- NA
        [2] = 1684962000, -- KR
        [3] = 1685001666, -- EU
        [4] = nil, -- TW
        [5] = nil  -- CN
    }
    
    local region_start_timestamp = region_timers[GetCurrentRegion()]
    if region_start_timestamp then
        local duration = 300
        local interval = 1800
        local start_timestamp = GetServerTime() - region_start_timestamp
        local next_event = interval - start_timestamp % interval
        local spawning = interval - next_event < duration
        local remaining = duration - (interval - next_event)
        
        local offset = not spawning and interval or 0
        local rotation_index = math.floor((start_timestamp + offset) / interval % 20)
        local zone = C_Map.GetMapInfo(zone_rotation[rotation_index]).name
        
        states[""] = {
            changed = true,
            show = true,
            progressType = "timed",
            autoHide = true,
            duration = spawning and duration or interval - duration,
            expirationTime = GetTime() + (spawning and remaining or next_event),
            spawning = spawning,
            name = zone
        }
    end
    
    return true
end

Here's what I got. But this option works with an error (For testing I used an interval of 1 minute).

Lua Code:

local addonName, addon = ...
local Backdrop = {
    bgFile = "Interface\\DialogFrame\\UI-DialogBox-Background",
}
 
local frame_x = 100     
local frame_y = -250    
local f = CreateFrame("Button", "ZAMTimer777", UIParent, "BackdropTemplate")
f:SetWidth(185)                                        
f:SetHeight(30)
f:SetBackdrop(Backdrop)
f.text = f:CreateFontString(nil,"OVERLAY","GameTooltipText")
f.text:SetPoint("CENTER")
f:SetClampedToScreen(true)
f:SetPoint("CENTER",UIParent,"CENTER",frame_x,frame_y)
f:EnableMouse(true)
f:SetMovable(true)
f:RegisterForDrag("LeftButton")
f:RegisterForClicks("AnyUp")
f:Show()
f:RegisterEvent("PLAYER_ENTERING_WORLD")
f:SetScript("OnDragStart",function(self) 
    self:StartMoving()
end)
f:SetScript("OnDragStop",function(self)  
    self:StopMovingOrSizing()
end)
-- first %s is replaced by the color. The second is replaced by the time. |r resets the color back to default
 
 
local Localizations = {
    enUS = {
        Waiting = {
            "|c1C7BCEFFFroststone A:\nbefore the start: %s%s|r",
            "|c1C7BCEFFFroststone B:\nbefore the start: %s%s|r",
            "|c1C7BCEFFFroststone C:\nbefore the start: %s%s|r",
            "|c1C7BCEFFFroststone D:\nbefore the start: %s%s|r",
        },      
        Running = {
            "|cFF35BE21Froststone A:\n%s%s until completion|r",
            "|cFF35BE21Froststone B:\n%s%s until completion|r",
            "|cFF35BE21Froststone C:\n%s%s until completion|r",
            "|cFF35BE21Froststone D:\n%s%s until completion|r",
        },
    },
}
            
 
local locale = GetLocale()
local L = Localizations[locale] or Localizations.enUS -- Default to enUS if locale doesn't exist in the table
 
------------------------------------------------------------------------------------------------------ 
-- These might be converted to Saved Variables so each character can determine
-- wether or not to play a sound, the alert times and colors and sound to play.
-- If so then most of the code below will have to move into an event handler for
-- the PLAYER_LOGIN or PLAYER_ENTERING_WORLD event.
local useColor = true
local useSound = true
local alert1 = 600 -- Alarm 1 set to 10 minutes before event
local alert1Color = "|cffffff00" -- Yellow
local alert2 = 300 -- Alarm 2 set to 5 minutes before event
local alert2Color = "|cffff0000" -- Red
local soundKit = 32585 -- Alarm sound
------------------------------------------------------------------------------------------------------ 
 
 
regionEventStartTime = {
    [1] = { -- eu
        starttime = 1679572800,
        eventDuration = 7,
        eventIntervalInSeconds = 20,
        enable = true,
    },
}
 
 
local timeToRun
local inEvent = true
local eventTime = regionEventStartTime[1].eventDuration -- Time the event runs in seconds(15 mins)
local waitTime = regionEventStartTime[1].eventIntervalInSeconds -- Time between events in seconds (90 mins)
local startTime = regionEventStartTime[1].starttime -- Start time from the table
local serverTime = 1710590400  --GetServerTime()
local timeToEvent = (startTime - serverTime) % waitTime -- Remaining time before next event starts
local currentEvent = math.floor((serverTime - startTime) / waitTime + 1) % 4
 
 
local function printTime(timetotrun, inevent, eventnumber)
    local hideSeconds = timetotrun >= 120
    local msg = L.Waiting[eventnumber]
    local msgColor = "|cffffffff"
    if inevent then
        msg = L.Running[eventnumber-1]
    else
        if useColor and timetotrun <= alert2 then
            msgColor = alert2Color
        elseif timetotrun <= alert1 then
            if useSound and not ZAMTimer777.Alerted then
                ZAMTimer777.Alerted = true
                PlaySound(soundKit, "Master")
            end
            if useColor then
                msgColor = alert1Color
            end
        end
    end
    f.text:SetText(format(msg, msgColor, SecondsToTime(timetotrun, hideSeconds)))
end
 
 
if timeToEvent > (waitTime - eventTime) then -- Is there between 1:15 and 1:30 to go? If so, we're in the event
    inEvent = true
    timeToRun = eventTime - (waitTime - timeToEvent)
else                    -- Otherwise, set the ticker timer to time to next event
    inEvent = false
    timeToRun = timeToEvent
end
 
local ticker = C_Timer.NewTicker(1, function() 
    if timeToRun > 0 then
        timeToRun = timeToRun - 1
        printTime(timeToRun, inEvent, currentEvent+1)
        return
    end
 
    ZAMTimer777.Alerted = false
    if inEvent then -- The event just finished
        inEvent = false
        timeToRun = waitTime - eventTime -- Reset ticker timer to 90 minutes wait time minus 15 mins event time
    else  -- Waiting for the next event just expired
        currentEvent = (currentEvent + 1) % 4
        inEvent = true
        timeToRun = eventTime -- And the event is running
    end
    printTime(timeToRun, inEvent)
end)
printTime(timeToRun, inEvent, currentEvent+1)

Second question
how can I make a button to hide the timer on command?

Lua Code:

SLASH_HUBB1 = "/hubb"
SlashCmdList["HUBB"] = function(msg)
    if strupper(strtrim(msg)) == "BTN" then -- toggle the shown state of the button if the type /hubb btn
        btn:SetShown(not btn:IsShown()) -- show the button
        return
    end
    updateData()
    updateList()
    f:Show()
end

Fizzlemizz · 03-16-24, 11:19 PM

Or is it two events repeating ie.

5 mins doing something +
55 mins doing nothing

Totaling 1 hour repeating 24/7/365.

or is it

5 mins doing thing A
55 mins doing nothing
5 mins doing thing B
55 mins doing nothing
5 mins doing thing C
55 mins doing nothing
5 mins doing thing D
55 mins doing nothing

Totaling 4 hours repeatinf 24/7/365.

Hubb777 · 03-16-24, 11:48 PM

Originally Posted by Fizzlemizz

Or is it two events repeating ie.
or is it

5 mins doing thing A
55 mins doing nothing
5 mins doing thing B
55 mins doing nothing
5 mins doing thing C
55 mins doing nothing
5 mins doing thing D
55 mins doing nothing

Totaling 4 hours repeatinf 24/7/365.

Hello. Yes, this is exactly the option.

Fizzlemizz · 03-17-24, 10:23 AM

It's all variations on a theme (and math). Knowing the remainder of a session (session totalDuration of 1, 2, 4, 6 or 12 hours). This is based on the start time (startTime - serverTime) % totalDuration.

Then figuring out what to do with that remainder based on the breakdown of each sub-session eg. 4 sub-sessions of exactly 5 and 55 (like below) or x sub-sessions of "things" that add up to totalDuration.

Test times are over 4 minutes instead of 4 hours.

Lua Code:

local addonName, addon = ...
local L, MyRegion
local RegionTimes = {
    [1] = {
        startTime = 1679572800,
        totalDuration = 14400, -- complete session time 4 hours repeating
        sub_sessionDuration = 3600, -- 1 hour
        waitTime = 3300, -- 55 minutes
        eventtime = 300, -- 5 minutes implied but..
        [1] = { -- sub-sessions
            name = "A",
        },
        [2] = {
            name = "B",
        },
        [3] = {
            name = "C",
        },
        [4] = {
            name = "D",
        },
    },
}
 
--[[ TEST TIMES ONLY: over 4 minutes instead of 4 hours ]]--
 
--[[
RegionTimes[1].totalDuration = 240 -- 4 minutes
RegionTimes[1].sub_sessionDuration = 60 -- 1 minute
RegionTimes[1].waitTime = 55 -- seconds
RegionTimes[1].eventtime = 5 -- seconds
]]--
 
--[[ END TEST TIMES ]]--
 
local Localizations = {
    enUS = {
        Waiting = "%s before event %s starts",
        Running = "Event: |cFF35BE21%s|r\n%s remaining",
    },
}
 
local function OnUpdate(self, elapsed)
    self.Elapsed = self.Elapsed - elapsed
    if self.Elapsed > 0 then -- Only check once per second
        return
    end
    self.Elapsed = 1 -- reset the timeout (we've counted down 1 second)
    local serverTime = GetServerTime()
    local remainingTime = (MyRegion.startTime - serverTime) % MyRegion.totalDuration
    local base = math.ceil(remainingTime / MyRegion.sub_sessionDuration)
    local hourRemaining = MyRegion.sub_sessionDuration - ((base * MyRegion.sub_sessionDuration) - remainingTime)
    local id = 4 - (base - 1)
    if id == 5 then
        id = 1
    end
    local msg
    if hourRemaining > MyRegion.waitTime then
        msg = format(L.Running, MyRegion[id].name, SecondsToTime(hourRemaining - MyRegion.waitTime, false))
    else
        id = id == 4 and 1 or id + 1
        msg = format(L.Waiting, SecondsToTime(hourRemaining, false), MyRegion[id].name)
    end
    self.Text:SetText(msg)
    self:SetSize(self.Text:GetWidth() + 10, self.Text:GetHeight() + 10)
end
 
local Backdrop = {
    bgFile = "Interface\\DialogFrame\\UI-DialogBox-Background",
}
 
local f = CreateFrame("Button", "ZAMTimer_4_Events", UIParent, "BackdropTemplate")
f:SetWidth(255)                                          
f:SetHeight(30)
f:SetPoint("CENTER")
f:SetBackdrop(Backdrop)
f:SetClampedToScreen(true)
f:EnableMouse(true)
f:SetMovable(true)
f:SetUserPlaced(true)
f:RegisterForDrag("LeftButton")
f:RegisterForClicks("AnyUp")
f.Text = f:CreateFontString(nil, "OVERLAY", "GameTooltipText")
f.Text:SetPoint("CENTER")
f.Elapsed = 0 -- Set starting timeout (0 second)
f:SetScript("OnDragStart",function(self) 
    self:StartMoving()
end)
f:SetScript("OnDragStop",function(self)  
    self:StopMovingOrSizing()
end)
 
f:RegisterEvent("PLAYER_LOGIN")
f:SetScript("OnEvent", function(self)
    local locale = GetLocale()
    L = Localizations[locale] or Localizations.enUS -- Default to enUS if locale doesn't exist in the table
    MyRegion = RegionTimes[GetCurrentRegion()] or RegionTimes[1] -- Default to region 1 (US) if it doesn't exist in the table
    f:SetScript("OnUpdate", OnUpdate)
end)
 
SLASH_ZAM4TIMER1 = "/z4" -- toggle hiding/showing the ZAMTimer_4_Events frame using just /z4
SlashCmdList.ZAM4TIMER = function(msg)
    ZAMTimer_4_Events.Elapsed = 0 -- set the "clock" to re-calculate when shown.
    ZAMTimer_4_Events:SetShown(not ZAMTimer_4_Events:IsShown()) -- hide/show the frame
end

Fizzlemizz · 03-17-24, 10:47 AM

Originally Posted by Hubb777

Second question
how can I make a button to hide the timer on command?

Lua Code:

SLASH_HUBB1 = "/hubb"
SlashCmdList["HUBB"] = function(msg)
    if strupper(strtrim(msg)) == "BTN" then -- toggle the shown state of the button if the type /hubb btn
        btn:SetShown(not btn:IsShown()) -- show the button
        return
    end
    updateData()
    updateList()
    f:Show()
end

Your code doesn't contain a btn to hide/show.

You want to hide/show the frame that you created and for that (in this case) you would use the frame name ZAMTimer777. If you are giving frames a name then each one should be completely unique (like using your addon name as a prefix eg. "ZAMTimer_No1" or "Hubb777_Addon_A" etc.)

Lua Code:

SLASH_HUBB1 = "/hubb"
SlashCmdList["HUBB"] = function(msg)
    if strupper(strtrim(msg)) == "BTN" then -- toggle the shown state of the button if the type /hubb btn
        ZAMTimer777:SetShown(not ZAMTimer777:IsShown()) -- show the button
        return
    end
    updateData()
    updateList()
    ZAMTimer777:Show()
end

Hubb777 · 03-17-24, 10:34 PM

Originally Posted by Fizzlemizz

It's all variations on a theme (and math). Knowing the remainder of a session (session totalDuration of 1, 2, 4, 6 or 12 hours). This is based on the start time (startTime - serverTime) % totalDuration.

Then figuring out what to do with that remainder based on the breakdown of each sub-session eg. 4 sub-sessions of exactly 5 and 55 (like below) or x sub-sessions of "things" that add up to totalDuration.

Test times are over 4 minutes instead of 4 hours.

Lua Code:

local addonName, addon = ...
local L, MyRegion
local RegionTimes = {
    [1] = {
        startTime = 1679572800,
        totalDuration = 14400, -- complete session time 4 hours repeating
        sub_sessionDuration = 3600, -- 1 hour
        waitTime = 3300, -- 55 minutes
        eventtime = 300, -- 5 minutes implied but..
        [1] = { -- sub-sessions
            name = "A",
        },
        [2] = {
            name = "B",
        },
        [3] = {
            name = "C",
        },
        [4] = {
            name = "D",
        },
    },
}
 
--[[ TEST TIMES ONLY: over 4 minutes instead of 4 hours ]]--
 
--[[
RegionTimes[1].totalDuration = 240 -- 4 minutes
RegionTimes[1].sub_sessionDuration = 60 -- 1 minute
RegionTimes[1].waitTime = 55 -- seconds
RegionTimes[1].eventtime = 5 -- seconds
]]--
 
--[[ END TEST TIMES ]]--
 
local Localizations = {
    enUS = {
        Waiting = "%s before event %s starts",
        Running = "Event: |cFF35BE21%s|r\n%s remaining",
    },
}
 
local function OnUpdate(self, elapsed)
    self.Elapsed = self.Elapsed - elapsed
    if self.Elapsed > 0 then -- Only check once per second
        return
    end
    self.Elapsed = 1 -- reset the timeout (we've counted down 1 second)
    local serverTime = GetServerTime()
    local remainingTime = (MyRegion.startTime - serverTime) % MyRegion.totalDuration
    local base = math.ceil(remainingTime / MyRegion.sub_sessionDuration)
    local hourRemaining = MyRegion.sub_sessionDuration - ((base * MyRegion.sub_sessionDuration) - remainingTime)
    local id = 4 - (base - 1)
    if id == 5 then
        id = 1
    end
    local msg
    if hourRemaining > MyRegion.waitTime then
        msg = format(L.Running, MyRegion[id].name, SecondsToTime(hourRemaining - MyRegion.waitTime, false))
    else
        id = id == 4 and 1 or id + 1
        msg = format(L.Waiting, SecondsToTime(hourRemaining, false), MyRegion[id].name)
    end
    self.Text:SetText(msg)
    self:SetSize(self.Text:GetWidth() + 10, self.Text:GetHeight() + 10)
end
 
local Backdrop = {
    bgFile = "Interface\\DialogFrame\\UI-DialogBox-Background",
}
 
local f = CreateFrame("Button", "ZAMTimer_4_Events", UIParent, "BackdropTemplate")
f:SetWidth(255)                                          
f:SetHeight(30)
f:SetPoint("CENTER")
f:SetBackdrop(Backdrop)
f:SetClampedToScreen(true)
f:EnableMouse(true)
f:SetMovable(true)
f:SetUserPlaced(true)
f:RegisterForDrag("LeftButton")
f:RegisterForClicks("AnyUp")
f.Text = f:CreateFontString(nil, "OVERLAY", "GameTooltipText")
f.Text:SetPoint("CENTER")
f.Elapsed = 0 -- Set starting timeout (0 second)
f:SetScript("OnDragStart",function(self) 
    self:StartMoving()
end)
f:SetScript("OnDragStop",function(self)  
    self:StopMovingOrSizing()
end)
 
f:RegisterEvent("PLAYER_LOGIN")
f:SetScript("OnEvent", function(self)
    local locale = GetLocale()
    L = Localizations[locale] or Localizations.enUS -- Default to enUS if locale doesn't exist in the table
    MyRegion = RegionTimes[GetCurrentRegion()] or RegionTimes[1] -- Default to region 1 (US) if it doesn't exist in the table
    f:SetScript("OnUpdate", OnUpdate)
end)
 
SLASH_ZAM4TIMER1 = "/z4" -- toggle hiding/showing the ZAMTimer_4_Events frame using just /z4
SlashCmdList.ZAM4TIMER = function(msg)
    ZAMTimer_4_Events.Elapsed = 0 -- set the "clock" to re-calculate when shown.
    ZAMTimer_4_Events:SetShown(not ZAMTimer_4_Events:IsShown()) -- hide/show the frame
end

Hello. Yes it works. Thank you very much. I understood how slash commands work, thanks for that too.

If I want to remove one event that lasts 1 hour or add one event that lasts 1 hour, I will need to change this number 14400, right? And add or remove a letter.

Lua Code:

totalDuration = 14400, -- complete session time 4 hours repeating

How to add localization to other languages for lines A, B, C, D, etc.

Lua Code:

local RegionTimes = {
    [1] = {
        startTime = 1679572800,
        totalDuration = 14400, -- complete session time 4 hours repeating
        sub_sessionDuration = 3600, -- 1 hour
        waitTime = 3300, -- 55 minutes
        eventtime = 300, -- 5 minutes implied but..
        [1] = { -- sub-sessions
            name = "A",
        },
        [2] = {
            name = "B",
        },
        [3] = {
            name = "C",
        },
        [4] = {
            name = "D",
        },
    },
}

and how to return a sound/color alert to the code

Lua Code:

-- These might be converted to Saved Variables so each character can determine
-- wether or not to play a sound, the alert times and colors and sound to play.
-- If so then most of the code below will have to move into an event handler for 
-- the PLAYER_LOGIN or PLAYER_ENTERING_WORLD event.
local useColor = true
local useSound = true
local alert1 = 600 -- Alarm 1 set to 10 minutes before event
local alert1Color = "|cffffff00" -- Yellow
local alert2 = 300 -- Alarm 2 set to 5 minutes before event
local alert2Color = "|cffff0000" -- Red
local soundKit = 32585 -- Alarm sound
------------------------------------------------------------------------------------------------------ 
 
local function printTime(timetotrun, inevent)
    local hideSeconds = timetotrun >= 120
    local msg = L.Waiting
    local msgColor = "|cffffffff"
    if inevent then
        msg = L.Running
    else
        if useColor and timetotrun <= alert2 then
            msgColor = alert2Color
        elseif timetotrun <= alert1 then
            if useSound and not ZAMTimer777.Alerted then
                ZAMTimer777.Alerted = true
                PlaySound(soundKit, "Master")
            end
            if useColor then
                msgColor = alert1Color
            end
        end
    end
    f.text:SetText(format(msg, msgColor, SecondsToTime(timetotrun, hideSeconds)))
end
ZAMTimer777.Alerted = false

Fizzlemizz · 03-18-24, 11:07 AM

Originally Posted by Hubb777

If I want to remove one event that lasts 1 hour or add one event that lasts 1 hour, I will need to change this number 14400, right? And add or remove a letter.

If you remove 1 then the overall session of 3 hours would run 8 times in a day (24/3). If you added 1 (5 hours) then it would run 4.8 times (24/5) which wouldn't work as it would break the startTime calculation by causing overlap and you would lose the conistant start time each day.

Originally Posted by Hubb777

How to add localization to other languages for lines A, B, C, D, etc.

Lua Code:

local Localizations = {
    enUS = {
        Waiting = "%s before event %s starts",
        Running = "Event: |cFF35BE21%s|r\n%s remaining",
        A = "Name of event A",
        B = "Name of event B",
        -- etc.
    },
}

You might want to make the A, B, C more meaningful names in both the localizations table and use the same in the RegionTimes table to replace A, B etc.

Then replace

Lua Code:

MyRegion[id].name

with

Lua Code:

L[MyRegion[id].name]

As for colours and alarms, it would seem you just need to add a caclulation for x time before the end of a wait sub-session and sound the alarm/change the colour. You should have enough already to be able to work that out.

Hubb777 · 03-18-24, 11:03 PM

Hello thank you very much for your help.

Lua Code:

local addonName, addon = ...
local L, MyRegion
local RegionTimes = {
    [1] = {
        startTime = 1679572800,
        totalDuration = 14400, -- complete session time 4 hours repeating
        sub_sessionDuration = 3600, -- 1 hour
        waitTime = 3300, -- 55 minutes
        eventtime = 300, -- 5 minutes implied but..
        [1] = { -- sub-sessions
            name = "A",
        },
        [2] = {
            name = "B",
        },
        [3] = {
            name = "C",
        },
        [4] = {
            name = "D",
        },
    },
}
 
--[[ TEST TIMES ONLY: over 4 minutes instead of 4 hours ]]--
 
--[[
RegionTimes[1].totalDuration = 240 -- 4 minutes
RegionTimes[1].sub_sessionDuration = 60 -- 1 minute
RegionTimes[1].waitTime = 55 -- seconds
RegionTimes[1].eventtime = 5 -- seconds
]]--
 
--[[ END TEST TIMES ]]--
 
local Localizations = {
    enUS = {
        Waiting = "%s before event %s starts",
        Running = "Event: |cFF35BE21%s|r\n%s remaining",
        A = "Name of event A",
        B = "Name of event B",
        C = "Name of event B",
        D = "Name of event B",
    },
     deDE = {
        Waiting = "%s verbleibende Zeit bis zur Veranstaltung %s",
        Running = "Ereignis: |cFF35BE21%s|r\n%s Kommen",
        A = "Freiflächen",
        B = "Grüne",
        C = "Rote",
        D = "Weiß",
    },
}
 
------------------------------------------------------------------------------------------------------ 
-- These might be converted to Saved Variables so each character can determine
-- wether or not to play a sound, the alert times and colors and sound to play.
-- If so then most of the code below will have to move into an event handler for 
-- the PLAYER_LOGIN or PLAYER_ENTERING_WORLD event.
local useColor = true
local useSound = true
local alert1 = 600 -- Alarm 1 set to 5 minutes before event
local alert1Color = "|cffffff00" -- Yellow
local alert2 = 30 -- Alarm 2 set to 30 seconds before event
local alert2Color = "|cffff0000" -- Red
local soundKit = 32585 -- Alarm sound
------------------------------------------------------------------------------------------------------ 
 
local function printTime(timetotrun, inevent)
    local hideSeconds = timetotrun >= 120
    local msg = L.Waiting
    local msgColor = "|cffffffff"
    if inevent then
        msg = L.Running
    else
        if useColor and timetotrun <= alert2 then
            msgColor = alert2Color
        elseif timetotrun <= alert1 then
            if useSound and not ZAMTimer_4_Events.Alerted then
                ZAMTimer_4_Events.Alerted = true
                PlaySound(soundKit, "Master")
            end
            if useColor then
                msgColor = alert1Color
            end
        end
    end
    f.text:SetText(format(msg, msgColor, SecondsToTime(timetotrun, hideSeconds)))
end
 
ZAMTimer_4_Events.Alerted = false
 
local function OnUpdate(self, elapsed)
    self.Elapsed = self.Elapsed - elapsed
    if self.Elapsed > 0 then -- Only check once per second
        return
    end
    self.Elapsed = 1 -- reset the timeout (we've counted down 1 second)
    local serverTime = GetServerTime()
    local remainingTime = (MyRegion.startTime - serverTime) % MyRegion.totalDuration
    local base = math.ceil(remainingTime / MyRegion.sub_sessionDuration)
    local hourRemaining = MyRegion.sub_sessionDuration - ((base * MyRegion.sub_sessionDuration) - remainingTime)
    local id = 4 - (base - 1)
    if id == 5 then
        id = 1
    end
    local msg
    if hourRemaining > MyRegion.waitTime then
        msg = format(L.Running, MyRegion[id].name, SecondsToTime(hourRemaining - MyRegion.waitTime, false))
    else
        id = id == 4 and 1 or id + 1
        msg = format(L.Waiting, SecondsToTime(hourRemaining, false), MyRegion[id].name)
    end
    self.Text:SetText(msg)
    self:SetSize(self.Text:GetWidth() + 10, self.Text:GetHeight() + 10)
end
 
local Backdrop = {
    bgFile = "Interface\\DialogFrame\\UI-DialogBox-Background",
}
 
local f = CreateFrame("Button", "ZAMTimer_4_Events", UIParent, "BackdropTemplate")
f:SetWidth(255)                                          
f:SetHeight(30)
f:SetPoint("CENTER")
f:SetBackdrop(Backdrop)
f:SetClampedToScreen(true)
f:EnableMouse(true)
f:SetMovable(true)
f:SetUserPlaced(true)
f:RegisterForDrag("LeftButton")
f:RegisterForClicks("AnyUp")
f.Text = f:CreateFontString(nil, "OVERLAY", "GameTooltipText")
f.Text:SetPoint("CENTER")
f.Elapsed = 0 -- Set starting timeout (0 second)
f:SetScript("OnDragStart",function(self) 
    self:StartMoving()
end)
f:SetScript("OnDragStop",function(self)  
    self:StopMovingOrSizing()
end)
 
f:RegisterEvent("PLAYER_LOGIN")
f:SetScript("OnEvent", function(self)
    local locale = GetLocale()
    L = Localizations[locale] or Localizations.enUS -- Default to enUS if locale doesn't exist in the table
    MyRegion = RegionTimes[GetCurrentRegion()] or RegionTimes[1] -- Default to region 1 (US) if it doesn't exist in the table
    f:SetScript("OnUpdate", OnUpdate)
end)
 
SLASH_ZAM4TIMER1 = "/z4" -- toggle hiding/showing the ZAMTimer_4_Events frame using just /z4
SlashCmdList.ZAM4TIMER = function(msg)
    ZAMTimer_4_Events.Elapsed = 0 -- set the "clock" to re-calculate when shown.
    ZAMTimer_4_Events:SetShown(not ZAMTimer_4_Events:IsShown()) -- hide/show the frame
end

Hello. I did the localization, but the translation only affects Waiting and Running, and the letters A, B, C, etc. remain without translation.

For the sound/color singal I added this part of the code. Looks like more changes need to be made to make it work.

Lua Code:

------------------------------------------------------------------------------------------------------ 
-- These might be converted to Saved Variables so each character can determine
-- wether or not to play a sound, the alert times and colors and sound to play.
-- If so then most of the code below will have to move into an event handler for 
-- the PLAYER_LOGIN or PLAYER_ENTERING_WORLD event.
local useColor = true
local useSound = true
local alert1 = 600 -- Alarm 1 set to 5 minutes before event
local alert1Color = "|cffffff00" -- Yellow
local alert2 = 30 -- Alarm 2 set to 30 seconds before event
local alert2Color = "|cffff0000" -- Red
local soundKit = 32585 -- Alarm sound
------------------------------------------------------------------------------------------------------ 
 
local function printTime(timetotrun, inevent)
    local hideSeconds = timetotrun >= 120
    local msg = L.Waiting
    local msgColor = "|cffffffff"
    if inevent then
        msg = L.Running
    else
        if useColor and timetotrun <= alert2 then
            msgColor = alert2Color
        elseif timetotrun <= alert1 then
            if useSound and not ZAMTimer_4_Events.Alerted then
                ZAMTimer_4_Events.Alerted = true
                PlaySound(soundKit, "Master")
            end
            if useColor then
                msgColor = alert1Color
            end
        end
    end
    f.text:SetText(format(msg, msgColor, SecondsToTime(timetotrun, hideSeconds)))
end
 
ZAMTimer_4_Events.Alerted = false

Xrystal · 03-19-24, 06:20 AM

That is because you didn't use the the localization version.

L.Running, MyRegion[id].name

L.Running is using the localization version
MyRegion[id].name is using the English version

What you need to do is use that English version as a key to the localized version.
Try L[MyRegion[id].name]

Hubb777 · 03-19-24, 09:23 AM

Originally Posted by Xrystal

That is because you didn't use the the localization version.

L.Running, MyRegion[id].name

L.Running is using the localization version
MyRegion[id].name is using the English version

What you need to do is use that English version as a key to the localized version.
Try L[MyRegion[id].name]

Hi, thanks for the tip. That's right?

Lua Code:

local addonName, addon = ...
local L, MyRegion
local RegionTimes = {
    [1] = {
        startTime = 1679572800,
        totalDuration = 14400, -- complete session time 4 hours repeating
        sub_sessionDuration = 3600, -- 1 hour
        waitTime = 3300, -- 55 minutes
        eventtime = 300, -- 5 minutes implied but..
        [1] = { -- sub-sessions
            name = "A",
        },
        [2] = {
            name = "B",
        },
        [3] = {
            name = "C",
        },
        [4] = {
            name = "D",
        },
    },
}
 
--[[ TEST TIMES ONLY: over 4 minutes instead of 4 hours ]]--
 
--[[
RegionTimes[1].totalDuration = 240 -- 4 minutes
RegionTimes[1].sub_sessionDuration = 60 -- 1 minute
RegionTimes[1].waitTime = 55 -- seconds
RegionTimes[1].eventtime = 5 -- seconds
]]--
 
--[[ END TEST TIMES ]]--
 
local Localizations = {
    enUS = {
        Waiting = "%s before event %s starts",
        Running = "Event: |cFF35BE21%s|r\n%s remaining",
        A = "Name of event A",
        B = "Name of event B",
        C = "Name of event B",
        D = "Name of event B",
    },
     deDE = {
        Waiting = "%s verbleibende Zeit bis zur Veranstaltung %s",
        Running = "Ereignis: |cFF35BE21%s|r\n%s Kommen",
        A = "Freiflächen",
        B = "Grüne",
        C = "Rote",
        D = "Weiß",
    },
}
 
------------------------------------------------------------------------------------------------------ 
-- These might be converted to Saved Variables so each character can determine
-- wether or not to play a sound, the alert times and colors and sound to play.
-- If so then most of the code below will have to move into an event handler for 
-- the PLAYER_LOGIN or PLAYER_ENTERING_WORLD event.
local useColor = true
local useSound = true
local alert1 = 600 -- Alarm 1 set to 5 minutes before event
local alert1Color = "|cffffff00" -- Yellow
local alert2 = 30 -- Alarm 2 set to 30 seconds before event
local alert2Color = "|cffff0000" -- Red
local soundKit = 32585 -- Alarm sound
------------------------------------------------------------------------------------------------------ 
 
local function printTime(timetotrun, inevent)
    local hideSeconds = timetotrun >= 120
    local msg = L.Waiting
    local msgColor = "|cffffffff"
    if inevent then
        msg = L.Running
    else
        if useColor and timetotrun <= alert2 then
            msgColor = alert2Color
        elseif timetotrun <= alert1 then
            if useSound and not ZAMTimer_4_Events.Alerted then
                ZAMTimer_4_Events.Alerted = true
                PlaySound(soundKit, "Master")
            end
            if useColor then
                msgColor = alert1Color
            end
        end
    end
    f.text:SetText(format(msg, msgColor, SecondsToTime(timetotrun, hideSeconds)))
end
 
ZAMTimer_4_Events.Alerted = false
 
local function OnUpdate(self, elapsed)
    self.Elapsed = self.Elapsed - elapsed
    if self.Elapsed > 0 then -- Only check once per second
        return
    end
    self.Elapsed = 1 -- reset the timeout (we've counted down 1 second)
    local serverTime = GetServerTime()
    local remainingTime = (MyRegion.startTime - serverTime) % MyRegion.totalDuration
    local base = math.ceil(remainingTime / MyRegion.sub_sessionDuration)
    local hourRemaining = MyRegion.sub_sessionDuration - ((base * MyRegion.sub_sessionDuration) - remainingTime)
    local id = 4 - (base - 1)
    if id == 5 then
        id = 1
    end
    local msg
    if hourRemaining > MyRegion.waitTime then
        msg = format(L.Running, L[MyRegion[id].name], SecondsToTime(hourRemaining - MyRegion.waitTime, false))
    else
        id = id == 4 and 1 or id + 1
        msg = format(L.Waiting, SecondsToTime(hourRemaining, false), L[MyRegion[id].name])
    end
    self.Text:SetText(msg)
    self:SetSize(self.Text:GetWidth() + 10, self.Text:GetHeight() + 10)
end
 
local Backdrop = {
    bgFile = "Interface\\DialogFrame\\UI-DialogBox-Background",
}
 
local f = CreateFrame("Button", "ZAMTimer_4_Events", UIParent, "BackdropTemplate")
f:SetWidth(255)                                          
f:SetHeight(30)
f:SetPoint("CENTER")
f:SetBackdrop(Backdrop)
f:SetClampedToScreen(true)
f:EnableMouse(true)
f:SetMovable(true)
f:SetUserPlaced(true)
f:RegisterForDrag("LeftButton")
f:RegisterForClicks("AnyUp")
f.Text = f:CreateFontString(nil, "OVERLAY", "GameTooltipText")
f.Text:SetPoint("CENTER")
f.Elapsed = 0 -- Set starting timeout (0 second)
f:SetScript("OnDragStart",function(self) 
    self:StartMoving()
end)
f:SetScript("OnDragStop",function(self)  
    self:StopMovingOrSizing()
end)
 
f:RegisterEvent("PLAYER_LOGIN")
f:SetScript("OnEvent", function(self)
    local locale = GetLocale()
    L = Localizations[locale] or Localizations.enUS -- Default to enUS if locale doesn't exist in the table
    MyRegion = RegionTimes[GetCurrentRegion()] or RegionTimes[1] -- Default to region 1 (US) if it doesn't exist in the table
    f:SetScript("OnUpdate", OnUpdate)
end)
 
SLASH_ZAM4TIMER1 = "/z4" -- toggle hiding/showing the ZAMTimer_4_Events frame using just /z4
SlashCmdList.ZAM4TIMER = function(msg)
    ZAMTimer_4_Events.Elapsed = 0 -- set the "clock" to re-calculate when shown.
    ZAMTimer_4_Events:SetShown(not ZAMTimer_4_Events:IsShown()) -- hide/show the frame
end

yes it worked.

The remaining question is how to attach a sound/color alert. (Just pasting a piece of code didn't work)

Xrystal · 03-19-24, 10:54 AM

This has some examples and info on using it for sound
https://warcraft.wiki.gg/wiki/API_PlaySound

As to a colour alert, it depends on what you mean.

You could do something as simple as colourizing the text.
This can be done using hex code colouring when you set the text

eg |cAARRGGBBTextToDisplay|r

or for clarity and flexibility where ColorOn can be set to a different colour before setting the text.

Lua Code:

local ColorOn = "|cAARRGGBB"
local ColorOff = "|r"
f.Text:SetText(ColorOn .. "Text to Display" .. ColorOff)

Or you could add a texture to the frame holding the text and colourise that according to your needs
More Info : https://warcraft.wiki.gg/wiki/API_Te...etColorTexture

Set the texture up at frame Creation time

Lua Code:

f.Color = f:CreateTexture(nil,"BACKGROUND") - Set to Background so that the text appears above it
f.Color:SetAllPoints()

Then, when you need to change it's color use this line

Lua Code:

f.Color:SetColorTexture(r, g, b, a) - Where r,g,b and a are values between 0 and 1.

Hubb777 · 03-19-24, 09:46 PM

Originally Posted by Xrystal

This has some examples and info on using it for sound
https://warcraft.wiki.gg/wiki/API_PlaySound

As to a colour alert, it depends on what you mean.

You could do something as simple as colourizing the text.
This can be done using hex code colouring when you set the text

eg |cAARRGGBBTextToDisplay|r

or for clarity and flexibility where ColorOn can be set to a different colour before setting the text.

Lua Code:

local ColorOn = "|cAARRGGBB"
local ColorOff = "|r"
f.Text:SetText(ColorOn .. "Text to Display" .. ColorOff)

Or you could add a texture to the frame holding the text and colourise that according to your needs
More Info : https://warcraft.wiki.gg/wiki/API_Te...etColorTexture

Set the texture up at frame Creation time

Lua Code:

f.Color = f:CreateTexture(nil,"BACKGROUND") - Set to Background so that the text appears above it
f.Color:SetAllPoints()

Then, when you need to change it's color use this line

Lua Code:

f.Color:SetColorTexture(r, g, b, a) - Where r,g,b and a are values between 0 and 1.

Hello. I have the code, but I don't understand how to use it.

Lua Code:

------------------------------------------------------------------------------------------------------ 
-- These might be converted to Saved Variables so each character can determine
-- wether or not to play a sound, the alert times and colors and sound to play.
-- If so then most of the code below will have to move into an event handler for 
-- the PLAYER_LOGIN or PLAYER_ENTERING_WORLD event.
local useColor = true
local useSound = true
local alert1 = 600 -- Alarm 1 set to 5 minutes before event
local alert1Color = "|cffffff00" -- Yellow
local alert2 = 30 -- Alarm 2 set to 30 seconds before event
local alert2Color = "|cffff0000" -- Red
local soundKit = 32585 -- Alarm sound
------------------------------------------------------------------------------------------------------ 
 
local function printTime(timetotrun, inevent)
    local hideSeconds = timetotrun >= 120
    local msg = L.Waiting
    local msgColor = "|cffffffff"
    if inevent then
        msg = L.Running
    else
        if useColor and timetotrun <= alert2 then
            msgColor = alert2Color
        elseif timetotrun <= alert1 then
            if useSound and not ZAMTimer_4_Events.Alerted then
                ZAMTimer_4_Events.Alerted = true
                PlaySound(soundKit, "Master")
            end
            if useColor then
                msgColor = alert1Color
            end
        end
    end
    f.text:SetText(format(msg, msgColor, SecondsToTime(timetotrun, hideSeconds)))
end
 
ZAMTimer_4_Events.Alerted = false

The result should be something like this.

Lua Code:

local addonName, addon = ...
local L, MyRegion
local RegionTimes = {
    [1] = {
        startTime = 1679572800,
        totalDuration = 14400, -- complete session time 4 hours repeating
        sub_sessionDuration = 3600, -- 1 hour
        waitTime = 3300, -- 55 minutes
        eventtime = 300, -- 5 minutes implied but..
        [1] = { -- sub-sessions
            name = "A",
        },
        [2] = {
            name = "B",
        },
        [3] = {
            name = "C",
        },
        [4] = {
            name = "D",
        },
    },
}
 
--[[ TEST TIMES ONLY: over 4 minutes instead of 4 hours ]]--
 
--[[
RegionTimes[1].totalDuration = 240 -- 4 minutes
RegionTimes[1].sub_sessionDuration = 60 -- 1 minute
RegionTimes[1].waitTime = 55 -- seconds
RegionTimes[1].eventtime = 5 -- seconds
]]--
 
--[[ END TEST TIMES ]]--
 
local Localizations = {
    enUS = {
        Waiting = "%s before event %s starts",
        Running = "Event: |cFF35BE21%s|r\n%s remaining",
        A = "Name of event A",
        B = "Name of event B",
        C = "Name of event B",
        D = "Name of event B",
    },
     deDE = {
        Waiting = "%s verbleibende Zeit bis zur Veranstaltung %s",
        Running = "Ereignis: |cFF35BE21%s|r\n%s Kommen",
        A = "Freiflächen",
        B = "Grüne",
        C = "Rote",
        D = "Weiß",
    },
}
 
------------------------------------------------------------------------------------------------------ 
-- These might be converted to Saved Variables so each character can determine
-- wether or not to play a sound, the alert times and colors and sound to play.
-- If so then most of the code below will have to move into an event handler for 
-- the PLAYER_LOGIN or PLAYER_ENTERING_WORLD event.
local useColor = true
local useSound = true
local alert1 = 600 -- Alarm 1 set to 5 minutes before event
local alert1Color = "|cffffff00" -- Yellow
local alert2 = 30 -- Alarm 2 set to 30 seconds before event
local alert2Color = "|cffff0000" -- Red
local soundKit = 32585 -- Alarm sound
------------------------------------------------------------------------------------------------------ 
 
local function printTime(timetotrun, inevent)
    local hideSeconds = timetotrun >= 120
    local msg = L.Waiting
    local msgColor = "|cffffffff"
    if inevent then
        msg = L.Running
    else
        if useColor and timetotrun <= alert2 then
            msgColor = alert2Color
        elseif timetotrun <= alert1 then
            if useSound and not ZAMTimer_4_Events.Alerted then
                ZAMTimer_4_Events.Alerted = true
                PlaySound(soundKit, "Master")
            end
            if useColor then
                msgColor = alert1Color
            end
        end
    end
    f.text:SetText(format(msg, msgColor, SecondsToTime(timetotrun, hideSeconds)))
end
 
ZAMTimer_4_Events.Alerted = false
 
local function OnUpdate(self, elapsed)
    self.Elapsed = self.Elapsed - elapsed
    if self.Elapsed > 0 then -- Only check once per second
        return
    end
    self.Elapsed = 1 -- reset the timeout (we've counted down 1 second)
    local serverTime = GetServerTime()
    local remainingTime = (MyRegion.startTime - serverTime) % MyRegion.totalDuration
    local base = math.ceil(remainingTime / MyRegion.sub_sessionDuration)
    local hourRemaining = MyRegion.sub_sessionDuration - ((base * MyRegion.sub_sessionDuration) - remainingTime)
    local id = 4 - (base - 1)
    if id == 5 then
        id = 1
    end
    local msg
    if hourRemaining > MyRegion.waitTime then
        msg = format(L.Running, L[MyRegion[id].name], SecondsToTime(hourRemaining - MyRegion.waitTime, false))
    else
        id = id == 4 and 1 or id + 1
        msg = format(L.Waiting, SecondsToTime(hourRemaining, false), L[MyRegion[id].name])
    end
    self.Text:SetText(msg)
    self:SetSize(self.Text:GetWidth() + 10, self.Text:GetHeight() + 10)
end
 
local Backdrop = {
    bgFile = "Interface\\DialogFrame\\UI-DialogBox-Background",
}
 
local f = CreateFrame("Button", "ZAMTimer_4_Events", UIParent, "BackdropTemplate")
f:SetWidth(255)                                          
f:SetHeight(30)
f:SetPoint("CENTER")
f:SetBackdrop(Backdrop)
f:SetClampedToScreen(true)
f:EnableMouse(true)
f:SetMovable(true)
f:SetUserPlaced(true)
f:RegisterForDrag("LeftButton")
f:RegisterForClicks("AnyUp")
f.Text = f:CreateFontString(nil, "OVERLAY", "GameTooltipText")
f.Text:SetPoint("CENTER")
f.Elapsed = 0 -- Set starting timeout (0 second)
f:SetScript("OnDragStart",function(self) 
    self:StartMoving()
end)
f:SetScript("OnDragStop",function(self)  
    self:StopMovingOrSizing()
end)
 
f:RegisterEvent("PLAYER_LOGIN")
f:SetScript("OnEvent", function(self)
    local locale = GetLocale()
    L = Localizations[locale] or Localizations.enUS -- Default to enUS if locale doesn't exist in the table
    MyRegion = RegionTimes[GetCurrentRegion()] or RegionTimes[1] -- Default to region 1 (US) if it doesn't exist in the table
    f:SetScript("OnUpdate", OnUpdate)
end)
 
SLASH_ZAM4TIMER1 = "/z4" -- toggle hiding/showing the ZAMTimer_4_Events frame using just /z4
SlashCmdList.ZAM4TIMER = function(msg)
    ZAMTimer_4_Events.Elapsed = 0 -- set the "clock" to re-calculate when shown.
    ZAMTimer_4_Events:SetShown(not ZAMTimer_4_Events:IsShown()) -- hide/show the frame
end

Fizzlemizz · 03-19-24, 11:04 PM

The PrintTime function is not actually being used in this version so I removed it. Because we replaced the ticker, the calculating and display is all done in the OnUpdate function.

Added some test times for the alarm/colours at 10 and 3 seconds for use with the event test times.

Lua Code:

local addonName, addon = ...
------------------------------------------------------------------------------------------------------ 
-- The Data (and Settings?) Section
 
local L, MyRegion
local RegionTimes = {
    [1] = {
        startTime = 1679572800,
        totalDuration = 14400, -- complete session time 4 hours repeating
        sub_sessionDuration = 3600, -- 1 hour
        waitTime = 3300, -- 55 minutes
        eventtime = 300, -- 5 minutes implied but..
        [1] = { -- sub-sessions
            name = "A",
        },
        [2] = {
            name = "B",
        },
        [3] = {
            name = "C",
        },
        [4] = {
            name = "D",
        },
    },
}
 
--[[ TEST TIMES ONLY: over 4 minutes instead of 4 hours ]]--
 
--[[
RegionTimes[1].totalDuration = 240 -- 4 minutes
RegionTimes[1].sub_sessionDuration = 60 -- 1 minute
RegionTimes[1].waitTime = 55 -- seconds
RegionTimes[1].eventtime = 5 -- seconds
]]--
 
--[[ END TEST TIMES ]]--
 
local Localizations = {
    enUS = {
        Waiting = "%s before event %s starts",
        Running = "Event: |cFF35BE21%s|r\n%s remaining",
        A = "Name of event A",
        B = "Name of event B",
        C = "Name of event B",
        D = "Name of event B",
    },
     deDE = {
        Waiting = "%s verbleibende Zeit bis zur Veranstaltung %s",
        Running = "Ereignis: |cFF35BE21%s|r\n%s Kommen",
        A = "Freiflächen",
        B = "Grüne",
        C = "Rote",
        D = "Weiß",
    },
}
 
-- These might be converted to Saved Variables so each character can determine
-- wether or not to play a sound, the alert times and colors and sound to play.
-- If so then most of the code below will have to move into an event handler for 
-- the PLAYER_LOGIN or PLAYER_ENTERING_WORLD event.
local useColor = true
local useSound = true
local alert1 = 300 -- Alarm 1 set to 5 minutes before event
local alert1Color = "|cffffff00" -- Yellow
local alert2 = 30 -- Alarm 2 set to 30 seconds before event
local alert2Color = "|cffff0000" -- Red
local soundKit = 32585 -- Alarm sound
 
--[[ TEST TIMES ONLY: over 10/3 seconds ]]--
 
--[[
local alert1 = 10 -- Alarm 1 set to 5 minutes before event
local alert2 = 3 -- Alarm 2 set to 30 seconds before event
]]--
 
--[[ END TEST TIMES ]]--
 
------------------------------------------------------------------------------------------------------ 
--- The Calculation (work) Section
 
local function OnUpdate(self, elapsed)
    self.Elapsed = self.Elapsed - elapsed
    if self.Elapsed > 0 then -- Only check once per second
        return
    end
    self.Elapsed = 1 -- reset the timeout (we've counted down 1 second)
    local serverTime = GetServerTime()
    local remainingTime = (MyRegion.startTime - serverTime) % MyRegion.totalDuration
    local base = math.ceil(remainingTime / MyRegion.sub_sessionDuration)
    local hourRemaining = MyRegion.sub_sessionDuration - ((base * MyRegion.sub_sessionDuration) - remainingTime)
    local id = 4 - (base - 1)
    if id == 5 then
        id = 1
    end
    local msg
    if hourRemaining > MyRegion.waitTime then
        self.Alarm = false
        msg = format(L.Running, L[MyRegion[id].name], SecondsToTime(hourRemaining - MyRegion.waitTime, false))
    else
        id = id == 4 and 1 or id + 1
        local cm = L.Waiting
        if useColor and hourRemaining <= alert2 then
            cm = alert2Color .. L.Waiting
        elseif hourRemaining <= alert1 then
            if useColor then
                cm = alert1Color .. L.Waiting
            end
            if useSound and not self.Alarm then
                self.Alarm = true
                PlaySound(soundKit, "Master")
            end
        end
        msg = format(cm, SecondsToTime(hourRemaining, false), L[MyRegion[id].name])
    end
    self.Text:SetText(msg)
    self:SetSize(self.Text:GetWidth() + 10, self.Text:GetHeight() + 10)
end
 
------------------------------------------------------------------------------------------------------ 
-- The Visual (Frame) Section
 
local Backdrop = {
    bgFile = "Interface\\DialogFrame\\UI-DialogBox-Background",
}
 
local f = CreateFrame("Button", "ZAMTimer_4_Events", UIParent, "BackdropTemplate")
f:SetWidth(255)                                          
f:SetHeight(30)
f:SetPoint("CENTER")
f:SetBackdrop(Backdrop)
f:SetClampedToScreen(true)
f:EnableMouse(true)
f:SetMovable(true)
f:SetUserPlaced(true)
f:RegisterForDrag("LeftButton")
f:RegisterForClicks("AnyUp")
f.Text = f:CreateFontString(nil, "OVERLAY", "GameTooltipText")
f.Text:SetPoint("CENTER")
f.Elapsed = 0 -- Set starting timeout (0 second)
f:SetScript("OnDragStart",function(self) 
    self:StartMoving()
end)
f:SetScript("OnDragStop",function(self)  
    self:StopMovingOrSizing()
end)
 
------------------------------------------------------------------------------------------------------ 
-- The "Getting Started" Section:
-- Get the players locale at login and start the OnUpdate timer (to do the work).
 
f:RegisterEvent("PLAYER_LOGIN")
f:SetScript("OnEvent", function(self)
    local locale = GetLocale()
    L = Localizations[locale] or Localizations.enUS -- Default to enUS if locale doesn't exist in the table
    MyRegion = RegionTimes[GetCurrentRegion()] or RegionTimes[1] -- Default to region 1 (US) if it doesn't exist in the table
    f:SetScript("OnUpdate", OnUpdate)
end)
 
------------------------------------------------------------------------------------------------------ 
-- Slash Command
 
SLASH_ZAM4TIMER1 = "/z4" -- toggle hiding/showing the ZAMTimer_4_Events frame using just /z4
SlashCmdList.ZAM4TIMER = function(msg)
    ZAMTimer_4_Events.Elapsed = 0 -- set the "clock" to re-calculate when shown.
    ZAMTimer_4_Events:SetShown(not ZAMTimer_4_Events:IsShown()) -- hide/show the frame
end

Hubb777 · 03-20-24, 10:24 PM

Hello, thank you very much, you helped me a lot. I have already started creating my second addon.