/Tukui/modules/maps/location_panel.lua

http://github.com/Asphyxia/Tukui · Lua · 92 lines · 82 code · 9 blank · 1 comment · 14 complexity · 24f96c1a3a96005000e5e6969eee0566 MD5 · raw file 

    

  1. local T, C, L = unpack(select(2, ...)) -- Import: T - functions, constants, variables; C - config; L - locales
    2. 

  2. if not C.map.location_panel then return end
    3. 

  3. local font, fsize, fstyle = C.media.pixelfont, C.datatext.fontsize, "MONOCHROMEOUTLINE"
    4. 

  4. 

  5. local locpanel = CreateFrame("Frame", "TukuiLocationPanel", UIParent)
    6. 

  6. locpanel:CreatePanel("Default", 70, 23, "TOP", UIParent, "TOP", 0, -8)
    7. 

  7. locpanel:CreateShadow("Default")
    8. 

  8. locpanel:CreateOverlay(locpanel)
    9. 

  9. locpanel:SetFrameLevel(4)
    10. 

  10. locpanel:EnableMouse(true)
    11. 

  11. 

  12. local xcoords = CreateFrame("Frame", "TukuiXCoordsPanel", locpanel)
    13. 

  13. xcoords:CreatePanel("Default", 35, 19, "RIGHT", locpanel, "LEFT", 1, 0)
    14. 

  14. xcoords:CreateShadow("Default")
    15. 

  15. xcoords:CreateOverlay(xcoords)
    16. 

  16. xcoords:SetFrameLevel(2)
    17. 

  17. 

  18. local ycoords = CreateFrame("Frame", "TukuiYCoordsPanel", locpanel)
    19. 

  19. ycoords:CreatePanel("Default", 35, 19, "LEFT", locpanel, "RIGHT", -1, 0)
    20. 

  20. ycoords:CreateShadow("Default")
    21. 

  21. ycoords:CreateOverlay(ycoords)
    22. 

  22. ycoords:SetFrameLevel(2)
    23. 

  23. 

  24. -- Set font
    25. 

  25. local locFS = locpanel:CreateFontString(nil, "OVERLAY")
    26. 

  26. locFS:SetFont(font, fsize, fstyle)
    27. 

  27. 

  28. local xFS = xcoords:CreateFontString(nil, "OVERLAY")
    29. 

  29. xFS:SetFont(font, fsize, fstyle)
    30. 

  30. 

  31. local yFS = ycoords:CreateFontString(nil, "OVERLAY")
    32. 

  32. yFS:SetFont(font, fsize, fstyle)
    33. 

  33. 

  34. local function SetLocColor(frame, pvpT)
    35. 

  35. 	if (pvpT == "arena" or pvpT == "combat") then
    36. 

  36. 		frame:SetTextColor(1, 0, 0)
    37. 

  37. 	elseif pvpT == "friendly" then
    38. 

  38. 		frame:SetTextColor(0, 1, 0)
    39. 

  39. 	elseif pvpT == "contested" then
    40. 

  40. 		frame:SetTextColor(1, 1, 0)
    41. 

  41. 	elseif pvpT == "hostile" then
    42. 

  42. 		frame:SetTextColor(1, 0, 0)
    43. 

  43. 	elseif pvpT == "sanctuary" then
    44. 

  44. 		frame:SetTextColor(0, .9, .9)
    45. 

  45. 	else
    46. 

  46. 		frame:SetTextColor(0, 1, 0)
    47. 

  47. 	end
    48. 

  48. end
    49. 

  49. 

  50. local function OnEvent()
    51. 

  51. 	location = GetMinimapZoneText()
    52. 

  52. 	pvpType = GetZonePVPInfo();
    53. 

  53. 	locFS:SetText(location)
    54. 

  54. 	locpanel:SetWidth(locFS:GetStringWidth() + 40)
    55. 

  55. 	SetLocColor(locFS, pvpType)
    56. 

  56. 	locFS:SetPoint("CENTER", locpanel, "CENTER", 1, 1)
    57. 

  57. 	locFS:SetJustifyH("CENTER")
    58. 

  58. end
    59. 

  59. local function xUpdate()
    60. 

  60. 	posX, posY = GetPlayerMapPosition("player");
    61. 

  61. 	posX = math.floor(100 * posX)
    62. 

  62. 	xFS:SetText(T.datacolor..posX)
    63. 

  63. 	xFS:SetPoint("CENTER", xcoords, "CENTER", 1, 1)
    64. 

  64. end
    65. 

  65. local function yUpdate()
    66. 

  66. 	posX, posY = GetPlayerMapPosition("player");
    67. 

  67. 	posY = math.floor(100 * posY)
    68. 

  68. 	yFS:SetText(T.datacolor..posY)
    69. 

  69. 	yFS:SetPoint("CENTER", ycoords, "CENTER", 1, 1)
    70. 

  70. end
    71. 

  71. locpanel:SetScript("OnMouseDown", function()
    72. 

  72. 	if WorldMapFrame:IsShown() then
    73. 

  73. 			WorldMapFrame:Hide()
    74. 

  74. 	else
    75. 

  75. 			WorldMapFrame:Show()
    76. 

  76. 	end
    77. 

  77. end)
    78. 

  78. 

  79. locpanel:SetScript("OnEnter", function()
    80. 

  80. 	locFS:SetTextColor(1, 1, 1)
    81. 

  81. end)
    82. 

  82. locpanel:SetScript("OnLeave", function()
    83. 

  83. 	pvpType = GetZonePVPInfo();
    84. 

  84. 	SetLocColor(locFS, pvpType)	
    85. 

  85. end)
    86. 

  86. locpanel:RegisterEvent("ZONE_CHANGED")
    87. 

  87. locpanel:RegisterEvent("PLAYER_ENTERING_WORLD")
    88. 

  88. locpanel:RegisterEvent("ZONE_CHANGED_INDOORS")
    89. 

  89. locpanel:RegisterEvent("ZONE_CHANGED_NEW_AREA")
    90. 

  90. locpanel:SetScript("OnEvent", OnEvent)
    91. 

  91. xcoords:SetScript("OnUpdate", xUpdate)
    92. 

  92. ycoords:SetScript("OnUpdate", yUpdate)
    93.