diff --git a/MBB.lua b/MBB.lua new file mode 100644 index 0000000..9f2b49b --- /dev/null +++ b/MBB.lua @@ -0,0 +1,698 @@ +MBB_Version = "0.501"; +MBB_DebugFlag = 0; +MBB_DragFlag = 0; +MBB_ShowTimeout = -1; +MBB_Buttons = {}; +MBB_Exclude = {}; +MBB_DefaultOptions = { + ["ButtonPos"] = {-18, -100}, + ["AttachToMinimap"] = 1, + ["CollapseTimeout"] = 1, + ["ExpandDirection"] = 1, + ["MaxButtonsPerLine"] = 0, + ["AltExpandDirection"] = 4 +}; + +MBB_Include = { + [1] = "WIM_IconFrame", + [2] = "DPSMate_MiniMap" +}; + +MBB_Ignore = { + [1] = "MiniMapTrackingFrame", + [2] = "MiniMapMeetingStoneFrame", + [3] = "MiniMapMailFrame", + [4] = "MiniMapBattlefieldFrame", + [5] = "MiniMapPing", + [6] = "MinimapBackdrop", + [7] = "MinimapZoomIn", + [8] = "MinimapZoomOut", + [9] = "BookOfTracksFrame", + [10] = "GatherNote", + [11] = "FishingExtravaganzaMini", + [12] = "MiniNotePOI", + [13] = "RecipeRadarMinimapIcon", + [14] = "FWGMinimapPOI", + [15] = "MBB_MinimapButtonFrame", + [16] = "QuestieNote", + [17] = "MetaMap" + +}; + +MBB_IgnoreSize = { + [1] = "AM_MinimapButton", + [2] = "STC_HealthstoneButton", + [3] = "STC_ShardButton", + [4] = "STC_SoulstoneButton", + [5] = "STC_SpellstoneButton", + [6] = "STC_FirestoneButton", + [7] = "WIM_IconFrameButton", + [8] = "MonkeyBuddyIconButton" +}; + +MBB_ExtraSize = { + ["GathererMinimapButton"] = function() + GathererMinimapButton.mask:SetHeight(31); + GathererMinimapButton.mask:SetWidth(31); + end, + ["WIM_IconFrame"] = function() + WIM_IconFrameButton:SetScale(1); + end, + ["MonkeyBuddyIconButton"] = function() + --MonkeyBuddyIconButton:SetScale(0.75); + end +}; + +_rescanned = false; +_starttime = 0; + +function MBB_OnLoad() + this:RegisterEvent("VARIABLES_LOADED"); + this:RegisterEvent("ADDON_LOADED"); + SLASH_MBB1 = "/mbb"; + SlashCmdList["MBB"] = MBB_SlashHandler; +end + +function MBB_SlashHandler(cmd) + if( cmd == "buttons" ) then + MBB_Print("MBB Buttons:"); + for i,name in ipairs(MBB_Buttons) do + MBB_Print(" " .. name); + end + elseif( string.sub(cmd, 1, 6) == "debug " ) then + local iStart, iEnd, sFrame = string.find(cmd, "debug (.+)"); + + local hasClick, hasMouseUp, hasMouseDown, hasEnter, hasLeave = MBB_TestFrame(sFrame); + + MBB_Debug("Frame: " .. sFrame); + if( hasClick ) then + MBB_Debug(" has OnClick script"); + else + MBB_Debug(" has no OnClick script"); + end + if( hasMouseUp ) then + MBB_Debug(" has OnMouseUp script"); + else + MBB_Debug(" has no OnMouseUp script"); + end + if( hasMouseDown ) then + MBB_Debug(" has OnMouseDown script"); + else + MBB_Debug(" has no OnMouseDown script"); + end + if( hasEnter ) then + MBB_Debug(" has OnEnter script"); + else + MBB_Debug(" has no OnEnter script"); + end + if( hasLeave ) then + MBB_Debug(" has OnLeave script"); + else + MBB_Debug(" has no OnLeave script"); + end + elseif( cmd == "reset position" ) then + MBB_Options.AttachToMinimap = MBB_DefaultOptions.AttachToMinimap; + MBB_Options.ButtonPos = MBB_DefaultOptions.ButtonPos; + MBB_SetButtonPosition(); + elseif( cmd == "reset all" ) then + MBB_Options = MBB_DefaultOptions; + for i=1,table.getn(MBB_Exclude) do + MBB_AddButton(MBB_Exclude[1]); + end + MBB_SetPositions(); + MBB_SetButtonPosition(); + else + MBB_Print("MBB v" .. MBB_Version .. ":"); + MBB_Print(MBB_HELP1); + MBB_Print(MBB_HELP2); + MBB_Print(MBB_HELP3); + MBB_Print(MBB_HELP4); + end +end + +function MBB_TestFrame(name) + local hasClick = false; + local hasMouseUp = false; + local hasMouseDown = false; + local hasEnter = false; + local hasLeave = false; + local frame = getglobal(name); + + if( frame ) then + if( frame:HasScript("OnClick") ) then + local test = frame:GetScript("OnClick"); + if( test ) then + hasClick = true; + end + end + if( frame:HasScript("OnMouseUp") ) then + local test = frame:GetScript("OnMouseUp"); + if( test ) then + hasMouseUp = true; + end + end + if( frame:HasScript("OnMouseDown") ) then + local test = frame:GetScript("OnMouseDown"); + if( test ) then + hasMouseDown = true; + end + end + if( frame:HasScript("OnEnter") ) then + local test = frame:GetScript("OnEnter"); + if( test ) then + hasEnter = true; + end + end + if( frame:HasScript("OnLeave") ) then + local test = frame:GetScript("OnLeave"); + if( test ) then + hasLeave = true; + end + end + end + + return hasClick, hasMouseUp, hasMouseDown, hasEnter, hasLeave; +end + +function MBB_OnEvent() + if(event == "ADDON_LOADED" and (arg1 == "Squeenix" or arg1 == "MBB")) then + + + MBB_SetButtonPosition(); + end + if ( event == "VARIABLES_LOADED" ) then + if( MBB_Options ) then + for opt,val in pairs(MBB_DefaultOptions) do + if( not MBB_Options[opt] ) then + MBB_Debug(opt .. " option set to default: " .. tostring(val)); + MBB_Options[opt] = val; + else + MBB_Debug(opt .. " option exists: " .. tostring(MBB_Options[opt])); + end + end + else + MBB_Options = MBB_DefaultOptions; + end + + + + + end +end + +function MBB_GatherIcons() + local children = {Minimap:GetChildren()}; + local additional = {MinimapBackdrop:GetChildren()}; + for _,child in ipairs(additional) do + table.insert(children, child); + end + for _,child in ipairs(MBB_Include) do + local frame = getglobal(child); + if( frame ) then + table.insert(children, frame); + end + end + + for _,child in ipairs(children) do + if( child:GetName() ) then + local ignore = false; + local exclude = false; + for i,needle in ipairs(MBB_Ignore) do + if( string.find(child:GetName(), needle) ) then + ignore = true; + end + end + if( not ignore ) then + if( not child:HasScript("OnClick") ) then + for _,subchild in ipairs({child:GetChildren()}) do + if( subchild:HasScript("OnClick") ) then + child = subchild; + break; + end + end + end + + local hasClick, hasMouseUp, hasMouseDown, hasEnter, hasLeave = MBB_TestFrame(child:GetName()); + + if( hasClick or hasMouseUp or hasMouseDown ) then + local name = child:GetName(); + + MBB_PrepareButton(name); + if( not MBB_IsExcluded(name) ) then + if( child:IsVisible() ) then + MBB_Debug("Button is visible: " .. name); + else + MBB_Debug("Button is not visible: " .. name); + end + MBB_Debug("Button added: " .. name); + MBB_AddButton(name); + else + MBB_Debug("Button excluded: " .. name); + end + else + MBB_Debug("Frame is no button: " .. child:GetName()); + end + else + MBB_Debug("Frame ignored: " .. child:GetName()); + end + end + end + + MBB_SetPositions(); +end + +function MBB_PrepareButton(name) + local frame = getglobal(name); + + if( frame ) then + if( frame.RegisterForClicks ) then + frame:RegisterForClicks("LeftButtonDown","RightButtonDown"); + end + + if( not MBB_IsInArray(MBB_IgnoreSize, name) ) then + frame:SetScale(1/Minimap:GetEffectiveScale()); + end + frame.isvisible = frame:IsVisible(); + frame.oshow = frame.Show; + frame.Show = function(frame) + frame.isvisible = true; + MBB_Debug("Showing frame: " .. frame:GetName()); + if( not MBB_IsExcluded(frame:GetName()) ) then + MBB_SetPositions(); + end + if( MBB_IsExcluded(frame:GetName()) or (MBB_Buttons[1] and MBB_Buttons[1] ~= frame:GetName() and getglobal(MBB_Buttons[1]):IsVisible()) ) then + frame.oshow(frame); + end + end + frame.ohide = frame.Hide; + frame.Hide = function(frame) + frame.isvisible = false; + MBB_Debug("Hiding frame: " .. frame:GetName()); + frame.ohide(frame); + if( not MBB_IsExcluded(frame:GetName()) ) then + MBB_SetPositions(); + end + end + + if( frame:HasScript("OnClick") ) then + frame.oclick = frame:GetScript("OnClick"); + frame:SetScript("OnClick", function() + if( arg1 and arg1 == "RightButton" and IsControlKeyDown() ) then + local name = this:GetName(); + if( MBB_IsExcluded(name) ) then + MBB_AddButton(name); + else + MBB_RestoreButton(name); + end + MBB_SetPositions(); + elseif( this.oclick ) then + this.oclick(); + end + end); + elseif( frame:HasScript("OnMouseUp") ) then + frame.omouseup = frame:GetScript("OnMouseUp"); + frame:SetScript("OnMouseUp", function() + if( arg1 and arg1 == "RightButton" and IsControlKeyDown() ) then + local name = this:GetName(); + if( MBB_IsExcluded(name) ) then + MBB_AddButton(name); + else + MBB_RestoreButton(name); + end + MBB_SetPositions(); + elseif( this.omouseup ) then + this.omouseup(); + end + end); + elseif( frame:HasScript("OnMouseDown") ) then + frame.omousedown = frame:GetScript("OnMouseDown"); + frame:SetScript("OnMouseDown", function() + if( arg1 and arg1 == "RightButton" and IsControlKeyDown() ) then + local name = this:GetName(); + if( MBB_IsExcluded(name) ) then + MBB_AddButton(name); + else + MBB_RestoreButton(name); + end + MBB_SetPositions(); + elseif( this.omousedown ) then + this.omousedown(); + end + end); + end + if( frame:HasScript("OnEnter") ) then + frame.oenter = frame:GetScript("OnEnter"); + frame:SetScript("OnEnter", function() + if( not MBB_IsExcluded(this:GetName()) ) then + MBB_ShowTimeout = -1; + end + if( this.oenter ) then + this.oenter(); + end + end); + end + if( frame:HasScript("OnLeave") ) then + frame.oleave = frame:GetScript("OnLeave"); + frame:SetScript("OnLeave", function() + if( not MBB_IsExcluded(this:GetName()) ) then + MBB_ShowTimeout = 0; + end + if( this.oleave ) then + this.oleave(); + end + end); + end + end +end + +function MBB_AddButton(name) + local show = false; + local child = getglobal(name); + + if( MBB_Buttons[1] and MBB_Buttons[1] ~= name and getglobal(MBB_Buttons[1]):IsVisible() ) then + show = true; + end + + child.opoint = {child:GetPoint()}; + if( not child.opoint[1] ) then + child.opoint = {"TOP", Minimap, "BOTTOM", 0, 0}; + end + child.osize = {child:GetHeight(),child:GetWidth()}; + child.oclearallpoints = child.ClearAllPoints; + child.ClearAllPoints = function() end; + child.osetpoint = child.SetPoint; + child.SetPoint = function() end; + if( not show ) then + child.ohide(child); + end + table.insert(MBB_Buttons, name); + local i = MBB_IsInArray(MBB_Exclude, name); + if( i ) then + table.remove(MBB_Exclude, i); + end +end + +function MBB_IsExcluded(name) + for i,needle in ipairs(MBB_Exclude) do + if( needle == name ) then + return true; + end + end + return false; +end + +function MBB_RestoreButton(name) + local button = getglobal(name); + + button.oclearallpoints(button); + button.osetpoint(button, button.opoint[1], button.opoint[2], button.opoint[3], button.opoint[4], button.opoint[5]); + button:SetHeight(button.osize[1]); + button:SetWidth(button.osize[1]); + button.ClearAllPoints = button.oclearallpoints; + button.SetPoint = button.osetpoint; + button.oshow(button); + + table.insert(MBB_Exclude, name); + local i = MBB_IsInArray(MBB_Buttons, button:GetName()); + if( i ) then + table.remove(MBB_Buttons, i); + end +end + +function MBB_SetPositions() + local directions = { + [1] = {"RIGHT", "LEFT"}, + [2] = {"BOTTOM", "TOP"}, + [3] = {"LEFT", "RIGHT"}, + [4] = {"TOP", "BOTTOM"} + }; + local offsets = { + [1] = {"RIGHT","LEFT"}, + [2] = {"BOTTOM","TOP"}, + [3] = {"LEFT", "RIGHT"}, + [4] = {"TOP", "BOTTOM"} + }; + local cols ={}; + local parentid = 0; + local count = 0; + for i,name in ipairs(MBB_Buttons) do + local frame = getglobal(name); + if( frame.isvisible ) then + count = count + 1 ; + local mpl = MBB_Options["MaxButtonsPerLine"] + if (MBB_Options["MaxButtonsPerLine"]==0) then mpl=100 end + local row = math.floor (count /mpl ) + local col = count - row * mpl + local parent; + + local dirchild, dirparent = directions[MBB_Options.ExpandDirection][1], directions[MBB_Options.ExpandDirection][2]; + + if( parentid==0 ) then + parent = MBB_MinimapButtonFrame; + cols[row] = i + else + parent = getglobal(MBB_Buttons[parentid]); + end + if( not MBB_IsInArray(MBB_IgnoreSize, name) ) then + if( MBB_ExtraSize[name] ) then + local func = MBB_ExtraSize[name]; + func(); + else + frame:SetHeight(31); -- 33 + frame:SetWidth(31); + end + end + + frame.oclearallpoints(frame); + if ((col == 1) and (parentid ~= 0)) then + cols[row] = i + parent = getglobal(MBB_Buttons[cols[row - 1]]) + dirchild, dirparent = offsets[MBB_Options.AltExpandDirection][1], offsets[MBB_Options.AltExpandDirection][2] + + end + frame.osetpoint(frame, dirchild, parent, dirparent, 0, 0); + + parentid = i; + end + end +end + +function MBB_OnClick(arg1) + if( arg1 and arg1 == "RightButton" and IsControlKeyDown() ) then + if( MBB_Options.AttachToMinimap == 1 ) then + local xpos,ypos = GetCursorPosition(); + local scale = Minimap:GetEffectiveScale();--UIParent:GetEffectiveScale(); --GetCVar("uiScale"); + MBB_Options.AttachToMinimap = 0; + MBB_Options.ButtonPos ={xpos,ypos} --{(xpos/scale)-10, (ypos/scale)-10} + MBB_Debug(" "..(xpos/scale-10).." "..(ypos/scale-10)) + --(xpos/scale)-10, (ypos/scale)-10}; + MBB_SetButtonPosition(); + else + MBB_Options.AttachToMinimap = 1; + MBB_Options.ButtonPos = MBB_DefaultOptions.ButtonPos; + MBB_SetButtonPosition(); + end + elseif( arg1 and arg1 == "RightButton" ) then + MBB_OptionsFrame:Show(); + else + if( MBB_Buttons[1] and getglobal(MBB_Buttons[1]):IsVisible() ) then + MBB_HideButtons(); + else + for i,name in ipairs(MBB_Buttons) do + local frame = getglobal(name); + frame.oshow(frame); + end + --MBB_ShowTimeout = 0; + end + end +end + +function MBB_HideButtons() + MBB_ShowTimeout = -1; + for i,name in ipairs(MBB_Buttons) do + local frame = getglobal(name); + frame.ohide(frame); + end +end + +function MBB_OnUpdate(elapsed) + + if (not _rescanned) then + if ((GetTime() - _starttime) > 10) then + _rescanned = true; + MBB_GatherIcons(); + MBB_SetButtonPosition(); + return; + end; + end; + + + if( MBB_DragFlag == 1 and MBB_Options.AttachToMinimap == 1 ) then + local xpos,ypos = GetCursorPosition(); + local xmin,ymin,xm,ym = Minimap:GetLeft(), Minimap:GetBottom(), Minimap:GetRight(), Minimap:GetTop(); + + local scale = Minimap:GetEffectiveScale(); + + local xdelta, ydelta = (xm - xmin)/2*scale, (ym - ymin) /2 * scale; + + MBB_Debug( xmin..","..ymin..","..xm..","..ym) + MBB_Debug( xdelta..","..ydelta) + + xpos = xmin*scale-xpos+xdelta; + ypos = ypos-ymin*scale-ydelta; + + local angle = math.deg(math.atan2(ypos,xpos)); + + local x,y =0,0; + if (Squeenix or (simpleMinimap_Skins and simpleMinimap_Skins:GetShape() == "square")) then + x = math.max(-xdelta, math.min((xdelta*1.5) * cos(angle), xdelta)) + y = math.max(-ydelta, math.min((ydelta*1.5) * sin(angle), ydelta)) + else + x= cos(angle)*xdelta + y= sin(angle)*ydelta + end + MBB_MinimapButtonFrame:SetPoint("TOPLEFT", Minimap, "TOPLEFT", xdelta-x -17 , y-ydelta +17); + end + + if( MBB_Options.CollapseTimeout and MBB_Options.CollapseTimeout ~= 0 ) then + if( MBB_Buttons[1] ) then + if( MBB_ShowTimeout >= MBB_Options.CollapseTimeout and getglobal(MBB_Buttons[1]):IsVisible() ) then + MBB_HideButtons(); + end + end + if( MBB_ShowTimeout ~= -1 ) then + MBB_ShowTimeout = MBB_ShowTimeout + elapsed; + end + end +end + +function MBB_ResetPosition() + MBB_Options.ButtonPos = MBB_DefaultOptions.ButtonPos; + MBB_Options.AttachToMinimap = MBB_DefaultOptions.AttachToMinimap; + + MBB_SetButtonPosition(); +end + +function MBB_SetButtonPosition() + + MBB_MinimapButtonFrame:SetScale(1/Minimap:GetEffectiveScale()); + + --MBB_Debug(MBB_Options.ButtonPos[1].." " .. MBB_Options.ButtonPos[2]) + + if( MBB_Options.AttachToMinimap == 1 ) then + MBB_MinimapButtonFrame:ClearAllPoints(); + MBB_MinimapButtonFrame:SetPoint("TOPLEFT", Minimap, "TOPLEFT", MBB_Options.ButtonPos[1], MBB_Options.ButtonPos[2]); + else + MBB_MinimapButtonFrame:ClearAllPoints(); + MBB_MinimapButtonFrame:SetPoint("CENTER", UIParent, "BOTTOMLEFT", MBB_Options.ButtonPos[1], MBB_Options.ButtonPos[2]); + end +end + +function MBB_RadioButton_OnClick(id, alt) + local substring; + if( alt ) then + substring = "Alt"; + else + substring = ""; + end + local buttons = { + [1] = "Left", + [2] = "Top", + [3] = "Right", + [4] = "Bottom" + }; + + for i,name in ipairs(buttons) do + if( i == id ) then + getglobal("MBB_OptionsFrame_" .. name .. substring .. "Radio"):SetChecked(true); + else + getglobal("MBB_OptionsFrame_" .. name .. substring .. "Radio"):SetChecked(nil); + end + end +end + + +function MBB_UpdateAltRadioButtons() + local buttons = { + [1] = "Left", + [2] = "Top", + [3] = "Right", + [4] = "Bottom" + }; + + local exchecked = 1; + + for i,name in pairs(buttons) do + if( getglobal("MBB_OptionsFrame_" .. name .. "Radio"):GetChecked() ) then + exchecked = i; + break; + end + end + + local checked = false; + local textbox = getglobal("MBB_OptionsFrame_MaxButtonsTextBox"); + + for i,name in pairs(buttons) do + local radio = getglobal("MBB_OptionsFrame_" .. name .. "AltRadio"); + local label = getglobal("MBB_OptionsFrame_" .. name .. "AltRadioLabel"); + if( textbox:GetText() == "" or tonumber(textbox:GetText()) == 0 ) then + radio:Disable(); + radio:SetChecked(nil); + label:SetTextColor(0.5, 0.5, 0.5); + + else + if( (exchecked - math.floor(exchecked/2)*2) == (i - math.floor(i/2)*2) ) then + if( radio:GetChecked() ) then + checked = true; + if( i == 4 ) then + getglobal("MBB_OptionsFrame_LeftAltRadio"):SetChecked(true); + else + getglobal("MBB_OptionsFrame_" .. buttons[i+1] .. "AltRadio"):SetChecked(true); + end + end + radio:Disable(); + radio:SetChecked(nil); + label:SetTextColor(0.5, 0.5, 0.5); + else + if( radio:GetChecked() ) then + checked = true; + end + radio:Enable(); + label:SetTextColor(1, 1, 1); + + end + + end + + end + + if( not checked and tonumber(textbox:GetText()) ~= 0 and textbox:GetText() ~= "" ) then + if( (exchecked - math.floor(exchecked/2)*2 ) == 1 ) then + getglobal("MBB_OptionsFrame_TopAltRadio"):SetChecked(true); + else + getglobal("MBB_OptionsFrame_LeftAltRadio"):SetChecked(true); + end + end + +end + +function MBB_Debug(msg) + if (MBB_DebugFlag == 1) then + MBB_Print("MBB Debug : " .. tostring(msg)); + end +end + +function MBB_IsInArray(array, needle) + if(type(array) == "table") then + --MBB_Debug("Looking for " .. tostring(needle) .. " in " .. tostring(array)); + for i, element in pairs(array) do + if(type(element) == type(needle) and element == needle) then + return i; + end + end + end + return nil; +end +function MBB_Print(msg) + DEFAULT_CHAT_FRAME:AddMessage(msg, 0.2, 0.8, 0.8); +end \ No newline at end of file diff --git a/MBB.toc b/MBB.toc new file mode 100644 index 0000000..a1a3899 --- /dev/null +++ b/MBB.toc @@ -0,0 +1,9 @@ +## Interface: 11200 +## Title: MinimapButtonBag (0.501) +## Author: Tunhadil, LaYt - continue +## Notes: Reduces minimap buttons and makes them accessible through a menu! +## Notes-deDE: Reduziert die Minimap Knöpfe und erlaubt den Zugriff auf diese über ein Menü! +## SavedVariablesPerCharacter: MBB_Exclude, MBB_Options +localization-enGB.lua +localization-deDE.lua +MBB.xml diff --git a/MBB.xml b/MBB.xml new file mode 100644 index 0000000..e49594a --- /dev/null +++ b/MBB.xml @@ -0,0 +1,665 @@ + +