dodads.lua

   1 QuestHelper_File["dodads.lua"] = "Development Version"
   2 QuestHelper_Loadtime["dodads.lua"] = GetTime()
   3
   4 local ofs = 0.000723339 * (GetScreenHeight()/GetScreenWidth() + 1/3) * 70.4;
   5 local radius = ofs / 1.166666666666667;
   6
   7 local function convertLocation(p)
   8   local c, x, y = p[1].c, p[3], p[4]
   9   x, y = x/QuestHelper.continent_scales_x[c], y/QuestHelper.continent_scales_y[c]
  10   return c, 0, x, y
  11 end
  12
  13 local function convertLocationToScreen(p, c, z)
  14   return QuestHelper.Astrolabe:TranslateWorldMapPosition(p[1].c, 0, p[3]/QuestHelper.continent_scales_x[p[1].c], p[4]/QuestHelper.continent_scales_y[p[1].c], c, z)
  15 end
  16
  17 local function convertNodeToScreen(n, c, z)
  18   return QuestHelper.Astrolabe:TranslateWorldMapPosition(n.c, 0, n.x/QuestHelper.continent_scales_x[n.c], n.y/QuestHelper.continent_scales_y[n.c], c, z)
  19 end
  20
  21 QuestHelper.map_overlay = CreateFrame("FRAME", nil, WorldMapButton)
  22 QuestHelper.map_overlay:SetFrameLevel(WorldMapButton:GetFrameLevel()+1)
  23 QuestHelper.map_overlay:SetAllPoints()
  24 QuestHelper.map_overlay:SetFrameStrata("FULLSCREEN")
  25
  26 local function ClampLine(x1, y1, x2, y2)
  27   if x1 and y1 and x2 and y2 then
  28     local x_div, y_div = (x2-x1), (y2-y1)
  29     local x_0 = y1-x1/x_div*y_div
  30     local x_1 = y1+(1-x1)/x_div*y_div
  31     local y_0 = x1-y1/y_div*x_div
  32     local y_1 = x1+(1-y1)/y_div*x_div
  33
  34     if y1 < 0 then
  35       x1 = y_0
  36       y1 = 0
  37     end
  38
  39     if y2 < 0 then
  40       x2 = y_0
  41       y2 = 0
  42     end
  43
  44     if y1 > 1 then
  45       x1 = y_1
  46       y1 = 1
  47     end
  48
  49     if y2 > 1 then
  50       x2 = y_1
  51       y2 = 1
  52     end
  53
  54     if x1 < 0 then
  55       y1 = x_0
  56       x1 = 0
  57     end
  58
  59     if x2 < 0 then
  60       y2 = x_0
  61       x2 = 0
  62     end
  63
  64     if x1 > 1 then
  65       y1 = x_1
  66       x1 = 1
  67     end
  68
  69     if x2 > 1 then
  70       y2 = x_1
  71       x2 = 1
  72     end
  73
  74     if x1 >= 0 and x2 >= 0 and y1 >= 0 and y2 >= 0 and x1 <= 1 and x2 <= 1 and y1 <= 1 and y2 <= 1 then
  75       return x1, y1, x2, y2
  76     end
  77   end
  78 end
  79
  80 local function pushPath(list, path, c, z)
  81   if path then
  82     pushPath(list, path.p, c, z)
  83     local t = QuestHelper:CreateTable()
  84     t[1], t[2] = QuestHelper.Astrolabe:TranslateWorldMapPosition(path.c, 0, path.x/QuestHelper.continent_scales_x[path.c], path.y/QuestHelper.continent_scales_y[path.c], c, z)
  85     table.insert(list, t)
  86   end
  87 end
  88
  89 function QuestHelper:CreateWorldMapWalker()
  90   local walker = CreateFrame("Button", nil, QuestHelper.map_overlay)
  91   walker:SetWidth(0)
  92   walker:SetHeight(0)
  93   walker:SetPoint("CENTER", QuestHelper.map_overlay, "TOPLEFT", 0, 0)
  94   walker:Show()
  95
  96   walker.phase = 0.0
  97   walker.dots = {}
  98   walker.points = {}
  99   walker.origin = {}
 100   walker.frame = self
 101   walker.map_dodads = {}
 102   walker.used_map_dodads = 0
 103
 104   function walker:OnUpdate(elapsed)
 105     local out = 0
 106
 107     if QuestHelper_Pref.show_ants then
 108       local points = self.points
 109
 110       self.phase = self.phase + elapsed * 0.66
 111       while self.phase > 1 do self.phase = self.phase - 1 end
 112
 113       local w, h = QuestHelper.map_overlay:GetWidth(), -QuestHelper.map_overlay:GetHeight()
 114
 115       local c, z = GetCurrentMapContinent(), GetCurrentMapZone()
 116
 117       local last_x, last_y = self.frame.Astrolabe:TranslateWorldMapPosition(self.frame.c, self.frame.z, self.frame.x, self.frame.y, c, z) local remainder = self.phase
 118
 119       for i, pos in ipairs(points) do
 120         local new_x, new_y = unpack(pos)
 121         local x1, y1, x2, y2 = ClampLine(last_x, last_y, new_x, new_y)
 122         last_x, last_y = new_x, new_y
 123
 124         if x1 then
 125           local len = math.sqrt((x1-x2)*(x1-x2)*16/9+(y1-y2)*(y1-y2))
 126
 127           if len > 0.0001 then
 128             local interval = .025/len
 129             local p = remainder*interval
 130
 131             while p < 1 do
 132               out = out + 1
 133               local dot = self.dots[out]
 134               if not dot then
 135                 dot = QuestHelper:CreateDotTexture(self)
 136                 dot:SetDrawLayer("BACKGROUND")
 137                 self.dots[out] = dot
 138               end
 139
 140               dot:ClearAllPoints()
 141               dot:SetPoint("CENTER", QuestHelper.map_overlay, "TOPLEFT", x1*w*(1-p)+x2*w*p, y1*h*(1-p)+y2*h*p)
 142
 143               p = p + interval
 144             end
 145
 146             remainder = (p-1)/interval
 147           end
 148         end
 149       end
 150     end
 151
 152     while #self.dots > out do
 153       QuestHelper:ReleaseTexture(table.remove(self.dots))
 154     end
 155   end
 156
 157   function walker:RouteChanged()
 158     if self.frame.Astrolabe.WorldMapVisible then
 159       for i, obj in pairs(self.frame.route) do
 160         if not obj.pos then
 161           -- No. Just no.
 162           --QuestHelper:AppendNotificationError("10-10-2008 pathfinding/dodads nil coroutine race condition bug")
 163           return   -- return "failure :("
 164         end
 165       end
 166
 167       local points = self.points
 168       local cur = self.frame.pos
 169
 170       while #points > 0 do self.frame:ReleaseTable(table.remove(points)) end
 171
 172       local travel_time = 0.0
 173
 174       local c, z = GetCurrentMapContinent(), GetCurrentMapZone()
 175
 176       if self.frame.target then
 177         travel_time = math.max(0, self.frame.target_time-time())
 178         cur = self.frame.target
 179         local t = self.frame:CreateTable()
 180         t[1], t[2] = convertLocationToScreen(cur, c, z)
 181         table.insert(points, t)
 182       end
 183
 184       for i, obj in pairs(self.frame.route) do
 185         local path, d = self.frame:ComputeRoute(cur, obj.pos)
 186
 187         pushPath(points, path, c, z)
 188
 189         travel_time = travel_time + d
 190         obj.travel_time = travel_time
 191
 192         cur = obj.pos
 193
 194         local t = self.frame:CreateTable()
 195         t[1], t[2] = convertLocationToScreen(cur, c, z)
 196
 197         table.insert(points, t)
 198       end
 199
 200       for i = 1, #self.frame.route do
 201         local dodad = self.map_dodads[i]
 202         if not dodad then
 203           self.map_dodads[i] = self.frame:CreateWorldMapDodad(self.frame.route[i], i)
 204         else
 205           self.map_dodads[i]:SetObjective(self.frame.route[i], i)
 206         end
 207       end
 208
 209       for i = #self.frame.route+1,self.used_map_dodads do
 210         self.map_dodads[i]:SetObjective(nil, 0)
 211       end
 212
 213       self.used_map_dodads = #self.frame.route
 214     end
 215   end
 216
 217   walker:SetScript("OnEvent", walker.RouteChanged)
 218   walker:RegisterEvent("WORLD_MAP_UPDATE")
 219
 220   walker:SetScript("OnUpdate", walker.OnUpdate)
 221
 222   return walker
 223 end
 224
 225 function QuestHelper:GetOverlapObjectives(obj)
 226   local w, h = self.map_overlay:GetWidth(), self.map_overlay:GetHeight()
 227   local c, z = GetCurrentMapContinent(), GetCurrentMapZone()
 228
 229   local list = self.overlap_list
 230
 231   if not list then
 232     list = {}
 233     self.overlap_list = list
 234   else
 235     while table.remove(list) do end
 236   end
 237
 238   local cx, cy = GetCursorPosition()
 239
 240   local es = QuestHelper.map_overlay:GetEffectiveScale()
 241   local ies = 1/es
 242
 243   cx, cy = (cx-self.map_overlay:GetLeft()*es)*ies, (self.map_overlay:GetTop()*es-cy)*ies
 244
 245   local s = 10*QuestHelper_Pref.scale
 246
 247   for i, o in ipairs(self.route) do
 248     --QuestHelper: Assert(o, string.format("nil dodads pos issue, o %s", tostring(o)))
 249     --QuestHelper: Assert(o.pos, string.format("nil dodads pos issue, pos %s", QuestHelper:StringizeTable(o)))
 250     if o == obj then
 251       table.insert(list, o)
 252     elseif o.pos then -- as near as I can tell, there's some curious coroutine contention going on here, and it's possible that things don't have a position even though they're in the route. If they don't have a position, we don't need to add them to a list - this function is (I think) only called for the tooltips. Therefore, either it no longer exists on the main map, or it's about to vanish from the main map. Go go gadget someone-else's-problem-field!
 253       local x, y = o.pos[3], o.pos[4]
 254       x, y = x / self.continent_scales_x[o.pos[1].c], y / self.continent_scales_y[o.pos[1].c]
 255       x, y = self.Astrolabe:TranslateWorldMapPosition(o.pos[1].c, 0, x, y, c, z)
 256
 257       if x and y and x > 0 and y > 0 and x < 1 and y < 1 then
 258         x, y = x*w, y*h
 259
 260         if cx >= x-s and cy >= y-s and cx <= x+s and cy <= y+s then
 261           table.insert(list, o)
 262         end
 263       end
 264     end
 265   end
 266
 267   table.sort(list, function(a, b) return (a.travel_time or 0) < (b.travel_time or 0) end)
 268
 269   return list
 270 end
 271
 272 local prog_sort_table = {}
 273
 274 function QuestHelper:AppendObjectiveProgressToTooltip(o, tooltip, font, depth)
 275   if o.progress then
 276     local theme = self:GetColourTheme()
 277
 278     local indent = ("  "):rep(depth or 0)
 279
 280     for user, progress in pairs(o.progress) do
 281       table.insert(prog_sort_table, user)
 282     end
 283
 284     table.sort(prog_sort_table, function(a, b)
 285       if o.progress[a][3] < o.progress[b][3] then
 286         return true
 287       elseif o.progress[a][3] == o.progress[b][3] then
 288         return a < b
 289       end
 290       return false
 291     end)
 292
 293     for i, u in ipairs(prog_sort_table) do
 294       tooltip:AddDoubleLine(indent..QHFormat("PEER_PROGRESS", u),
 295                             self:ProgressString(o.progress[u][1].."/"..o.progress[u][2],
 296                             o.progress[u][3]), unpack(theme.tooltip))
 297
 298       if font then
 299         local last, name = tooltip:NumLines(), tooltip:GetName()
 300         local left, right = _G[name.."TextLeft"..last], _G[name.."TextRight"..last]
 301
 302         left:SetFont(font, 13)
 303         right:SetFont(font, 13)
 304       end
 305     end
 306
 307     while table.remove(prog_sort_table) do end
 308   end
 309 end
 310
 311 function QuestHelper:AppendObjectiveToTooltip(o)
 312   local theme = self:GetColourTheme()
 313
 314   self.tooltip:AddLine(o:Reason(), unpack(theme.tooltip))
 315   self.tooltip:GetPrevLines():SetFont(self.font.serif, 14)
 316
 317   self:AppendObjectiveProgressToTooltip(o, self.tooltip, QuestHelper.font.sans)
 318
 319   self.tooltip:AddDoubleLine(QHText("TRAVEL_ESTIMATE"), QHFormat("TRAVEL_ESTIMATE_VALUE", o.travel_time or 0), unpack(theme.tooltip))
 320   self.tooltip:GetPrevLines():SetFont(self.font.sans, 11)
 321   select(2, self.tooltip:GetPrevLines()):SetFont(self.font.sans, 11)
 322 end
 323
 324 function QuestHelper:CreateWorldMapDodad(objective, index)
 325   local icon = CreateFrame("Button", nil, QuestHelper.map_overlay)
 326   icon:SetFrameStrata("FULLSCREEN")
 327
 328   function icon:SetTooltip(list)
 329     QuestHelper.tooltip:SetOwner(self, "ANCHOR_CURSOR")
 330     QuestHelper.tooltip:ClearLines()
 331
 332     local first = true
 333
 334     for i, o in ipairs(list) do
 335       if first then
 336         first = false
 337       else
 338         QuestHelper.tooltip:AddLine("|c80ff0000  .  .  .  .  .  .|r")
 339         QuestHelper.tooltip:GetPrevLines():SetFont(QuestHelper.font.sans, 8)
 340       end
 341
 342       QuestHelper:AppendObjectiveToTooltip(o)
 343     end
 344
 345     QuestHelper.tooltip:Show()
 346   end
 347
 348   function icon:SetObjective(objective, i)
 349     self:SetHeight(20*QuestHelper_Pref.scale)
 350     self:SetWidth(20*QuestHelper_Pref.scale)
 351
 352     if self.dot then
 353       QuestHelper:ReleaseTexture(self.dot)
 354       self.dot = nil
 355     end
 356
 357     if self.bg then
 358       QuestHelper:ReleaseTexture(self.bg)
 359       self.bg = nil
 360     end
 361
 362     if objective then
 363       self.objective = objective
 364       self.index = i
 365
 366       if i == 1 then
 367         -- if it's the very next objective, give it the green background
 368         self.bg = QuestHelper:CreateIconTexture(self, 13)
 369       elseif objective.filter_blocked then
 370         -- if there are still prerequisites, make it grey
 371         -- filter_blocked is updated by [Add|Remove]ObjectiveWatch and ObjectiveObjectDependsOn,
 372         -- and will be true if there are other objectives that need to be completed before this one.
 373         self.bg = QuestHelper:CreateIconTexture(self, 16)
 374       else
 375         -- otherwise give it the background selected by the objective
 376         self.bg = QuestHelper:CreateIconTexture(self, objective.icon_bg)
 377       end
 378
 379       self.dot = QuestHelper:CreateIconTexture(self, objective.icon_id)
 380
 381       self.bg:SetDrawLayer("BACKGROUND")
 382       self.bg:SetAllPoints()
 383       self.dot:SetPoint("TOPLEFT", self, "TOPLEFT", 3*QuestHelper_Pref.scale, -3*QuestHelper_Pref.scale)
 384       self.dot:SetPoint("BOTTOMRIGHT", self, "BOTTOMRIGHT", -3*QuestHelper_Pref.scale, 3*QuestHelper_Pref.scale)
 385
 386       QuestHelper.Astrolabe:PlaceIconOnWorldMap(QuestHelper.map_overlay, self, convertLocation(objective.pos))
 387     else
 388       self.objective = nil
 389       self:Hide()
 390     end
 391   end
 392
 393   function icon:SetGlow(list)
 394     local w, h = QuestHelper.map_overlay:GetWidth(), QuestHelper.map_overlay:GetHeight()
 395     local c, z = GetCurrentMapContinent(), GetCurrentMapZone()
 396     local _, x_size, y_size = QuestHelper.Astrolabe:ComputeDistance(c, z, 0.25, 0.25, c, z, 0.75, 0.75)
 397
 398     x_size = math.max(25, 200 / x_size * w)
 399     y_size = math.max(25, 200 / y_size * h)
 400
 401     local out = 1
 402     for _, objective in ipairs(list) do
 403       if objective.p then for _, list in pairs(objective.p) do
 404         for _, p in ipairs(list) do
 405           local x, y = p[3], p[4]
 406           x, y = x / QuestHelper.continent_scales_x[p[1].c], y / QuestHelper.continent_scales_y[p[1].c]
 407           x, y = QuestHelper.Astrolabe:TranslateWorldMapPosition(p[1].c, 0, x, y, c, z)
 408           if x and y and x > 0 and y > 0 and x < 1 and y < 1 then
 409             if not self.glow_list then
 410               self.glow_list = QuestHelper:CreateTable()
 411             end
 412
 413             tex = self.glow_list[out]
 414             if not tex then
 415               tex = QuestHelper:CreateGlowTexture(self)
 416               table.insert(self.glow_list, tex)
 417             end
 418             out = out + 1
 419
 420             tex:SetPoint("CENTER", QuestHelper.map_overlay, "TOPLEFT", x*w, -y*h)
 421             tex:SetVertexColor(1,1,1,0)
 422             tex:SetWidth(x_size)
 423             tex:SetHeight(y_size)
 424             tex:Show()
 425             tex.max_alpha = 1/p[5]
 426           end
 427         end end
 428       end
 429     end
 430
 431     if self.glow_list then
 432       for i = out,#self.glow_list do
 433         QuestHelper:ReleaseTexture(table.remove(self.glow_list))
 434       end
 435
 436       if #self.glow_list == 0 then
 437         QuestHelper:ReleaseTable(self.glow_list)
 438         self.glow_list = nil
 439       end
 440     end
 441   end
 442
 443   icon.show_glow = false
 444   icon.glow_pct = 0.0
 445   icon.phase = 0.0
 446   icon.old_count = 0
 447
 448   function icon:OnUpdate(elapsed)
 449     self.phase = (self.phase + elapsed)%6.283185307179586476925286766559005768394338798750211641949889185
 450
 451     if self.old_count > 0 then
 452       local list = QuestHelper:GetOverlapObjectives(self.objective)
 453       if #list ~= self.old_count then
 454         self:SetTooltip(list)
 455         self.old_count = #list
 456         self:SetGlow(list)
 457       end
 458     end
 459
 460     if self.show_glow then
 461       self.glow_pct = math.min(1, self.glow_pct+elapsed*1.5)
 462     else
 463       self.glow_pct = math.max(0, self.glow_pct-elapsed*0.5)
 464
 465       if self.glow_pct == 0 then
 466         if self.glow_list then
 467           while #self.glow_list > 0 do
 468             QuestHelper:ReleaseTexture(table.remove(self.glow_list))
 469           end
 470           QuestHelper:ReleaseTable(self.glow_list)
 471           self.glow_list = nil
 472         end
 473
 474         self:SetScript("OnUpdate", nil)
 475         return
 476       end
 477     end
 478
 479     if self.glow_list then
 480       -- You know, these numbers are harmonics of pi. Would SETI detected them, or would they just be seen as noise?
 481       -- I'd vote for the later.
 482       --
 483       -- Pi - circumference over diameter - when was the last time you actually cared about diameters in math?
 484       --
 485       -- Pretty much everything in computer geometry depends on the pythagorean theorem, which you can use for
 486       -- circles, spheres, and hyper-spheres, if you use radius.
 487       --
 488       -- It's even the basis of special relativity, with time being multiplied by c so that you get a distance
 489       -- that you can use with the spatial dimensions. We're all in agreement that space traveling aliens are
 490       -- going to know about relativity, right?
 491       --
 492       -- And if you ever do trig, a full circle would be exactly (circumference over radius) radians instead of
 493       -- (circumference over diameter)*2 radians.
 494       --
 495       -- Obviously aliens are much more likely to prefer 6.283185307179586... as constant than our pi.
 496       --
 497       -- Important update: I just noticed that large factorials can be approximated using (2*pi*n)^.5*(n/e)^n
 498       -- There's that 2 times pi thing again.
 499       local r, g, b = math.sin(self.phase)*0.25+0.75,
 500                       math.sin(self.phase+2.094395102393195492308428922186335256131446266250070547316629728)*0.25+0.75,
 501                       math.sin(self.phase+4.188790204786390984616857844372670512262892532500141094633259456)*0.25+0.75
 502
 503       for i, tex in ipairs(self.glow_list) do
 504         tex:SetVertexColor(r, g, b, self.glow_pct*tex.max_alpha)
 505       end
 506     end
 507   end
 508
 509   function icon:OnEnter()
 510     local list = QuestHelper:GetOverlapObjectives(self.objective)
 511     self:SetTooltip(list)
 512     self.old_count = #list
 513
 514     icon.show_glow = true
 515
 516     self:SetGlow(list)
 517
 518     self:SetScript("OnUpdate", self.OnUpdate)
 519   end
 520
 521   function icon:OnLeave()
 522     QuestHelper.tooltip:Hide()
 523     self.show_glow = false
 524     self.old_count = 0
 525   end
 526
 527   function icon:OnEvent(event)
 528     if self.objective and self.objective.pos then
 529       QuestHelper.Astrolabe:PlaceIconOnWorldMap(QuestHelper.map_overlay, self, convertLocation(self.objective.pos))
 530     else
 531       self.objective = nil
 532       self:Hide()
 533     end
 534   end
 535
 536   function icon:OnClick()
 537     if self.objective then
 538       local menu = QuestHelper:CreateMenu()
 539       local list = QuestHelper:GetOverlapObjectives(self.objective)
 540       local item
 541
 542       if #list > 1 then
 543         QuestHelper:CreateMenuTitle(menu, "Objectives")
 544
 545         for i, o in ipairs(list) do
 546           local submenu = QuestHelper:CreateMenu()
 547           item = QuestHelper:CreateMenuItem(menu, o:Reason(true))
 548           item:SetSubmenu(submenu)
 549           item:AddTexture(QuestHelper:CreateIconTexture(item, o.icon_id), true)
 550           QuestHelper:AddObjectiveOptionsToMenu(o, submenu)
 551         end
 552       else
 553         QuestHelper:CreateMenuTitle(menu, self.objective:Reason(true))
 554         QuestHelper:AddObjectiveOptionsToMenu(self.objective, menu)
 555       end
 556
 557       menu:ShowAtCursor()
 558     end
 559   end
 560
 561   icon:SetScript("OnClick", icon.OnClick)
 562   icon:SetScript("OnEnter", icon.OnEnter)
 563   icon:SetScript("OnLeave", icon.OnLeave)
 564   icon:SetScript("OnEvent", icon.OnEvent)
 565
 566   icon:RegisterForClicks("RightButtonUp")
 567
 568   icon:RegisterEvent("WORLD_MAP_UPDATE")
 569
 570   icon:SetObjective(objective, index)
 571   return icon
 572 end
 573
 574 local callbacks = {}
 575 local last_c, last_z, last_x, last_y, last_desc
 576
 577 function QuestHelper:AddWaypointCallback(func, ...)
 578   local cb = self:CreateTable()
 579   callbacks[cb] = true
 580   local len = select("#", ...)
 581   cb.len = len
 582   cb.func = func
 583   for i = 1,len do cb[i] = select(i, ...) end
 584   cb[len+1] = last_c
 585   cb[len+2] = last_z
 586   cb[len+3] = last_x
 587   cb[len+4] = last_y
 588   cb[len+5] = last_desc
 589
 590   if last_c then
 591     func(unpack(cb, 1, len+5))
 592   end
 593
 594   return cb
 595 end
 596
 597 function QuestHelper:RemoveWaypointCallback(cb)
 598   callbacks[cb] = nil
 599   self:ReleaseTable(cb)
 600 end
 601
 602 function QuestHelper:InvokeWaypointCallbacks(c, z, x, y, desc)
 603   if c ~= last_c or z ~= last_z or x ~= last_x or y ~= last_y or desc ~= last_desc then
 604     last_c, last_z, last_x, last_y, last_desc = c, z, x, y, desc
 605     for cb in pairs(callbacks) do
 606       local len = cb.len
 607       cb[len+1] = c
 608       cb[len+2] = z
 609       cb[len+3] = x
 610       cb[len+4] = y
 611       cb[len+5] = desc
 612       cb.func(unpack(cb, 1, len+5))
 613     end
 614   end
 615 end
 616
 617 --[[ Small parts of the arrow rendering code are thanks to Tomtom, with the following license:
 618
 619 -------------------------------------------------------------------------
 620   Copyright (c) 2006-2007, James N. Whitehead II
 621   All rights reserved.
 622
 623   Redistribution and use in source and binary forms, with or without
 624   modification, are permitted provided that the following conditions are
 625   met:
 626
 627       * Redistributions of source code must retain the above copyright
 628         notice, this list of conditions and the following disclaimer.
 629       * Redistributions in binary form must reproduce the above
 630         copyright notice, this list of conditions and the following
 631         disclaimer in the documentation and/or other materials provided
 632         with the distribution.
 633       * The name or alias of the copyright holder may not be used to endorse
 634         or promote products derived from this software without specific prior
 635         written permission.
 636
 637   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
 638   "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
 639   LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
 640   A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
 641   OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 642   SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
 643   LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 644   DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 645   THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 646   (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
 647   OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 648 ---------------------------------------------------------------------------]]
 649
 650 function QuestHelper:CreateMipmapDodad()
 651   local icon = CreateFrame("Button", nil, Minimap)
 652   icon:Hide()
 653   icon.recalc_timeout = 0
 654
 655   icon.arrow = icon:CreateTexture("BACKGROUND")
 656   icon.arrow:SetHeight(40)
 657   icon.arrow:SetWidth(40)
 658   icon.arrow:SetPoint("CENTER", 0, 0)
 659   icon.arrow:SetTexture("Interface\\AddOns\\QuestHelper\\MinimapArrow")
 660   icon.arrow:Hide()
 661
 662   icon.phase = 0
 663   icon.target = {0, 0, 0, 0}
 664   icon.icon_id = 7
 665
 666   icon.bg = QuestHelper:CreateIconTexture(icon, 16)
 667   icon.bg:SetDrawLayer("BACKGROUND")
 668   icon.bg:SetAllPoints()
 669
 670   function icon:NextObjective()
 671     for i, o in ipairs(QuestHelper.route) do
 672       if not QuestHelper.to_remove[o] and o.pos and not o.filter_blocked then
 673         return o
 674       end
 675     end
 676
 677     return nil
 678   end
 679
 680   function icon:OnUpdate(elapsed)
 681     if self.objective and not QuestHelper.InBrokenInstance then
 682       if not self.objective.pos then
 683         self.objective = self:NextObjective()
 684         if not self.objective then
 685           self:Hide()
 686           return
 687         end
 688       end
 689
 690       self:Show()
 691
 692       if self.recalc_timeout <= 0 and not QuestHelper.graph_in_limbo and QuestHelper.Routing.map_walker then
 693         self.recalc_timeout = 50
 694
 695         self.objective = self:NextObjective()
 696
 697         if not self.objective then
 698           self:Hide()
 699           return
 700         end
 701
 702         local path, travel_time
 703
 704         if QuestHelper.target then
 705
 706           -- Okay, this is another "fix the symptom without fixing the cause" hack. Not good, but a lot of this is going away anyway.
 707           local has_path = true
 708           for i in ipairs(QuestHelper.target[1]) do if not QuestHelper.target[2][i] then has_path = false end end
 709           if has_path then
 710             path, travel_time = QuestHelper:ComputeRoute(QuestHelper.target, self.objective.pos)
 711             travel_time = travel_time + math.max(0, QuestHelper.target_time-time())
 712           else
 713             --QuestHelper:TextOut("yes here is the nil bug")
 714           end
 715         else
 716           path, travel_time = QuestHelper:ComputeRoute(QuestHelper.pos, self.objective.pos)
 717         end
 718
 719         local t = self.target
 720         local id = self.objective.icon_id
 721         t[1], t[2], t[3], t[4] = convertLocation(self.objective.pos)
 722         t[5] = nil
 723
 724         self.objective.travel_time = travel_time
 725
 726         while path do
 727           if path.g > 10.0 then
 728             id = 8
 729             t[1] = path.c
 730             t[2] = 0
 731             t[3] = path.x / QuestHelper.continent_scales_x[path.c]
 732             t[4] = path.y / QuestHelper.continent_scales_y[path.c]
 733             t[5] = path.name or "waypoint"
 734           end
 735           path = path.p
 736         end
 737
 738         if not self.dot or id ~= self.icon_id then
 739           self.icon_id = id
 740           if self.dot then QuestHelper:ReleaseTexture(self.dot) end
 741           self.dot = QuestHelper:CreateIconTexture(self, self.icon_id)
 742           self.dot:SetPoint("TOPLEFT", icon, "TOPLEFT", 2, -2)
 743           self.dot:SetPoint("BOTTOMRIGHT", icon, "BOTTOMRIGHT", -2, 2)
 744         end
 745
 746         if UnitIsDeadOrGhost("player") then
 747           QuestHelper:InvokeWaypointCallbacks()
 748         else
 749           local reason = (t[5] and (QHFormat("WAYPOINT_REASON", t[5]).."\n"..self.objective:Reason(true)))
 750                          or self.objective:Reason(true)
 751
 752           if QuestHelper.c == t[1] then
 753             -- Translate the position to the zone the player is standing in.
 754             local c, z = QuestHelper.c, QuestHelper.z
 755             local x, y = QuestHelper.Astrolabe:TranslateWorldMapPosition(t[1], t[2], t[3], t[4], c, z)
 756             QuestHelper:InvokeWaypointCallbacks(c, z, x, y, reason)
 757           else
 758             -- Try to find the nearest zone on the continent the objective is in.
 759             local index, distsqr, x, y
 760             for z, i in pairs(QuestHelper_IndexLookup[t[1]]) do
 761               local _x, _y = QuestHelper.Astrolabe:TranslateWorldMapPosition(t[1], t[2], t[3], t[4], t[1], z)
 762               local d = (_x-0.5)*(_x-0.5)+(_y-0.5)*(_y-0.5)
 763               if not index or d < distsqr then
 764                 index, distsqr, x, y = i, d, _x, _y
 765               end
 766             end
 767             local c, z = QuestHelper_IndexLookup[index]
 768             QuestHelper:InvokeWaypointCallbacks(c, z, x, y, reason)
 769           end
 770         end
 771
 772         QuestHelper.Astrolabe:PlaceIconOnMinimap(self, unpack(self.target))
 773       else
 774         self.recalc_timeout = self.recalc_timeout - 1
 775       end
 776
 777       local edge = QuestHelper.Astrolabe:IsIconOnEdge(self)
 778
 779       if edge then
 780         self.arrow:Show()
 781         self.dot:Hide()
 782         self.bg:Hide()
 783       else
 784         self.arrow:Hide()
 785         self.dot:Show()
 786         self.bg:Show()
 787       end
 788
 789       if edge then
 790         local angle = QuestHelper.Astrolabe:GetDirectionToIcon(self)
 791
 792         if GetCVar("rotateMinimap") == "1" then
 793           angle = angle + QuestHelper.Astrolabe:GetFacing()
 794         end
 795
 796         if self.phase > 6.283185307179586476925 then
 797           self.phase = self.phase-6.283185307179586476925+elapsed*3.5
 798         else
 799           self.phase = self.phase+elapsed*3.5
 800         end
 801
 802         local scale = 1.0 + 0.1 * math.sin(self.phase)
 803
 804         local x, y = scale * math.sin(angle + 3.14159 * 0.75) * math.sqrt(0.5), scale * math.cos(angle + 3.14159 * 0.75) * math.sqrt(0.5)
 805         self.arrow:SetTexCoord(0.5 - x, 0.5 + y, 0.5 + y, 0.5 + x, 0.5 - y, 0.5 - x, 0.5 + x, 0.5 - y)
 806       end
 807     else
 808       self:Hide()
 809     end
 810   end
 811
 812   function icon:SetObjective(objective)
 813     self:SetHeight(20*QuestHelper_Pref.scale)
 814     self:SetWidth(20*QuestHelper_Pref.scale)
 815
 816     if objective ~= self.objective then
 817       if objective and not QuestHelper_Pref.hide then
 818         self:Show()
 819       else
 820         QuestHelper:InvokeWaypointCallbacks()
 821         self:Hide()
 822       end
 823
 824       self.objective = objective
 825       self.recalc_timeout = 0
 826     end
 827   end
 828
 829   function icon:OnEnter()
 830     if self.objective then
 831       QuestHelper.tooltip:SetOwner(self, "ANCHOR_CURSOR")
 832       QuestHelper.tooltip:ClearLines()
 833
 834       if self.target[5] then
 835         QuestHelper.tooltip:AddLine(QHFormat("WAYPOINT_REASON", self.target[5]), unpack(QuestHelper:GetColourTheme().tooltip))
 836         QuestHelper.tooltip:GetPrevLines():SetFont(QuestHelper.font.serif, 14)
 837       end
 838
 839       QuestHelper:AppendObjectiveToTooltip(self.objective)
 840       QuestHelper.tooltip:Show()
 841     end
 842   end
 843
 844   function icon:OnLeave()
 845     QuestHelper.tooltip:Hide()
 846   end
 847
 848   function icon:OnClick()
 849     if self.objective then
 850       local menu = QuestHelper:CreateMenu()
 851       QuestHelper:CreateMenuTitle(menu, self.objective:Reason(true))
 852       QuestHelper:AddObjectiveOptionsToMenu(self.objective, menu)
 853       menu:ShowAtCursor()
 854     end
 855   end
 856
 857   function icon:OnEvent()
 858     if self.objective and self.objective.pos then
 859       self:Show()
 860     else
 861       self:Hide()
 862     end
 863   end
 864
 865   icon:SetScript("OnUpdate", icon.OnUpdate)
 866   icon:SetScript("OnEnter", icon.OnEnter)
 867   icon:SetScript("OnLeave", icon.OnLeave)
 868   icon:SetScript("OnEvent", icon.OnEvent)
 869   icon:SetScript("OnClick", icon.OnClick)
 870
 871   icon:RegisterForClicks("RightButtonUp")
 872   icon:RegisterEvent("PLAYER_ENTERING_WORLD")
 873
 874   return icon
 875 end