Timer with an interval of 1 hour and 30 minutes - Page 2

Hubb777 · 02-18-24, 01:04 AM

Originally Posted by Fizzlemizz

Your regionEventStartTime table is broken so I made what I think it might be intended to look like.

EDIT: My math foo is broken. Fixed the calculation if you logged in while the event is in progress.

As in (not very different):

I just wanted to write about this bug. But you got ahead of the curve and fixed it. Everything works. And the last question on this topic -
How do I add localization of Next event is in and until event ends labels to other languages?

Code:

            enUS = "Next event is in: %s",
	    zhCN = "下一个活动在: %s",
            deDE = "Nächste Veranstaltung ist in: %s",

Code:

            enUS = "%s until event ends",
	    zhCN = "%s 直到事件结束",
            deDE = "bis zum Ende der Veranstaltung",

I am very grateful to you for your help. I'm just on disability and can't afford a IT education. Therefore, I began to study LUA, because I found my place and friends in the world of warcraft.

Fizzlemizz · 02-18-24, 01:38 AM

Lots of way to go about localisation but probably for something small like this the easiest would be something like:

Lua Code:

local Localizations = {
    enUS = {
        Waiting = "Next event is in: %s",
        Running = "%s until event ends",
    },
    zhCN = {
        Waiting = "下一个活动在: %s",
        Running = "%s 直到事件结束",
    },
    deDE = {
        Waiting = "Nächste Veranstaltung ist in: %s",
        Running = "bis zum Ende der Veranstaltung: %s",
    },
}
 
local locale = GetLocale()
local L = Localizations[locale] or Localizations.enUS -- Default to enUS if locale doesn't exist in the table

Then you can replace "Next event is in: %s" with L.Waiting and "%s until event ends" with L.Running

The usual scoping rules apply.

Your example didn't have a %s for the German "Until the event ends" so I just stuck one at the end (my German foo is also broken

).

Hubb777 · 02-18-24, 01:46 AM

Originally Posted by Fizzlemizz

Lots of way to go about localisation but probably for something small like this the easiest would be something like:

Lua Code:

local Localizations = {
    enUS = {
        Waiting = "Next event is in: %s",
        Running = "%s until event ends",
    },
    zhCN = {
        Waiting = "下一个活动在: %s",
        Running = "%s 直到事件结束",
    },
    deDE = {
        Waiting = "Nächste Veranstaltung ist in: %s",
        Running = "bis zum Ende der Veranstaltung: %s",
    },
}
 
local locale = GetLocale()
local L = Localizations[locale] or Localizations.enUS -- Default to enUS if locale doesn't exist in the table

Then you can replace "Next event is in: %s" with L.Waiting and "%s until event ends" with L.Running

The usual scoping rules apply.

Your example didn't have a %s for the German "Until the event ends" so I just stuck one at the end (my German foo is also broken

).

Look, did I do everything right?

Code:

local addonName, addon = ...
local Backdrop = {
    bgFile = "Interface\\DialogFrame\\UI-DialogBox-Background",
}
 
local frame_x = 0     
local frame_y = -200    
f = CreateFrame("Button", "ZAMROTimer", UIParent, "BackdropTemplate")
f:SetWidth(255)                                          
f:SetHeight(20)
f:SetBackdrop(Backdrop)
f.text = f:CreateFontString(nil,"OVERLAY","GameTooltipText")
f.text:SetTextHeight(15)
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(this) 
    this:StartMoving()
end)
f:SetScript("OnDragStop",function(this)  
    this:StopMovingOrSizing()
    frame_x,frame_y = this:GetCenter()
    frame_x = frame_x - GetScreenWidth() / 2
    frame_y = frame_y - GetScreenHeight() / 2
    this:ClearAllPoints()
    this:SetPoint("CENTER",UIParent,"CENTER",frame_x,frame_y)
end)

local Localizations = {
    enUS = {
        Waiting = "Next event is in: %s",
        Running = "%s until event ends",
    },
    zhCN = {
        Waiting = "下一个活动在: %s",
        Running = "%s 直到事件结束",
    },
    deDE = {
        Waiting = "Nächste Veranstaltung ist in: %s",
        Running = "bis zum Ende der Veranstaltung: %s",
    },
}
 
