vanilla-wow-addons – Rev 1

?pathlinks?

Blame – Last modification – View Log – Download

TITAN_ZONE_SPEED_ID = "ZoneSpeed";
TITAN_ZONE_SPEED_FREQUENCY = 1;

local ZoneSpeed_LastZone = nil;

function TitanPanelZoneSpeedButton_OnLoad()
        this.registry = {
                id = TITAN_ZONE_SPEED_ID,
                builtIn = 1,
                version = TITAN_VERSION,
                menuText = TITAN_ZONE_SPEED_MENU_TEXT,
                buttonTextFunction = "TitanPanelZoneSpeedButton_GetButtonText", 
                tooltipTitle = TITAN_ZONE_SPEED_MENU_TEXT,
                tooltipTextFunction = "TitanPanelZoneSpeedButton_GetTooltipText", 
                frequency = TITAN_ZONE_SPEED_FREQUENCY,
                icon = TITAN_ARTWORK_PATH.."TitanThrown",       
                iconWidth = 16,
                savedVariables = {
                        ShowIcon = 1,
                        ShowLabelText = 1,
                        ShowColoredText = 1,
                        ShowLastZone = 1,
                        LastZone = 0
                }
        };      

        this:RegisterEvent("VARIABLES_LOADED");
end

function TitanPanelZoneSpeedButton_GetButtonText(id)
        local retstr = "";

        if (TitanGetVar(TITAN_ZONE_SPEED_ID, "ShowLabelText")) then     
                retstr = TITAN_ZONE_SPEED_MENU_TEXT;
                if TitanGetVar(TITAN_ZONE_SPEED_ID, "ShowLastZone") then
                        retstr = retstr .. ": ";
                end
        end

        if TitanGetVar(TITAN_ZONE_SPEED_ID,"LastZone") == nil then
                TitanSetVar(TITAN_ZONE_SPEED_ID,"LastZone", "<none>")
        end
        if (TitanGetVar(TITAN_ZONE_SPEED_ID, "ShowColoredText")) then   
                retstr = retstr .. TitanUtils_GetGreenText(TitanGetVar(TITAN_ZONE_SPEED_ID,"LastZone"));
        else
                retstr = retstr .. TitanUtils_GetNormalText(TitanGetVar(TITAN_ZONE_SPEED_ID,"LastZone"));
        end

        return retstr
end

function TitanPanelZoneSpeedButton_GetTooltipText()
        local retstr = "";
        retstr = retstr .. TitanUtils_GetGreenText(TITAN_ZONE_SPEED_LASTZONE .. ": " .. TitanGetVar(TITAN_ZONE_SPEED_ID,"LastZone"));
        return retstr;
end

function TitanPanelRightClickMenu_PrepareZoneSpeedMenu()
        TitanPanelRightClickMenu_AddTitle(TITAN_ZONE_SPEED_MENU_TEXT);
        TitanPanelRightClickMenu_AddToggleIcon(TITAN_ZONE_SPEED_ID);
        TitanPanelRightClickMenu_AddToggleLabelText(TITAN_ZONE_SPEED_ID);
        TitanPanelRightClickMenu_AddToggleColoredText(TITAN_ZONE_SPEED_ID);
        TitanPanelRightClickMenu_AddToggleColoredText(TITAN_ZONE_SPEED_ID);
        
        TitanPanelRightClickMenu_AddSpacer();
        TitanPanelRightClickMenu_AddCommand(TITAN_PANEL_MENU_HIDE, TITAN_ZONE_SPEED_ID, TITAN_PANEL_MENU_FUNC_HIDE);
end

function TitanPanelZoneSpeedButton_OnEvent()
        if(event == "VARIABLES_LOADED") then
                this:RegisterEvent("PLAYER_ENTERING_WORLD");
                this:RegisterEvent("PLAYER_LEAVING_WORLD");
        end
        if(event == "PLAYER_ENTERING_WORLD") then
                if(not ZoneSpeed_LastZone) then
                        return; 
                end

                local ZoneTime = string.format("%.2f", GetTime() - ZoneSpeed_LastZone) .. "s"
                TitanSetVar(TITAN_ZONE_SPEED_ID, "LastZone", ZoneTime);
                TitanPanelZoneSpeed_RestoreAllEvents();
        end
        if(event == "PLAYER_LEAVING_WORLD") then
                ZoneSpeed_LastZone = GetTime();
                TitanPanelZoneSpeed_TurnOffUnwantedEvents();
        end
end

function TitanPanelZoneSpeed_TurnOffUnwantedEvents()
        local f = EnumerateFrames();
        local OnEvent;
        while f do
                OnEvent = f:GetScript("OnEvent");
                if(OnEvent) then
                        f.ZoneSpeed_OnEvent = OnEvent;
                        f:SetScript("OnEvent", function()
                                        if(event == "PLAYER_ENTERING_WORLD" or event == "PLAYER_LOGOUT" or event == "PLAYER_TARGET_CHANGED" or string.sub(event,0,4) == "CHAT") then
                                                this.ZoneSpeed_OnEvent();
                                        end
                                end
                        );
                end
                f = EnumerateFrames(f);
        end     
end

function TitanPanelZoneSpeed_RestoreAllEvents()
        local f = EnumerateFrames();
        while f do
                if(f.ZoneSpeed_OnEvent) then
                        f:SetScript("OnEvent",f.ZoneSpeed_OnEvent);
                        f.ZoneSpeed_OnEvent = nil;
                end
                f = EnumerateFrames(f);
        end
end