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