local locale = GetLocale()
local L = Localizations[locale] or Localizations.enUS -- Default to enUS if locale doesn't exist in the table
 
local function printTime(timetotrun, inevent)
    local hideSeconds = timetotrun >= 120
    local msg = "L.Waiting"
    if inevent then
        msg = "L.Running"
    end
    f.text:SetText(format(msg, SecondsToTime(timetotrun, hideSeconds)))
end
 
 
regionEventStartTime = {
    [1] = { -- eu
        starttime = 1670331660,
        eventDuration = 900,
        eventIntervalInSeconds = 5400,
        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
    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)

Fizzlemizz · 02-18-24, 01:52 AM

Remove the quotes from around "L.Waiting" and "L.Running"

Lua Code:

local msg = L.Waiting
if inevent then
    msg = L.Running
end

You can test by using

Code:

local locale = "deDE"
-- or
local locale = "zhCN"

instead of

Code:

local locale = GetLocale()

Hubb777 · 02-18-24, 03:51 AM

Originally Posted by Fizzlemizz

Remove the quotes from around "L.Waiting" and "L.Running"

Lua Code:

local msg = L.Waiting
if inevent then
    msg = L.Running
end

You can test by using

Code:

local locale = "deDE"
-- or
local locale = "zhCN"

instead of

Code:

local locale = GetLocale()

Yes, it all worked. I'm not that good at LUA code yet, but I read a lot on this topic.
In one of the forum topics, I found your advice on how to make a window that can be moved around the screen. And I was able to apply this to my "button" and now it can be moved

I am very happy that I found this great forum.

Hubb777 · 02-18-24, 06:04 AM

Looks like another question. How do I add a sound signal about the start of an event that notifies 5 minutes before the start of the event?

Lua Code:

local addonName, addon = ...
local Backdrop = {
    bgFile = "Interface\\DialogFrame\\UI-DialogBox-Background",
}
 
local frame_x = 0     
local frame_y = -200    
f = CreateFrame("Button", "ZAMROTimer", UIParent, "BackdropTemplate")
f:SetWidth(255)                                          
f:SetHeight(30)
f:SetBackdrop(Backdrop)
f.text = f:CreateFontString(nil,"OVERLAY","GameTooltipText")
f.text:SetTextHeight(15)
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(this) 
    this:StartMoving()
end)
f:SetScript("OnDragStop",function(this)  
    this:StopMovingOrSizing()
    frame_x,frame_y = this:GetCenter()
    frame_x = frame_x - GetScreenWidth() / 2
    frame_y = frame_y - GetScreenHeight() / 2
    this:ClearAllPoints()
    this:SetPoint("CENTER",UIParent,"CENTER",frame_x,frame_y)
end)
 
local Localizations = {
    enUS = {
        Waiting = "|c1C7BCEFFCommunity Feast:\nbefore the start: %s|r",
        Running = "|cFF35BE21Community Feast:\n%s until completion|r",
    },
    deDE = {
        Waiting = "|c1C7BCEFFGemeinschaftliches Festmahl:\nNächste Veranstaltung ist in: %s|r",
        Running = "|cFF35BE21Gemeinschaftliches Festmahl:\n%s bis zum Ende der Veranstaltung|r",
    },
}
 
local locale = GetLocale()
local L = Localizations[locale] or Localizations.enUS -- Default to enUS if locale doesn't exist in the table
 
local function printTime(timetotrun, inevent)
    local hideSeconds = timetotrun >= 120
    local msg = L.Waiting
    if inevent then
        msg = L.Running
    end
    f.text:SetText(format(msg, SecondsToTime(timetotrun, hideSeconds)))
