ZLM_Scoreboard.lua

ZLM_Scoreboard = {
    Title = "ZLM - Scoreboard",
    StructureArray = {
        Rank = { Width = 0.1, Type = "Label" },
        Name = { Width = 0.35, Type = "Label" },
        Points = { Width = 0.25, Type = "Label" },
        Min = { Width = 0.15, Type = "Label" },
        Max = { Width = 0.15, Type = "Label" },
    };
    new = function(self,AceGUI)
        if not AceGUI then AceGUI = LibStub("AceGUI-3.0"); end
        local frame = self:__CreateFrame(AceGUI);
        frame:Hide();
        ZLib.Debug:Print('Scoreboard Created');
        frame.DateTimePickerContainer = self:__CreateDateTimePickerContainer(AceGUI);
        frame:AddChild(frame.DateTimePickerContainer);
        ZLib.Debug:Print('Begin Create Button Container.');
        frame.ButtonContainer = self:__CreateButtonContainer(AceGUI);
        frame:AddChild(frame.ButtonContainer);
        ZLib.Debug:Print('Begin Create Scoreboard Table.');
        frame.Table =  self:__CreateTable(AceGUI);
        frame:AddChild(frame.Table);
        ZLib.Debug:Print('Assigning AddRow and Update functions.');
        frame.AddRow = self.__AddRow;
        frame.Update = self.__Update;
        ZLib.Debug:Print('Setting GetDonationsWithinTime Handler.');
        frame.GetDonationsWithinTime = self.__GetDonationsWithinTime;
        ZLib.Debug:Print('Setting GetRankingByRank Handler.');
        frame.GetRankingByRank = self.__GetRankingByRank;
        ZLib.Debug:Print('Setting GetRankingByName Handler.');
        frame.GetRankingByName = self.__GetRankingByName;
        ZLib.Debug:Print('Functions initialized.');
        frame.Rankings = {};
        ZLib.Debug:Print('Update started.');
        frame:Update();
        ZLib.Debug:Print('Update completed.');
        return frame;
    end,
    __CreateFrame = function(self,AceGUI)
        if not AceGUI then AceGUI = LibStub("AceGUI-3.0"); end
        local frame = AceGUI:Create("Frame");
        frame:SetLayout("Flow");
        frame:SetTitle(self.Title);
        return frame;
    end,
    __CreateButtonContainer = function(self,AceGUI)
        ZLib.Debug:Print('Creating Scoreboard Buttons Container.');
        if not AceGUI then AceGUI = LibStub("AceGUI-3.0"); end
        local container = AceGUI:Create("SimpleGroup");
        container:SetLayout("Flow");
        container:SetRelativeWidth(0.35);
        ZLib.Debug:Print('Creating buttons for scoreboard.');
        container:AddChild(ZLib.Heading:new(AceGUI,1,'Presets'))
        container:AddChild(self.__CreatePreviousWeekButton(AceGUI));
        container:AddChild(self.__CreateLastFourWeeksButton(AceGUI));
        container:AddChild(self.__CreatePreviousMonthButton(AceGUI));
        container:AddChild(self.__CreateSinceLastDrawingButton(AceGUI));
        ZLib.Debug:Print('Buttons Container Created.');
        return container;
    end,
    __CreatePreviousMonthButton = function(self,AceGUI)
        return ZLib.Button:new(AceGUI,1,"Previous Month",{ OnClick = ZLM_Scoreboard.__SetDatePickersToPreviousMonth });
    end,
    __CreateLastFourWeeksButton = function(self,AceGUI)
        return ZLib.Button:new(AceGUI,1,"Last 28 Days",{ OnClick = ZLM_Scoreboard.__SetDatePickersToLastFourWeeks });
    end,
    __CreatePreviousWeekButton = function(self,AceGUI)
        return ZLib.Button:new(AceGUI,1,"Previous Week",{ OnClick = ZLM_Scoreboard.__SetDatePickersToPreviousWeek });
    end,
    __CreateSinceLastDrawingButton = function(self,AceGUI)
        return ZLib.Button:new(AceGUI,1,"Since Last Drawing",{ OnClick = ZLM_Scoreboard.__SetDatePickersToPreviousWeek });
    end,
    __CreateUpdateButton = function(self,AceGUI)
        return ZLib.Button:new(AceGUI,1,'Use Set Start/Stop Times', { OnClick = function() self:Update() end})
    end,
    __CreateDateTimePickerContainer = function(self,AceGUI)
        ZLib.Debug:Print('Creating DTPs');
        if not AceGUI then AceGUI = LibStub("AceGUI-3.0"); end
        ZLib.Debug:Print('Creating SimpleGroup');
        local container = AceGUI:Create("SimpleGroup");
        ZLib.Debug:Print('Setting Layout to Flow');
        container:SetLayout("Flow");
        ZLib.Debug:Print('Setting Relative Width to 65%');
        container:SetRelativeWidth(0.40);
        ZLib.Debug:Print('Begin Creating DateTimePickers');
        container.StartDateTimePicker = ZLib.DateTimePicker:new(AceGUI,1,{ Multiline = true, DefaultValue = ZLM.db.global.Reporting.Scoreboard.StartDateTime },{ OnValueChanged = self.__StartDateTimeChangedCallback });
        ZLib.Debug:Print('Start DTP Created.');
        container.EndDateTimePicker = ZLib.DateTimePicker:new(AceGUI,1,{ Multiline = true, DefaultValue = ZLM.db.global.Reporting.Scoreboard.EndDateTime },{ OnValueChanged = self.__EndDateTimeChangedCallback });
        ZLib.Debug:Print('End DTP Created.');
        ZLib.Debug:Print('End Creating DateTimePickers.');
        ZLib.Debug.IsDev = true;
        container:AddChild(ZLib.Heading:new(AceGUI,1,'Lottery Start'));
        container:AddChild(container.StartDateTimePicker);
        container:AddChild(ZLib.Heading:new(AceGUI,1,'Lottery End'));
        container:AddChild(container.EndDateTimePicker);
        ZLib.Debug.IsDev = false;
        ZLib.Debug:Print('DTPs Completed.');
        return container;
    end,
    __CreateTable = function(self,AceGUI)
        if not AceGUI then AceGUI = LibStub("AceGUI-3.0"); end
        return ZLib.Table:new(AceGUI,1,self.StructureArray);
    end,
    __StartDateTimeChangedCallback = function(picker,dtObject,key,value,error)
        if ZLib:IsStringValid(error) then ZLM:Debug(error,4); return false; end
        ZLM.db.Global.Reporting.Scoreboard.StartDateTime = dtObject;
    end,
    __EndDateTimeChangedCallback = function(picker,dtObject,key,value,error)
        if ZLib:IsStringValid(error) then ZLM:Debug(error,4); return false; end
        ZLM.db.Global.Reporting.Scoreboard.EndDateTime = dtObject;
    end,
    __AddRow = function(self,AceGUI,oData)
        if not AceGUI then AceGUI = LibStub("AceGUI-3.0"); end
        local rowObj = {
            Rank = {
                Text = oData.Rank,
                Width = ZLM_Scoreboard.StructureArray.Rank.Width;
            },
            Name = {
                Text = oData.Name,
                Width = ZLM_Scoreboard.StructureArray.Name.Width;
            },
            Points = {
                Text = oData.Points,
                Width = ZLM_Scoreboard.StructureArray.Points.Width;
            },
            Min = {
                Text = oData.Min,
                Width = ZLM_Scoreboard.StructureArray.Min.Width;
            },
            Max = {
                Text = oData.Max,
                Width = ZLM_Scoreboard.StructureArray.Max.Width;
            }
        };
        self.Table:AddRow(AceGUI,rowObj);
    end,
    __SetDatePickersToPreviousMonth = function(self)
        -- TO DO: Refactor these buttons to be object-oriented with an instanced self context.
        local daysInMonth = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };
        local d = date("*t");
        d.month = d.month -1;
        if d.month == 0 then d.month = 12; d.year = d.year - 1; end
        d.day = 1;
        d.hour = 0;
        d.minute = 0;
        d.sec = 0;
        self.DateTimePickerContainer.StartDateTimePicker:SetValue(d);
        d.day = daysInMonth[d.month];
        d.hour = 23;
        d.minute = 59;
        d.sec = 59;
        self.DateTimePickerContainer.EndDateTimePicker:SetValue(d);
    end,
    __SetDatePickersToLastFourWeeks = function(self)
        self.StartDateTimePicker:SetDatePast({ day = 28, DayState = 0});
        self.EndDateTimePicker:SetDatePast({ day = 1, DayState = 1});
    end,
    __SetDatePickersToPreviousWeek = function(self)
        local d = date("%w");
        d = d - 2;
        if d < 0 then d = d + 7; end
        self.StartDateTimePicker:SetDatePast({ day = d + 7, DayState = 0; });
        self.EndDateTimePicker:SetDatePast({ day = d + 1, DayState = 1});
    end,
    __SetDatePickersToLastDrawing = function(self)
        local dateObj = ZLM.db.global.LastDrawing;
        if dateObj == nil then dateObj = { year = 2018, month = 1, day = 1, hour = 0, minute = 0, sec = 0}; end
        self.StartDateTimePicker:SetValue(dateObj);
        self.EndDateTimePicker:SetValue(date("*t"));
    end,
    __CalculatePointsTable = function(bounties)
        if(not not bounties and #bounties > 0) then
            local pointsTable = {};
            for _,v in ipairs(bounties) do
                if v.HotItem then
                    pointsTable[v.ItemId] = v.Points * 2;
                else
                    pointsTable[v.ItemId] = v.Points;
                end
            end
            return pointsTable;
        else
            return nil;
        end
    end,
    __GetDonationsWithinTime = function(self,aDonations)
        ZLib.Debug:Print('Getting StartDateTimePicker Value.');
        local iStart = time(self.DateTimePickerContainer.StartDateTimePicker:GetValue());
        ZLib.Debug:Print('Getting EndDateTimePicker Value.');
        local iEnd = time(self.DateTimePickerContainer.EndDateTimePicker:GetValue());
        ZLib.Debug:Print('Filtering by time.');
        if(not not aDonations and #aDonations > 0) then
            local output = {};
            for _,v in ipairs(aDonations) do
                if time(v.Timestamp) >= iStart and time(v.Timestamp) <= iEnd then tinsert(output,v) end
            end
            return output;
        end
        return nil;
    end,
    __GetWinner = function(self)
        local roll = math.random(self.MaximuMPoints);
        for _,v in ipairs(self.Rankings) do
            if roll >= v.Min and roll <= v.Max then self:AnnounceWinner(roll,v); break; end;
        end
    end,
    __AnnounceWinner = function(self,roll,winner)
        local firstMessage ="The Lottery Winners for -"
                .. date("%Y-%m-%d %H:%M:%S",time(self.DateTimePickerContainer.StartDateTimePicker:GetValue()))
                .. "- through -"..date("%Y-%m-%d %H:%M:%S",time()).."- are:";
        SendChatMessage(firstMessage,ZLM.db.profile.OutputChatType,nil,zlm.db.profile.OutputChatChannel);
        local message = v.Name .. " (Roll: " .. roll .. " Range: " .. v.Min .. " - " .. v.Max .. ")";
        SendChatMessage(message,ZLM.db.profile.OutputChatType,nil,ZLM.db.profile.OutputChatChannel);
    end,
    __Update = function(self)
        local aBounties = ZLM.db.profile.Lottery.Bounties;
        local aDonations = ZLM.db.global.Donations;
        local tTempPoints = {};
        self.Rankings = {};
        ZLib.Debug:Print('Getting Donations Within Time.');
        local aFilteredDonations = self:GetDonationsWithinTime(aDonations);
        ZLib.Debug:Print('Calculating Points Table.');
        local tPoints = ZLM_Scoreboard.__CalculatePointsTable(aBounties);
        if tPoints ~= nil and #tPoints > 0 then
            for _,v in ipairs(aFilteredDonations) do
                tTempPoints[v.Name] = (tTempPoints[v.Name] or 0) + (tPoints[v.ItemId] * v.Quantity);
            end
            for _,v in pairs(tTempPoints) do
                tinsert(self.Rankings,v);
            end
            sort(self.Rankings,ZLM_Scoreboard.__SortRankings);
            self:FillScoreboard();
        end
    end,
    __FillScoreboard = function(self)
        local AceGUI = LibStub("AceGUI-3.0");
        self.MaximumPoints = 0;
        self:ClearScoreboard();
        local i,lastMax = 0,0;
        for k,v in self.Rankings do
            i = i + 1;
            v.Name = k;
            v.Rank = i;
            v.Min = lastMax + 1;
            v.Max = lastMax + v.Points;
            lastMax = v.Max;
        end
        self.MaximumPoints = lastMax;
        for _,v in ipairs(self.Rankings) do self:AddRow(AceGUI,v) end
    end,
    __ClearScoreboard = function(self)
        self.Table:Clear();
        self.Rankings = {};
    end,
    __SortRankings = function(a,b)
        if a.Points == b.Points then
            return a.Name < b.Name --Sort names alphabetically if scores are equal
        else
            return a.Points > b.Points; --Sort scores from largest to smallest.
        end
    end,
    __GetRankingByName = function(self,sName)
        sName = ZLib:GetFullName(sName);
        return ZLib:GetMatch(self.Rankings,sName,"Name");
    end,
    __GetRankingByRank = function(self,iRank)
        return self.Rankings[iRank];
    end;
};
ZLM_ScoreboardData = {};