Webmaster: Die Seite wurde neu angelegt: „-- Modul:Firestone/Event local Util = require('Modul:Firestone/Util') local I18n = require('Modul:Firestone/I18n') local E = {} local COL_OFFER, COL_PRICE, COL_LIMIT = "50%", "25%", "25%" local DAY = Util.DAY or 86400 -- alle Event-Daten zusammenführen (calendar + mini + special) local function loadTable(name) local ok, data = pcall(mw.loadData, name) if ok and type(data) == 'table' then return data end ok, data = pcall(require, name)…“

2025-11-05T10:18:39Z

Die Seite wurde neu angelegt: „-- Modul:Firestone/Event local Util = require('Modul:Firestone/Util') local I18n = require('Modul:Firestone/I18n') local E = {} local COL_OFFER, COL_PRICE, COL_LIMIT = "50%", "25%", "25%" local DAY = Util.DAY or 86400 -- alle Event-Daten zusammenführen (calendar + mini + special) local function loadTable(name) local ok, data = pcall(mw.loadData, name) if ok and type(data) == 'table' then return data end ok, data = pcall(require, name)…“

Neue Seite

-- Modul:Firestone/Event
local Util = require('Modul:Firestone/Util')
local I18n = require('Modul:Firestone/I18n')

local E = {}

local COL_OFFER, COL_PRICE, COL_LIMIT = "50%", "25%", "25%"
local DAY = Util.DAY or 86400

-- alle Event-Daten zusammenführen (calendar + mini + special)
local function loadTable(name)
local ok, data = pcall(mw.loadData, name)
if ok and type(data) == 'table' then return data end
ok, data = pcall(require, name)
if ok and type(data) == 'table' then return data end
return {}
end

local function mergedEvents()
local all = {}
local sources = {
'Modul:Firestone/Data/Events',
'Modul:Firestone/Data/Events/Mini',
'Modul:Firestone/Data/Events/Special',
}
for _,name in ipairs(sources) do
local t = loadTable(name)
for k,v in pairs(t) do
all[k] = v
end
end
return all
end

local EVENTS = mergedEvents()
local FRAME

-- i18n helpers
local function evI18n()
return (I18n.get().events or {})
end

local function ev_label(evkey, which)
local Eii = evI18n()
local spec = (Eii.sections and Eii.sections[Util.norm(evkey)]) or {}
local def = (Eii.sections and Eii.sections.default) or {}
return (spec[which] or def[which] or "")
end

local function ev_name(evkey)
local names = evI18n().names or {}
return names[Util.norm(evkey)] or evkey
end

local function header_labels(evkey)
return ev_label(evkey, "offer"), ev_label(evkey, "price"), ev_label(evkey, "limit")
end

-- auto-translation wie vorher
local function autotr(key_name, value)
if type(value) ~= "string" then return value end
local k = Util.norm(key_name)
local i18 = I18n.get()
local m1 = (i18.i18n or {})[k]
local v = m1 and m1[Util.norm(value)]
if v then return v end
if k == "type" then
local m2 = (((i18.events or {}).infobox) or {}).type or {}
return m2[Util.norm(value)] or value
end
return value
end

local function ev_notice_icon_wikitext(ev)
local file = ev.currency and ev.currency.icon
if not file or file == "" then return "" end
local img = Util.fileTag(file, { size = "24px", param = "frameless|link=" })
return '<span class="fs-ic">' .. img .. '</span>'
end

local function ev_pagelink(ev, evkey, label)
local page = ev.page
if page and page ~= "" then
return string.format("[[%s|%s]]", page, label)
end
return label
end

-- Zahlenformatierung (verkürzt, aber wie vorher)
local function parse_sci(v)
if type(v) == "number" then return v end
if type(v) == "string" then
local a,e = v:match("^%s*([%d%.]+)[eE]([%+%-]?%d+)%s*$")
if a and e then return (tonumber(a) or 0) * 10^(tonumber(e) or 0) end
local n = tonumber(v); if n then return n end
end
return nil
end

local function i18n_big_units()
local N = (I18n.get().numbers or {})
return {
{1e12, N.trillion_sing, N.trillion_plur},
{1e9, N.billion_sing, N.billion_plur},
{1e6, N.million_sing, N.million_plur},
{1e3, N.thousand_sing, N.thousand_plur},
}
end

local function format_big(v)
local n = parse_sci(v); if not n then return tostring(v or "") end
for _,u in ipairs(i18n_big_units()) do
local base, sing, plur = u[1], u[2], u[3]
if base and sing and plur and n >= base and math.floor(n % base) == 0 then
local q = math.floor(n / base)
return string.format("%d %s", q, (q==1) and sing or plur)
end
end
return tostring(n)
end

