farmbuyer@1
|
1
|
farmbuyer@1
|
2 local addon = CreateFrame("Frame") --select(2,...)
|
farmbuyer@1
|
3 local SV
|
farmbuyer@1
|
4
|
farmbuyer@1
|
5 local DEFAULT_CHAT = 2 -- combat log (no constant predefined for that)
|
farmbuyer@1
|
6
|
farmbuyer@1
|
7 local l10n
|
farmbuyer@1
|
8 --if GetLocale() == "enUS" then
|
farmbuyer@1
|
9 l10n= {
|
farmbuyer@1
|
10 ["LEFT"] = "Players who have left the guild: ",
|
farmbuyer@1
|
11 ["JOINED"] = "Players who have joined the guild: ",
|
farmbuyer@1
|
12 ["RANK"] = "Players whose rank has changed:",
|
farmbuyer@1
|
13 ["LEVEL"] = "Players whose level has changed:",
|
farmbuyer@1
|
14 ["NOTES"] = "Players whose notes have changed:",
|
farmbuyer@1
|
15
|
farmbuyer@1
|
16 ["Oabbrev"] = "O", -- abbreviation for "Officer", specifically the non-public note
|
farmbuyer@1
|
17 ["FIELD_rank"] = "Rank",
|
farmbuyer@1
|
18 ["FIELD_level"] = "Level",
|
farmbuyer@1
|
19 ["FIELD_notes"] = "Player/Officer notes",
|
farmbuyer@1
|
20
|
farmbuyer@1
|
21 -- Something needs to be done about the walls of description text below.
|
farmbuyer@1
|
22 }
|
farmbuyer@1
|
23 --elseif .... end
|
farmbuyer@1
|
24
|
farmbuyer@1
|
25 local guild_selection, log_ever_shown
|
farmbuyer@1
|
26 addon.options = {
|
farmbuyer@1
|
27 name = "Guild Delta",
|
farmbuyer@1
|
28 type = 'group',
|
farmbuyer@1
|
29 handler = addon, -- functions listed as strings called as addon:func
|
farmbuyer@1
|
30 args = {
|
farmbuyer@1
|
31 version = {
|
farmbuyer@1
|
32 --name = filled in during OnEnable
|
farmbuyer@1
|
33 type = 'description',
|
farmbuyer@1
|
34 fontSize = "large",
|
farmbuyer@1
|
35 --image = "Interface\\AddOns\\GuildDelta\\test2",
|
farmbuyer@1
|
36 cmdHidden = true,
|
farmbuyer@1
|
37 order = 1,
|
farmbuyer@1
|
38 },
|
farmbuyer@1
|
39 note = {
|
farmbuyer@1
|
40 --name = filled in locals section
|
farmbuyer@1
|
41 type = 'description',
|
farmbuyer@1
|
42 cmdHidden = true,
|
farmbuyer@1
|
43 width = 'full',
|
farmbuyer@1
|
44 order = 2,
|
farmbuyer@1
|
45 },
|
farmbuyer@1
|
46 reset = {
|
farmbuyer@1
|
47 name = "Reset Output",
|
farmbuyer@1
|
48 desc = "Restores default output settings",
|
farmbuyer@1
|
49 type = 'execute',
|
farmbuyer@1
|
50 order = 5,
|
farmbuyer@1
|
51 func = "SetChat",
|
farmbuyer@1
|
52 arg = DEFAULT_CHAT,
|
farmbuyer@1
|
53 },
|
farmbuyer@1
|
54 spacer2 = {
|
farmbuyer@1
|
55 name = '',
|
farmbuyer@1
|
56 type = 'description',
|
farmbuyer@1
|
57 cmdHidden = true,
|
farmbuyer@1
|
58 width = 'full',
|
farmbuyer@1
|
59 order = 6,
|
farmbuyer@1
|
60 },
|
farmbuyer@1
|
61 print_chatframes = {
|
farmbuyer@1
|
62 name = "Print Chatframe Numbers",
|
farmbuyer@1
|
63 desc = "Print each chat window number in its frame, for easy reference in the next slider option",
|
farmbuyer@1
|
64 type = 'execute',
|
farmbuyer@1
|
65 --func = print_chatframes filled in below
|
farmbuyer@1
|
66 order = 10,
|
farmbuyer@1
|
67 },
|
farmbuyer@1
|
68 chatframe_num = {
|
farmbuyer@1
|
69 name = "Output Chatframe",
|
farmbuyer@1
|
70 desc = "Which chat window to use for printing all the output during login",
|
farmbuyer@1
|
71 type = 'range',
|
farmbuyer@1
|
72 min = 1,
|
farmbuyer@1
|
73 max = NUM_CHAT_WINDOWS,
|
farmbuyer@1
|
74 step = 1,
|
farmbuyer@1
|
75 get = function() return tonumber(SV.chatframe) or --[[in case of custom name]]DEFAULT_CHAT end,
|
farmbuyer@1
|
76 set = "SetChat",
|
farmbuyer@1
|
77 order = 15,
|
farmbuyer@1
|
78 },
|
farmbuyer@1
|
79 chatframe_name = {
|
farmbuyer@1
|
80 name = "Chatframe Override",
|
farmbuyer@1
|
81 desc = "<Advanced> If blank, uses the numerical slider. If set, it is the NAME of a frame with AddMessage capability to use for output.",
|
farmbuyer@1
|
82 type = 'input',
|
farmbuyer@1
|
83 get = function()
|
farmbuyer@1
|
84 return type(SV.chatframe) == 'string' and SV.chatframe or nil
|
farmbuyer@1
|
85 end,
|
farmbuyer@1
|
86 set = "SetChat",
|
farmbuyer@1
|
87 order = 16,
|
farmbuyer@1
|
88 },
|
farmbuyer@1
|
89 fields = {
|
farmbuyer@1
|
90 name = "Fields",
|
farmbuyer@1
|
91 desc = "Track changes to these player fields",
|
farmbuyer@1
|
92 type = 'multiselect',
|
farmbuyer@1
|
93 order = 20,
|
farmbuyer@1
|
94 -- these need to be of function type rather than string keys of members
|
farmbuyer@1
|
95 values = function(info) return addon:MakeFieldList() end,
|
farmbuyer@1
|
96 get = function(info,x) return SV.fields[x] end,
|
farmbuyer@1
|
97 set = function(info,x,val) SV.fields[x] = val end,
|
farmbuyer@1
|
98 },
|
farmbuyer@1
|
99 spacer1 = {
|
farmbuyer@1
|
100 name = '',
|
farmbuyer@1
|
101 type = 'description',
|
farmbuyer@1
|
102 cmdHidden = true,
|
farmbuyer@1
|
103 width = 'full',
|
farmbuyer@1
|
104 order = 29,
|
farmbuyer@1
|
105 },
|
farmbuyer@1
|
106 guilds = {
|
farmbuyer@1
|
107 name = "Guilds",
|
farmbuyer@1
|
108 desc = "Guilds for which a roster is known",
|
farmbuyer@1
|
109 type = 'select',
|
farmbuyer@1
|
110 order = 30,
|
farmbuyer@1
|
111 width = 'double',
|
farmbuyer@1
|
112 values = function(info) return addon:MakeGuildList() end,
|
farmbuyer@1
|
113 get = function(info) return guild_selection end,
|
farmbuyer@1
|
114 set = function(info,val) guild_selection = val end,
|
farmbuyer@1
|
115 },
|
farmbuyer@1
|
116 clearguild = {
|
farmbuyer@1
|
117 name = "Reset Guild",
|
farmbuyer@1
|
118 desc = "Erase stored data for selected guild; information will be scanned from scratch on next login.",
|
farmbuyer@1
|
119 type = 'execute',
|
farmbuyer@1
|
120 order = 32,
|
farmbuyer@1
|
121 disabled = function() return not guild_selection end,
|
farmbuyer@1
|
122 func = function()
|
farmbuyer@1
|
123 assert(type(guild_selection)=='string')
|
farmbuyer@1
|
124 local g,r = guild_selection:match("<([^>]+)> %- (.*)")
|
farmbuyer@1
|
125 local m = SV.members[r]
|
farmbuyer@1
|
126 if m then
|
farmbuyer@1
|
127 m[g] = nil
|
farmbuyer@1
|
128 else
|
farmbuyer@1
|
129 addon:Print("Hm, error.", r, "can't be matched as a realm name. Please report this as a bug, including the name of the realm and guild.")
|
farmbuyer@1
|
130 end
|
farmbuyer@1
|
131 end,
|
farmbuyer@1
|
132 },
|
farmbuyer@1
|
133 persist = {
|
farmbuyer@1
|
134 name = "Logging",
|
farmbuyer@1
|
135 type = 'group',
|
farmbuyer@1
|
136 inline = true,
|
farmbuyer@1
|
137 order = 60,
|
farmbuyer@1
|
138 args = {
|
farmbuyer@1
|
139 note = {
|
farmbuyer@1
|
140 --name = filled in locals section
|
farmbuyer@1
|
141 type = 'description',
|
farmbuyer@1
|
142 cmdHidden = true,
|
farmbuyer@1
|
143 width = 'full',
|
farmbuyer@1
|
144 order = 1,
|
farmbuyer@1
|
145 },
|
farmbuyer@1
|
146 enable = {
|
farmbuyer@1
|
147 name = "Enable Logging",
|
farmbuyer@1
|
148 desc = [[Accumulate all deltas, including a timestamp. |cffFF0000WARNING|r: if logging was enabled and you turn it off, the log itself will not be saved when exiting the game.]],
|
farmbuyer@1
|
149 type = 'toggle',
|
farmbuyer@1
|
150 order = 2,
|
farmbuyer@1
|
151 get = function() return SV.logging end,
|
farmbuyer@1
|
152 set = function(i,v)
|
farmbuyer@1
|
153 SV.logging = v
|
farmbuyer@1
|
154 log_ever_shown = SV.logging or log_ever_shown
|
farmbuyer@1
|
155 end,
|
farmbuyer@1
|
156 },
|
farmbuyer@1
|
157 clearlog = {
|
farmbuyer@1
|
158 name = "Reset Log",
|
farmbuyer@1
|
159 desc = "Erase accumulated deltas.",
|
farmbuyer@1
|
160 type = 'execute',
|
farmbuyer@1
|
161 order = 3,
|
farmbuyer@1
|
162 hidden = function() return not (SV.logging or log_ever_shown) end,
|
farmbuyer@1
|
163 disabled = function() return not SV.logging end,
|
farmbuyer@1
|
164 func = function()
|
farmbuyer@1
|
165 SV.logtext = nil
|
farmbuyer@1
|
166 end,
|
farmbuyer@1
|
167 },
|
farmbuyer@1
|
168 log = {
|
farmbuyer@1
|
169 name = "Log",
|
farmbuyer@1
|
170 desc = "If you make changes, don't forget to click 'Accept' to save them.",
|
farmbuyer@1
|
171 type = 'input',
|
farmbuyer@1
|
172 order = 10,
|
farmbuyer@1
|
173 multiline = 15,
|
farmbuyer@1
|
174 width = 'full',
|
farmbuyer@1
|
175 hidden = function() return not (SV.logging or log_ever_shown) end,
|
farmbuyer@1
|
176 disabled = function() return not SV.logging end,
|
farmbuyer@1
|
177 get = function() return SV.logtext end,
|
farmbuyer@1
|
178 set = function(i,t) SV.logtext = t end,
|
farmbuyer@1
|
179 },
|
farmbuyer@1
|
180 },
|
farmbuyer@1
|
181 },
|
farmbuyer@1
|
182 }
|
farmbuyer@1
|
183 }
|
farmbuyer@1
|
184
|
farmbuyer@1
|
185
|
farmbuyer@1
|
186 -----------------------------------------------------------------------------
|
farmbuyer@1
|
187 -- other locals
|
farmbuyer@1
|
188 local tinsert, GetGuildRosterInfo = _G.table.insert, _G.GetGuildRosterInfo
|
farmbuyer@1
|
189 local chatframe, fieldlist
|
farmbuyer@1
|
190 local function prt (...)
|
farmbuyer@1
|
191 return chatframe:AddMessage(...)
|
farmbuyer@1
|
192 end
|
farmbuyer@1
|
193 local function cprt (txt)
|
farmbuyer@1
|
194 if SV.logging then addon:AddLogNote(txt) end
|
farmbuyer@1
|
195 return prt(txt, 255/255, 26/255, 160/255)
|
farmbuyer@1
|
196 end
|
farmbuyer@1
|
197
|
farmbuyer@1
|
198 function addon:current_guild_info (N)
|
farmbuyer@1
|
199 local ret = {}
|
farmbuyer@1
|
200 for i = 1, N do
|
farmbuyer@1
|
201 local name,rank_as_string,_,level,_,_,publicnote,officernote = GetGuildRosterInfo(i)
|
farmbuyer@1
|
202 -- This technically does not work out to the same as A?B:C, combined
|
farmbuyer@1
|
203 -- with the logic below. It does, however, still result in the entry
|
farmbuyer@1
|
204 -- not appearing in the returned table.
|
farmbuyer@1
|
205 publicnote = publicnote ~= "" and publicnote or nil
|
farmbuyer@1
|
206 officernote = officernote ~= "" and officernote or nil
|
farmbuyer@1
|
207 if name then -- redundant, but apparently happens on extreme lag
|
farmbuyer@1
|
208 tinsert(ret,
|
farmbuyer@1
|
209 {name = name,
|
farmbuyer@1
|
210 rank = SV.fields.rank and rank_as_string or nil,
|
farmbuyer@1
|
211 level = SV.fields.level and level or nil,
|
farmbuyer@1
|
212 pnote = SV.fields.notes and publicnote or nil,
|
farmbuyer@1
|
213 onote = SV.fields.notes and officernote or nil,
|
farmbuyer@1
|
214 })
|
farmbuyer@1
|
215 end
|
farmbuyer@1
|
216 end
|
farmbuyer@1
|
217 table.sort(ret, function (l,r) return l.name < r.name end)
|
farmbuyer@1
|
218 return ret
|
farmbuyer@1
|
219 end
|
farmbuyer@1
|
220
|
farmbuyer@1
|
221 function addon.options.args.print_chatframes.func()
|
farmbuyer@1
|
222 for i = 1, NUM_CHAT_WINDOWS do
|
farmbuyer@1
|
223 local cf = _G["ChatFrame"..i]
|
farmbuyer@1
|
224 if not cf then break end
|
farmbuyer@1
|
225 addon:Print(cf, "This is frame number", i)
|
farmbuyer@1
|
226 end
|
farmbuyer@1
|
227 end
|
farmbuyer@1
|
228
|
farmbuyer@1
|
229 addon.options.args.note.name =
|
farmbuyer@1
|
230 "You can use the '/guilddelta' command to open the options window.\n\n"..
|
farmbuyer@1
|
231 "The guild roster has already been scanned by the time you see this. Therefore, "..
|
farmbuyer@1
|
232 "if you make any changes to the Fields section below, you should probably relog "..
|
farmbuyer@1
|
233 "immediately to begin tracking the changed fields. Changes to the contents *OF* "..
|
farmbuyer@1
|
234 "those fields will not be noticed until the first login after *that*.\n\n"
|
farmbuyer@1
|
235
|
farmbuyer@1
|
236 addon.options.args.persist.args.note.name =
|
farmbuyer@1
|
237 "Enabling logging will accumulate the text of the 'deltas' as you see them. "..
|
farmbuyer@1
|
238 "This can grow large over time, depending on the activity of your guilds, so you "..
|
farmbuyer@1
|
239 "should use the Reset Log button below from time to time.\n\n"..
|
farmbuyer@1
|
240 "If you click inside the text area below, you can use Control-A to select all "..
|
farmbuyer@1
|
241 "the text, and Control-C to copy it to your computer's clipboard. If you make "..
|
farmbuyer@1
|
242 "any changes to the text, they will be preserved. (You can remove uninteresting "..
|
farmbuyer@1
|
243 "changes, add reminders to yourself, and so forth.)\n\n"
|
farmbuyer@1
|
244
|
farmbuyer@1
|
245
|
farmbuyer@1
|
246 -----------------------------------------------------------------------------
|
farmbuyer@1
|
247 addon = LibStub("AceAddon-3.0"):NewAddon(addon, "GuildDelta",
|
farmbuyer@1
|
248 "AceConsole-3.0")
|
farmbuyer@1
|
249
|
farmbuyer@1
|
250 function addon:OnInitialize()
|
farmbuyer@1
|
251 if _G.GuildDeltaSV == nil then
|
farmbuyer@1
|
252 -- Defaults need to transition from potential older savedvars
|
farmbuyer@1
|
253 _G.GuildDeltaSV = {
|
farmbuyer@1
|
254 chatframe = _G.GuildDelta_chatframe or DEFAULT_CHAT,
|
farmbuyer@1
|
255 fields = _G.GuildDelta_fields or { rank = true, level = false, notes = true },
|
farmbuyer@1
|
256 members = _G.GuildDelta_memberdata or {}
|
farmbuyer@1
|
257 }
|
farmbuyer@1
|
258 end
|
farmbuyer@1
|
259 SV = _G.GuildDeltaSV
|
farmbuyer@1
|
260 end
|
farmbuyer@1
|
261
|
farmbuyer@1
|
262 -- Remove anything that normal operation doesn't need after finishing its work.
|
farmbuyer@1
|
263 function addon:cleanup()
|
farmbuyer@1
|
264 prt = nil; cprt = nil
|
farmbuyer@1
|
265 self.current_guild_info = nil
|
farmbuyer@1
|
266 self.cleanup = nil
|
farmbuyer@1
|
267 self.unload = nil
|
farmbuyer@1
|
268 self.logquay = nil
|
farmbuyer@1
|
269 self.AddLogNote = nil
|
farmbuyer@1
|
270 self.FinishLog = nil
|
farmbuyer@1
|
271 end
|
farmbuyer@1
|
272 function addon:unload()
|
farmbuyer@1
|
273 self:cleanup()
|
farmbuyer@1
|
274 LibStub("AceAddon-3.0").addons["GuildDelta"] = nil
|
farmbuyer@1
|
275 l10n = nil; addon = nil;
|
farmbuyer@1
|
276 -- put the userdata back so it counts as a Frame object again
|
farmbuyer@1
|
277 local ud = self[0]
|
farmbuyer@1
|
278 table.wipe(self)
|
farmbuyer@1
|
279 self[0] = ud
|
farmbuyer@1
|
280 end
|
farmbuyer@1
|
281
|
farmbuyer@1
|
282 function addon:OnEnable()
|
farmbuyer@1
|
283 if not IsInGuild() then
|
farmbuyer@1
|
284 self:Print("You are not in a guild, not loading.")
|
farmbuyer@1
|
285 return self:unload()
|
farmbuyer@1
|
286 end
|
farmbuyer@1
|
287
|
farmbuyer@1
|
288 AutoCompleteInfoDelayer:HookScript("OnFinished",
|
farmbuyer@1
|
289 function() self:RegisterEvent("GUILD_ROSTER_UPDATE") end)
|
farmbuyer@1
|
290 self:SetScript("OnEvent", self.GuildUpdate)
|
farmbuyer@1
|
291
|
farmbuyer@1
|
292 self.options.args.version.name =
|
farmbuyer@1
|
293 "|cff30adffVersion " .. (GetAddOnMetadata("GuildDelta", "Version") or "?") .. "|r"
|
farmbuyer@1
|
294 LibStub("AceConfig-3.0"):RegisterOptionsTable("GuildDelta", self.options)
|
farmbuyer@1
|
295 --[[self.optionsFrame =]] LibStub("AceConfigDialog-3.0"):AddToBlizOptions("GuildDelta", "Guild Delta")
|
farmbuyer@1
|
296 self:RegisterChatCommand("guilddelta", "OnChatCommand")
|
farmbuyer@1
|
297 self:SetChat(false)
|
farmbuyer@1
|
298 log_ever_shown = SV.logging
|
farmbuyer@1
|
299 self.OnEnable = nil
|
farmbuyer@1
|
300 end
|
farmbuyer@1
|
301
|
farmbuyer@1
|
302
|
farmbuyer@1
|
303 function addon:OnChatCommand (input)
|
farmbuyer@1
|
304 if not input or input:trim() == "" then
|
farmbuyer@1
|
305 LibStub("AceConfigDialog-3.0"):Open("GuildDelta")
|
farmbuyer@1
|
306 else
|
farmbuyer@1
|
307 LibStub("AceConfigCmd-3.0").HandleCommand(self, "guilddelta", "GuildDelta", input)
|
farmbuyer@1
|
308 end
|
farmbuyer@1
|
309 end
|
farmbuyer@1
|
310
|
farmbuyer@1
|
311
|
farmbuyer@1
|
312 -- 0 args: called during startup to initialize
|
farmbuyer@1
|
313 -- 1 arg: resetting via menus to defaults (see arg field)
|
farmbuyer@1
|
314 -- 2 args: setting via menus to new value, number or custom name
|
farmbuyer@1
|
315 function addon:SetChat (info, value)
|
farmbuyer@1
|
316 local n, nframe
|
farmbuyer@1
|
317 if info then -- coming via menu
|
farmbuyer@1
|
318 n = info.arg or value
|
farmbuyer@1
|
319 else
|
farmbuyer@1
|
320 n = SV.chatframe
|
farmbuyer@1
|
321 end
|
farmbuyer@1
|
322 if type(n) == 'number' then
|
farmbuyer@1
|
323 nframe = _G["ChatFrame"..n]
|
farmbuyer@1
|
324 else
|
farmbuyer@1
|
325 nframe = _G[n]
|
farmbuyer@1
|
326 end
|
farmbuyer@1
|
327 if type(nframe) == 'table' and type(nframe.AddMessage) == 'function' then
|
farmbuyer@1
|
328 if type(info) ~= 'boolean' then
|
farmbuyer@1
|
329 self:Print("Now printing to chat frame", n,
|
farmbuyer@1
|
330 (type(nframe.name)=='string' and ("(".. nframe.name .. ")") or ""))
|
farmbuyer@1
|
331 end
|
farmbuyer@1
|
332 SV.chatframe = n
|
farmbuyer@1
|
333 chatframe = nframe
|
farmbuyer@1
|
334 else
|
farmbuyer@1
|
335 self:Printf("EEEEEEEK! '%s' was not a valid chat frame number/name, no change has been made.", n)
|
farmbuyer@1
|
336 end
|
farmbuyer@1
|
337 end
|
farmbuyer@1
|
338
|
farmbuyer@1
|
339
|
farmbuyer@1
|
340 -- Not a "normal" PLAYER_LOGOUT handler; this only fires if the player is in
|
farmbuyer@1
|
341 -- a guild and the update has already run.
|
farmbuyer@1
|
342 function addon:PLAYER_LOGOUT()
|
farmbuyer@1
|
343 if not SV.logging then
|
farmbuyer@1
|
344 SV.logtext = nil
|
farmbuyer@1
|
345 end
|
farmbuyer@1
|
346 end
|
farmbuyer@1
|
347
|
farmbuyer@1
|
348
|
farmbuyer@1
|
349 function addon:GuildUpdate()
|
farmbuyer@1
|
350 local current_n = GetNumGuildMembers(true)
|
farmbuyer@1
|
351 if current_n <= 0 then
|
farmbuyer@1
|
352 -- catch the hell up, servers...
|
farmbuyer@1
|
353 return GuildRoster()
|
farmbuyer@1
|
354 end
|
farmbuyer@1
|
355 self:UnregisterEvent("GUILD_ROSTER_UPDATE")
|
farmbuyer@1
|
356 self:SetScript("OnEvent", self.PLAYER_LOGOUT) -- keepin' it real^H^H^H^Hsmall and kludgey
|
farmbuyer@1
|
357 self:RegisterEvent("PLAYER_LOGOUT")
|
farmbuyer@1
|
358 self.GuildUpdate = nil
|
farmbuyer@1
|
359
|
farmbuyer@1
|
360 local guild, realm = (GetGuildInfo("player")), GetRealmName()
|
farmbuyer@1
|
361 local members = SV.members
|
farmbuyer@1
|
362 if members[realm]
|
farmbuyer@1
|
363 and members[realm][guild]
|
farmbuyer@1
|
364 and #(members[realm][guild]) > 0
|
farmbuyer@1
|
365 then
|
farmbuyer@1
|
366 -- moved the normal case below
|
farmbuyer@1
|
367 else
|
farmbuyer@1
|
368 -- new user, or new guild, or any number of things
|
farmbuyer@1
|
369 self:Print("GuildDelta initializing roster...")
|
farmbuyer@1
|
370 members[realm] = members[realm] or {}
|
farmbuyer@1
|
371 members[realm][guild] = self:current_guild_info(current_n)
|
farmbuyer@1
|
372 return
|
farmbuyer@1
|
373 end
|
farmbuyer@1
|
374
|
farmbuyer@1
|
375 -- table.insert with notes if available
|
farmbuyer@1
|
376 -- concatentation of all strings faster than string.format
|
farmbuyer@1
|
377 local function tins (t, x)
|
farmbuyer@1
|
378 local s = x.name
|
farmbuyer@1
|
379 if x.onote and (x.onote ~= "") then
|
farmbuyer@1
|
380 s = s .. "(" .. l10n.Oabbrev .. ": " .. x.onote .. ")"
|
farmbuyer@1
|
381 end
|
farmbuyer@1
|
382 if x.pnote and (x.pnote ~= "") then
|
farmbuyer@1
|
383 s = s .. "(" .. x.pnote .. ")"
|
farmbuyer@1
|
384 end
|
farmbuyer@1
|
385 tinsert(t, s)
|
farmbuyer@1
|
386 end
|
farmbuyer@1
|
387
|
farmbuyer@1
|
388 -- build the current list
|
farmbuyer@1
|
389 local previous, current = members[realm][guild],
|
farmbuyer@1
|
390 self:current_guild_info(current_n)
|
farmbuyer@1
|
391 local previous_n = #previous
|
farmbuyer@1
|
392
|
farmbuyer@1
|
393 -- walk both and do equivalence comparison
|
farmbuyer@1
|
394 local joined, left, rank, level, notes = {}, {}, {}, {}, {}
|
farmbuyer@1
|
395 local p, c = 1, 1
|
farmbuyer@1
|
396 while p <= previous_n and c <= current_n do
|
farmbuyer@1
|
397 local P, C = previous[p], current[c]
|
farmbuyer@1
|
398
|
farmbuyer@1
|
399 if P.name == C.name then
|
farmbuyer@1
|
400 -- normal case
|
farmbuyer@1
|
401 p = p + 1
|
farmbuyer@1
|
402 c = c + 1
|
farmbuyer@1
|
403 -- but can now compare details
|
farmbuyer@1
|
404 if C.rank and P.rank and (P.rank ~= C.rank) then
|
farmbuyer@1
|
405 tinsert(rank, {C.name, P.rank.." --> "..C.rank})
|
farmbuyer@1
|
406 end
|
farmbuyer@1
|
407 if C.level and P.level and (P.level ~= C.level) then
|
farmbuyer@1
|
408 tinsert(level, {C.name, P.level.." --> "..C.level})
|
farmbuyer@1
|
409 end
|
farmbuyer@1
|
410 if C.pnote and (P.pnote ~= C.pnote) then
|
farmbuyer@1
|
411 tinsert(notes, {C.name, C.pnote})
|
farmbuyer@1
|
412 end
|
farmbuyer@1
|
413 if C.onote and (P.onote ~= C.onote) then
|
farmbuyer@1
|
414 tinsert(notes, {C.name, "["..l10n.Oabbrev.."]: "..C.onote})
|
farmbuyer@1
|
415 end
|
farmbuyer@1
|
416
|
farmbuyer@1
|
417 elseif P.name < C.name then
|
farmbuyer@1
|
418 -- entry at index p not at c -> somebody has left
|
farmbuyer@1
|
419 tins (left, P)
|
farmbuyer@1
|
420 p = p + 1
|
farmbuyer@1
|
421
|
farmbuyer@1
|
422 else
|
farmbuyer@1
|
423 -- entry at index c not at p -> somebody has joined
|
farmbuyer@1
|
424 tins (joined, C)
|
farmbuyer@1
|
425 c = c + 1
|
farmbuyer@1
|
426 end
|
farmbuyer@1
|
427 end
|
farmbuyer@1
|
428
|
farmbuyer@1
|
429 -- leftovers
|
farmbuyer@1
|
430 for i = p, previous_n do
|
farmbuyer@1
|
431 tins (left, previous[i])
|
farmbuyer@1
|
432 end
|
farmbuyer@1
|
433 for i = c, current_n do
|
farmbuyer@1
|
434 tins (joined, current[i])
|
farmbuyer@1
|
435 end
|
farmbuyer@1
|
436
|
farmbuyer@1
|
437 -- show results
|
farmbuyer@1
|
438 if SV.logging then self.logquay = {} end
|
farmbuyer@1
|
439 local m
|
farmbuyer@1
|
440 if #left > 0 then
|
farmbuyer@1
|
441 m = l10n.LEFT .. table.concat(left, ", ")
|
farmbuyer@1
|
442 cprt(m)
|
farmbuyer@1
|
443 end
|
farmbuyer@1
|
444
|
farmbuyer@1
|
445 if #joined > 0 then
|
farmbuyer@1
|
446 m = l10n.JOINED .. table.concat(joined, ", ")
|
farmbuyer@1
|
447 cprt(m)
|
farmbuyer@1
|
448 end
|
farmbuyer@1
|
449
|
farmbuyer@1
|
450 if #rank > 0 then
|
farmbuyer@1
|
451 cprt(l10n.RANK)
|
farmbuyer@1
|
452 for i = 1, #rank do
|
farmbuyer@1
|
453 cprt(rank[i][1]..': '..rank[i][2])
|
farmbuyer@1
|
454 end
|
farmbuyer@1
|
455 end
|
farmbuyer@1
|
456
|
farmbuyer@1
|
457 if #level > 0 then
|
farmbuyer@1
|
458 cprt(l10n.LEVEL)
|
farmbuyer@1
|
459 for i = 1, #level do
|
farmbuyer@1
|
460 cprt(level[i][1]..': '..level[i][2])
|
farmbuyer@1
|
461 end
|
farmbuyer@1
|
462 end
|
farmbuyer@1
|
463
|
farmbuyer@1
|
464 if #notes > 0 then
|
farmbuyer@1
|
465 cprt(l10n.NOTES)
|
farmbuyer@1
|
466 for i = 1, #notes do
|
farmbuyer@1
|
467 cprt(notes[i][1]..': "'..notes[i][2]..'"')
|
farmbuyer@1
|
468 end
|
farmbuyer@1
|
469 end
|
farmbuyer@1
|
470
|
farmbuyer@1
|
471 if SV.logging then self:FinishLog(guild,realm) end
|
farmbuyer@1
|
472 members[realm][guild] = current
|
farmbuyer@1
|
473 end
|
farmbuyer@1
|
474
|
farmbuyer@1
|
475
|
farmbuyer@1
|
476 function addon:MakeFieldList()
|
farmbuyer@1
|
477 if not fieldlist then
|
farmbuyer@1
|
478 fieldlist = {}
|
farmbuyer@1
|
479 for name in pairs(SV.fields) do
|
farmbuyer@1
|
480 fieldlist[name] = l10n["FIELD_"..name]
|
farmbuyer@1
|
481 end
|
farmbuyer@1
|
482 end
|
farmbuyer@1
|
483 return fieldlist
|
farmbuyer@1
|
484 end
|
farmbuyer@1
|
485
|
farmbuyer@1
|
486 function addon:MakeGuildList()
|
farmbuyer@1
|
487 local list = {}
|
farmbuyer@1
|
488 local K
|
farmbuyer@1
|
489 for rname,rdata in pairs(SV.members) do
|
farmbuyer@1
|
490 for g in pairs(rdata) do
|
farmbuyer@1
|
491 K = ("<%s> - %s"):format(g,rname)
|
farmbuyer@1
|
492 list[K] = K
|
farmbuyer@1
|
493 end
|
farmbuyer@1
|
494 end
|
farmbuyer@1
|
495 return list
|
farmbuyer@1
|
496 end
|
farmbuyer@1
|
497
|
farmbuyer@1
|
498 function addon:AddLogNote (txt)
|
farmbuyer@1
|
499 tinsert(self.logquay,txt)
|
farmbuyer@1
|
500 end
|
farmbuyer@1
|
501
|
farmbuyer@1
|
502 function addon:FinishLog(g,r)
|
farmbuyer@1
|
503 if #self.logquay > 0 then
|
farmbuyer@1
|
504 Calendar_LoadUI()
|
farmbuyer@1
|
505 local _,M,D,Y = CalendarGetDate()
|
farmbuyer@1
|
506 local h,m = GetGameTime()
|
farmbuyer@1
|
507 local timestamp = ("%.4d/%.2d/%.2d %.2d:%.2d <%s> - %s\n"):format(Y,M,D,h,m,g,r)
|
farmbuyer@1
|
508 SV.logtext = timestamp
|
farmbuyer@1
|
509 .. table.concat(self.logquay, '\n')
|
farmbuyer@1
|
510 .. (SV.logtext and ('\n\n'..SV.logtext) or '')
|
farmbuyer@1
|
511 end
|
farmbuyer@1
|
512 end
|
farmbuyer@1
|
513
|
farmbuyer@1
|
514 -- vim:noet
|