forked from Roeshambo/MonolithDKP
-
Notifications
You must be signed in to change notification settings - Fork 19
/
Copy pathinit.lua
1333 lines (1165 loc) · 48 KB
/
init.lua
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
local _, core = ...;
local _G = _G;
local CommDKP = core.CommDKP;
local L = core.L;
local waitTable = {};
local waitFrame = nil;
local lockouts = CreateFrame("Frame", "LockoutsFrame");
local eventDelay = {};
--------------------------------------
-- Slash Command
--------------------------------------
CommDKP.Commands = {
["config"] = function()
if core.Initialized then
local pass, err = pcall(CommDKP.Toggle)
if not pass then
CommDKP:Print(err)
core.CommDKPUI:SetShown(false)
StaticPopupDialogs["SUGGEST_RELOAD"] = {
text = "|CFFFF0000"..L["WARNING"].."|r: "..L["MUSTRELOADUI"],
button1 = L["YES"],
button2 = L["NO"],
OnAccept = function()
ReloadUI();
end,
timeout = 0,
whileDead = true,
hideOnEscape = true,
preferredIndex = 3,
}
StaticPopup_Show ("SUGGEST_RELOAD")
end
else
CommDKP:Print("CommunityDKP has not completed initialization.")
end
end,
["reset"] = CommDKP.ResetPosition,
["bid"] = function(...)
if core.Initialized then
local item = strjoin(" ", ...)
CommDKP:CheckOfficer()
CommDKP:StatusVerify_Update()
if core.IsOfficer then
if ... == nil then
if core.BidAuctioneer then
CommDKP:ToggleBidWindow()
else
CommDKP:BidInterface_Toggle()
end
else
local itemName,_,_,_,_,_,_,_,_,itemIcon = GetItemInfo(item)
CommDKP:Print("Opening Bid Window for: ".. item)
CommDKP:ToggleBidWindow(item, itemIcon, itemName)
end
end
CommDKP:BidInterface_Toggle()
else
CommDKP:Print("CommunityDKP has not completed initialization.")
end
end,
["repairtables"] = function(...) -- test new features
local cmd = ...
if core.IsOfficer then
if cmd == "true" then
CommDKP:RepairTables(cmd)
else
CommDKP:RepairTables()
end
end
end,
["award"] = function (name, ...)
if core.IsOfficer and core.Initialized then
CommDKP:StatusVerify_Update()
if not name or not strfind(name, ":::::") then
CommDKP:Print(L["AWARDWARNING"])
return
end
local item = strjoin(" ", ...)
if not item then return end
item = name.." "..item;
local itemName,itemLink,_,_,_,_,_,_,_,_ = GetItemInfo(item)
local cost = 0;
local _, _, Color, Ltype, itemID, Enchant, Gem1, Gem2, Gem3, Gem4, Suffix, Unique, LinkLvl, Name = string.find(itemLink,"|?c?f?f?(%x*)|?H?([^:]*):?(%d+):?(%d*):?(%d*):?(%d*):?(%d*):?(%d*):?(%-?%d*):?(%-?%d*):?(%d*):?(%d*):?(%-?%d*)|?h?%[?([^%[%]]*)%]?|?h?|?r?")
if itemName == nil and Name ~= nil then
itemName = Name;
end
local search = CommDKP:GetTable(CommDKP_MinBids, true)[itemID];
if not search then
cost = CommDKP:GetMinBid(item)
else
cost = search.minbid;
end
CommDKP:AwardConfirm(nil, cost, core.DB.bossargs.LastKilledBoss, core.DB.bossargs.CurrentRaidZone, item)
else
CommDKP:Print(L["NOPERMISSION"])
end
end,
["lockouts"] = function()
lockouts:RegisterEvent("UPDATE_INSTANCE_INFO");
lockouts:SetScript("OnEvent", CommDKP_OnEvent);
RequestRaidInfo()
end,
["timer"] = function(time, ...)
if time == nil then
CommDKP:BroadcastTimer(1, "...")
else
local title = strjoin(" ", ...)
CommDKP:BroadcastTimer(tonumber(time), title)
end
end,
["export"] = function(time, ...)
CommDKP:ToggleExportWindow()
end,
["modes"] = function()
if core.Initialized then
CommDKP:CheckOfficer()
if core.IsOfficer then
CommDKP:ToggleDKPModesWindow()
else
CommDKP:Print(L["NOPERMISSION"])
end
else
CommDKP:Print("CommunityDKP has not completed initialization.")
end
end,
["help"] = function()
CommDKP:Print(" ");
CommDKP:Print(L["SLASHCOMMANDLIST"]..":")
CommDKP:Print("|cff00cc66/dkp|r - "..L["DKPLAUNCH"]);
CommDKP:Print("|cff00cc66/dkp ?|r - "..L["HELPINFO"]);
CommDKP:Print("|cff00cc66/dkp reset|r - "..L["DKPRESETPOS"]);
CommDKP:Print("|cff00cc66/dkp lockouts|r - "..L["DKPLOCKOUT"]);
CommDKP:Print("|cff00cc66/dkp timer|r - "..L["CREATERAIDTIMER"]);
CommDKP:Print("|cff00cc66/dkp bid|r - "..L["OPENBIDWINDOWHELP"]);
CommDKP:Print("|cff00cc66/dkp bid [itemlink]|r - "..L["OPENAUCWINHELP"]);
CommDKP:Print("|cff00cc66/dkp award [item link]|r - "..L["DKPAWARDHELP"]);
CommDKP:Print("|cff00cc66/dkp modes|r - "..L["DKPMODESHELP"]);
CommDKP:Print("|cff00cc66/dkp export|r - "..L["DKPEXPORTHELP"]);
CommDKP:Print(" ");
CommDKP:Print(L["WHISPERCMDSHELP"]);
CommDKP:Print("|cff00cc66!bid (or !bid <"..L["VALUE"]..">)|r - "..L["BIDHELP"]);
CommDKP:Print("|cff00cc66!dkp (or !dkp <"..L["PLAYERNAME"]..">)|r - "..L["DKPCMDHELP"]);
end,
};
local function HandleSlashCommands(str)
if (#str == 0) then
CommDKP.Commands.config();
return;
end
local args = {};
for _, arg in ipairs({ string.split(' ', str) }) do
if (#arg > 0) then
table.insert(args, arg);
end
end
local path = CommDKP.Commands;
for id, arg in ipairs(args) do
if (#arg > 0) then
arg = arg:lower();
if (path[arg]) then
if (type(path[arg]) == "function") then
path[arg](select(id + 1, unpack(args)));
return;
elseif (type(path[arg]) == "table") then
path = path[arg];
end
else
CommDKP.Commands.help();
return;
end
end
end
end
ChatFrame_AddMessageEventFilter("CHAT_MSG_WHISPER_INFORM", function(self, event, msg, ...) -- suppresses outgoing whisper responses to limit spam
if core.DB == nil then
return false;
end
if core.DB.defaults.SuppressTells then
if core.BidInProgress then
if strfind(msg, L["YOURBIDOF"]) == 1 then
return true
elseif strfind(msg, L["BIDDENIEDFILTER"]) == 1 then
return true
elseif strfind(msg, L["BIDACCEPTEDFILTER"]) == 1 then
return true;
elseif strfind(msg, L["NOTSUBMITTEDBID"]) == 1 then
return true;
elseif strfind(msg, L["ONLYONEROLLWARN"]) == 1 then
return true;
elseif strfind(msg, L["ROLLNOTACCEPTED"]) == 1 then
return true;
elseif strfind(msg, L["YOURBID"].." "..L["MANUALLYDENIED"]) == 1 then
return true;
elseif strfind(msg, L["CANTCANCELROLL"]) == 1 then
return true;
end
end
if strfind(msg, "CommunityDKP: ") == 1 then
return true
elseif strfind(msg, L["DKPAVAILABLE"]) ~= nil and strfind(msg, '%[') ~= nil and strfind(msg, '%]') ~= nil then
return true
elseif strfind(msg, L["NOBIDINPROGRESS"]) == 1 then
return true
elseif strfind(msg, L["BIDCANCELLED"]) == 1 then
return true
end
end
end)
ChatFrame_AddMessageEventFilter("CHAT_MSG_WHISPER", function(self, event, msg, ...) -- suppresses incoming whisper responses to limit spam
if core.DB == nil then
return false;
end
if core.DB.defaults.SuppressTells then
if core.BidInProgress then
if strfind(msg, "!bid") == 1 then
return true
end
end
if strfind(msg, "!dkp") == 1 then
return true
end
end
end)
function CommDKP_wait(delay, func, ...)
if(type(delay)~="number" or type(func)~="function") then
return false;
end
if(waitFrame == nil) then
waitFrame = CreateFrame("Frame","WaitFrame", UIParent);
waitFrame:SetScript("onUpdate",function (self,elapse)
local count = #waitTable;
local i = 1;
while(i<=count) do
local waitRecord = tremove(waitTable,i);
local d = tremove(waitRecord,1);
local f = tremove(waitRecord,1);
local p = tremove(waitRecord,1);
if(d>elapse) then
tinsert(waitTable,i,{d-elapse,f,p});
i = i + 1;
else
count = count - 1;
f(unpack(p));
end
end
end);
end
tinsert(waitTable,{delay,func,{...}});
return true;
end
local function DoInit(event, arg1)
if CommDKP:MonolithMigration() then
return -- Legacy MonolithDKP addon detected: don't initialise any further!
end
CommDKP:OnInitialize(event, arg1);
end
local function DoGuildUpdate()
if IsInGuild() and not core.InitStart then
GuildRoster()
core.InitStart = true
-- Prints info after all addons have loaded. Circumvents addons that load saved chat messages pushing info out of view.
C_Timer.After(3, function ()
CommDKP:CheckOfficer()
CommDKP:SortLootTable()
CommDKP:SortDKPHistoryTable()
CommDKP:Print(L["VERSION"].." "..core.MonVersion..", "..L["CREATEDMAINTAIN"].." Vapok@BloodsailBuccaneers-Classic & Taidtuskecyh@Gehennas");
CommDKP:Print(L["LOADED"].." "..#CommDKP:GetTable(CommDKP_DKPTable, true).." "..L["PLAYERRECORDS"]..", "..#CommDKP:GetTable(CommDKP_Loot, true).." "..L["LOOTHISTRECORDS"].." "..#CommDKP:GetTable(CommDKP_DKPHistory, true).." "..L["DKPHISTRECORDS"]..".");
CommDKP:Print(L["USE"].." /dkp ? "..L["SUBMITBUGS"].." @ https://github.com/Vapok/CommunityDKP/issues");
CommDKP.Sync:SendData("CommDKPBuild", tostring(core.BuildNumber)) -- broadcasts build number to guild to check if a newer version is available
CommDKP:SendTalentsAndRole()
-- send seed for every team in guild
-- this basically sends index of latest entry in loot and DKP tables to everyone online in guild,
-- if they have this entry it does nothing since they are up to date, if they dont it changes seed in those tables to the index being sent
CommDKP:SendSeedData();
end)
end
end
function CommDKP:SendSeedData()
local latestIndexForTeam = {}
local _teams = CommDKP:GetGuildTeamList();
local _numberOfTeams = CommDKP:tablelength(_teams);
for i=1, _numberOfTeams do
latestIndexForTeam[tostring(_teams[i][1])] = {}
if #CommDKP:GetTable(CommDKP_DKPHistory, true, tostring(_teams[i][1])) > 0 and strfind(CommDKP:GetTable(CommDKP_DKPHistory, true, tostring(_teams[i][1]))[1].index, "-") then
local off1,date1 = strsplit("-", CommDKP:GetTable(CommDKP_DKPHistory, true, tostring(_teams[i][1]))[1].index)
if CommDKP:ValidateSender(off1) then
latestIndexForTeam[tostring(_teams[i][1])]["DKPHistory"] = CommDKP:GetTable(CommDKP_DKPHistory, true, tostring(_teams[i][1]))[1].index
else
latestIndexForTeam[tostring(_teams[i][1])]["DKPHistory"] = "start"
end
else
latestIndexForTeam[tostring(_teams[i][1])]["DKPHistory"] = "start"
end
if #CommDKP:GetTable(CommDKP_Loot, true, tostring(_teams[i][1])) > 0 and strfind(CommDKP:GetTable(CommDKP_Loot, true, tostring(_teams[i][1]))[1].index, "-") then
local off2,date2 = strsplit("-", CommDKP:GetTable(CommDKP_Loot, true, tostring(_teams[i][1]))[1].index)
if CommDKP:ValidateSender(off2) then
latestIndexForTeam[tostring(_teams[i][1])]["Loot"] = CommDKP:GetTable(CommDKP_Loot, true, tostring(_teams[i][1]))[1].index
else
latestIndexForTeam[tostring(_teams[i][1])]["Loot"] = "start"
end
else
latestIndexForTeam[tostring(_teams[i][1])]["Loot"] = "start"
end
end
--[[
latestIndexForTeam = {
["0"] = {
["Loot"] = "name-date",
["DKPHistory"] = "name-date"
},
["1"] = {
["Loot"] = "start",
["DKPHistory"] = "start"
}
}
--]]
CommDKP.Sync:SendData("CommDKPSeed", latestIndexForTeam) -- requests role and spec data and sends current seeds (index of newest DKP and Loot entries)
end
function CommDKP_OnEvent(self, event, arg1, ...)
if self:IsForbidden() then return; end;
if event == "ADDON_LOADED" then
if (arg1 ~= "CommunityDKP") then return end
core.IsOfficer = nil
core.Initialized = false
CommDKP_wait(2, DoInit, event, arg1);
---DoInit(event,arg1);
self:UnregisterEvent("ADDON_LOADED")
return;
end
-- If core.DB is nil, that means that the addon hasn't fully initialized.. so let's wait 1 second and try again.
if core.DB == nil then
if eventDelay[event] == nil then
eventDelay[event] = 1;
else
eventDelay[event] = eventDelay[event] + 2;
end
C_Timer.After(eventDelay[event], function () CommDKP_OnEvent(self, event, arg1); end);
return;
end
if eventDelay[event] ~= nil then
eventDelay[event] = nil;
end
-- unregister unneccessary events
if event == "CHAT_MSG_WHISPER" and not core.DB.modes.channels.whisper then
self:UnregisterEvent("CHAT_MSG_WHISPER")
return
end
if (event == "CHAT_MSG_RAID" or event == "CHAT_MSG_RAID_LEADER") and not core.DB.modes.channels.raid then
self:UnregisterEvent("CHAT_MSG_RAID")
self:UnregisterEvent("CHAT_MSG_RAID_LEADER")
return
end
if event == "CHAT_MSG_GUILD" and not core.DB.modes.channels.guild and not core.DB.modes.StandbyOptIn then
self:UnregisterEvent("CHAT_MSG_GUILD")
return
end
if event == "BOSS_KILL" then
CommDKP:CheckOfficer()
if core.IsOfficer and IsInRaid() then
local boss_name = ...;
if CommDKP:Table_Search(core.EncounterList, arg1) then
CommDKP.ConfigTab2.BossKilledDropdown:SetValue(arg1)
if core.DB.modes.StandbyOptIn and core.RaidInProgress then
CommDKP_Standby_Announce(boss_name)
end
if core.DB.modes.AutoAward and core.RaidInProgress then
if not core.DB.modes.StandbyOptIn and core.DB.DKPBonus.IncStandby then
CommDKP:AutoAward(3, core.DB.DKPBonus.BossKillBonus, core.DB.bossargs.CurrentRaidZone..": "..core.DB.bossargs.LastKilledBoss)
else
CommDKP:AutoAward(1, core.DB.DKPBonus.BossKillBonus, core.DB.bossargs.CurrentRaidZone..": "..core.DB.bossargs.LastKilledBoss)
end
end
else
CommDKP:Print("Event ID: "..arg1.." - > "..boss_name.." Killed. Please report this Event ID at https://www.curseforge.com/wow/addons/communitydkp/issues to update raid event handlers.")
end
elseif IsInRaid() then
core.DB.bossargs.LastKilledBoss = ...;
end
elseif event == "ENCOUNTER_START" then
if core.DB.defaults.AutoLog and IsInRaid() then
if not LoggingCombat() then
LoggingCombat(1)
CommDKP:Print(L["NOWLOGGINGCOMBAT"])
end
end
elseif event == "PLAYER_ENTERING_WORLD" or event == "ZONE_CHANGED_NEW_AREA" then -- logs 15 recent zones entered while in a raid party
if IsInRaid() and core.Initialized then -- only processes combat log events if in raid
CommDKP:CheckOfficer()
if core.IsOfficer then
if not CommDKP:Table_Search(core.DB.bossargs.RecentZones, GetRealZoneText()) then -- only adds it if it doesn't already exist in the table
if #core.DB.bossargs.RecentZones > 14 then
for i=15, #core.DB.bossargs.RecentZones do -- trims the tail end of the stack
table.remove(core.DB.bossargs.RecentZones, i)
end
end
table.insert(core.DB.bossargs.RecentZones, 1, GetRealZoneText())
end
end
if core.DB.defaults.AutoLog and CommDKP:Table_Search(core.ZoneList, GetRealZoneText()) then
if not LoggingCombat() then
LoggingCombat(1)
CommDKP:Print(L["NOWLOGGINGCOMBAT"])
end
end
end
if core.Initialized then
CommDKP:SendTalentsAndRole()
end
elseif event == "CHAT_MSG_WHISPER" then
CommDKP:CheckOfficer()
if core.IsOfficer then
arg1 = strlower(arg1)
if (core.BidInProgress or string.find(arg1, "!dkp") == 1 or string.find(arg1, "！dkp") == 1) then
CommDKP_CHAT_MSG_WHISPER(arg1, ...)
elseif string.find(arg1, "!standby") == 1 and core.StandbyActive then
CommDKP_Standby_Handler(arg1, ...)
end
end
elseif event == "GUILD_ROSTER_UPDATE" then
if not core.InitStart then
DoGuildUpdate();
end
if IsInGuild() and core.InitStart then
self:UnregisterEvent("GUILD_ROSTER_UPDATE")
end
elseif event == "CHAT_MSG_RAID" or event == "CHAT_MSG_RAID_LEADER" then
CommDKP:CheckOfficer()
arg1 = strlower(arg1)
if (core.BidInProgress or string.find(arg1, "!dkp") == 1 or string.find(arg1, "!standby") == 1 or string.find(arg1, "！dkp") == 1) and core.IsOfficer == true then
CommDKP_CHAT_MSG_WHISPER(arg1, ...)
end
elseif event == "UPDATE_INSTANCE_INFO" then
local num = GetNumSavedInstances()
local raidString, reset, newreset, days, hours, mins, maxPlayers, numEncounter, curLength;
if not core.DB.Lockouts then core.DB.Lockouts = {Three = 0, Five = 1570032000, Seven = 1569945600} end
for i=1, num do -- corrects reset timestamp for any raids where an active lockout exists
_,_,reset,_,_,_,_,_,maxPlayers,_,numEncounter = GetSavedInstanceInfo(i)
newreset = time() + reset + 2 -- returned time is 2 seconds off
if maxPlayers == 40 and numEncounter > 1 then
curLength = "Seven"
elseif maxPlayers == 40 and numEncounter == 1 then
curLength = "Five"
elseif maxPlayers == 20 then
curLength = "Three"
end
if core.DB.Lockouts[curLength] < newreset then
core.DB.Lockouts[curLength] = newreset
end
end
-- Updates lockout timer if no lockouts were found to do so.
while core.DB.Lockouts.Three < time() do core.DB.Lockouts.Three = core.DB.Lockouts.Three + 259200 end
while core.DB.Lockouts.Five < time() do core.DB.Lockouts.Five = core.DB.Lockouts.Five + 432000 end
while core.DB.Lockouts.Seven < time() do core.DB.Lockouts.Seven = core.DB.Lockouts.Seven + 604800 end
for k,v in pairs(core.DB.Lockouts) do
reset = v - time();
days = math.floor(reset / 86400)
hours = math.floor(math.floor(reset % 86400) / 3600)
mins = math.ceil((reset % 3600) / 60)
if days > 1 then days = " "..days.." "..L["DAYS"] elseif days == 0 then days = "" else days = " "..days.." "..L["DAY"] end
if hours > 1 then hours = " "..hours.." "..L["HOURS"] elseif hours == 0 then hours = "" else hours = " "..hours.." "..L["HOUR"].."." end
if mins > 1 then mins = " "..mins.." "..L["MINUTES"].."." elseif mins == 0 then mins = "" else mins = " "..mins.." "..L["MINUTE"].."." end
if k == "Three" then raidString = "ZG, AQ20"
elseif k == "Five" then raidString = "Onyxia"
elseif k == "Seven" then raidString = "MC, BWL, AQ40"
end
if k ~= "Three" then -- remove when three day raid lockouts are added
CommDKP:Print(raidString.." "..L["RESETSIN"]..days..hours..mins.." ("..date("%A @ %H:%M:%S%p", v)..")")
end
end
self:UnregisterEvent("UPDATE_INSTANCE_INFO");
elseif event == "CHAT_MSG_GUILD" then
CommDKP:CheckOfficer()
if core.IsOfficer then
arg1 = strlower(arg1)
if (core.BidInProgress or string.find(arg1, "!dkp") == 1 or string.find(arg1, "！dkp") == 1) and core.DB.modes.channels.guild then
CommDKP_CHAT_MSG_WHISPER(arg1, ...)
elseif string.find(arg1, "!standby") == 1 and core.StandbyActive then
CommDKP_Standby_Handler(arg1, ...)
end
end
--elseif event == "CHAT_MSG_SYSTEM" then
--MonoDKP_CHAT_MSG_SYSTEM(arg1)
elseif event == "GROUP_ROSTER_UPDATE" then --updates raid listing if window is open
if CommDKP.UIConfig and core.CommDKPUI:IsShown() then
if core.CurSubView == "raid" then
CommDKP:ViewLimited(true)
elseif core.CurSubView == "raid and standby" then
CommDKP:ViewLimited(true, true)
end
end
elseif event == "COMBAT_LOG_EVENT_UNFILTERED" then -- logs last 15 NPCs killed while in raid
if IsInRaid() then -- only processes combat log events if in raid
local _,arg1,_,_,_,_,_,arg2,arg3 = CombatLogGetCurrentEventInfo();
if arg1 == "UNIT_DIED" and not strfind(arg2, "Player") and not strfind(arg2, "Pet-") then
CommDKP:CheckOfficer()
if core.IsOfficer then
if not CommDKP:Table_Search(core.DB.bossargs.LastKilledNPC, arg3) then -- only adds it if it doesn't already exist in the table
if #core.DB.bossargs.LastKilledNPC > 14 then
for i=15, #core.DB.bossargs.LastKilledNPC do -- trims the tail end of the stack
table.remove(core.DB.bossargs.LastKilledNPC, i)
end
end
table.insert(core.DB.bossargs.LastKilledNPC, 1, arg3)
end
end
end
end
--[[elseif event == "COMBAT_LOG_EVENT_UNFILTERED" then -- replaced with above BOSS_KILL event handler
if IsInRaid() then -- only processes combat log events if in raid
local _,arg1,_,_,_,_,_,_,arg2 = CombatLogGetCurrentEventInfo(); -- run operation when boss is killed
if arg1 == "UNIT_DIED" then
CommDKP:CheckOfficer()
if core.IsOfficer == true then
if CommDKP:TableStrFind(core.BossList, arg2) then
CommDKP.ConfigTab2.BossKilledDropdown:SetValue(arg2)
elseif arg2 == "Flamewalker Elite" or arg2 == "Flamewalker Healer" then
CommDKP.ConfigTab2.BossKilledDropdown:SetValue("Majordomo Executus")
elseif arg2 == "Emperor Vek'lor" or arg2 == "Emperor Vek'nilash" then
CommDKP.ConfigTab2.BossKilledDropdown:SetValue("Twin Emperors")
elseif arg2 == "Princess Yauj" or arg2 == "Vem" or arg2 == "Lord Kri" then
CommDKP.ConfigTab2.BossKilledDropdown:SetValue("Bug Family")
elseif arg2 == "Highlord Mograine" or arg2 == "Thane Korth'azz" or arg2 == "Sir Zeliek" or arg2 == "Lady Blaumeux" then
CommDKP.ConfigTab2.BossKilledDropdown:SetValue("The Four Horsemen")
elseif arg2 == "Gri'lek" or arg2 == "Hazza'rah" or arg2 == "Renataki" or arg2 == "Wushoolay" then
CommDKP.ConfigTab2.BossKilledDropdown:SetValue("Edge of Madness")
end
end
end
end--]]
elseif event == "LOOT_OPENED" then
CommDKP:CheckOfficer();
if core.IsOfficer then
local lootTable = {}
local lootList = {};
if IsInRaid() then
for i=1, GetNumLootItems() do
if LootSlotHasItem(i) and GetLootSlotLink(i) then
local _,link,quality = GetItemInfo(GetLootSlotLink(i))
if quality >= 4 then
table.insert(lootTable, link)
end
end
end
local name
if not UnitIsFriend("player", "target") and UnitIsDead("target") then
name = UnitName("target") -- sets bidding window name to current target
else
name = core.LastKilledBoss -- sets name to last killed boss if no target is available (chests)
end
lootTable.boss=name
CommDKP.Sync:SendData("CommDKPBossLoot", lootTable)
for i=1, #lootTable do
local item = Item:CreateFromItemLink(lootTable[i]);
item:ContinueOnItemLoad(function()
local icon = item:GetItemIcon()
table.insert(lootList, {icon=icon, link=item:GetItemLink()})
end);
end
CommDKP:LootTable_Set(lootList)
end
end
elseif core.DB.defaults.AutoAwardLoot and event == "TRADE_SHOW" then
local traderName = UnitName("npc")
if traderName == nil or core.DB.pendingLoot == nil or core.DB.pendingLoot[traderName] == nil then
return
end
core.DB.pendingTradePlayer = traderName
core.DB.pendingTrade = {}
local pendingLoot = core.DB.pendingLoot[traderName]
for i, lootLink in pairs(pendingLoot) do
local awarded = false
for containerSlot = 0, NUM_BAG_FRAMES do
for bagSlot = 1, GetContainerNumSlots(containerSlot) do
local containerLink = GetContainerItemLink(containerSlot, bagSlot)
if not awarded and containerLink ~= nil and containerLink == lootLink then
ClearCursor()
PickupContainerItem(containerSlot, bagSlot)
local tradeSlot = TradeFrame_GetAvailableSlot()
if tradeSlot ~= nil and tradeSlot <= 6 then
ClickTradeButton(tradeSlot)
pendingLoot[i] = nil
tinsert(core.DB.pendingTrade, lootLink)
awarded = true
end
end
end
end
end
elseif core.DB.defaults.AutoAwardLoot and event == "TRADE_ACCEPT_UPDATE" then
local arg2 = ...
local traderName = UnitName("npc")
if traderName == nil or core.DB.pendingLoot == nil or core.DB.pendingLoot[traderName] == nil then
return
end
if arg1 ~= nil and arg1 == 1 then
local pendingLoot = core.DB.pendingLoot[traderName]
if core.DB.pendingTrade == nil then
core.DB.pendingTrade = {}
end
for tradeSlot = 1, 6 do
local tradeLink = GetTradePlayerItemLink(tradeSlot)
for i, lootLink in pairs(pendingLoot) do
if tradeLink ~= nil and tradeLink == lootLink then
tinsert(core.DB.pendingTrade, tradeLink)
end
end
end
end
elseif core.DB.defaults.AutoAwardLoot and event == "TRADE_CLOSED" then
local traderName = UnitName("npc")
if traderName == nil or core.DB.pendingTrade == nil or core.DB.pendingLoot == nil or core.DB.pendingLoot[traderName] == nil then
return
end
local pendingLoot = core.DB.pendingLoot[traderName]
for _, tradeLink in pairs(core.DB.pendingTrade) do
for i, lootLink in pairs(pendingLoot) do
if tradeLink == lootLink then
pendingLoot[i] = nil
end
end
end
if #pendingLoot <= 0 then
core.DB.pendingLoot[traderName] = nil
end
core.DB.pendingTrade = {}
core.DB.pendingTradePlayer = nil
end
end
function CommDKP:OnInitialize(event, name) -- This is the FIRST function to run on load triggered registered events at bottom of file
if (name ~= "CommunityDKP") then return end
-- allows using left and right buttons to move through chat 'edit' box
--[[for i = 1, NUM_CHAT_WINDOWS do
_G["ChatFrame"..i.."EditBox"]:SetAltArrowKeyMode(false);
end--]]
----------------------------------
-- Register Slash Commands
----------------------------------
SLASH_CommunityDKP1 = "/dkp";
SLASH_CommunityDKP2 = "/CommDKP";
SlashCmdList.CommunityDKP = HandleSlashCommands;
--[[SLASH_RELOADUI1 = "/rl"; -- new slash command for reloading UI -- for debugging
SlashCmdList.RELOADUI = ReloadUI;--]]
SLASH_FRAMESTK1 = "/fs"; -- new slash command for showing framestack tool
SlashCmdList.FRAMESTK = function()
LoadAddOn("Blizzard_DebugTools");
FrameStackTooltip_Toggle();
end
if(event == "ADDON_LOADED") then
C_Timer.After(5, function ()
core.CommDKPUI = CommDKP.UIConfig or CommDKP:CreateMenu(); -- creates main menu after 5 seconds (trying to initialize after raid frames are loaded)
core.KeyEventUI = CreateFrame("Frame","KeyEventFrame", UIParent);
-- on every key down ? really?
core.KeyEventUI:SetScript("OnKeyDown", function(self, key)
if core.Initialized and core.IsOfficer then
if MouseIsOver(MultiBarLeft) or MouseIsOver(MultiBarRight) or MouseIsOver(MultiBarBottomLeft) or MouseIsOver(MultiBarBottomRight) or MouseIsOver(MainMenuBar) then
return;
end
-- TODO: Make this a configurable keybind.
if GameTooltip:GetItem() then
local item, link = GameTooltip:GetItem();
if (key == "LALT" or key == "LSHIFT") and IsShiftKeyDown() and IsAltKeyDown() then
local _, _, Color, Ltype, itemID, Enchant, Gem1, Gem2, Gem3, Gem4, Suffix, Unique, LinkLvl, Name = string.find(link,"|?c?f?f?(%x*)|?H?([^:]*):?(%d+):?(%d*):?(%d*):?(%d*):?(%d*):?(%d*):?(%-?%d*):?(%-?%d*):?(%d*):?(%d*):?(%-?%d*)|?h?%[?([^%[%]]*)%]?|?h?|?r?")
local itemIcon = GetItemIcon(itemID);
local itemName, itemLink = GetItemInfo(link);
CommDKP:ToggleBidWindow(itemLink, itemIcon, itemName);
end
if (key == "LCTRL" or key == "LSHIFT") and IsShiftKeyDown() and IsControlKeyDown() then
-- TODO: Automate the Price a Bit More
CommDKP:AwardConfirm(nil, 0, core.DB.bossargs.LastKilledBoss, core.DB.bossargs.CurrentRaidZone, link);
end
end
end
end);
core.KeyEventUI:SetPropagateKeyboardInput(true);
end)
------------------------------------------------
-- Verify DB Schemas
------------------------------------------------\
if not CommDKP:VerifyDBSchema(CommDKP_DB) then CommDKP_DB = CommDKP:UpgradeDBSchema(CommDKP_DB, CommDKP_DB, false, "CommDKP_DB") end;
-- Verify that the DB table has been initialized.
CommDKP:SetTable(CommDKP_DB, false, CommDKP:InitializeCommDKPDB(CommDKP:GetTable(CommDKP_DB)))
core.DB = CommDKP:GetTable(CommDKP_DB); --Player specific DB
if not CommDKP:VerifyDBSchema(CommDKP_DKPTable) then CommDKP_DKPTable = CommDKP:UpgradeDBSchema(CommDKP_DKPTable, CommDKP_DKPTable, true, "CommDKP_DKPTable") end;
if not CommDKP:VerifyDBSchema(CommDKP_Loot) then CommDKP_Loot = CommDKP:UpgradeDBSchema(CommDKP_Loot, CommDKP_Loot, true, "CommDKP_Loot") end;
if not CommDKP:VerifyDBSchema(CommDKP_DKPHistory) then CommDKP_DKPHistory = CommDKP:UpgradeDBSchema(CommDKP_DKPHistory, CommDKP_DKPHistory, true, "CommDKP_DKPHistory") end;
if not CommDKP:VerifyDBSchema(CommDKP_MinBids) then CommDKP_MinBids = CommDKP:UpgradeDBSchema(CommDKP_MinBids, CommDKP_MinBids, true, "CommDKP_MinBids") end;
if not CommDKP:VerifyDBSchema(CommDKP_MaxBids) then CommDKP_MaxBids = CommDKP:UpgradeDBSchema(CommDKP_MaxBids, CommDKP_MaxBids, true, "CommDKP_MaxBids") end;
if not CommDKP:VerifyDBSchema(CommDKP_Whitelist) then CommDKP_Whitelist = CommDKP:UpgradeDBSchema(CommDKP_Whitelist, CommDKP_Whitelist, false, "CommDKP_Whitelist") end;
if not CommDKP:VerifyDBSchema(CommDKP_Standby) then CommDKP_Standby = CommDKP:UpgradeDBSchema(CommDKP_Standby, CommDKP_Standby, true, "CommDKP_Standby") end;
if not CommDKP:VerifyDBSchema(CommDKP_Archive) then CommDKP_Archive = CommDKP:UpgradeDBSchema(CommDKP_Archive, CommDKP_Archive, true, "CommDKP_Archive") end;
if not CommDKP:VerifyDBSchema(CommDKP_Profiles) then CommDKP_Profiles = CommDKP:UpgradeDBSchema(CommDKP_Profiles, CommDKP_Profiles, true, "CommDKP_Profiles") end;
------------------------------------
-- Import SavedVariables
------------------------------------
core.WorkingTable = CommDKP:GetTable(CommDKP_DKPTable, true); -- imports full DKP table to WorkingTable for list manipulation
core.PriceTable = CommDKP:FormatPriceTable();
for i=1, #core.WorkingTable do
local CurPlayer = core.WorkingTable[i].player;
local search = CommDKP:Table_Search(CommDKP:GetTable(CommDKP_DKPTable, true), CurPlayer);
if search then
--Set Version Info on Legacy Record First
local profile = CommDKP:GetTable(CommDKP_Profiles, true)[CurPlayer] or CommDKP:GetDefaultEntity();
core.WorkingTable[i].version = profile.version;
end
end
if not CommDKP:GetTable(CommDKP_DKPHistory, true).seed then CommDKP:GetTable(CommDKP_DKPHistory, true).seed = 0 end
if not CommDKP:GetTable(CommDKP_Loot, true).seed then CommDKP:GetTable(CommDKP_Loot, true).seed = 0 end
if CommDKP:GetTable(CommDKP_DKPTable, true).seed then CommDKP:GetTable(CommDKP_DKPTable, true).seed = nil end
core.CurrentRaidZone = core.DB.bossargs.CurrentRaidZone; -- stores raid zone as a redundency
core.LastKilledBoss = core.DB.bossargs.LastKilledBoss; -- stores last boss killed as a redundency
core.LastKilledNPC = core.DB.bossargs.LastKilledNPC -- Stores last 30 mobs killed in raid.
core.RecentZones = core.DB.bossargs.RecentZones -- Stores last 30 zones entered within a raid party.
table.sort(core.WorkingTable, function(a, b)
return a["player"] < b["player"]
end)
table.sort(core.PriceTable, function(a, b)
if a["item"] ~= nil and b["item"] == nil then
return true;
elseif a["item"] == nil and b["item"] ~= nil then
return false;
elseif a["item"] == nil and b["item"] == nil then
return false;
end
return a["item"] < b["item"]
end)
CommDKP:StartBidTimer("seconds", nil) -- initiates timer frame for use
if CommDKP.BidTimer then CommDKP.BidTimer:SetScript("OnUpdate", nil) end
if #CommDKP:GetTable(CommDKP_Loot, true) > core.DB.defaults.HistoryLimit then
CommDKP:PurgeLootHistory() -- purges Loot History entries that exceed the "HistoryLimit" option variable (oldest entries) and populates CommDKP_Archive with deleted values
end
if #CommDKP:GetTable(CommDKP_DKPHistory, true) > core.DB.defaults.DKPHistoryLimit then
CommDKP:PurgeDKPHistory() -- purges DKP History entries that exceed the "DKPHistoryLimit" option variable (oldest entries) and populates CommDKP_Archive with deleted values
end
core.DB.pendingLoot = {}
end
end
function CommDKP:GetTable(dbTable, hasTeams, teamIndex)
hasTeams = hasTeams or false;
local _teamIndex;
if IsInGuild() then
local realmName = CommDKP:GetRealmName();
local guildName = CommDKP:GetGuildName();
dbTable = CommDKP:InitializeGuild(dbTable,realmName,guildName);
if hasTeams then
if teamIndex == nil then
_teamIndex = core.DB.defaults.CurrentTeam;
else
_teamIndex = teamIndex
end
if not dbTable[realmName][guildName][_teamIndex] then
dbTable[realmName][guildName][_teamIndex] = {}
end
return dbTable[realmName][guildName][_teamIndex];
else
return dbTable[realmName][guildName];
end
else
return dbTable[core.defaultTable];
end
end
function CommDKP:SetTable(dbTable, hasTeams, value, teamIndex)
hasTeams = hasTeams or false;
local _teamIndex;
if IsInGuild() then
local realmName = CommDKP:GetRealmName();
local guildName = CommDKP:GetGuildName();
dbTable = CommDKP:InitializeGuild(dbTable,realmName,guildName);
if hasTeams then
if teamIndex == nil then
_teamIndex = core.DB.defaults.CurrentTeam;
else
_teamIndex = teamIndex
end
dbTable[realmName][guildName][_teamIndex] = value;
else
dbTable[realmName][guildName] = value;
end
else
dbTable[core.defaultTable] = value;
end
end
function CommDKP:VerifyDBSchema(dbTable)
local verified = false;
--Check to see if the schema node exists. If not, this is 2.1.2 database.
local retOK, hasInfo = pcall(CommDKP_tableHasKey,dbTable,"dbinfo");
if (not retOK) or (retOK and not hasInfo) then
verified = false;
elseif dbTable.dbinfo.build == core.BuildNumber then
verified = true;
end
return verified;
end
function CommDKP:UpgradeDBSchema(newDbTable, oldDbTable, hasTeams, tableName)
-- Initialize the Database for a Pre-2.2 Database
local retOK, hasInfo = pcall(CommDKP_tableHasKey,oldDbTable,"dbinfo");
if (not retOK) or (retOK and not hasInfo) then
newDbTable = CommDKP:InitPlayerTable(oldDbTable, hasTeams, tableName)
end
-- Verify that build and priorbuild elements exist.
if newDbTable.dbinfo.build == nil then
newDbTable.dbinfo.build = 0;
end
if newDbTable.dbinfo.priorbuild == nil then
newDbTable.dbinfo.priorbuild = 0;
end
--Set Prior Build
newDbTable.dbinfo.priorbuild = newDbTable.dbinfo.build;
-- Build 20205 (2.2.5) Changes
if newDbTable.dbinfo.build < 20205 and newDbTable.dbinfo.priorbuild ~= core.BuildNumber then
if newDbTable.dbinfo.name == "CommDKP_DB" then
local defaultTable = {}
defaultTable = CommDKP:InitializeCommDKPDB(CommDKP:GetTable(defaultTable))
if not defaultTable.defaults.CurrentTeam then defaultTable.defaults.CurrentTeam = "0" end;
if not defaultTable.teams then defaultTable.teams = {} end;
newDbTable[core.defaultTable] = defaultTable;
end
end
if newDbTable.dbinfo.build < 30200 and newDbTable.dbinfo.priorbuild ~= core.BuildNumber and newDbTable.dbinfo.priorbuild ~= 0 then
if newDbTable.dbinfo.name == "CommDKP_MinBids" then
newDbTable = CommDKP:RefactorMinBidItemTable(newDbTable);
end
end
if newDbTable.dbinfo.build < 30202 and newDbTable.dbinfo.priorbuild ~= core.BuildNumber and newDbTable.dbinfo.priorbuild ~= 0 then
if newDbTable.dbinfo.name == "CommDKP_MinBids" then
newDbTable = CommDKP:VerifyMinBidItemTable(newDbTable);
end
end
-- Set Current Build Number
newDbTable.dbinfo.build = core.BuildNumber;
return newDbTable;
end
function CommDKP_tableHasKey(table,key)
return table[key] ~= nil;
end
function CommDKP:InitializeCommDKPDB(dbTable)
if dbTable == nil then
dbTable = {}
end
if not dbTable.DKPBonus or not dbTable.DKPBonus.OnTimeBonus then
dbTable.DKPBonus = {
OnTimeBonus = 15, BossKillBonus = 5, CompletionBonus = 10, NewBossKillBonus = 10, UnexcusedAbsence = -25, BidTimer = 30, DecayPercentage = 20, GiveRaidStart = false, IncStandby = false,
}
end
if not dbTable.defaults or not dbTable.defaults.HistoryLimit then
dbTable.defaults = {
HistoryLimit = 2500, DKPHistoryLimit = 2500, BidTimerSize = 1.0, CommDKPScaleSize = 1.0, SuppressNotifications = false, TooltipHistoryCount = 15, SuppressTells = true,
}
end
if not dbTable.defaults.ChatFrames then
dbTable.defaults.ChatFrames = {}
for i = 1, NUM_CHAT_WINDOWS do
local name = GetChatWindowInfo(i)
if name ~= "" then
dbTable.defaults.ChatFrames[name] = true
end
end
end
if not dbTable.raiders then dbTable.raiders = {} end
if not dbTable.MinBidBySlot or not dbTable.MinBidBySlot.Head then
dbTable.MinBidBySlot = {
Head = 70, Neck = 70, Shoulders = 70, Cloak = 70, Chest = 70, Bracers = 70, Hands = 70, Belt = 70, Legs = 70, Boots = 70, Ring = 70, Trinket = 70, OneHanded = 70, TwoHanded = 70, OffHand = 70, Range = 70, Other = 70,
}
end
if not dbTable.MaxBidBySlot or not dbTable.MaxBidBySlot.Head then
dbTable.MaxBidBySlot = {
Head = 0, Neck = 0, Shoulders = 0, Cloak = 0, Chest = 0, Bracers = 0, Hands = 0, Belt = 0, Legs = 0, Boots = 0, Ring = 0, Trinket = 0, OneHanded = 0, TwoHanded = 0, OffHand = 0, Range = 0, Other = 0,
}
end
if not dbTable.bossargs then dbTable.bossargs = { CurrentRaidZone = "Molten Core", LastKilledBoss = "Lucifron" } end
if not dbTable.modes or not dbTable.modes.mode then dbTable.modes = { mode = "Minimum Bid Values", SubZeroBidding = false, rounding = 0, AddToNegative = false, increment = 60, ZeroSumBidType = "Static", AllowNegativeBidders = false } end;
if not dbTable.modes.ZeroSumBank then dbTable.modes.ZeroSumBank = { balance = 0 } end
if not dbTable.modes.channels then dbTable.modes.channels = { raid = true, whisper = true, guild = true } end
if not dbTable.modes.costvalue then dbTable.modes.costvalue = "Integer" end
if not dbTable.modes.rolls or not dbTable.modes.rolls.min then dbTable.modes.rolls = { min = 1, max = 100, UsePerc = false, AddToMax = 0 } end
if not dbTable.bossargs.LastKilledNPC then dbTable.bossargs.LastKilledNPC = {} end
if not dbTable.bossargs.RecentZones then dbTable.bossargs.RecentZones = {} end
if not dbTable.defaults.HideChangeLogs then dbTable.defaults.HideChangeLogs = 0 end
if not dbTable.modes.AntiSnipe then dbTable.modes.AntiSnipe = 0 end
if not dbTable.defaults.CurrentGuild then dbTable.defaults.CurrentGuild = {} end
if not dbTable.defaults.CurrentTeam then dbTable.defaults.CurrentTeam = "0" end;