local function ref_gear_power(v)
if Util.isEmpty(v) then return "" end
local phr = (evI18n().phrases or {}).req_gear_power
if Util.isEmpty(phr) then return "" end
local name = "gear-" .. tostring(v):gsub("%s","")
return string.format('<ref name="%s">%s</ref>', name, (phr:gsub("$1", format_big(v))))
end

local function htag(level, text)
if Util.isEmpty(text) then return "" end
local eq = level==3 and "===" or "=="
return string.format("%s %s %s", eq, text, eq)
end

local function event_file(ev, evkey, which)
if which=="deco" then
local file = ev.images and ev.images.deco or ""
local legend = ev_label(evkey, "deco")
return Util.fileTag(file, { param = "thumb|"..legend })
elseif which=="fullname" then
local file = ev.images and ev.images.fullname or ""
local legend = ev_label(evkey, "fullname")
return Util.fileTag(file, { param = "thumb|"..legend })
elseif which=="ex_shop" then
local file = ev.images and ev.images.ex_shop or ""
local legend = ev_label(evkey, "ex_shop")
return Util.fileTag(file, { param = "thumb|"..legend })
elseif which=="banner" then
return Util.fileTag(ev.banner, { param="thumb" })
end
return ""
end

local function event_link(ev, evkey, which)
if which=="type" then
local Eii = evI18n()
local page = (Eii.links and Eii.links.type and Eii.links.type[ev.type or ""])
or (Eii.links and Eii.links.type) or "Calendar Events"
local map = (Eii.infobox and Eii.infobox.type) or {}
local label = map[Util.norm(ev.type or "")] or (ev.type or "")
return string.format("[[%s|%s]]", page, label)
end
return ""
end

local function event_history(ev)
local H = ev.history or {}
if not Util.hasItems(H) then return "" end

local alt_gp = (evI18n().phrases or {}).alt_platform or "auf Google Play"

local function fmt_range_de(s1, s2)
return string.format("%s bis %s", Util.formatDateDe(s1), Util.formatDateDe(s2))
end

local function fmt_alt_platform(val)
local y1,m1,d1,y2,m2,d2 =
tostring(val or ""):match("^%s*(%d%d%d%d)%-(%d%d)%-(%d%d)%s+bis%s+(%d%d%d%d)%-(%d%d)%-(%d%d)%s*$")
if y1 then
return fmt_range_de(y1.."-"..m1.."-"..d1, y2.."-"..m2.."-"..d2)
end
return tostring(val or "")
end

local out = {}
for _,h in ipairs(H) do
local year = tostring(h.year or "")
local s = h.start or ""
local e = h["end"] or ""
local line = string.format("* %s: %s", year, fmt_range_de(s, e))
if h.alt_platform then
line = line .. string.format(" (%s %s)", fmt_alt_platform(h.alt_platform), alt_gp)
end
table.insert(out, line)
end
return table.concat(out, "\n")
end

local function item_label(key, amount)
local I = (I18n.get().items or {})[key] or {}
local n = tonumber(amount or 1) or 1
local txt = (n == 1) and (I.sing or key) or (I.plur or (I.sing or key))
local disp = I.link and string.format("[[%s|%s]]", I.link, txt) or txt
return string.format("%d %s", n, disp)
end

local function tabber_render_from_content(content)
if FRAME and FRAME.extensionTag then
return FRAME:extensionTag('tabber', content)
end
return "<tabber>\n" .. content .. "\n</tabber>"
end

local function references_tag()
if FRAME and FRAME.extensionTag then
return FRAME:extensionTag('references', '')
end
return '<references />'
end

