A Flamescale Wyrmkin
Join Date: Sep 2010
Posts: 143
|
if not Stuf then return end
local Stuf = Stuf
local su = Stuf.units
local dbg, CLS = UnitClass("player")
Stuf:AddOnInit(function(_, idbg, iCLS)
dbg = idbg
CLS = iCLS
end)
local floor, sin = math.floor, math.sin
local CreateFrame = CreateFrame
local GetTime = GetTime
local GameTooltip = GameTooltip
local UnitPower, UnitPowerMax = UnitPower, UnitPowerMax
local UnitGetIncomingHeals = UnitGetIncomingHeals
local stamin, stahr = 1/60, 1/3600
local methodcolor = Stuf.GetColorFromMethod
local function BarFaderOnUpdate(this, a1) -- loss fader
local alp = this.alp - a1
this.barfade:SetAlpha((alp < 0 and 0) or (alp > 0.8 and 0.8) or alp)
if alp < 0 then
this:SetScript("OnUpdate", nil)
end
this.alp = alp
end
local function SmoothBarOnUpdate(this, a1) -- smooth bar
local alp = this.alp - a1
if alp < 0.02 then
this.bar:SetValue(this.smoothend, this.bvalue)
this.alp = 0
this:SetScript("OnUpdate", nil)
else
this.bar:SetValue(this.smoothend + (this.smoothdif * alp * 2), this.bvalue)
this.alp = alp
end
end
local function UpdateStatusBar(unit, uf, f, reset, frac)
if not f or not frac then return end
local db, bar, bv, tfrac = f.db, f.bar, f.bvalue, nil
if db.fade then -- refresh fade bar
local new = frac * bv
if reset then
f.alp = 0
f.barfade:SetAlpha(0)
f:SetScript("OnUpdate", nil)
else
local prev = f.prev or (db.vertical and bar:GetHeight()) or bar:GetWidth()
if db.smoothfade then
if new + 3 < prev or new - 3 > prev or ((f.alp or 0) > 0.02) then
tfrac = prev / bv
f.alp, f.smoothdif, f.smoothend = 0.4, tfrac - frac, frac
f:SetScript("OnUpdate", SmoothBarOnUpdate)
end
elseif new + 1 < prev then
f:SetScript("OnUpdate", BarFaderOnUpdate)
f.alp = 1.3
f.barfade:SetAlpha(0.8)
f.barfade:SetValue(prev / bv, bv)
end
end
f.prev = new
end
if db.inc then
local incheal = (UnitGetIncomingHeals(unit) or 0) / uf.cache.maxhp
if incheal ~= f.previnc then
if incheal + frac > 1.1 then
incheal = 1.1 - frac
end
if incheal == 0 then
f.incbar:Hide()
else
f.incbar:SetValue(incheal, bv)
f.incbar:Show()
end
f.previnc = incheal
end
end
bar:SetValue(tfrac or frac, bv) -- refresh main bar
-- refresh main bar coloring
if f.barth then
bar:SetVertexColor(methodcolor(Stuf, f.barth, uf, db, frac, "barcolor", "baralpha"))
end
if f.bgth then
f.bg:SetVertexColor(methodcolor(Stuf, f.bgth, uf, db, frac, "bgcolor", "bgalpha"))
end
end
local function UpdateBarColors(unit, uf, a3, reset)
local hp = uf.hpbar
if hp and (reset or hp.colorchanges) then
local db = hp.db
local frac = uf.cache.frachp
hp.bg:SetVertexColor(methodcolor(Stuf, db.bgcolormethod, uf, db, frac, "bgcolor", "bgalpha"))
hp.bar:SetVertexColor(methodcolor(Stuf, db.barcolormethod, uf, db, frac, "barcolor", "baralpha"))
end
local mp = uf.mpbar
if mp and (reset or mp.colorchanges) then
local db = mp.db
local frac = uf.cache.fracmp
mp.bg:SetVertexColor(methodcolor(Stuf, db.bgcolormethod, uf, db, frac, "bgcolor", "bgalpha"))
mp.bar:SetVertexColor(methodcolor(Stuf, db.barcolormethod, uf, db, frac, "barcolor", "baralpha"))
end
end
local function UpdateBarLook(unit, uf, f, db) -- update bar look for statusbars
local ename = f.ename
local bg, barbase, bar, barfade, spark, incbar = f.bg, f.barbase, f.bar, f.barfade, f.spark, f.incbar
local cw = db.w - (db.barinsetleft or 0) - (db.barinsetright or 0)
local ch = db.h - (db.barinsettop or 0) - (db.barinsetbottom or 0)
Stuf:UpdateBaseLook(uf, f, db)
local texture = Stuf:GetMedia("statusbar", db.bartexture)
barbase:SetWidth(cw)
barbase:SetHeight(ch)
barbase:SetPoint("TOPLEFT", f, "TOPLEFT", (db.barinsetleft or 0), -(db.barinsettop or 0))
bar:SetWidth(cw)
bar:SetHeight(ch)
bar:ClearAllPoints()
bar:SetTexture(texture)
if barfade then
local fc = dbg[(ename == "hpbar" and "hpfadecolor") or "mpfadecolor"]
barfade:SetWidth(cw)
barfade:SetHeight(ch)
barfade:SetTexture(texture)
barfade:SetVertexColor(fc.r, fc.g, fc.b, fc.a)
barfade:SetAlpha(0)
barfade:ClearAllPoints()
end
if incbar then
local fc = dbg.healcolor
incbar:SetWidth(cw)
incbar:SetHeight(ch)
incbar:SetTexture(texture)
incbar:SetVertexColor(0.4, 1, 0.4, 0.9)
incbar:ClearAllPoints()
end
-- setup bar orientations and texture coordinates
local rev = db.reverse
local setup = (db.hflip and db.vflip and "hvflip") or (db.hflip and "hflip") or (db.vflip and "vflip") or "normal"
if db.vertical then
f.bvalue = ch
local setfunc = Stuf:GetTexCoordOptions(true, setup, rev)
local point, opoint = rev and "TOP" or "BOTTOM", rev and "BOTTOM" or "TOP"
setfunc(bg, 1, ch)
bar.SetValue = setfunc
bar:SetPoint(point, barbase, point)
if barfade then
barfade.SetValue = setfunc
barfade:SetPoint(point, barbase, point)
end
if incbar then
incbar.SetValue = setfunc
incbar:SetPoint(point, bar, opoint)
end
if spark then
local sparkc = db.sparkcolor or Stuf.whitecolor
spark:SetWidth(cw * 2.3)
spark:SetHeight(12)
spark:SetVertexColor(sparkc.r, sparkc.g, sparkc.b, sparkc.a)
spark:SetPoint("CENTER", bar, opoint)
end
else
f.bvalue = cw
local setfunc = Stuf:GetTexCoordOptions(false, setup, rev)
local point, opoint = rev and "RIGHT" or "LEFT", rev and "LEFT" or "RIGHT"
setfunc(bg, 1, cw)
bar.SetValue = setfunc
bar:SetPoint(point, barbase, point)
if barfade then
barfade.SetValue = setfunc
barfade:SetPoint(point, barbase, point)
end
if incbar then
incbar.SetValue = setfunc
incbar:SetPoint(point, bar, opoint)
end
if spark then
local sparkc = db.sparkcolor or Stuf.whitecolor
spark:SetWidth(12)
spark:SetHeight(ch * 2.3)
spark:SetVertexColor(sparkc.r, sparkc.g, sparkc.b, sparkc.a)
spark:SetPoint("CENTER", bar, opoint)
end
end
if ename == "hpbar" or ename == "mpbar" then
UpdateBarColors(unit, uf, f, true)
else
local bc = db.bgcolor or Stuf.hidecolor
bg:SetVertexColor(bc.r, bc.g, bc.b, bc.a)
end
end
do -- Health and Power Bars ------------------------------------------------------------------------------------------
local showtick
local function IncomingHeal(unit)
local uf = su[unit]
local f = uf and uf.hpbar and uf.hpbar.incbar
if not f then return end
UpdateStatusBar(unit, uf, uf.hpbar, nil, uf.cache.frachp)
end
local function CreateBar(unit, uf, name, db) -- create status bars for health or power
local f = uf[name]
local ishp = (name == "hpbar")
if db.hide then
if f then
f:Hide()
Stuf:RegisterElementRefresh(uf, name, (ishp and "healthelements") or "powerelements", nil)
end
return
end
if not f then
f = Stuf:CreateBase(unit, uf, name, db)
f.bg = f:CreateTexture(nil, "BACKGROUND")
f.bg:SetAllPoints(f)
f.barbase = CreateFrame("Frame", nil, uf)
f.bar = f:CreateTexture(nil, "ARTWORK")
uf.refreshfuncs[name] = UpdateStatusBar
uf.refreshfuncs["barcolors"] = UpdateBarColors
else
f:Show()
end
if db.fade and not f.barfade then
f.barfade = f:CreateTexture(nil, "BORDER")
end
local bg = CreateFrame("Frame", nil, f)
bg:SetBackdrop({
bgFile = 'Interface\\ChatFrame\\ChatFrameBackground',
edgeFile = 'Interface\\ChatFrame\\ChatFrameBackground',
edgeSize = 1,
})
bg:SetBackdropColor(0, 0, 0, .4)
bg:SetBackdropBorderColor(0, 0, 0)
bg:SetFrameLevel(0)
bg:SetPoint("TOPLEFT", f, -1, 1)
bg:SetPoint("BOTTOMRIGHT", f, 1, -1)
if ishp then
if db.inc then
f.incbar = f.incbar or f:CreateTexture(nil, "ARTWORK")
f.incbar:SetAlpha(1)
Stuf:AddEvent("UNIT_HEAL_PREDICTION", IncomingHeal)
elseif f.incbar then
f.incbar:SetAlpha(0)
end
end
-- five second rule mana tick
if unit == "player" and not ishp and not db.hidemanatick and CLS ~= "HUNTER" and CLS ~= "ROGUE" and CLS ~= "WARRIOR" and CLS ~= "DEATHKNIGHT" then
if not f.spark then
local spark = f:CreateTexture(nil, "OVERLAY")
spark:SetTexture("Interface\\CastingBar\\UI-CastingBar-Spark")
spark:SetBlendMode("ADD")
f.spark = spark
local lastmana, fivestart, recentcast = 1000000, 0, 0
local function SparkOnUpdate(this, a1)
local frac = (GetTime() - fivestart) * 0.2062
if frac > 1 then
f.barbase:SetScript("OnUpdate", nil)
spark:Hide()
else
spark:SetAlpha(frac > 0.1 and frac or 0.1)
spark:SetSparkPoint(f.bvalue * frac)
end
end
local function manatick(unit)
if unit ~= "player" or not showtick then return end
if not uf or uf.hidden then return end
if uf.cache.powertype ~= 0 then
spark:Hide()
f.barbase:SetScript("OnUpdate", nil)
return
end
local current = UnitPower(unit)
if current < lastmana and GetTime() - recentcast < 0.6 then
fivestart = recentcast
recentcast = 0
spark:Show()
f.barbase:SetScript("OnUpdate", SparkOnUpdate)
end
lastmana = current
end
Stuf:AddEvent("UNIT_SPELLCAST_SUCCEEDED", function(unit)
if unit == "player" and showtick then
recentcast = GetTime()
end
end)
Stuf:AddEvent("UNIT_POWER", manatick)
uf.refreshfuncs["manatick"] = manatick
Stuf:RegisterElementRefresh(uf, "manatick", "powercolorelements", true)
end
showtick = true
elseif f.spark and db.hidemanatick then
f.spark:Hide()
showtick = nil
end
UpdateBarLook(unit, uf, f, db)
if f.spark then
f.spark:Hide()
if db.vertical then
if db.reverse then
f.spark.SetSparkPoint = function(this, value) this:SetPoint("CENTER", f.barbase, "TOP", 0, -value) end
else
f.spark.SetSparkPoint = function(this, value) this:SetPoint("CENTER", f.barbase, "BOTTOM", 0, value) end
end
else
if db.reverse then
f.spark.SetSparkPoint = function(this, value) this:SetPoint("CENTER", f.barbase, "RIGHT", -value, 0) end
else
f.spark.SetSparkPoint = function(this, value) this:SetPoint("CENTER", f.barbase, "LEFT", value, 0) end
end
end
end
local barcm, bgcm = db.barcolormethod or "blah", db.bgcolormethod or "blah"
f.barth = (barcm == "hpthreshold" or barcm == "hpthresholddark") and barcm or nil
f.bgth = (bgcm == "hpthreshold" or bgcm == "hpthresholddark") and bgcm or nil
if not ishp and (strmatch(barcm, "power") or strmatch(bgcm, "power")) then
f.colorchanges = true
Stuf:RegisterElementRefresh(uf, "barcolors", "powercolorelements", true)
end
if strmatch(barcm, "reaction") or strmatch(bgcm, "reaction") then
f.colorchanges = true
Stuf:RegisterElementRefresh(uf, "barcolors", "reactionelements", true)
end
Stuf:RegisterElementRefresh(uf, name, ishp and "healthelements" or "powerelements", true)
if Stuf.inworld then
UpdateStatusBar(unit, uf, f, true, uf.cache[ishp and "frachp" or "fracmp"])
end
end
Stuf:AddBuilder("hpbar", CreateBar)
Stuf:AddBuilder("mpbar", CreateBar)
end
do -- Cast Bar -------------------------------------------------------------------------------------------------------
local UnitCastingInfo, UnitChannelInfo = UnitCastingInfo, UnitChannelInfo
local castunits, lagtime = { }, 0
local setftext = BankFrameTitleText.SetFormattedText
local timeformat = {
remain = function(fs, remain, duration, sign, delay)
setftext(fs, "%0.1f", remain)
end,
remaindelay = function(fs, remain, duration, sign, delay)
if delay then
setftext(fs, "|cffff0000%s%0.1f|r %0.1f", sign, delay, remain)
else
setftext(fs, "%0.1f", remain)
end
end,
remainduration = function(fs, remain, duration, sign, delay)
setftext(fs, "%0.1f | %0.1f", remain, duration)
end,
remaindurationdelay = function(fs, remain, duration, sign, delay)
if delay then
setftext(fs, "|cffff0000%s%0.1f|r %0.1f | %0.1f", sign, delay, remain, duration)
else
setftext(fs, "%0.1f | %0.1f", remain, duration)
end
end,
none = Stuf.nofunc,
}
local castr, castg, castb, chanr, chang, chanb, compr, compg, compb, failr, failg, failb
local function StopCast(f, r, g, b, a, value, norefresh)
f.cstate = 3
f.fadestart = norefresh and f.fadestart or GetTime()
if (a or 0) > 0.03 then
f.bar:SetVertexColor(r, g, b, a)
end
if value then
f.bar:SetValue(value, f.bvalue)
f.time:SetValue(0, f.duration)
end
f.spark:Hide()
end
local function UNIT_SPELLCAST_START(unit)
local f = castunits[unit]
if not f then return end
local spell, rank, displayName, icon, startTime, endTime, istrade, castid, notInterruptible = UnitCastingInfo(unit)
if not spell then return end
f.endtime = endTime * 0.001
f.duration = (endTime - startTime) * 0.001
f.delay = nil
f.cstate = 1
f.castid = castid
f:SetAlpha(f.db.alpha or 1)
f.bar:SetVertexColor(castr, castg, castb, f.db.baralpha)
f.spell:SetFormattedText("%s%s", (unit ~= "player" and notInterruptible and "(X) ") or "", spell)
f.icon:SetTexture(icon)
f.spark:Show()
if f.lag then
f.lag:ClearAllPoints()
f.lag:SetPoint(f.lag.castpoint, f.barbase, f.lag.castpoint)
lagtime = (startTime * 0.001 - lagtime) / f.duration
f.lag:SetValueCast(lagtime > 0.9 and 0.0001 or lagtime, f.bvalue)
end
f:Show()
return true
end
local function UNIT_SPELLCAST_CHANNEL_START(unit)
local f = castunits[unit]
if not f then return end
local spell, rank, displayName, icon, startTime, endTime, isTradeSkill, notInterruptible = UnitChannelInfo(unit)
if not spell then return end
f.endtime = endTime * 0.001
f.duration = (endTime - startTime) * 0.001
f.delay = nil
f.cstate = 2
f:SetAlpha(f.db.alpha or 1)
f.bar:SetVertexColor(chanr, chang, chanb, f.db.baralpha)
f.spell:SetFormattedText("%s%s", (unit ~= "player" and notInterruptible and "(X) ") or "", spell)
f.icon:SetTexture(icon)
f.spark:Show()
if f.lag then
f.lag:ClearAllPoints()
f.lag:SetPoint(f.lag.chanpoint, f.barbase, f.lag.chanpoint)
lagtime = (startTime * 0.001 - lagtime) / f.duration
f.lag:SetValueChan(lagtime > 0.8 and 0.0001 or lagtime, f.bvalue)
end
f:Show()
end
local function UNIT_SPELLCAST_STOP(unit)
local f = castunits[unit]
if not f or f.cstate ~= 1 then return end
StopCast(f, compr, compg, compb, f.db.baralpha, 1, nil)
end
local function UNIT_SPELLCAST_CHANNEL_STOP(unit)
local f = castunits[unit]
if not f or f.cstate ~= 2 then return end
StopCast(f, failr, failg, failb, f.db.baralpha, 0, nil)
end
local function UNIT_SPELLCAST_FAILED(unit, a1, a2, a3, a4)
local f = castunits[unit]
if not f or f.cstate ~= 1 or a4 ~= f.castid then return end
StopCast(f, failr, failg, failb, f.db.baralpha, nil, true)
end
local function UNIT_SPELLCAST_INTERRUPTED(unit)
local f = castunits[unit]
if not f or (f.cstate ~= 1 and f.cstate ~= 2) then return end
StopCast(f, failr, failg, failb, f.db.baralpha, nil, true)
end
local function UNIT_SPELLCAST_DELAYED(unit)
local f = castunits[unit]
if not f then return end
local spell, rank, displayName, icon, startTime, endTime = UnitCastingInfo(unit)
if not startTime then
f:Hide()
else
local p_endtime = f.endtime
f.endtime = endTime * 0.001
f.duration = (endTime - startTime) * 0.001
f.delay = (f.delay or 0) + (f.endtime - p_endtime)
end
end
local function UNIT_SPELLCAST_CHANNEL_UPDATE(unit)
local f = castunits[unit]
if not f then return end
local spell, rank, displayName, icon, startTime, endTime = UnitChannelInfo(unit)
if not startTime then
f:Hide()
else
local p_endtime = f.endtime
f.endtime = endTime * 0.001
f.duration = (endTime - startTime) * 0.001
f.delay = (f.delay or 0) + (f.endtime - p_endtime)
end
end
local function CastOnUpdate(f, a1)
if f.cstate == 1 then -- casting
local remain = f.endtime - GetTime()
if remain < 0 then
StopCast(f, compr, compg, compb, f.db.baralpha, 1, nil)
else
f.bar:SetValue(1 - remain / f.duration, f.bvalue)
f.time:SetValue(remain, f.duration, "+", f.delay)
end
elseif f.cstate == 2 then -- channeling
local remain = f.endtime - GetTime()
if remain < 0 then
StopCast(f, compr, compg, compb, 0, 0, nil)
else
f.bar:SetValue(remain / f.duration, f.bvalue)
f.time:SetValue(remain, f.duration, "-", f.delay)
end
elseif f.cstate == 3 then -- fading
local t = GetTime() - f.fadestart
if t < 0.8 then
f:SetAlpha((0.8 - t) * (f.db.alpha or 1))
else
f:Hide()
f.cstate = nil
f.fadestart = nil
end
else -- clear
f:Hide()
end
end
local function CastOnShowHide(this)
local bg = this.p.buffgroup
if bg and (bg.db.push == "v" or bg.db.push == "h") and not bg.db.hide then
local debuff = this.p.debuffgroup
local auratimers = this.p.auratimers
Stuf.ApplyPush(bg, debuff and not debuff.db.hide and debuff, auratimers and not auratimers.db.hide and auratimers)
end
end
local function RefreshCast(unit, uf, f, a4, a5, config)
f = f or castunits[unit]
if not f then return end
if config then
f.endtime = GetTime() + 30
f.duration = 30
f.cstate = 1
f.castid = 1
f.delay = 0.2
f:SetAlpha(f.db.alpha or 1)
local c = dbg.castcolor
f.bar:SetVertexColor(c.r, c.g, c.b, c.a)
f.spell:SetText("Spell Name Spell Name Spell Name Spell Name Spell Name")
f.icon:SetTexture("Interface\\Icons\\Ability_ThunderBolt")
f.spark:Show()
f:Show()
else
f.cstate, f.fadestart = nil, nil
if not UNIT_SPELLCAST_START(unit) then
UNIT_SPELLCAST_CHANNEL_START(unit)
end
end
end
Stuf:AddBuilder("castbar", function(unit, uf, name, db, a5, config)
local f = uf[name]
if db.hide then
if f then
f:Hide()
castunits[unit], uf.refreshfuncs[name] = nil, nil
end
return
end
if not f then
f = Stuf:CreateBase(unit, uf, name, db)
f:Hide()
f.barbase = CreateFrame("Frame", nil, uf)
f.bg = f:CreateTexture(nil, "BACKGROUND")
f.bg:SetAllPoints(f)
f.bar = f:CreateTexture(nil, "BORDER")
f.icon = f:CreateTexture(nil, "ARTWORK")
f.icon:SetTexCoord(0.07, 0.93, 0.07, 0.93)
f.spell = f:CreateFontString(nil, "OVERLAY")
f.time = f:CreateFontString(nil, "OVERLAY")
f.spark = f.border:CreateTexture(nil, "ARTWORK")
f.spark:SetTexture("Interface\\CastingBar\\UI-CastingBar-Spark")
f.spark:SetBlendMode("ADD")
f:SetScript("OnUpdate", CastOnUpdate)
f:SetScript("OnShow", CastOnShowHide)
f:SetScript("OnHide", CastOnShowHide)
f.p = uf
Stuf:AddEvent("UNIT_SPELLCAST_START", UNIT_SPELLCAST_START)
Stuf:AddEvent("UNIT_SPELLCAST_STOP", UNIT_SPELLCAST_STOP)
Stuf:AddEvent("UNIT_SPELLCAST_FAILED", UNIT_SPELLCAST_FAILED)
Stuf:AddEvent("UNIT_SPELLCAST_INTERRUPTED", UNIT_SPELLCAST_INTERRUPTED)
Stuf:AddEvent("UNIT_SPELLCAST_DELAYED", UNIT_SPELLCAST_DELAYED)
Stuf:AddEvent("UNIT_SPELLCAST_CHANNEL_START", UNIT_SPELLCAST_CHANNEL_START)
Stuf:AddEvent("UNIT_SPELLCAST_CHANNEL_UPDATE", UNIT_SPELLCAST_CHANNEL_UPDATE)
Stuf:AddEvent("UNIT_SPELLCAST_CHANNEL_STOP", UNIT_SPELLCAST_CHANNEL_STOP)
end
UpdateBarLook(unit, uf, f, db)
f:SetFrameLevel(db.framelevel or 3)
uf.refreshfuncs[name] = RefreshCast
castunits[unit] = f
castr, castg, castb = dbg.castcolor.r, dbg.castcolor.g, dbg.castcolor.b
chanr, chang, chanb = dbg.channelcolor.r, dbg.channelcolor.g, dbg.channelcolor.b
compr, compg, compb = dbg.completecolor.r, dbg.completecolor.g, dbg.completecolor.b
failr, failg, failb = dbg.failcolor.r, dbg.failcolor.g, dbg.failcolor.b
local spell, ctime = f.spell, f.time
local vertical = db.vertical
local sc = dbg.shadowcolor
spell:SetFont(Stuf.font, 1)
ctime:SetFont(Stuf.font, 1)
if db.spellfontcolor and db.spellfontcolor.a < 0.01 then
spell:Hide()
else
spell:SetWidth(db.spellw)
spell:SetHeight(db.spellh)
spell:SetPoint("TOPLEFT", f.barbase, "TOPLEFT", db.spellx or 0, db.spelly or 0)
Stuf:UpdateTextLook( spell, db.spellfont, nil, db.spellfontsize, db.spellfontflags, db.spelljustifyH or "LEFT", db.spelljustifyV,
db.spellfontcolor or Stuf.whitecolor, db.spellshadowx, db.spellshadowy)
spell:SetNonSpaceWrap(true)
spell:Show()
end
if db.timeformat == "none" or db.timefontcolor and db.timefontcolor.a < 0.01 then
ctime.SetValue = timeformat.none
ctime:Hide()
else
local c = db.timefontcolor or Stuf.whitecolor
ctime:SetWidth(db.timew)
ctime:SetHeight(db.timeh)
ctime:SetPoint("TOPLEFT", f.barbase, "TOPLEFT", db.timex or 0, db.timey or 0)
Stuf:UpdateTextLook( ctime, db.timefont, nil, db.timefontsize, db.timefontflags, db.timejustifyH or "LEFT", db.timejustifyV,
db.timefontcolor or Stuf.whitecolor, db.timeshadowx, db.timeshadowy)
ctime:SetNonSpaceWrap(true)
ctime.SetValue = timeformat[db.timeformat or "remain"] or timeformat.remain
ctime:Show()
end
if unit == "player" then
if db.showlag then
db.lagcolor = db.lagcolor or { r = 1, g = 0, b = 0, a = 0.6, }
if not f.lag then
f.lag = f:CreateTexture(nil, "ARTWORK")
Stuf:AddEvent("UNIT_SPELLCAST_SENT", function(unit)
if unit ~= "player" then return end
lagtime = GetTime()
end)
end
f.lag:SetWidth(f.bar:GetWidth())
f.lag:SetHeight(f.bar:GetHeight())
f.lag:SetTexture(f.bar:GetTexture())
f.lag:SetVertexColor(db.lagcolor.r, db.lagcolor.g, db.lagcolor.b, db.lagcolor.a)
local barpoint = f.bar:GetPoint()
f.lag.SetValueCast = Stuf:GetTexCoordOptions(db.vertical, (db.hflip and db.vflip and "hvflip") or (db.hflip and "hflip") or (db.vflip and "vflip") or "normal", not db.reverse)
f.lag.castpoint = (barpoint == "LEFT" and "RIGHT") or (barpoint == "RIGHT" and "LEFT") or (barpoint == "TOP" and "BOTTOM") or (barpoint == "BOTTOM" and "TOP")
f.lag.SetValueChan = f.bar.SetValue
f.lag.chanpoint = barpoint
f.lag:Show()
elseif f.lag then
f.lag:Hide()
end
end
f.icon:SetPoint("TOPLEFT", f.barbase, "TOPLEFT", db.iconx, db.icony)
f.icon:SetWidth(db.iconw)
f.icon:SetHeight(db.iconh)
f.icon:SetAlpha(db.iconalpha or 1)
local sc = db.sparkcolor or Stuf.whitecolor
f.spark:SetVertexColor(sc.r, sc.g, sc.b, sc.a)
f.bar:SetAlpha(db.baralpha or 1)
if Stuf.inworld then
RefreshCast(unit, uf, a3, a4, a5, config)
end
end)
end
do -- Threat Bar -----------------------------------------------------------------------------------------------------
local UnitExists, UnitDetailedThreatSituation, GetThreatStatusColor = UnitExists, UnitDetailedThreatSituation, GetThreatStatusColor
local ThreatOnUpdate, UpdateThreatOnUnit, UpdateThreat
Stuf:AddBuilder("threatbar", function(unit, uf, name, db, a5, config)
local f = uf[name]
if db.hide then
if f then f:Hide() end
return
end
if not f then
f = Stuf:CreateBase(unit, uf, name, db)
f.barbase = CreateFrame("Frame", nil, uf)
f.bg = f:CreateTexture(nil, "BACKGROUND")
f.bg:SetAllPoints(f)
f.bar = f:CreateTexture(nil, "BORDER")
f.text = f:CreateFontString(nil, "OVERLAY")
f.text:SetAllPoints(f)
f.text:SetJustifyH("CENTER")
f.text:SetJustifyV("CENTER")
ThreatOnUpdate = ThreatOnUpdate or function(this, a1)
local dir = this.dir or 1
local alp = (this.alp or 0) + a1 * dir
if (dir == 1 and alp > 0.3) or (dir == -1 and alp < -0.3) then
this.dir = dir * -1
end
this.alp = alp
this:SetAlpha(this.basealpha + alp)
end
UpdateThreatOnUnit = UpdateThreatOnUnit or function(unit, uf, a3, a4, a5, config)
uf = uf or su[unit]
local f = uf and not uf.hidden and uf.threatbar
if not f or f.db.hide then return end
local isTanking, status, threatpct
if config then
isTanking, status, threatpct = false, 3, 100
elseif not f.db.groupshow or Stuf.ingroup then
isTanking, status, threatpct = UnitDetailedThreatSituation("player", unit)
end
if not threatpct or threatpct < 1 then
f:Hide()
else
local frac = threatpct * 0.01
local r, g, b = GetThreatStatusColor(status)
f.text:SetFormattedText("%d%%", threatpct)
f.bar:SetValue(frac > 1 and 1 or frac, f.bvalue)
f.bar:SetVertexColor(r, g, b, f.db.baralpha or 1)
if status > 0 then
f:SetScript("OnUpdate", ThreatOnUpdate)
else
f:SetAlpha(f.db.alpha or 1)
f:SetScript("OnUpdate", nil)
end
f:Show()
end
end
f:Hide()
Stuf:AddEvent("UNIT_THREAT_LIST_UPDATE", UpdateThreatOnUnit)
uf.refreshfuncs[name] = UpdateThreatOnUnit
end
UpdateBarLook(unit, uf, f, db)
f:SetFrameLevel(db.framelevel or 3)
f.text:SetFont(Stuf:GetMedia("font", db.font), db.fontsize or max(2, db.h - 2))
f.text:SetNonSpaceWrap(true)
f.basealpha = (db.alpha or 1) - 0.3
f.basealpha = f.basealpha < 0.4 and 0.4 or f.basealpha
if db.fontcolor then
f.text:SetTextColor(db.fontcolor.r, db.fontcolor.g, db.fontcolor.b, db.fontcolor.a)
end
if Stuf.inworld then
UpdateThreatOnUnit(unit, uf, a3, a4, a5, config)
end
end)
end
if CLS == "SHAMAN" then -- Totem Bar ---------------------------------------------------------------------------------
local pi = math.pi
local UpdateTotem
Stuf:AddBuilder("totembar", function(unit, uf, name, db, a5, config)
if unit ~= "player" then return end
local f = uf[name]
if db.hide then
if f then f:Hide() end
return
end
if not f then
f = CreateFrame("Frame", nil, uf)
f:SetHeight(1)
f:SetWidth(1)
f.db = db
uf[name] = f
local GetTotemInfo = GetTotemInfo
local totcolors = {
{ r=0.8, g=0.6, b=0.4, a=0.8, }, -- earth
{ r=1.0, g=0.4, b=0.0, a=0.8, }, -- fire
{ r=0.4, g=0.6, b=1.0, a=0.8, }, -- water
{ r=0.9, g=0.9, b=1.0, a=0.8, }, -- air
}
local function TotemOnEnter(this)
GameTooltip:SetOwner(this, "ANCHOR_BOTTOMRIGHT")
GameTooltip:SetTotem(this.id)
GameTooltip:AddLine("<Right-click> to destroy totem", 0, 1, 0)
GameTooltip:Show()
end
local function TotemOnClick(this, button)
DestroyTotem(this.id)
end
local function TotemOnUpdate(this, a1)
this.elapsed = (this.elapsed or 0) + a1
if this.elapsed < this.throt then return end
this.elapsed = 0
local remain = this.endtime - GetTime()
this.bar:SetValue(remain * this.duration, this.bvalue)
if remain < 60 then
if remain > 10 then
this.throt = 0.2
this.time:SetFormattedText("%d", remain)
elseif remain > 0.5 then
this.throt = 0.03
this:SetAlpha(0.7 + 0.3 * sin(remain * pi))
this.time:SetFormattedText("%0.1f", remain)
elseif remain > -1.5 then
this:SetAlpha(remain * 0.5 + 0.75)
this.time:SetFormattedText("%0.1f", remain < 0 and 0 or remain)
else
this:Hide()
return
end
elseif remain < 600 then
this.time:SetFormattedText("%d:%02d", remain * stamin, remain % 60)
elseif remain < 3600 then
this.time:SetFormattedText("%dm", 1 + remain * stamin)
else
this.time:SetFormattedText("%0.1fh", remain * stahr)
end
if this.id and GameTooltip:IsOwned(this.click) then
TotemOnEnter(this.click)
end
end
UpdateTotem = function(unit, uf, a3, a4, a5, config)
uf = uf or su.player
local f = uf and not uf.hidden and uf.totembar
if not f or f.db.hide then return end
for i = 1, 4, 1 do
local haveTotem, name, startTime, duration, icon = GetTotemInfo(i)
if config then
haveTotem = true
startTime = GetTime()
duration = i * 20
icon = "Interface\\Icons\\Spell_ChargePositive"
end
local reorder = (i == 1 and 2) or (i == 2 and 1) or i -- switch earth and fire
if haveTotem and duration > 0 then
local b = f[reorder]
local c = totcolors[reorder]
b.endtime = startTime + duration
b.duration = 1 / duration
b.throt = 0.1
b.elapsed = 1
b.icon:SetTexture(icon)
b.bar:SetVertexColor(c.r, c.g, c.b, f.db.baralpha or 1)
b:SetAlpha(1)
b:Show()
else
f[reorder]:Hide()
end
end
end
for i = 1, 4, 1 do
local b = CreateFrame("Frame", nil, f)
b:SetScript("OnUpdate", TotemOnUpdate)
b.click = CreateFrame("Button", nil, b)
b.click:RegisterForClicks("RightButtonUp")
b.click:SetScript("OnEnter", TotemOnEnter)
b.click:SetScript("OnLeave", Stuf.GameTooltipOnLeave)
b.click:SetScript("OnClick", TotemOnClick)
b.click.id = (i == 1 and 2) or (i == 2 and 1) or i -- switch earth and fire
b.barbase = CreateFrame("Frame", nil, b)
b.bg = b:CreateTexture(nil, "BACKGROUND")
b.bg:SetAllPoints(b.barbase)
b.bar = b:CreateTexture(nil, "BORDER")
b.time = b:CreateFontString(nil, "OVERLAY")
b.time:SetAllPoints(b.barbase)
b.icon = b:CreateTexture(nil, "ARTWORK")
b.icon:SetTexCoord(0.07, 0.93, 0.07, 0.93)
b.spark = b:CreateTexture(nil, "ARTWORK")
b.spark:SetTexture("Interface\\CastingBar\\UI-CastingBar-Spark")
b.spark:SetBlendMode("ADD")
b.ename = name
b.id = i
f[i] = b
end
Stuf:AddEvent("PLAYER_TOTEM_UPDATE", UpdateTotem)
uf.refreshfuncs[name] = UpdateTotem
end
f:Show()
f:SetPoint("TOPLEFT", db.x, db.y)
f:SetAlpha(db.alpha or 1)
if db.framelevel then f:SetFrameLevel(db.framelevel) end
local texture = Stuf.statusbar
local bgc = db.bgcolor or Stuf.hidecolor
local reverse, vertical = db.reverse, db.vertical
for i = 1, 4, 1 do
local b = f[i]
b:SetWidth(db.w)
b:SetHeight(db.h)
b:SetAlpha(db.alpha or 1)
UpdateBarLook(unit, uf, b, db)
b.bg:SetTexture(texture)
b.bg:SetVertexColor(bgc.r, bgc.g, bgc.b, bgc.a)
b:ClearAllPoints()
if i == 1 then
b:SetPoint("TOPLEFT", f, "TOPLEFT")
else
if db.vstack then
b:SetPoint("TOP", f[i-1], "BOTTOM", 0, -((vertical and db.w or 0) + 2))
else
b:SetPoint("LEFT", f[i-1], "RIGHT", ((vertical and 0 or db.h) + 2), 0)
end
end
b.time:SetFont(Stuf:GetMedia("font", db.font), db.fontsize or max(2, db.h - 2))
b.time:SetNonSpaceWrap(true)
b.icon:ClearAllPoints()
b.click:ClearAllPoints()
if db.vertical then
b.icon:SetWidth(db.w)
b.icon:SetHeight(db.w)
if reverse then
b.icon:SetPoint("BOTTOM", b, "TOP")
b.time:SetJustifyH("CENTER")
b.time:SetJustifyV("BOTTOM")
b.click:SetPoint("TOPLEFT", b.icon, "TOPLEFT")
b.click:SetPoint("BOTTOMRIGHT", b, "BOTTOMRIGHT")
else
b.icon:SetPoint("TOP", b, "BOTTOM")
b.time:SetJustifyH("CENTER")
b.time:SetJustifyV("TOP")
b.click:SetPoint("TOPLEFT", b, "TOPLEFT")
b.click:SetPoint("BOTTOMRIGHT", b.icon, "BOTTOMRIGHT")
end
else
b.icon:SetWidth(db.h)
b.icon:SetHeight(db.h)
if reverse then
b.icon:SetPoint("LEFT", b, "RIGHT")
b.time:SetJustifyH("LEFT")
b.time:SetJustifyV("CENTER")
b.click:SetPoint("TOPLEFT", b, "TOPLEFT")
b.click:SetPoint("BOTTOMRIGHT", b.icon, "BOTTOMRIGHT")
else
b.icon:SetPoint("RIGHT", b, "LEFT")
b.time:SetJustifyH("RIGHT")
b.time:SetJustifyV("CENTER")
b.click:SetPoint("TOPLEFT", b.icon, "TOPLEFT")
b.click:SetPoint("BOTTOMRIGHT", b, "BOTTOMRIGHT")
end
end
if db.fontcolor then
local c = db.fontcolor
b.time:SetTextColor(c.r, c.g, c.b, c.a)
end
b:Hide()
b.click:EnableMouse(not db.nomouse)
end
if Stuf.inworld then
UpdateTotem(unit, uf, a3, a4, a5, config)
end
end)
elseif CLS == "DRUID" then -- Druid Bar ------------------------------------------------------------------------------
Stuf:AddBuilder("druidbar", function(unit, uf, name, db)
if unit ~= "player" then return end
local f = uf[name]
if db.hide then
if f then f:Hide() end
return
end
if not f then
f = Stuf:CreateBase(unit, uf, name, db)
f.bg = f:CreateTexture(nil, "BACKGROUND")
f.bg:SetAllPoints(f)
f.barbase = CreateFrame("Frame", nil, uf)
f.bar = f:CreateTexture(nil, "ARTWORK")
uf.refreshfuncs[name] = function(unit, uf, f)
uf = uf or su[unit]
f = f or (uf and not uf.hidden and uf.druidbar)
if not f or f.db.hide then return end
if uf.cache.powertype == 0 then
f:Hide()
else
local current, total = UnitPower(unit, 0), UnitPowerMax(unit, 0)
if f.curdmp ~= current or f.maxdmp ~= total then
f.bar:SetValue(current / total, f.bvalue)
f.curdmp, f.maxdmp = current, total
end
f:Show()
end
end
Stuf:AddEvent("UNIT_POWER", uf.refreshfuncs[name])
Stuf:RegisterElementRefresh(uf, name, "powercolorelements", true)
end
if db.fade and not f.barfade then
f.barfade = f:CreateTexture(nil, "BORDER")
end
UpdateBarLook(unit, uf, f, db)
local c = db.barcolor or Stuf.whitecolor
f.bar:SetVertexColor(c.r, c.g, c.b, db.baralpha or c.a or 1)
end)
Stuf:AddBuilder("eclipsebar", function(unit, uf, name, db, a5, config)
if unit ~= "player" then return end
local f = EclipseBarFrame
if db.hide then
if f then f:Hide() end
return
end
f:SetParent(uf)
f:SetPoint("TOP", uf, "BOTTOM", db.x or 0, db.y or 0)
f:SetScale(db.scale or 1)
f:SetAlpha(db.alpha or 1)
if db.framelevel then
f:SetFrameLevel(db.framelevel)
end
f:Show()
end)
elseif CLS == "DEATHKNIGHT" then -- Rune Bar -------------------------------------------------------------------------------------------------------
local UpdateRuneBar, UpdateRuneType, UpdateAllRunes
Stuf:AddBuilder("runebar", function(unit, uf, name, db, a5, config)
if unit ~= "player" then return end
local f = uf[name]
if db.hide then
if f then f:Hide() end
return
end
RuneFrame:UnregisterAllEvents()
RuneFrame:Hide()
if not f then
f = CreateFrame("Frame", nil, uf)
f:SetWidth(2)
f:SetHeight(2)
f.db = db
uf[name] = f
db.growth = db.growth or "TBLR"
db.rows = db.rows or 2
db.spacing = db.spacing or 1
dbg.runecolor = dbg.runecolor or { }
local dbgr = dbg.runecolor
dbgr.BLOOD = dbgr.BLOOD or { r = 1, g = 0, b = 0, }
dbgr.UNHOLY = dbgr.UNHOLY or { r = 0, g = 0.7, b = 0, }
dbgr.FROST = dbgr.FROST or { r = 0, g = 1, b = 1, }
dbgr.DEATH = dbgr.DEATH or { r = 0.8, g = 0.1, b = 1, }
local function RuneOnUpdate(this, a1)
local e = (this.elapsed or 0) + a1
if e > 0.07 then
e = 0
local value = (GetTime() - this.start) * this.duration
if value < 1 then
this.bar:SetValue(value, this.bvalue)
this.bar:SetAlpha(value * 0.4 + 0.3)
else
this.bar:SetValue(1, this.bvalue)
this.bar:SetAlpha(1)
end
end
this.elapsed = e
end
for i = 1, 8, 1 do
local b = CreateFrame("Frame", nil, f)
b.bg = b:CreateTexture(nil, "BACKGROUND")
b.bg:SetAllPoints(b)
b.barbase = CreateFrame("Frame", nil, b)
b.bar = b:CreateTexture(nil, "ARTWORK")
b.ename = name
b.id = i
f[i] = b
end
local GetRuneType, GetRuneCooldown = GetRuneType, GetRuneCooldown
local runeMapping = { "BLOOD", "UNHOLY", "FROST", "DEATH", }
UpdateRuneBar = function(rune, usable)
local rf = f[rune or 20]
if not rf then return end
if usable then
rf:SetScript("OnUpdate", nil)
rf.bar:SetValue(1, rf.bvalue)
rf.bar:SetAlpha(1)
else
local start, duration, runeReady = GetRuneCooldown(rune)
rf.elapsed = 1
rf.start = start
rf.duration = 1 / duration
rf:SetScript("OnUpdate", RuneOnUpdate)
end
end
UpdateRuneType = function(rune)
if not rune then return end
local runeType = GetRuneType(rune)
local rf = f[rune]
if runeType then
local c = dbg.runecolor[ runeMapping[runeType] ]
rf.bar:SetVertexColor(c.r, c.g, c.b)
rf:Show()
UpdateRuneBar(rune, select(3, GetRuneCooldown(rune)))
else
rf:Hide()
end
end
UpdateAllRunes = function()
for i = 1, 8, 1 do
UpdateRuneType(i)
end
end
Stuf:AddEvent("RUNE_POWER_UPDATE", UpdateRuneBar)
Stuf:AddEvent("RUNE_TYPE_UPDATE", UpdateRuneType)
uf.refreshfuncs[name] = UpdateAllRunes
else
f:Show()
end
f:SetPoint("TOPLEFT", db.x, db.y)
f:SetFrameLevel(db.framelevel or 3)
f:SetAlpha(db.alpha or 1)
local d1, d2, d3, d4, hdir, vdir = Stuf.GrowthBreakdown(db.growth)
local cols, rows, spacing, vspacing = 8/db.rows, db.rows, db.spacing, db.vspacing or db.spacing
local hfirst = (d1 == "LEFT" or d1 == "RIGHT")
for i = 1, 8, 1 do
local rf = f[i]
UpdateBarLook(unit, uf, rf, db)
rf:ClearAllPoints()
if hfirst then -- LRTB, LRBT, RLTB, RLBT
local crow = ceil(i / cols)
local ccol = i % cols
ccol = (ccol == 0 and cols) or ccol
if i == 1 then -- first row, first col
rf:SetPoint(d3..d1, f, d3..d1)
elseif ccol == 1 then -- start of a new row (first column)
rf:SetPoint(d3, f[i - cols], d4, 0, vspacing * vdir)
else
rf:SetPoint(d1, f[i - 1], d2, spacing * hdir, 0)
end
else -- TBLR, TBRL, BTLR, BTRL
local ccol = ceil(i / rows)
local crow = i % rows
crow = (crow == 0 and rows) or crow
if i == 1 then -- first row, first col
rf:SetPoint(d1..d3, f, d1..d3)
elseif crow == 1 then -- start of a new column (first row)
rf:SetPoint(d3, f[i - rows], d4, spacing * hdir, 0)
else
rf:SetPoint(d1, f[i - 1], d2, 0, vspacing * vdir)
end
end
end
if Stuf.inworld then
UpdateAllRunes()
end
end)
elseif CLS == "PALADIN" then -- Holy Bar -------------------------------------------------------------------------------------------------------
Stuf:AddBuilder("holybar", function(unit, uf, name, db, a5, config)
if unit ~= "player" then return end
local f = PaladinPowerBar
if db.hide then
if f then f:Hide() end
return
end
f:SetParent(uf)
f:SetPoint("TOP", uf, "BOTTOM", db.x or 0, db.y or 0)
f:SetScale(db.scale or 1)
f:SetAlpha(db.alpha or 1)
if db.framelevel then
f:SetFrameLevel(db.framelevel)
end
PaladinPowerBar_OnLoad(f)
end)
elseif CLS == "WARLOCK" then -- Holy Bar -------------------------------------------------------------------------------------------------------
Stuf:AddBuilder("shardbar", function(unit, uf, name, db, a5, config)
if unit ~= "player" then return end
local f = ShardBarFrame
if db.hide then
if f then f:Hide() end
return
end
f:SetParent(uf)
f:SetPoint("TOP", uf, "BOTTOM", db.x or 0, db.y or 0)
f:SetScale(db.scale or 1)
f:SetAlpha(db.alpha or 1)
if db.framelevel then
f:SetFrameLevel(db.framelevel)
end
ShardBar_OnLoad(f)
end)
end
|
Hope this helps clear it up a bit!
Linear Mode
