Dusk/FishingBuddy
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
00a6c2e57daa08089b0631c1818e4a7147caa15b
FishingBuddy/FishingLocationsFrame.lua
T
pigsyn b5e04c5745 Add files via upload
2019-01-16 20:27:21 +01:00

527 lines
17 KiB
Lua
Executable File
Raw Blame History

-- Handle displaying all the fish in their habitats
FishingBuddy.Locations = {};
local NUM_THINGIES_DISPLAYED = 20;
FishingBuddy.Locations.FRAME_THINGIEHEIGHT = 16;
local Collapsed = false;
local LocationLineSelected = 0;
local LocationLines = {};
local LocationLastLine = 1;
local function MakeInfo(line, level, collapsible, expanded, hasicon, text, extra, index, id)
if ( not LocationLines[line] ) then
LocationLines[line] = {};
end
LocationLines[line].level = level;
LocationLines[line].collapsible = collapsible;
LocationLines[line].expanded = expanded;
LocationLines[line].hasicon = hasicon;
LocationLines[line].text = text;
LocationLines[line].extra = extra;
if ( index ) then
LocationLines[line].index = index;
else
LocationLines[line].index = text;
end
LocationLines[line].id = id;
LocationLines[line].valid = true;
end
local function CountLocationLines()
local linecount = 0;
local j = 1;
local limit = LocationLastLine;
while ( j <= limit ) do
local info = LocationLines[j];
j = j + 1;
if ( info and info.valid ) then
linecount = linecount + 1;
if ( info.collapsible and not info.expanded ) then
local i2 = LocationLines[j];
while ( i2 and (i2.level > info.level) ) do
j = j + 1;
i2 = LocationLines[j];
end
end
end
end
-- there's a zero-based vs. one-based bug here, somewhere
if ( linecount > NUM_THINGIES_DISPLAYED and
limit >= table.getn(LocationLines)) then
linecount = linecount + 1;
end
-- FishingBuddy.Debug("Count "..linecount.." limit "..limit);
return linecount;
end
local function FishiesChanged()
local fh = FishingBuddy_Info["FishingHoles"];
local ff = FishingBuddy_Info["Fishies"];
local line = 1
local fishcount = table.getn(FishingBuddy.SortedFishies);
local zonetotals = {};
for i=1,fishcount,1 do
local fishid = FishingBuddy.SortedFishies[i].id;
local fishname = ff[fishid].name;
local locsort = {};
local total = 0;
for zone in FishingBuddy.ByFishie[fishid] do
if ( not zonetotals[zone] ) then
local fi = nil;
for z in fh do
if ( fh[z][zone] ) then
fi = fh[z][zone];
break;
end
end
if ( fi ) then
local tot = 0;
for f in fi do
tot = tot + fi[f];
end
zonetotals[zone] = tot;
end
end
local count = FishingBuddy.ByFishie[fishid][zone];
local info = {};
info.text = zone;
info.count = count;
info.total = zonetotals[zone];
if ( not info.total or info.total == 0) then
info.total = 1;
end
tinsert(locsort, info);
total = total + count;
end
local extra = " ("..total.." total";
if ( ff[fishid].level ) then
extra = extra..", "..ff[fishid].level;
end
extra = extra..")";
MakeInfo(line, 0, true, true, true, fishname, extra, nil, fishid);
line = line + 1;
FishingBuddy.FishSort(locsort);
for j=1,table.getn(locsort),1 do
local zone = locsort[j].text;
local amount = locsort[j].count;
local total = locsort[j].total;
local percent = format("%.1f", ( amount / total ) * 100);
MakeInfo(line, 1, false, false, false, zone, " ("..amount..", "..percent.."%)");
line = line + 1;
end
end
LocationLastLine = line;
end
local function BothLocationsChanged()
local fh = FishingBuddy_Info["FishingHoles"];
local ff = FishingBuddy_Info["Fishies"];
local sorted = FishingBuddy.SortedZones;
local line = 1;
local zonecount = table.getn(sorted);
for i=1,zonecount,1 do
local zone = sorted[i];
local where = zone;
MakeInfo(line, 0, true, true, false, zone, nil, where);
line = line + 1;
local subsorted = FishingBuddy.SortedByZone[zone];
local subcount = table.getn(subsorted);
for s=1,subcount,1 do
local subzone = subsorted[s];
local count, total = FishingBuddy.FishCount(zone, subzone);
where = zone.."."..subzone;
local extra = " ("..count.." types, "..total.." total)";
if ( FishingBuddy_Info["FishingSkill"][zone] and FishingBuddy_Info["FishingSkill"][zone][subzone] ) then
extra = extra.." ["..FishingBuddy_Info["FishingSkill"][zone][subzone].."]";
end
if ( fh[zone][subzone] ) then
MakeInfo(line, 1, true, true, false, subzone, extra, where);
line = line + 1;
local fishsort = {};
for fishid in fh[zone][subzone] do
local info = {};
info.id = fishid;
info.text = ff[fishid].name;
info.count = fh[zone][subzone][fishid];
tinsert(fishsort, info);
end
FishingBuddy.FishSort(fishsort);
for j=1,table.getn(fishsort),1 do
local fishie = fishsort[j].text;
local id = fishsort[j].id;
local amount = fishsort[j].count;
local percent = format("%.1f", ( amount / total ) * 100);
MakeInfo(line, 2, false, false, true, fishie, " ("..percent.."%)", nil, id);
line = line + 1;
end
end
end
end
LocationLastLine = line;
end
local function SubZonesChanged()
local fh = FishingBuddy_Info["FishingHoles"];
local ff = FishingBuddy_Info["Fishies"];
local mapping = {};
for zone in fh do
for subzone in fh[zone] do
mapping[subzone] = zone;
end
end
local line = 1;
local zonecount = table.getn(FishingBuddy.SortedSubZones);
for i=1,zonecount,1 do
local subzone = FishingBuddy.SortedSubZones[i];
local zone = mapping[subzone];
local extra = nil;
if ( FishingBuddy_Info["FishingSkill"][zone] and FishingBuddy_Info["FishingSkill"][zone][subzone] ) then
extra = " ["..FishingBuddy_Info["FishingSkill"][zone][subzone].."]";
end
MakeInfo(line, 0, true, true, false, subzone, extra);
line = line + 1;
local zone = mapping[subzone];
local count, total = FishingBuddy.FishCount(zone, subzone);
local fishsort = {};
for fishid in fh[zone][subzone] do
local info = {};
info.id = fishid;
info.text = ff[fishid].name;
info.count = fh[zone][subzone][fishid];
tinsert(fishsort, info);
end
FishingBuddy.FishSort(fishsort);
for j=1,table.getn(fishsort),1 do
local id = fishsort[j].id;
local fishie = fishsort[j].text;
local amount = fishsort[j].count;
local percent = format("%.1f", ( amount / total ) * 100);
MakeInfo(line, 1, false, false, true, fishie, " ("..percent.."%)", nil, id);
line = line + 1;
end
end
LocationLastLine = line;
end
local function LinesChanged()
if ( FishingBuddy.GetSetting("GroupByLocation") == 1 ) then
if ( FishingBuddy.GetSetting("ShowLocationZones") == 1 ) then
BothLocationsChanged();
else
SubZonesChanged();
end
else
FishiesChanged();
end
for i=LocationLastLine,table.getn(LocationLines) do
local info = LocationLines[i];
if ( info ) then
info.valid = false;
end
end
FishingLocationsFrame.valid = true;
end
-- local MOUSEWHEEL_DELAY = 0.1;
-- local lastScrollTime = nil;
-- function FishingLocationsFrame_OnMouseWheel(value)
-- local now = GetTime();
-- if ( not lastScrollTime ) then
-- lastScrollTime = now - 0.2;
-- end
-- if ( (now - lastScrollTime) > MOUSEWHEEL_DELAY ) then
-- -- call the old mouse wheel function somehow?
-- end
-- end
function FishingLocationsFrame_SetSelection(id, line)
local info = LocationLines[line];
FishingLocationHighlightFrame:Hide();
if info then
if ( info.collapsible ) then
info.expanded = not info.expanded;
else
LocationLineSelected = line;
FishingLocationHighlightFrame:SetPoint ( "TOPLEFT" , getglobal("FishingLocations"..id):GetName() , "TOPLEFT" , 5 , 0 )
FishingLocationHighlightFrame:Show()
end
end
end
function FishingLocationsFrame_MoveButtonText(i, what)
local relativeTo = "FishingLocations"..i..what;
local textfield = getglobal("FishingLocations"..i.."Text");
textfield:SetPoint("LEFT", relativeTo, "RIGHT", 2, 0);
textfield = getglobal("FishingLocations"..i.."HighlightText");
end
FishingBuddy.Locations.Update = function(forced)
if ( not FishingLocationsFrame:IsVisible() ) then
return;
end
if ( forced or not FishingLocationsFrame.valid ) then
LinesChanged();
end
local offset = FauxScrollFrame_GetOffset(FishingLocsScrollFrame);
FauxScrollFrame_Update( FishingLocsScrollFrame, CountLocationLines(),
NUM_THINGIES_DISPLAYED,
FishingBuddy.Locations.FRAME_THINGIEHEIGHT );
local lastlevel = 0;
FishingLocationHighlightFrame:Hide();
local j = 1;
local o = 1;
while ( o < offset ) do
local info = LocationLines[j];
if ( info ) then
j = j + 1;
o = o + 1;
if ( info.collapsible and not info.expanded ) then
local i2 = LocationLines[j];
while ( i2 and i2.level > info.level ) do
j = j + 1;
i2 = LocationLines[j];
end
end
end
end
for i = 1,NUM_THINGIES_DISPLAYED,1 do
local locButton = getglobal ( "FishingLocations"..i );
if ( LocationLines[j] ) then
local icon = getglobal("FishingLocations"..i.."Icon");
local icontex = getglobal("FishingLocations"..i.."IconTexture");
local info = LocationLines[j];
locButton.id = i;
locButton.line = j;
local leveloffset = (info.level - lastlevel)*16;
if ( i == 1 ) then
locButton:SetPoint("TOPRIGHT", "FishingLocsScrollFrame", "TOPLEFT", leveloffset, 0);
else
local t = i - 1;
locButton:SetPoint("TOPLEFT", "FishingLocations"..t, "BOTTOMLEFT", leveloffset, 0);
end
lastlevel = info.level;
local text = info.text;
if text and info.extra then
text = text .. info.extra;
end
locButton:SetText( text );
icon:ClearAllPoints();
if ( info.collapsible ) then
icon:SetPoint("LEFT", "FishingLocations"..i, "LEFT", 21, 0);
locButton:SetTextColor( 1, 0.82, 0 );
if ( info.expanded ) then
locButton:SetNormalTexture("Interface\\Buttons\\UI-MinusButton-Up");
else
locButton:SetNormalTexture("Interface\\Buttons\\UI-PlusButton-Up");
end
getglobal("FishingLocations"..i.."Highlight"):SetTexture("Interface\\Buttons\\UI-PlusButton-Hilight");
getglobal("FishingLocations"..i):UnlockHighlight();
else
icon:SetPoint("LEFT", "FishingLocations"..i, "LEFT", 3, 0);
locButton:SetTextColor( .5, .5, .5 );
locButton:SetNormalTexture("");
getglobal("FishingLocations"..i.."Highlight"):SetTexture("");
-- Place the highlight and lock the highlight state
if ( LocationLineSelected == j ) then
FishingLocationHighlightFrame:SetPoint("TOPLEFT", "FishingLocations"..i, "TOPLEFT", 21, 0);
FishingLocationHighlightFrame:Show();
locButton:LockHighlight();
else
locButton:UnlockHighlight();
end
end
locButton.tooltip = nil;
if ( info.hasicon ) then
local item, texture, _, _, _ = FishingBuddy.GetFishie(info.id);
locButton.item = item;
locButton.name = info.text;
if( texture ) then
icontex:SetTexture(texture);
icon:Show();
icontex:Show();
end
FishingLocationsFrame_MoveButtonText(i, "Icon");
else
locButton.item = nil;
locButton.name = nil;
icontex:SetTexture("");
icontex:Hide();
icon:Hide();
FishingLocationsFrame_MoveButtonText(i, "Highlight");
end
locButton:Show();
j = j + 1;
if ( info.collapsible and not info.expanded ) then
local i2 = LocationLines[j];
while ( i2 and (i2.level > info.level) ) do
j = j + 1;
i2 = LocationLines[j];
end
end
else
locButton:Hide();
locButton.id = nil;
locButton.line = nil;
end
end
if LocationLines then
-- Set the expand/collapse all button texture
local numHeaders = 0;
local notExpanded = 0;
for i=1,table.getn(LocationLines),1 do
local j = i + offset;
local info = LocationLines[j];
if ( info and info.collapsible ) then
numHeaders = numHeaders + 1;
if ( not info.expanded ) then
notExpanded = notExpanded + 1;
end
end
end
FishingLocationsCollapseAllButton:Show();
-- If all headers are not expanded then show collapse button, otherwise show the expand button
if ( notExpanded ~= numHeaders ) then
Collapsed = false;
FishingLocationsCollapseAllButton:SetNormalTexture("Interface\\Buttons\\UI-MinusButton-Up");
else
Collapsed = true;
FishingLocationsCollapseAllButton:SetNormalTexture("Interface\\Buttons\\UI-PlusButton-Up");
end
else
FishingLocationsCollapseAllButton:Hide();
end
end
FishingBuddy.Locations.Button_OnClick = function(button)
if ( button == "LeftButton" ) then
if( IsShiftKeyDown() and this.item ) then
FishingBuddy.ChatLink(this.item, this.name, this.color);
elseif ( this.id and this.line ) then
FishingLocationsFrame_SetSelection(this.id, this.line);
FishingBuddy.Locations.Update();
end
end
end
function FishingLocationsCollapseAllButton_OnClick()
if not Collapsed then
FishingLocsScrollFrameScrollBar:SetValue(0);
LocationLineSelected = 1;
end
for _,info in LocationLines do
info.expanded = Collapsed;
end
Collapsed = not Collapsed;
FishingBuddy.Locations.Update();
end
FishingBuddy.Locations.Button_OnEnter = function()
if( GameTooltip.finished ) then
return;
end
if( this.item or this.tooltip ) then
GameTooltip:SetOwner(this, "ANCHOR_RIGHT");
if ( this.item and this.item ~= "" ) then
local link = "item:"..this.item;
local n,l,_,_,_,_,_,_ = GetItemInfo(link);
if ( n and l ) then
GameTooltip:SetHyperlink(link);
else
this.tooltip = {}
this.tooltip[1] = { ["text"] = this.name };
this.tooltip[2] = { ["text"] = FishingBuddy.NOTLINKABLE, ["r"] = 1.0, ["g"] = 0, ["b"] = 0 };
FishingBuddy.AddTooltip(this.tooltip);
this.item = nil;
end
elseif ( this.tooltip ) then
FishingBuddy.AddTooltip(this.tooltip, 1, 1, 1);
end
GameTooltip.finished = 1;
GameTooltip:Show();
end
end
FishingBuddy.Locations.Button_OnLeave = function()
GameTooltip.finished = nil;
if( this.item or this.tooltip ) then
GameTooltip:Hide();
end
end
FishingBuddy.Locations.DisplayChanged = function()
FishingLocsScrollFrameScrollBar:SetValue(0);
LocationLineSelected = 1;
FishingBuddy.Locations.Update(true);
end
FishingBuddy.Locations.SwitchDisplay = function()
-- backwards logic check, we're about to change...
if ( FishingBuddy.GetSetting("GroupByLocation") == 1 ) then
FishingLocationsSwitchButton:SetText(FishingBuddy.SHOWLOCATIONS);
FishingBuddyOptionSLZ:Hide();
FishingBuddy.SetSetting("GroupByLocation", 0);
else
FishingLocationsSwitchButton:SetText(FishingBuddy.SHOWFISHIES);
FishingBuddyOptionSLZ:Show();
FishingBuddy.SetSetting("GroupByLocation", 1);
end
FishingBuddy.Locations.DisplayChanged();
end
FishingBuddy.Locations.SwitchButton_OnEnter = function()
if ( FishingBuddy.GetSetting("GroupByLocation") == 1 ) then
GameTooltip:SetText(FishingBuddy.SHOWFISHIES_INFO);
else
GameTooltip:SetText(FishingBuddy.SHOWLOCATIONS_INFO);
end
GameTooltip:Show();
end
FishingBuddy.Locations.OnLoad = function()
this:RegisterEvent("VARIABLES_LOADED");
FishingLocationsSwitchButton:SetText(FishingBuddy.SHOWFISHIES);
-- Set up checkbox
FishingBuddyOptionSLZ.name = "ShowLocationZones";
FishingBuddyOptionSLZ.text = FishingBuddy.CONFIG_SHOWLOCATIONZONES_ONOFF;
FishingBuddyOptionSLZ.tooltip = FishingBuddy.CONFIG_SHOWLOCATIONZONES_INFO;
end
FishingBuddy.Locations.OnShow = function()
if ( FishingBuddy.IsLoaded() ) then
FishingBuddy.Locations.Update();
end
end
FishingBuddy.Locations.OnEvent = function()
-- this crashes the client when enabled
-- this:EnableMouseWheel(0);
end
FishingBuddy.FishCount = function(zone, subzone)
local count = 0;
local total = 0;
local fh = FishingBuddy_Info["FishingHoles"];
if( fh[zone] and fh[zone][subzone] ) then
for fishie in fh[zone][subzone] do
count = count + 1;
total = total + fh[zone][subzone][fishie];
end
end
return count, total;
end
FishingBuddy.Locations.DataChanged = function(zone, subzone, fishie)
FishingLocationsFrame.valid = false;
end
Reference in New Issue View Git Blame Copy Permalink