127 lines
8.3 KiB
Lua
127 lines
8.3 KiB
Lua
local addonName = "MoanS"
|
|
local defaults = {
|
|
active = true,
|
|
chat = true,
|
|
petEnabled = true,
|
|
healEnabled = true,
|
|
totalMoans = 0,
|
|
showCounter = true,
|
|
framePos = nil,
|
|
soundBaseName = "moan",
|
|
comboTimeout = 4.0,
|
|
locked = false,
|
|
}
|
|
|
|
local frame = CreateFrame("Frame")
|
|
frame:RegisterEvent("COMBAT_LOG_EVENT_UNFILTERED")
|
|
frame:RegisterEvent("ADDON_LOADED")
|
|
|
|
local lastSoundTime, comboCount, MAX_SOUNDS = 0, 0, 9
|
|
|
|
local function FormatNumber(amount)
|
|
if not amount or type(amount) ~= "number" then return amount or "0" end
|
|
if amount >= 1000000 then return string.format("%.1fM", amount / 1000000)
|
|
elseif amount >= 1000 then return string.format("%.1fK", amount / 1000)
|
|
else return tostring(amount) end
|
|
end
|
|
|
|
local CounterFrame = CreateFrame("Frame", "MoanSCounterFrame", UIParent, "BackdropTemplate")
|
|
CounterFrame:SetSize(130, 40)
|
|
CounterFrame:SetPoint("CENTER", 0, 0)
|
|
CounterFrame:SetMovable(true)
|
|
CounterFrame:EnableMouse(true)
|
|
CounterFrame:RegisterForDrag("LeftButton")
|
|
CounterFrame:SetClampedToScreen(true)
|
|
CounterFrame.bg = CounterFrame:CreateTexture(nil, "BACKGROUND")
|
|
CounterFrame.bg:SetAllPoints(); CounterFrame.bg:SetColorTexture(0, 0, 0, 0.6)
|
|
CounterFrame.Cooldown = CreateFrame("Cooldown", nil, CounterFrame, "CooldownFrameTemplate")
|
|
CounterFrame.Cooldown:SetAllPoints()
|
|
CounterFrame.text = CounterFrame:CreateFontString(nil, "OVERLAY", "GameFontNormalLarge")
|
|
CounterFrame.text:SetPoint("CENTER")
|
|
|
|
local function ShowCritText(amount)
|
|
local f = CreateFrame("Frame", nil, CounterFrame); f:SetSize(200, 30)
|
|
f:SetPoint("CENTER", CounterFrame, "CENTER", 0, 0)
|
|
local text = f:CreateFontString(nil, "OVERLAY", "NumberFontNormal")
|
|
text:SetPoint("CENTER"); text:SetText(FormatNumber(amount)); text:SetTextColor(1, 0.41, 0.7)
|
|
text:SetFont(text:GetFont(), 22, "OUTLINE")
|
|
local ag = f:CreateAnimationGroup()
|
|
local targetX, targetY = math.random(-120, 120), math.random(80, 150)
|
|
local scale = ag:CreateAnimation("Scale"); scale:SetScale(1.4, 1.4); scale:SetDuration(0.15); scale:SetOrder(1)
|
|
local translation = ag:CreateAnimation("Translation"); translation:SetOffset(targetX, targetY); translation:SetDuration(1.4); translation:SetSmoothing("OUT"); translation:SetOrder(2)
|
|
local alpha = ag:CreateAnimation("Alpha"); alpha:SetFromAlpha(1); alpha:SetToAlpha(0); alpha:SetStartDelay(0.7); alpha:SetDuration(0.7); alpha:SetOrder(2)
|
|
ag:SetScript("OnFinished", function() f:Hide() end); ag:Play()
|
|
end
|
|
|
|
local function UpdateCounterDisplay()
|
|
if not MoanSDB then return end
|
|
CounterFrame.text:SetText("Moans: " .. (MoanSDB.totalMoans or 0))
|
|
CounterFrame:SetShown(MoanSDB.showCounter and MoanSDB.active)
|
|
CounterFrame:EnableMouse(not MoanSDB.locked)
|
|
end
|
|
|
|
CounterFrame:SetScript("OnDragStart", CounterFrame.StartMoving)
|
|
CounterFrame:SetScript("OnDragStop", function(self)
|
|
self:StopMovingOrSizing()
|
|
local point, _, rel, x, y = self:GetPoint()
|
|
if MoanSDB then MoanSDB.framePos = { point, rel, x, y } end
|
|
end)
|
|
|
|
local function TriggerCombo()
|
|
local currentTime = GetTime()
|
|
local timeout = MoanSDB and MoanSDB.comboTimeout or 4.0
|
|
if (currentTime - lastSoundTime) > timeout or comboCount >= MAX_SOUNDS then comboCount = 1 else comboCount = comboCount + 1 end
|
|
lastSoundTime = currentTime
|
|
CounterFrame.Cooldown:SetCooldown(currentTime, timeout)
|
|
-- PFAD GEÄNDERT AUF MEDIA UNTERORDNER
|
|
return "Interface\\AddOns\\MoanS\\media\\" .. (comboCount == MAX_SOUNDS and "moan10" or (MoanSDB.soundBaseName or "moan") .. comboCount) .. ".ogg"
|
|
end
|
|
|
|
local MoanSPanel = CreateFrame("Frame", "MoanSConfigPanel", UIParent); MoanSPanel.name = addonName
|
|
local category
|
|
|
|
local function CreateCB(parent, label, x, y, dbKey)
|
|
local cb = CreateFrame("CheckButton", nil, parent, "InterfaceOptionsCheckButtonTemplate")
|
|
cb:SetPoint("TOPLEFT", x, y); cb.Text:SetText(label)
|
|
cb:SetScript("OnShow", function(self) if MoanSDB then self:SetChecked(MoanSDB[dbKey]) end end)
|
|
cb:SetScript("OnClick", function(self) MoanSDB[dbKey] = self:GetChecked(); UpdateCounterDisplay() end)
|
|
return cb
|
|
end
|
|
|
|
frame:SetScript("OnEvent", function(self, event, arg1)
|
|
if event == "ADDON_LOADED" and arg1 == addonName then
|
|
if not MoanSDB then MoanSDB = CopyTable(defaults) end
|
|
for k, v in pairs(defaults) do if MoanSDB[k] == nil then MoanSDB[k] = v end end
|
|
category = Settings.RegisterCanvasLayoutCategory(MoanSPanel, addonName)
|
|
Settings.RegisterAddOnCategory(category)
|
|
local title = MoanSPanel:CreateFontString(nil, "ARTWORK", "GameFontNormalLarge")
|
|
title:SetPoint("TOPLEFT", 16, -16); title:SetText("|cffFF69B4MoanS|r - Classic")
|
|
CreateCB(MoanSPanel, "Addon Aktiviert", 16, -50, "active")
|
|
CreateCB(MoanSPanel, "Fenster anzeigen", 16, -80, "showCounter")
|
|
CreateCB(MoanSPanel, "Fenster fixieren (Lock)", 16, -110, "locked")
|
|
if MoanSDB.framePos then
|
|
CounterFrame:ClearAllPoints()
|
|
CounterFrame:SetPoint(MoanSDB.framePos[1], UIParent, MoanSDB.framePos[2], MoanSDB.framePos[3], MoanSDB.framePos[4])
|
|
end
|
|
UpdateCounterDisplay()
|
|
elseif event == "COMBAT_LOG_EVENT_UNFILTERED" then
|
|
if not MoanSDB or not MoanSDB.active then return end
|
|
local _, sub, _, sGUID, _, _, _, _, _, _, _, arg12, _, _, _, arg15, _, arg17, arg18, _, arg21 = CombatLogGetCurrentEventInfo()
|
|
if sGUID == UnitGUID("player") or sGUID == UnitGUID("pet") then
|
|
local isCrit, amount = false, 0
|
|
if sub == "SWING_DAMAGE" then amount, isCrit = arg12, arg17
|
|
elseif sub:find("_DAMAGE") then amount, isCrit = arg15, arg21
|
|
elseif sub == "SPELL_HEAL" then amount, isCrit = arg15, arg18 end
|
|
if isCrit then
|
|
PlaySoundFile(TriggerCombo(), "Master")
|
|
ShowCritText(amount)
|
|
MoanSDB.totalMoans = MoanSDB.totalMoans + 1
|
|
UpdateCounterDisplay()
|
|
end
|
|
end
|
|
end
|
|
end)
|
|
|
|
SLASH_MOANS1 = "/moans"
|
|
SlashCmdList["MOANS"] = function() if category and category.GetID then Settings.OpenToCategory(category:GetID()) end end
|