/Tukui/modules/misc/altpowerbar.lua

http://github.com/Asphyxia/Tukui · Lua · 56 lines · 49 code · 7 blank · 0 comment · 4 complexity · 25745b04c2ff10074a8836d93081cf18 MD5 · raw file 

    

  1. local T, C, L = unpack(select(2, ...))
    2. 

  2. if IsAddOnLoaded("SmellyPowerBar") then return end
    3. 

  3. 

  4. PlayerPowerBarAlt:UnregisterEvent("UNIT_POWER_BAR_SHOW")
    5. 

  5. PlayerPowerBarAlt:UnregisterEvent("UNIT_POWER_BAR_HIDE")
    6. 

  6. PlayerPowerBarAlt:UnregisterEvent("PLAYER_ENTERING_WORLD")
    7. 

  7. 	
    8. 

  8. local AltPowerBar = CreateFrame("Frame", "TukuiAltPowerBar", TukuiInfoLeft)
    9. 

  9. AltPowerBar:SetAllPoints()
    10. 

  10. AltPowerBar:SetFrameStrata("HIGH")
    11. 

  11. AltPowerBar:SetFrameLevel(2)
    12. 

  12. AltPowerBar:EnableMouse(true)
    13. 

  13. AltPowerBar:SetTemplate("Default")
    14. 

  14. 

  15. local AltPowerBarStatus = CreateFrame("StatusBar", "TukuiAltPowerBarStatus", AltPowerBar)
    16. 

  16. AltPowerBarStatus:SetFrameLevel(AltPowerBar:GetFrameLevel() + 1)
    17. 

  17. AltPowerBarStatus:SetStatusBarTexture(C.media.normTex)
    18. 

  18. AltPowerBarStatus:SetMinMaxValues(0, 100)
    19. 

  19. AltPowerBarStatus:Point("TOPLEFT", TukuiInfoLeft, "TOPLEFT", 2, -2)
    20. 

  20. AltPowerBarStatus:Point("BOTTOMRIGHT", TukuiInfoLeft, "BOTTOMRIGHT", -2, 2)
    21. 

  21. 

  22. local AltPowerText = AltPowerBarStatus:CreateFontString(nil, "OVERLAY")
    23. 

  23. AltPowerText:SetFont(C.media.font, 12)
    24. 

  24. AltPowerText:Point("CENTER", AltPowerBar, "CENTER", 0, 0)
    25. 

  25. AltPowerText:SetShadowColor(0, 0, 0)
    26. 

  26. AltPowerText:SetShadowOffset(1.25, -1.25)
    27. 

  27. 

  28. AltPowerBar:RegisterEvent("UNIT_POWER")
    29. 

  29. AltPowerBar:RegisterEvent("UNIT_POWER_BAR_SHOW")
    30. 

  30. AltPowerBar:RegisterEvent("UNIT_POWER_BAR_HIDE")
    31. 

  31. AltPowerBar:RegisterEvent("PLAYER_ENTERING_WORLD")
    32. 

  32. AltPowerBar:SetScript("OnEvent", function(self)
    33. 

  33. 	self:UnregisterEvent("PLAYER_ENTERING_WORLD")
    34. 

  34. 	if UnitAlternatePowerInfo("player") then
    35. 

  35. 		self:Show()
    36. 

  36. 	else
    37. 

  37. 		self:Hide()
    38. 

  38. 	end
    39. 

  39. end)
    40. 

  40. 

  41. local TimeSinceLastUpdate = 1
    42. 

  42. AltPowerBarStatus:SetScript("OnUpdate", function(self, elapsed)
    43. 

  43. 	if not AltPowerBar:IsShown() then return end
    44. 

  44. 	TimeSinceLastUpdate = TimeSinceLastUpdate + elapsed
    45. 

  45. 	
    46. 

  46. 	if (TimeSinceLastUpdate >= 1) then
    47. 

  47. 		self:SetMinMaxValues(0, UnitPowerMax("player", ALTERNATE_POWER_INDEX))
    48. 

  48. 		local power = UnitPower("player", ALTERNATE_POWER_INDEX)
    49. 

  49. 		local mpower = UnitPowerMax("player", ALTERNATE_POWER_INDEX)
    50. 

  50. 		self:SetValue(power)
    51. 

  51. 		AltPowerText:SetText(power.." / "..mpower)
    52. 

  52. 		local r, g, b = oUFTukui.ColorGradient(power/mpower, 0,.8,0,.8,.8,0,.8,0,0)
    53. 

  53. 		AltPowerBarStatus:SetStatusBarColor(r, g, b)
    54. 

  54. 		self.TimeSinceLastUpdate = 0
    55. 

  55. 	end
    56. 

  56. end)
    57.