end
 
 
regionEventStartTime = {
    [1] = { -- eu
        starttime = 1670331660,
        eventDuration = 900,
        eventIntervalInSeconds = 5400,
        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
    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've written the code here (but it doesn't seem to be quite right)

Lua Code:

local showedTime = startTime and timeToEvent or waitTime
        
        if showedTime < 3600 then
            self.timer:SetText(date("%M:%S", showedTime))
        else
            self.timer:SetText(date("%H", showedTime)-1 .. date("h%M", showedTime))
        end
 
if not startTime then
            if showedTime < 300 then
                if not self.soundPlayed then
                    PlaySound(32585, "Master")
                    self.glow:SetVertexColor(0, 1, 0)
                    self.soundPlayed = true
                end
            elseif self.soundPlayed then
                self.glow:SetVertexColor(0, 0, 0)
                self.soundPlayed = false
            end
        end

Fizzlemizz · 02-18-24, 08:17 AM

I've modified the message texts to allow for colouring of the time portion.
(my editor seems to have swallowed the chinese characters)

Lua Code:

local addonName, addon = ...
local Backdrop = {
    bgFile = "Interface\\DialogFrame\\UI-DialogBox-Background",
}
 
local frame_x = 0     
local frame_y = -200    
f = CreateFrame("Button", "ZAMROTimer", UIParent, "BackdropTemplate")
f:SetWidth(255)                                          
f:SetHeight(20)
f:SetBackdrop(Backdrop)
f.text = f:CreateFontString(nil,"OVERLAY","GameTooltipText")
f.text:SetTextHeight(15)
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(this) 
    this:StartMoving()
end)
f:SetScript("OnDragStop",function(this)  
    this:StopMovingOrSizing()
    frame_x,frame_y = this:GetCenter()
    frame_x = frame_x - GetScreenWidth() / 2
    frame_y = frame_y - GetScreenHeight() / 2
    this:ClearAllPoints()
    this:SetPoint("CENTER",UIParent,"CENTER",frame_x,frame_y)
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 = "Next event is in: %s%s|r",
        Running = "%s%s|r until event ends",
    },
    zhCN = {
        Waiting = "??????: %s%s|r",
        Running = "%s%s|r ??????",
    },
    deDE = {
        Waiting = "Nächste Veranstaltung ist in: %s%s|r",
        Running = "bis zum Ende der Veranstaltung: %s%s|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 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 ZAMROTimer.Alerted then
                ZAMROTimer.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 = 1670331660,
        eventDuration = 900,
        eventIntervalInSeconds = 5400,
        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
    ZAMROTimer.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)

Hubb777 · 02-18-24, 10:35 PM

Originally Posted by Fizzlemizz

I've modified the message texts to allow for colouring of the time portion.
(my editor seems to have swallowed the chinese characters)

Lua Code:

local addonName, addon = ...
local Backdrop = {
    bgFile = "Interface\\DialogFrame\\UI-DialogBox-Background",
}
 
local frame_x = 0     
local frame_y = -200    
f = CreateFrame("Button", "ZAMROTimer", UIParent, "BackdropTemplate")
f:SetWidth(255)                                          
f:SetHeight(20)
f:SetBackdrop(Backdrop)
f.text = f:CreateFontString(nil,"OVERLAY","GameTooltipText")
f.text:SetTextHeight(15)
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(this) 
    this:StartMoving()
end)
f:SetScript("OnDragStop",function(this)  
    this:StopMovingOrSizing()
    frame_x,frame_y = this:GetCenter()
    frame_x = frame_x - GetScreenWidth() / 2
    frame_y = frame_y - GetScreenHeight() / 2
    this:ClearAllPoints()
    this:SetPoint("CENTER",UIParent,"CENTER",frame_x,frame_y)
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 = "Next event is in: %s%s|r",
        Running = "%s%s|r until event ends",
    },
    zhCN = {
        Waiting = "??????: %s%s|r",
        Running = "%s%s|r ??????",
    },
    deDE = {
        Waiting = "Nächste Veranstaltung ist in: %s%s|r",
        Running = "bis zum Ende der Veranstaltung: %s%s|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 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 ZAMROTimer.Alerted then
                ZAMROTimer.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 = 1670331660,
        eventDuration = 900,
        eventIntervalInSeconds = 5400,
        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
    ZAMROTimer.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)

Hi. Thank you very much. I haven't fully tested it yet, but it seems to be working.
(I copied incorrectly and forgot to copy one character, but now everything is ok)