local function build_tabber_content_for(list)
local out = {}
for _,it in ipairs(list) do
local label = Util.prettyRange(it.range or "")
local note = ref_gear_power(it.req_gear_power)
local content = string.format(
"%s %s%s",
Util.fileTag(it.icon or "", { size="30px" }),
(it.item and item_label(it.item, it.amount or 1)) or (it.title or ""),
note
)
out[#out+1] = "|-|" .. label .. "=\n" .. content
end
return table.concat(out, "\n")
end

local function group_label(kind)
local G = (evI18n().group_labels or {})
return G[kind] or kind
end

local function build_avatar_table(list, token_icon, token_name)
local t = {}
t[#t+1] = '{| class="article-table" style="font-size:14px;"'
t[#t+1] = '! colspan="2" | Avatar\n! Preis'
for _,it in ipairs(list) do
t[#t+1] = '|-'
t[#t+1] = string.format(
'| %s || %s || %s %s %s',
Util.fileTag(it.file, { size="50px" }),
it.title or "",
Util.fileTag(token_icon, { size="25px" }),
tostring(it.cost or 0),
token_name
)
end
t[#t+1] = '|}'
return table.concat(t, "\n")
end

local function event_avatars(ev, evkey)
local AV = ev.avatars
if not Util.hasItems(AV) then return "" end

local token_icon = (ev.currency or {}).icon or ""
local token_name = ev_label(evkey, "currencies")

local years = {}
for y,_ in pairs(AV) do years[#years+1] = tostring(y) end
table.sort(years, function(a,b) return a > b end)

local parts = {}
for _,year in ipairs(years) do
local list = AV[year] or AV[tonumber(year)]
if Util.hasItems(list) then
local table_markup = build_avatar_table(list, token_icon, token_name)
parts[#parts+1] = "|-|" .. year .. "=\n" .. table_markup
end
end

return tabber_render_from_content(table.concat(parts, "\n"))
end

local function event_exchange_tabs(ev, evkey)
local ex = ev.exchange or {}
local token_icon = (ev.currency or {}).icon or ""
local token_name = ev_label(evkey, "currencies")

if not (Util.hasItems(ex.chests_by_level)
or Util.hasItems(ex.chests_by_stars)
or Util.hasItems(ex.chests_by_oracle)
or Util.hasItems(ex.currencies)) then
return ""
end

local outer_parts = {}
local function add_group(kind, list)
if not Util.hasItems(list) then return end
local inner_content = build_tabber_content_for(list)
local inner_tabber = tabber_render_from_content(inner_content)
outer_parts[#outer_parts+1] = "|-|" .. group_label(kind) .. "=\n" .. inner_tabber
end
add_group("level", ex.chests_by_level)
add_group("stars", ex.chests_by_stars)
add_group("oracle", ex.chests_by_oracle)

local left_tabber = tabber_render_from_content(table.concat(outer_parts, "\n"))

local function pick_price_limit()
if Util.hasItems(ex.chests_by_level) then return ex.chests_by_level[1].price or 0, ex.chests_by_level[1].limit or "" end
if Util.hasItems(ex.chests_by_stars) then return ex.chests_by_stars[1].price or 0, ex.chests_by_stars[1].limit or "" end
if Util.hasItems(ex.chests_by_oracle) then return ex.chests_by_oracle[1].price or 0, ex.chests_by_oracle[1].limit or "" end
return 0, ""
end
local price, limit = pick_price_limit()

local t = {}
local H_offer, H_price, H_limit = header_labels(evkey)
t[#t+1] = '{| class="article-table fs-exchange" style="font-size:14px;"'
t[#t+1] = string.format(
'! style="width:%s;" | %s !! style="width:%s;" | %s !! style="width:%s;" | %s',
COL_OFFER, H_offer, COL_PRICE, H_price, COL_LIMIT, H_limit
)
t[#t+1] = '|-'
t[#t+1] = '|' .. left_tabber .. string.format(
' || style="text-align:center;" | %s %s %s || style="text-align:center;" | %s',
Util.fileTag(token_icon, { size="25px" }),
tostring(price), token_name,
tostring(limit)
)

if Util.hasItems(ex.currencies) then
for _,it in ipairs(ex.currencies) do
local offer = string.format('%s %s',
Util.fileTag(it.icon or "", { size="30px" }),
item_label(it.item, it.amount or 1)
)
t[#t+1] = '|-'
t[#t+1] = string.format(
'| %s || style="text-align:center;" | %s %s %s || style="text-align:center;" | %s',
offer,
Util.fileTag(token_icon, { size="25px" }),
tostring(it.price or 0), token_name,
tostring(it.limit or "")
)
end
end

t[#t+1] = '|}'
t[#t+1] = references_tag()
return '\n' .. table.concat(t, '\n')
end

-- Zeitfenster eines Events
local function event_window(ev)
local S = ev.schedule or ev
local s = S.start_date; if Util.isEmpty(s) then return nil end

local st = Util.parseIsoDate(s); if not st then return nil end

local en_excl, en_incl
if not Util.isEmpty(S.end_date) then
en_incl = Util.parseIsoDate(S.end_date)
if not en_incl then return st, nil, nil end
en_excl = en_incl + DAY
else
local d = tonumber(S.duration_days) or 14
en_excl = st + d * DAY
en_incl = en_excl - DAY
end

return st, en_excl, en_incl
end

-- Event wählen, das jetzt laufen/gleich startet
local function pick_notice_eventkey()
local cfg = (evI18n().notice or {})
local pre = tonumber(cfg.pre_days) or 7
local post = tonumber(cfg.post_days) or 3
local now = os.time()

local running, upcoming, ended_recent = {}, {}, {}

for k, ev in pairs(EVENTS) do
local st, en_excl = event_window(ev)
if st and en_excl then
if now >= st and now < en_excl then
table.insert(running, { k=k, st=st, en=en_excl })
elseif now >= st - pre*DAY and now < st then
table.insert(upcoming, { k=k, st=st, en=en_excl })
elseif now >= en_excl and now < en_excl + post*DAY then
table.insert(ended_recent, { k=k, st=st, en=en_excl })
end
end
end

local function by_end(a,b) return a.en < b.en end
local function by_start(a,b) return a.st < b.st end
if #running > 0 then table.sort(running, by_end) ; return running[1].k end
if #upcoming > 0 then table.sort(upcoming, by_start) ; return upcoming[1].k end
if #ended_recent > 0 then table.sort(ended_recent, by_end) ; return ended_recent[1].k end
return nil
end

local function event_notice(ev, evkey)
local phrases = (evI18n().phrases or {})
local PH_RUNNING = phrases.event_notice
local PH_ENDED = phrases.event_ended

if Util.isEmpty(PH_RUNNING) then return "" end

local st, en_excl, en_incl = event_window(ev); if not st or not en_excl then return "" end

local cfg = (evI18n().notice or {})
local pre = tonumber(cfg.pre_days) or 7
local post = tonumber(cfg.post_days) or 3
local now = os.time()

local show_from = st - pre * DAY
local show_till = en_excl + post * DAY
if now < show_from or now >= show_till then
return ""
end

local name_label = ev_label(evkey, "eventname")
if Util.isEmpty(name_label) then name_label = ev_name(evkey) end

local name = ev_pagelink(ev, evkey, name_label)

local ic = ev_notice_icon_wikitext(ev)

local text
if now < en_excl then
text = PH_RUNNING
:gsub("$1", name)
:gsub("$2", Util.formatDateDe(st))
:gsub("$3", Util.formatDateDe(en_excl))
else
if Util.isEmpty(PH_ENDED) then return "" end
local curr = ev_label(evkey, "currencies")
local shop = ev_label(evkey, "ex_shop")
if Util.isEmpty(curr) or Util.isEmpty(shop) then return "" end
text = PH_ENDED
:gsub("$1", name)
:gsub("$4", curr)
:gsub("$5", shop)
end

local prefix = (ic ~= "" and (ic .. " ") or "")
local suffix = (ic ~= "" and (" " .. ic) or "")

return string.format(
'<div class="fs-notice" data-ev="%s">%s%s%s</div>',
mw.text.encode(evkey),
prefix, text, suffix
)
end

local function get_event(evkey)
local real = Util.pickKey(EVENTS, evkey)
return real and EVENTS[real] or nil, real or evkey
end

function E.handle(frame, args)
FRAME = frame
local evkey = args[2]

if evkey and Util.norm(evkey) == "notice" then
local pick = pick_notice_eventkey()
if not pick then return "" end
local ev, r = get_event(pick); if not ev then return "" end
return event_notice(ev, r)
end

if Util.isEmpty(evkey) then return "" end
local ev, realkey = get_event(evkey); if not ev then return "" end

local a3, a4 = args[3], args[4]
if Util.isEmpty(a3) then
return ev_name(realkey)
end

if a3=="notice" then return event_notice(ev, realkey)
elseif a3=="file" then return event_file(ev, realkey, a4 or "")
elseif a3=="link" then return event_link(ev, realkey, a4 or "")
elseif a3=="h2" then return htag(2, ev_label(realkey, a4 or ""))
elseif a3=="h3" then return htag(3, ev_label(realkey, a4 or ""))
elseif a3=="history" then return event_history(ev, realkey)
elseif a3=="avatars" then return event_avatars(ev, realkey)
elseif a3=="exchange" then return event_exchange_tabs(ev, realkey)
elseif a3=="offers" then
if a4=="start" then return event_offers(ev, realkey, "initial")
elseif a4=="more" then return event_offers(ev, realkey, "after") end
return ""
end

if a3 == "currency" then return ev_label(realkey, "currency") end
if a3 == "currencies" then return ev_label(realkey, "currencies") end

local path, i = {}, 3
while args[i] do
table.insert(path, args[i])
i = i + 1
end
local v = Util.deepGet(ev, path)
if v ~= nil then
local last = path[#path] and tostring(path[#path]) or ""
v = autotr(last, v)
return tostring(v)
end

local last = Util.norm(path[#path] or a3)
if last=="eventname" or last=="name" then return ev_name(realkey) end
local lbl = ev_label(realkey, last); if not Util.isEmpty(lbl) then return lbl end
local Uu = (evI18n().unlocks or {})[last]
if Uu then return Uu end

return ""
end

return E

Modul:Firestone/Event - Versionsgeschichte