vanilla-wow-addons – Rev 1
?pathlinks?
-- Support for the Extravaganza
--
-- Map support liberally borrowed from GuildMap, by Bru on Blackhand
FishingBuddy.Extravaganza = {};
local NUMMINIPOIS = 10;
local ICONPATH = "Interface\\AddOns\\FishingBuddy\\Icons\\";
local CLOSEENOUGH = 10.0;
-- the actual names don't matter, except to help make sure I've got 'em all
local ExtravaganzaFish = {};
ExtravaganzaFish[19807] = "Speckled Tastyfish";
ExtravaganzaFish[19806] = "Dezian Queenfish";
ExtravaganzaFish[19805] = "Keefer's Angelfish";
-- makes you wonder what item 19804 is, doesn't it...
ExtravaganzaFish[19803] = "Brownell's Blue Striped Racer";
local UPDATETIME_SCHOOLS = 0.1;
local UPDATETIME_COUNTER = 60.0;
local STVUpdateTimer = 0;
local numCaught = 0;
local tastyfish_id = 19807;
local tastyfish;
-- convert zone coords into minimap coords
local STVInfo = { scale = 0.18128603034401,
xoffset = 0.39145470225916, yoffset = 0.79412224886668 };
local ZoomScale = {};
ZoomScale[0] = { xscale = 10448.3, yscale = 7072.7 };
ZoomScale[1] = { xscale = 12160.5, yscale = 8197.8 };
ZoomScale[2] = { xscale = 14703.1, yscale = 9825.0 };
ZoomScale[3] = { xscale = 18568.7, yscale = 12472.2 };
ZoomScale[4] = { xscale = 24390.3, yscale = 15628.5 };
ZoomScale[5] = { xscale = 37012.2, yscale = 25130.6 };
local function GetSTVPosition()
local x, y = GetPlayerMapPosition("player");
x = (x * STVInfo.scale) + STVInfo.xoffset;
y = (y * STVInfo.scale) + STVInfo.yoffset;
return x, y;
end
-- stolen directly from GuildMap
local function GetAngleIcon(x, y)
local angle = asin(x / 57);
if (x <= 0 and y <= 0) then
angle = 180 - angle;
elseif (x <= 0 and y > 0) then
angle = 360 + angle;
elseif (x > 0 and y >= 0) then
angle = angle;
else
angle = 180 - angle;
end
local fileNumber = math.floor((angle / 10) + 0.5) * 10;
if (fileNumber == 360) then
fileNumber = 0;
end
return ICONPATH.."MiniMapArrow"..fileNumber;
end
local function PlotPOI(index, x, y)
local poi = getglobal("FishingExtravaganzaMini"..index);
if ( poi ) then
if ( x and y ) then
local tex = getglobal("FishingExtravaganzaMini"..index.."Texture");
local zoom = ZoomScale[Minimap:GetZoom()];
x = x * zoom.xscale;
y = y * zoom.yscale;
local dist = math.sqrt(x*x + y*y);
if ( dist > 56.5 ) then
x = x * 57 / dist;
y = y * 57 / dist;
tex:SetTexture(GetAngleIcon(x, y));
tex:SetTexCoord(0.0, 1.0, 0.0, 1.0);
else
tex:SetTexture("Interface\\Minimap\\ObjectIcons");
tex:SetTexCoord(0.0, 0.25, 0.25, 0.5);
end
poi:SetPoint("CENTER", "MinimapCluster", "TOPLEFT", 107 + x, y - 92);
poi:Show();
return true;
else
poi:Hide();
end
end
return false;
end
local function CloseEnough(x1, y1, x2, y2)
local zoom = Minimap:GetZoom();
local x = (x1 - x2) * ZoomScale[zoom].xscale;
local y = (y1 - y2) * ZoomScale[zoom].yscale;
if (sqrt( (x * x) + (y * y) ) > 56.5) then
return; -- false
end
return true;
end
local function GetMinimapDistance(x1, y1, x2, y2)
local zoom = ZoomScale[Minimap:GetZoom()];
local dx = (x1 - x2) * zoom.xscale;
local dy = (y1 - y2) * zoom.yscale;
return math.sqrt(dx*dx+dy*dy);
end
local function FindClosest(row, x, y)
local dist;
local didx;
for idx=1,table.getn(row) do
local t = row[idx];
local dx = (t.x - x);
local dy = (t.y - y);
local d = dx*dx + dy*dy;
if ( not dist ) then
dist = d;
didx = idx;
elseif ( d < dist ) then
dist = d;
didx = idx;
end
end
if ( dist and didx ) then
local t = row[didx];
dist = GetMinimapDistance(t.x, t.y, x, y);
end
return didx, dist;
end
local function GetNearestTen(x, y, dir)
local r = math.floor(y * 100);
local found = 1;
local limit = 10;
local locations = {};
if ( FishingBuddy_Info["Schools"] ) then
while ( r >=0 and r <100 ) do
local iy = string.format("%d", r);
local dist;
local row = FishingBuddy_Info["Schools"][iy];
if ( row ) then
local rowsize = table.getn(row);
if ( rowsize > 5 and limit < 11 ) then
limit = limit + rowsize - 5;
end
for idx=1,rowsize do
local t = row[idx];
local dist = GetMinimapDistance(t.x, t.y, x, y);
tinsert(locations, { dist = dist, x = t.x, y = t.y });
found = found + 1;
if ( found >= limit ) then
return locations;
end
end
end
r = r + dir;
end
end
return locations;
end
-- save a school location
local function MarkSchool()
if ( not FishingBuddy_Info["Schools"] ) then
FishingBuddy_Info["Schools"] = {};
end
local x, y = GetSTVPosition();
local iy = string.format("%d", y * 100);
if ( not FishingBuddy_Info["Schools"][iy] ) then
FishingBuddy_Info["Schools"][iy] = { { x = x, y = y } };
else
local idx, dist = FindClosest(FishingBuddy_Info["Schools"][iy], x, y);
if ( dist > CLOSEENOUGH ) then
tinsert(FishingBuddy_Info["Schools"][iy], { x = x, y = y });
STVUpdateTimer = 0;
else
-- average something? that will cascade, which might be okay
-- or do we store them all during the contest and average later?
-- i.e. store 'close ones' in a separate place and then clean up
-- later
end
end
end
-- let an external entity forcibly mark a school
FishingBuddy.Extravaganza.MarkSchool = function()
local zone, subzone = FishingBuddy.GetZoneInfo();
if ( zone == FishingBuddy.STVZONENAME ) then
MarkSchool();
end
end
-- Sunday, 2pm
local STVDay = "0";
local STVStartHour = 14;
-- Should we display the extravaganza message?
local function IsTime(activate)
local showit = false;
if ( FishingBuddy.IsLoaded() ) then
if ( FishingBuddy.GetSetting("STVTimer") == 1 ) then
local mhour = date("%H");
local hour,minute = GetGameTime();
local day = date("%w");
-- Is it Sunday?
if ( day == STVDay and
(hour >= (STVStartHour-2) and hour <(STVStartHour+2))) then
showit = true;
end
end
end
if ( showit ) then
if ( activate ) then
FishingExtravaganzaFrame:Show();
end
elseif ( FishingExtravaganzaFrame:IsVisible() or
FishingExtravaganzaMini1:IsVisible() ) then
FishingExtravaganzaFrame:Hide();
for idx=1,NUMMINIPOIS do
PlotPOI(idx);
end
end
return showit;
end
FishingBuddy.Extravaganza.IsTime = IsTime;
local function UpdatePOI()
local x, y = GetSTVPosition();
local loc1 = GetNearestTen(x, y, -1);
local loc2 = GetNearestTen(x, y+0.01, 1);
local func = function(a, b) return a.dist < b.dist; end;
for idx=1,table.getn(loc2) do
tinsert(loc1, loc2[idx]);
end
table.sort(loc1, func);
for idx=1,NUMMINIPOIS do
local t = loc1[idx];
if ( t ) then
PlotPOI(idx, t.x - x, y - t.y);
else
PlotPOI(idx);
end
end
end
-- Check for mouse down event for dragging frame.
FishingBuddy.Extravaganza.OnDragStart = function(arg1)
if (arg1 == "LeftButton") then
FishingExtravaganzaFrame:StartMoving();
FishingExtravaganzaFrame.isMoving = true;
end
end
-- Check for drag stop event to stop dragging.
FishingBuddy.Extravaganza.OnDragStop = function(arg1)
if (arg1 == "LeftButton") then
FishingExtravaganzaFrame:StopMovingOrSizing();
FishingExtravaganzaFrame.isMoving = false;
end
end
-- Handle watching the loot
FishingBuddy.Extravaganza.OnLoad = function()
this:RegisterEvent("PLAYER_LOGIN");
this:RegisterEvent("ZONE_CHANGED_NEW_AREA");
this:RegisterEvent("VARIABLES_LOADED");
this:RegisterForDrag("LeftButton");
this:Hide();
end
FishingBuddy.Extravaganza.OnEvent = function()
local zone, subzone = FishingBuddy.GetZoneInfo();
if ( event == "ZONE_CHANGED_NEW_AREA" or event == "PLAYER_LOGIN" ) then
if ( zone == FishingBuddy.STVZONENAME and IsTime() ) then
this:RegisterEvent("LOOT_OPENED");
this:RegisterEvent("MINIMAP_UPDATE_ZOOM");
else
this:UnregisterEvent("LOOT_OPENED");
this:UnregisterEvent("MINIMAP_UPDATE_ZOOM");
end
elseif ( event == "LOOT_OPENED" ) then
if ( IsFishingLoot()) then
for index = 1, GetNumLootItems(), 1 do
if (LootSlotIsItem(index)) then
local fishlink = GetLootSlotLink(index);
local _, id, _ = FishingBuddy.SplitFishLink(fishlink);
if ( ExtravaganzaFish[id] ) then
MarkSchool();
STVUpdateTimer = 0;
if ( id == tastyfish_id ) then
numCaught = numCaught + 1;
end
end
end
end
end
elseif ( event == "MINIMAP_UPDATE_ZOOM" ) then
if ( zone == FishingBuddy.STVZONENAME ) then
if ( FishingBuddy.GetSetting("STVTimer") == 1 ) then
UpdatePOI();
end
end
elseif ( event == "VARIABLES_LOADED" ) then
local _,_,_,_,_,n = FishingBuddy.GetFishie(tastyfish_id);
if ( n ) then
tastyfish = n;
else
tastyfish = FISH;
end
IsTime(true);
this:UnregisterEvent("VARIABLES_LOADED");
end
end
FishingBuddy.Extravaganza.OnUpdate = function(elapsed)
if ( IsTime() ) then
if ( not FishingExtravaganzaFrame:IsVisible() ) then
FishingExtravaganzaFrame:Show();
end
STVUpdateTimer = STVUpdateTimer - elapsed;
if ( STVUpdateTimer < 0 ) then
local hour,minute = GetGameTime();
local minleft;
local checkhour = STVStartHour;
local line;
if ( hour >= STVStartHour ) then
line = FishingBuddy.TIMELEFT;
checkhour = checkhour + 2;
else
line = FishingBuddy.TIMETOGO;
end
minleft = (checkhour - hour)*60 - minute;
if ( minleft > 0 ) then
FishingExtravaganzaFrameButtonText:SetTextColor(0.1, 1.0, 0.1);
if ( minleft < 10 ) then
FishingExtravaganzaFrameButtonText:SetTextColor(1.0, 0.1, 0.1);
end
line = string.format(line, minleft/60, math.mod(minleft, 60),
numCaught, tastyfish);
FishingExtravaganzaFrameButtonText:SetText(line);
local width = FishingExtravaganzaFrameButtonText:GetWidth();
FishingExtravaganzaFrame:SetWidth(width + 16);
UpdatePOI();
if ( FishingBuddy_Info["Schools"] ) then
STVUpdateTimer = UPDATETIME_SCHOOLS;
else
STVUpdateTimer = UPDATETIME_COUNTER;
end
end
end
else
FishingExtravaganzaFrame:Hide();
end
end
local function GetObjectCoords(poi, index, numcolumns, texturewidth)
local width = poi:GetWidth();
local xCoord1, xCoord2, yCoord1, yCoord2;
local coordIncrement = width / texturewidth;
xCoord1 = mod(index , numcolumns) * coordIncrement;
xCoord2 = xCoord1 + coordIncrement;
yCoord1 = floor(index / numcolumns) * coordIncrement;
yCoord2 = yCoord1 + coordIncrement;
return xCoord1, xCoord2, yCoord1, yCoord2;
end
local start = 0;
-- debugging routines
FishingBuddy.Extravaganza.Debug = function(day, hour, zone)
STVDay = day;
STVStartHour = hour;
if ( zone ) then
FishingBuddy.STVZONENAME = zone;
end
IsTime(true);
end
FishingBuddy.Extravaganza.Dump = function()
local x, y = GetSTVPosition();
local iy = string.format("%d", y * 100);
FishingBuddy.Print("Current location: %d - %f, %f", iy, x, y);
if ( FishingBuddy_Info["Schools"][iy] ) then
for idx=1,table.getn(FishingBuddy_Info["Schools"][iy]) do
local t = FishingBuddy_Info["Schools"][iy][idx];
local dist = GetMinimapDistance(t.x, t.y, x, y);
FishingBuddy.Print("Distance: %f", dist);
end
end
end
-- eventually, display what fish you caught here
FishingBuddy.Extravaganza.MiniMap_OnEnter = function()
end