vrtc / headbutt (public) (License: Unspecified) (since 2022-04-24) (hash sha1)
No description available
Clone URLs: https://rocketgit.com/user/vrtc/headbutt ssh://rocketgit@ssh.rocketgit.com/user/vrtc/headbutt git://git.rocketgit.com/user/vrtc/headbutt
master
List of commits:
Subject Hash Author Date (UTC)
build: Adjust internal project layout 47f27294ff9f0d32b8383c33d4dc9a0e73201200 Vladyslav Bondarenko 2022-04-24 23:40:21
feat(headbutt)!: Initial commit e1a153f3e4fe4a5266fef28dc18707f111876895 Vladyslav Bondarenko 2022-01-21 13:29:03
Commit 47f27294ff9f0d32b8383c33d4dc9a0e73201200 - build: Adjust internal project layout
Author: Vladyslav Bondarenko
Author date (UTC): 2022-04-24 23:40
Committer name: Vladyslav Bondarenko
Committer date (UTC): 2022-04-24 23:40
Parent(s): e1a153f3e4fe4a5266fef28dc18707f111876895
Signer:
Signing key: EFF9624877D25D02
Signing status: E
Tree: f770df72c9061cc0eefff58dbf9e744f1ae97f33
File Lines added Lines deleted
.luacheckrc 5 0
headbutt.lua 0 373
headbutt.toc 2 1
src/HeadbuttFrame.lua 646 0
src/HeadbuttSpellSet-enUS.lua 26 0
File .luacheckrc changed (mode: 100644) (index c9a610b..9187535)
1 1 read_globals = { read_globals = {
2 'UnitGUID',
2 3 'CreateFrame', 'CreateFrame',
4 'DEFAULT_CHAT_FRAME',
5 'GetSpellTexture',
3 6 'GetTime', 'GetTime',
4 7 'NumberFont_OutlineThick_Mono_Small', 'NumberFont_OutlineThick_Mono_Small',
5 8 'UIParent', 'UIParent',
 
... ... read_globals = {
8 11 'UnitName', 'UnitName',
9 12 'date', 'date',
10 13 'strtrim', 'strtrim',
14 'tContains',
15 'time',
11 16 } }
12 17
13 18 globals = { globals = {
File headbutt.lua deleted (index 9050682..0000000)
1 local function trace(...)
2 print(date('%X'), '[|cFFFFAAAAHeadbutt|r]:', ...)
3 end
4
5 local function findSpellEntry(playerCache, targetSpellName)
6 assert (playerCache ~= nil)
7 assert ('table' == type(playerCache))
8
9 assert (targetSpellName ~= nil)
10 assert ('string' == type(targetSpellName))
11 assert (string.len(targetSpellName) >= 2 and string.len(targetSpellName) <= 256)
12
13 local i = 0
14 while (i < #playerCache) do
15 i = i + 1
16
17 local spellEntry = playerCache[i]
18 assert (spellEntry ~= nil)
19 assert ('table' == type(spellEntry))
20 assert (3 == #spellEntry)
21
22 local spellEntrySpellName = spellEntry[1]
23 assert (spellEntrySpellName ~= nil)
24 assert ('string' == type(spellEntrySpellName))
25
26 local spellEntryCooldownInstance = spellEntry[2]
27 assert (spellEntryCooldownInstance ~= nil)
28 assert ('number' == type(spellEntryCooldownInstance))
29
30 if targetSpellName == spellEntrySpellName then
31 return spellEntry
32 end
33 end
34 return nil
35 end
36
37 local function spellWidgetUpdateProcessor(widget)
38 assert (widget ~= nil)
39
40 local unitDesignation = widget.unit
41 assert (unitDesignation ~= nil)
42
43 if not UnitExists(unitDesignation) then
44 return
45 end
46
47 local spellName = widget.spell
48 if not spellName then
49 return
50 end
51
52 local unitName = UnitName(unitDesignation)
53 assert (unitName ~= nil)
54
55 local cache = HeadbuttCache
56 assert (cache ~= nil)
57 assert ('table' == type(cache))
58
59 local label = widget.label
60 assert (label ~= nil)
61
62 local playerCache = cache[unitName]
63 assert (playerCache ~= nil)
64 assert ('table' == type(playerCache))
65
66 local spellEntry = findSpellEntry(playerCache, spellName)
67 assert (spellEntry ~= nil)
68 assert ('table' == type(spellEntry))
69 assert (3 == #spellEntry)
70
71 local cooldownInstance = spellEntry[2]
72 assert (cooldownInstance ~= nil)
73 assert ('number' == type(cooldownInstance))
74 assert (cooldownInstance >= 0)
75
76 local now = GetTime()
77
78 --[[ FIXME Correct cooldown duration ]]--
79 local cooldownDuration = 10
80 local durationElapsed = now - cooldownInstance
81 local durationRemaining = cooldownDuration - durationElapsed
82 if durationElapsed > 0 and durationElapsed < 60 then
83 local t = string.format('%0.f', durationElapsed)
84 label:SetText(t)
85 else
86 label:SetText(nil)
87 end
88
89 local artwork = widget.artwork
90 assert (artwork ~= nil)
91
92 if durationElapsed < cooldownDuration then
93 artwork:SetVertexColor(1, 1, 1, 0.4)
94 else
95 artwork:SetVertexColor(1, 1, 1, 1)
96 end
97 end
98
99 local function createSpellWidget(widgetName, widgetParent)
100 assert (widgetName ~= nil)
101 assert ('string' == type(widgetName))
102
103 assert (widgetParent ~= nil)
104
105 local widget = CreateFrame('FRAME', widgetName, widgetParent)
106 widget:SetSize(72, 36)
107 widget:SetPoint('CENTER', 0, 0)
108
109 local artwork = widget:CreateTexture(widgetName .. 'Artwork', 'ARTWORK')
110 artwork:SetPoint('BOTTOMLEFT', 0, 0)
111 local artworkSize = math.min(widget:GetHeight(), widget:GetWidth())
112 artwork:SetPoint('TOPRIGHT', widget, 'BOTTOMLEFT', artworkSize, artworkSize)
113 artwork:SetTexture("Interface\\Icons\\spell_nature_wispsplode")
114
115 local label = widget:CreateFontString(widgetName .. 'Text', 'OVERLAY')
116 local fontObject = UnifontRegular16 or NumberFont_OutlineThick_Mono_Small
117 assert (fontObject ~= nil)
118 label:SetFontObject(fontObject)
119 label:SetPoint('BOTTOMLEFT', artworkSize, 0)
120 label:SetPoint('TOPRIGHT', 0, 0)
121
122 widget.artwork = artwork
123 widget.label = label
124
125 widget:SetScript('OnUpdate', spellWidgetUpdateProcessor)
126
127 return widget
128 end
129
130 local function unitWidgetEventProcessor(unitWidget, ...)
131 assert (unitWidget ~= nil)
132
133 local unitDesignation = unitWidget.unit
134 assert (unitDesignation ~= nil)
135
136 if UnitExists(unitDesignation) then
137 unitWidget:Show()
138 else
139 unitWidget:Hide()
140 return
141 end
142
143 local unitName = UnitName(unitDesignation)
144 assert (unitName ~= nil)
145
146 local cache = HeadbuttCache
147 assert (cache ~= nil)
148 assert ('table' == type(cache))
149
150 local playerCache = cache[unitName]
151 if not playerCache then
152 playerCache = {}
153 cache[unitName] = playerCache
154 end
155
156 local childrenList = {unitWidget:GetChildren()}
157 local i = 0
158 while (i < math.min(#playerCache, #childrenList)) do
159 i = i + 1
160
161 local spellWidget = childrenList[i]
162 assert (spellWidget ~= nil)
163
164 local spellEntry = playerCache[i]
165 assert (spellEntry ~= nil)
166 assert ('table' == type(spellEntry))
167 assert (3 == #spellEntry)
168
169 local spellName = spellEntry[1]
170 assert (spellName ~= nil)
171 assert ('string' == type(spellName))
172 spellName = strtrim(spellName)
173 assert (string.len(spellName) >= 2 and string.len(spellName) <= 256)
174
175 local cooldownInstance = spellEntry[2]
176 assert (cooldownInstance ~= nil)
177 assert ('number' == type(cooldownInstance))
178 assert (cooldownInstance >= 0)
179
180 local spellId = spellEntry[3]
181 assert (spellId ~= nil)
182 assert ('number' == type(spellId))
183 assert (spellId >= 0)
184
185 local artwork = spellWidget.artwork
186 assert (artwork ~= nil)
187 artwork:SetTexture(GetSpellTexture(spellId))
188
189 spellWidget.unit = unitDesignation
190 spellWidget.spell = spellName
191 spellWidget:Show()
192 end
193
194 while (i < #childrenList) do
195 i = i + 1
196 local spellWidget = childrenList[i]
197 assert (spellWidget ~= nil)
198 spellWidget.unit = unitDesignation
199 spellWidget.spell = nil
200 spellWidget:Hide()
201 end
202 end
203
204 local function createUnitWidget(frameName, frameParent)
205 local f = CreateFrame('FRAME', frameName, frameParent)
206
207 local width = 0
208 local height = 0
209
210 local entryQuantity = 3
211 local i = 0
212 while (i < entryQuantity) do
213 i = i + 1
214 local wn = f:GetName() .. tostring(i)
215 local w = createSpellWidget(wn, f)
216 w:SetPoint('BOTTOMLEFT', 0, (i - 1) * w:GetHeight())
217
218 width = math.max(width, w:GetWidth())
219 height = math.max(height, w:GetHeight())
220 f:SetSize(width, height * i)
221 end
222 f:SetPoint('CENTER', 0, 0)
223
224 f:RegisterEvent('PLAYER_ENTERING_WORLD')
225 f:RegisterEvent('PLAYER_FOCUS_CHANGED')
226 f:RegisterEvent('PLAYER_TARGET_CHANGED')
227 f:RegisterEvent('UNIT_COMBAT')
228 f:SetScript('OnEvent', unitWidgetEventProcessor)
229
230 return f
231 end
232
233 local function contains(t, target)
234 assert (t ~= nil)
235 assert ('table' == type(t))
236 assert (target ~= nil)
237 local i = 0
238 local isPresent = false
239 while (i < #t) do
240 i = i + 1
241 local e = t[i]
242 isPresent = isPresent or target == e
243 end
244 return isPresent
245 end
246
247 local function setSpellCooldownStartInstance(cache, casterName, spellName, spellId, instance)
248 assert (casterName ~= nil)
249 assert ('string' == type(casterName))
250 assert (string.len(casterName) >= 2 and string.len(casterName) <= 256)
251
252 assert (spellName ~= nil)
253 assert ('string' == type(spellName))
254 assert (string.len(spellName) >= 2 and string.len(spellName) <= 256)
255
256 assert (spellId ~= nil)
257 assert ('number' == type(spellId))
258 assert (spellId >= 0)
259
260 assert (instance ~= nil)
261 assert ('number' == type(instance))
262 assert (instance >= 0)
263
264 assert (cache ~= nil)
265 assert ('table' == type(cache))
266
267 --[[ Find a node for specific unit by name ]]--
268 local playerCache = cache[casterName]
269 if not playerCache or 'table' ~= type(playerCache) then
270 playerCache = {}
271 cache[casterName] = playerCache
272 end
273
274 --[[ Find an entry for the specific spell cast by this unit ]]--
275 local spellEntry = findSpellEntry(playerCache, spellName)
276 if not spellEntry then
277 spellEntry = {}
278 table.insert(playerCache, spellEntry)
279 end
280 spellEntry[1] = spellName
281 spellEntry[2] = instance
282 spellEntry[3] = spellId
283
284 --[[ Sort spells by priority ]]--
285 table.sort(playerCache, function(a, b)
286 return a[2] > b[2]
287 end)
288 end
289
290 local function reportSpellCast(entryCategory, casterName, spellName, pictureFile, targetName)
291 local traceFlag = false
292 if not traceFlag then
293 return
294 end
295 local msg = string.format('%s [|cFFFFAAAA%s|r]: %s | %s %s | %s', date('%X'), casterName, entryCategory, '|T' .. pictureFile .. ':0|t', spellName, targetName)
296 DEFAULT_CHAT_FRAME:AddMessage(msg)
297 end
298
299 local function cacheEventProcessor(rootFrame, eventCategory, ...)
300 assert (rootFrame ~= nil)
301 assert (eventCategory ~= nil)
302
303 local e = select(2, ...)
304 local casterName = select(5, ...)
305 local targetName = select(9, ...)
306 local spellName = select(13, ...)
307 local spellId = select(12, ...)
308 local pictureFile = GetSpellTexture(spellId)
309
310 --[[ FIXME Detect missed spell casts ]]--
311
312 local isTraced = contains(HeadbuttSpellSet, spellName)
313 if ('SPELL_CAST_SUCCESS' == e or 'SPELL_MISSED' == e) and isTraced then
314 local cache = HeadbuttCache
315 assert (cache ~= nil)
316 assert ('table' == type(cache))
317
318 setSpellCooldownStartInstance(cache, casterName, spellName, spellId, GetTime())
319 end
320 if isTraced then
321 reportSpellCast(e, casterName, spellName, pictureFile, targetName)
322 end
323 end
324
325 local function init(rootFrame)
326 assert (rootFrame ~= nil)
327
328 if not HeadbuttSpellSet then
329 HeadbuttSpellSet = {
330 'Counterspell',
331 'Gnaw',
332 'Hammer of Justice',
333 'Kick',
334 'Mind Freeze',
335 'Pummel',
336 'Rebuke',
337 'Silencing Shot',
338 'Skull Bash',
339 'Spell Lock',
340 'Strangulate',
341 'Throwdown',
342 }
343 end
344
345 if not HeadbuttCache or true then
346 HeadbuttCache = {}
347 end
348
349 rootFrame:UnregisterAllEvents()
350
351 rootFrame:SetSize(512, 256)
352 rootFrame:SetPoint('CENTER', 144, 144)
353
354 local widget = createUnitWidget('HeadbuttTargetFrame', rootFrame)
355 widget.unit = 'target'
356 widget:SetPoint('CENTER', 0, 0)
357
358 rootFrame:RegisterEvent('COMBAT_LOG_EVENT_UNFILTERED')
359 rootFrame:SetScript('OnEvent', cacheEventProcessor)
360 trace('init')
361 end
362
363 local function main()
364 local rootFrame = CreateFrame('FRAME', 'HeadbuttFrame', UIParent)
365
366 rootFrame:RegisterEvent('PLAYER_LOGIN')
367 rootFrame:SetScript('OnEvent', init)
368 end
369
370 do
371 main()
372 end
373
File headbutt.toc changed (mode: 100644) (index daec1d8..ba80e18)
5 5 ##SavedVariablesPerCharacter: HeadbuttCache ##SavedVariablesPerCharacter: HeadbuttCache
6 6 ##Title: Headbutt ##Title: Headbutt
7 7 ##Version: 0 ##Version: 0
8 headbutt.lua
8 src\HeadbuttSpellSet-enUS.lua
9 src\HeadbuttFrame.lua
File src/HeadbuttFrame.lua added (mode: 100644) (index 0000000..2c2cab6)
1 local INDEX_TIME_INSTANCE = 1
2 local INDEX_CATEGORY_DESIGNATION = 2
3 local INDEX_CASTER_ID = 4
4 local INDEX_CASTER_NAME = 5
5 local INDEX_TARGET_NAME = 9
6 local INDEX_SPELL_ID = 12
7 local INDEX_SPELL_NAME = 13
8
9 local function trace(...)
10 print(date('%X'), '[|cFFFFAAAAHeadbutt|r]:', ...)
11 end
12
13 local function createCacheEntry(cache, ...)
14 assert (cache ~= nil)
15 assert ('table' == type(cache))
16
17 local instance = select(INDEX_TIME_INSTANCE, ...)
18 local casterId = select(INDEX_CASTER_ID, ...)
19 local casterName = select(INDEX_CASTER_NAME, ...)
20 --[[local targetName = select(INDEX_TARGET_NAME, ...)]]--
21 local spellId = select(INDEX_SPELL_ID, ...)
22 local spellName = select(INDEX_SPELL_NAME, ...)
23
24 assert (instance ~= nil)
25 assert ('number' == type(instance))
26 assert (instance >= 0)
27
28 assert (casterId ~= nil)
29
30 assert (casterName ~= nil)
31 assert ('string' == type(casterName))
32 assert (string.len(casterName) >= 1 and string.len(casterName) <= 256)
33
34 assert (spellName ~= nil)
35 assert ('string' == type(spellName))
36 assert (string.len(spellName) >= 1 and string.len(spellName) <= 256)
37
38 assert (spellId ~= nil)
39 assert ('number' == type(spellId))
40 assert (spellId >= 0)
41
42 --[[ Find an entry for the specific spell cast by this unit ]]--
43 local i = 0
44 local j
45 while (i < #cache) do
46 i = i + 1
47 local cacheEntry = cache[i]
48 local cacheCasterId = cacheEntry[INDEX_CASTER_ID]
49 local cacheSpellId = cacheEntry[INDEX_SPELL_ID]
50 if casterId == cacheCasterId and spellId == cacheSpellId then
51 j = i
52 break
53 end
54 end
55 if not j then
56 j = #cache + 1
57 end
58 local t = {...}
59 cache[j] = t
60
61 --[[ Sort entries by time ]]--
62 table.sort(cache, function(a, b)
63 return a[INDEX_TIME_INSTANCE] > b[INDEX_TIME_INSTANCE]
64 end)
65
66 return t
67 end
68
69 local function findAnySpellCastByCasterId(cache, casterId)
70 assert (cache ~= nil)
71 assert ('table' == type(cache))
72
73 assert (casterId ~= nil)
74
75 local t = {}
76 local i = 0
77 while (i < #cache) do
78 i = i + 1
79 local e = cache[i]
80 local c = e[INDEX_CASTER_ID]
81 if casterId == c then
82 table.insert(t, e)
83 end
84 end
85
86 return t
87 end
88
89 local function cacheEventProcessor(rootFrame, eventCategory, ...)
90 assert (rootFrame ~= nil)
91 assert (eventCategory ~= nil)
92
93 local e = select(INDEX_CATEGORY_DESIGNATION, ...)
94 --[[local casterName = select(INDEX_CASTER_NAME, ...)]]--
95 --[[local targetName = select(INDEX_TARGET_NAME, ...)]]--
96 local spellName = select(INDEX_SPELL_NAME, ...)
97 --[[local spellId = select(INDEX_SPELL_ID, ...)]]--
98 --[[local pictureFile = GetSpellTexture(spellId)]]--
99
100 --[[ FIXME Detect missed spell casts ]]--
101
102 local isSpellCast = tContains({'SPELL_MISSED', 'SPELL_CAST_SUCCESS', 'SPELL_INTERRUPT', 'SPELL_AURA_APPLIED'}, e)
103 local isTraced = tContains(HeadbuttSpellSet, spellName)
104 if isSpellCast and isTraced then
105 local cache = HeadbuttCache
106 assert (cache ~= nil)
107 assert ('table' == type(cache))
108
109 createCacheEntry(cache, ...)
110 end
111 end
112
113 local function spellCooldownWidgetUpdateProcessor(widget)
114 assert (widget ~= nil)
115
116 local unitId = widget.unit
117 if not unitId then
118 widget:Hide()
119 return
120 end
121 assert (unitId ~= nil)
122
123 local spellId = widget.spell
124 if not spellId then
125 widget:Hide()
126 return
127 end
128 assert (spellId ~= nil)
129
130 local cache = HeadbuttCache
131 assert (cache ~= nil)
132 assert ('table' == type(cache))
133
134 local spellEntry
135 local i = 0
136 while (i < #cache) do
137 i = i + 1
138 local e = cache[i]
139 local c = e[INDEX_CASTER_ID]
140 local s = e[INDEX_SPELL_ID]
141 if c == unitId and s == spellId then
142 spellEntry = e
143 break
144 end
145 end
146
147 if not spellEntry then
148 widget:Hide()
149 return
150 end
151
152 assert (spellEntry ~= nil)
153 assert ('table' == type(spellEntry))
154
155 local cooldownInstance = spellEntry[INDEX_TIME_INSTANCE]
156 assert (cooldownInstance ~= nil)
157 assert ('number' == type(cooldownInstance))
158 assert (cooldownInstance >= 0)
159
160 local now = time()
161
162 local label = widget.label
163 assert (label ~= nil)
164
165 --[[ FIXME Correct cooldown duration ]]--
166 local cooldownDuration = 10
167 local durationElapsed = now - cooldownInstance
168 local durationRemaining = cooldownDuration - durationElapsed
169 if durationElapsed > 0 and durationElapsed < 60 then
170 local t = string.format('%0.f', durationElapsed)
171 label:SetText(t)
172 else
173 label:SetText(nil)
174 end
175
176 local artwork = widget.artwork
177 assert (artwork ~= nil)
178
179 if durationElapsed < cooldownDuration then
180 artwork:SetVertexColor(1, 1, 1, 0.4)
181 else
182 artwork:SetVertexColor(1, 1, 1, 1)
183 end
184 end
185
186 local function createSpellCooldownWidget(widgetName, widgetParent)
187 assert (widgetName ~= nil)
188 assert ('string' == type(widgetName))
189
190 assert (widgetParent ~= nil)
191
192 local widget = CreateFrame('FRAME', widgetName, widgetParent)
193 widget:SetSize(72, 36)
194 widget:SetPoint('CENTER', 0, 0)
195
196 local artwork = widget:CreateTexture(widgetName .. 'Artwork', 'ARTWORK')
197 artwork:SetPoint('BOTTOMLEFT', 0, 0)
198 local artworkSize = math.min(widget:GetHeight(), widget:GetWidth())
199 artwork:SetPoint('TOPRIGHT', widget, 'BOTTOMLEFT', artworkSize, artworkSize)
200 artwork:SetTexture("Interface\\Icons\\spell_nature_wispsplode")
201
202 local label = widget:CreateFontString(widgetName .. 'Text', 'OVERLAY')
203 local fontObject = UnifontRegular16 or NumberFont_OutlineThick_Mono_Small
204 assert (fontObject ~= nil)
205 label:SetFontObject(fontObject)
206 label:SetPoint('BOTTOMLEFT', artworkSize, 0)
207 label:SetPoint('TOPRIGHT', 0, 0)
208
209 widget.artwork = artwork
210 widget.label = label
211
212 widget:SetScript('OnUpdate', spellCooldownWidgetUpdateProcessor)
213
214 return widget
215 end
216
217 local function unitSpellCooldownWidgetEventProcessor(unitWidget)
218 assert (unitWidget ~= nil)
219
220 local unitDesignation = unitWidget.unit
221 assert (unitDesignation ~= nil)
222
223 if UnitExists(unitDesignation) then
224 unitWidget:Show()
225 else
226 unitWidget:Hide()
227 return
228 end
229
230 local unitName = UnitName(unitDesignation)
231 assert (unitName ~= nil)
232
233 local unitId = UnitGUID(unitDesignation)
234 assert (unitId ~= nil)
235
236 local cache = HeadbuttCache
237 assert (cache ~= nil)
238 assert ('table' == type(cache))
239
240 local t = findAnySpellCastByCasterId(cache, unitId)
241 assert (t ~= nil)
242 assert ('table' == type(t))
243
244 local petDesignation = unitDesignation .. 'pet'
245 if UnitExists(petDesignation) then
246 local petId = UnitGUID(petDesignation)
247 local l = findAnySpellCastByCasterId(cache, petId)
248 assert (l ~= nil)
249 assert ('table' == type(l))
250 local p = #t
251 local q = 0
252 while (q < #l) do
253 q = q + 1
254 t[p + q] = l[q]
255 end
256 end
257
258 local childrenList = {unitWidget:GetChildren()}
259 local i = 0
260 local j = 0
261 while (i < #t) do
262 i = i + 1
263
264 local spellEntry = t[i]
265 assert (spellEntry ~= nil)
266 assert ('table' == type(spellEntry))
267
268 local cooldownInstance = spellEntry[INDEX_TIME_INSTANCE]
269 assert (cooldownInstance ~= nil)
270 assert ('number' == type(cooldownInstance))
271 assert (cooldownInstance >= 0)
272
273 local casterId = spellEntry[INDEX_CASTER_ID]
274 assert (casterId ~= nil)
275
276 local casterName = spellEntry[INDEX_CASTER_NAME]
277 assert (casterName ~= nil)
278 assert ('string' == type(casterName))
279 casterName = strtrim(casterName)
280 assert (string.len(casterName) >= 1 and string.len(casterName) <= 256)
281
282 local spellName = spellEntry[INDEX_SPELL_NAME]
283 assert (spellName ~= nil)
284 assert ('string' == type(spellName))
285 spellName = strtrim(spellName)
286 assert (string.len(spellName) >= 1 and string.len(spellName) <= 256)
287
288 local spellId = spellEntry[INDEX_SPELL_ID]
289 assert (spellId ~= nil)
290 assert ('number' == type(spellId))
291 assert (spellId >= 0)
292
293 local spellWidget = childrenList[i]
294 if not spellWidget then
295 break
296 end
297 assert (spellWidget ~= nil)
298
299 local artwork = spellWidget.artwork
300 assert (artwork ~= nil)
301 artwork:SetTexture(GetSpellTexture(spellId))
302
303 spellWidget.unit = casterId
304 spellWidget.spell = spellId
305 spellWidget:Show()
306 end
307
308 local j = i
309 while (j < #childrenList) do
310 j = j + 1
311 local spellWidget = childrenList[j]
312 assert (spellWidget ~= nil)
313
314 local artwork = spellWidget.artwork
315 assert (artwork ~= nil)
316 artwork:SetTexture("Interface\\Icons\\spell_nature_wispsplode")
317
318 spellWidget.unit = casterId
319 spellWidget.spell = nil
320 spellWidget:Hide()
321 end
322 end
323
324 local function createUnitSpellCooldownWidget(frameName, frameParent, unitDesignation)
325 assert (frameName ~= nil)
326 assert ('string' == type(frameName))
327 frameName = strtrim(frameName)
328 assert (string.len(frameName) >= 1)
329 assert (string.len(frameName) <= 256)
330
331 assert (frameParent ~= nil)
332
333 assert (unitDesignation ~= nil)
334 assert ('string' == type(unitDesignation))
335 unitDesignation = strtrim(unitDesignation)
336 assert (string.len(unitDesignation) >= 2)
337 assert (string.len(unitDesignation) <= 256)
338 assert (tContains({'player', 'target', 'focus',
339 'arena1', 'arena2', 'arena3', 'arena4', 'arena5'}, unitDesignation))
340
341 local f = CreateFrame('FRAME', frameName, frameParent)
342
343 local width = 0
344 local height = 0
345
346 local entryQuantity = 3
347 local i = 0
348 while (i < entryQuantity) do
349 i = i + 1
350 local wn = f:GetName() .. tostring(i)
351 local w = createSpellCooldownWidget(wn, f)
352 w:SetPoint('BOTTOMLEFT', 0, (i - 1) * w:GetHeight())
353
354 width = math.max(width, w:GetWidth())
355 height = math.max(height, w:GetHeight())
356 f:SetSize(width, height * i)
357 end
358 f:SetPoint('CENTER', 0, 0)
359
360 f.unit = unitDesignation
361
362 f:RegisterEvent('PLAYER_ENTERING_WORLD')
363 f:RegisterEvent('PLAYER_FOCUS_CHANGED')
364 f:RegisterEvent('PLAYER_TARGET_CHANGED')
365 f:RegisterEvent('COMBAT_LOG_EVENT_UNFILTERED')
366 f:SetScript('OnEvent', unitSpellCooldownWidgetEventProcessor)
367
368 return f
369 end
370
371 --[[
372 local function reportSpellCast(entryCategory, casterName, spellName, pictureFile, targetName)
373 local msg = string.format('%s [|cFFFFAAAA%s|r]: %s | %s %s | %s',
374 date('%X'), casterName, entryCategory, '|T' .. pictureFile .. ':0|t', spellName, targetName)
375 DEFAULT_CHAT_FRAME:AddMessage(msg)
376 end
377 ]]--
378
379 local function spellCastWidgetUpdateProcessor(self)
380 assert (self ~= nil)
381
382 local spellId = self.spell
383 local casterId = self.unit
384 if not spellId or not casterId then
385 self:Hide()
386 return
387 end
388
389 local cache = HeadbuttCache
390 assert (cache ~= nil)
391 assert ('table' == type(cache))
392
393 local now = time()
394 assert (now ~= nil)
395
396 local entryCreationInstance
397
398 local i = 0
399 while (i < #cache) do
400 i = i + 1
401 local cacheEntry = cache[i]
402 assert (cacheEntry ~= nil)
403 local cacheCasterId = cacheEntry[INDEX_CASTER_ID]
404 local cacheSpellId = cacheEntry[INDEX_SPELL_ID]
405 if casterId == cacheCasterId and spellId == cacheSpellId then
406 entryCreationInstance = cacheEntry[INDEX_TIME_INSTANCE]
407 break
408 end
409 end
410 if entryCreationInstance then
411 local lifespanDurationSec = 10
412 local elapsedDuration = now - entryCreationInstance
413
414 local a = math.min(lifespanDurationSec - elapsedDuration, lifespanDurationSec) / lifespanDurationSec
415
416 local artwork = self.artwork
417 assert (artwork ~= nil)
418 artwork:SetVertexColor(1, 1, 1, a)
419 end
420 end
421
422 local function createSpellCastWidget(widgetDesignation, widgetParent)
423 assert (widgetDesignation ~= nil)
424 assert ('string' == type(widgetDesignation))
425
426 if not widgetParent then
427 widgetParent = UIParent
428 end
429 assert (widgetParent ~= nil)
430
431 local widget = CreateFrame('FRAME', widgetDesignation, widgetParent)
432
433 widgetDesignation = widget:GetName()
434
435 widget:SetSize(256, 36)
436 widget:SetPoint('CENTER', 0, 0)
437
438 local artwork = widget:CreateTexture(widgetDesignation .. 'Artwork', 'ARTWORK')
439 artwork:SetPoint('BOTTOMLEFT', 0, 0)
440 local artworkSize = math.min(widget:GetHeight(), widget:GetWidth())
441 artwork:SetPoint('TOPRIGHT', widget, 'BOTTOMLEFT', artworkSize, artworkSize)
442 artwork:SetTexture("Interface\\Icons\\spell_nature_wispsplode")
443
444 local label = widget:CreateFontString(widgetDesignation .. 'Text', 'OVERLAY')
445 local fontObject = UnifontRegular16 or NumberFont_OutlineThick_Mono_Small
446 assert (fontObject ~= nil)
447 label:SetFontObject(fontObject)
448 label:SetPoint('BOTTOMLEFT', artworkSize, 0)
449 label:SetPoint('TOPRIGHT', 0, 0)
450
451 widget.artwork = artwork
452 widget.label = label
453
454 widget:SetScript('OnUpdate', spellCastWidgetUpdateProcessor)
455
456 return widget
457 end
458
459 local function spellCastWidgetSectionEventProcessor(self)
460 assert (self ~= nil)
461
462 local lifespanDurationSec = 10
463
464 local cache = HeadbuttCache
465 assert (cache ~= nil)
466 assert ('table' == type(cache))
467
468 local now = time()
469 assert (now ~= nil)
470
471 local unitDesignation = self.unit
472 assert (unitDesignation ~= nil)
473 if not UnitExists(unitDesignation) then
474 return
475 end
476
477 local unitName = UnitName(unitDesignation)
478 assert (unitName ~= nil)
479
480 local widgetList = {self:GetChildren()}
481 local i = 0
482 local j = 0
483 while (i < #cache) do
484 i = i + 1
485
486 local e = cache[i]
487 assert (e ~= nil)
488
489 local m = e[INDEX_TIME_INSTANCE]
490 assert (m ~= nil)
491
492 local t = e[INDEX_TARGET_NAME]
493 assert (t ~= nil)
494
495 if unitName == t and (now - m) <= lifespanDurationSec then
496 local y = e[INDEX_CATEGORY_DESIGNATION]
497 assert (y ~= nil)
498
499 local c = e[INDEX_CASTER_NAME]
500 assert (c ~= nil)
501
502 local s = e[INDEX_SPELL_NAME]
503 assert (s ~= nil)
504
505 local d = e[INDEX_SPELL_ID]
506 assert (d ~= nil)
507
508 j = j + 1
509 local widget = widgetList[j]
510 if not widget then
511 break
512 end
513 assert (widget ~= nil)
514
515 local label = widget.label or _G[widget:GetName() .. 'Text']
516 assert (label ~= nil)
517
518 local o
519 if 'SPELL_MISSED' == y then
520 o = '?'
521 label:SetTextColor(0, 1, 0)
522 elseif 'SPELL_AURA_APPLIED' == y or 'SPELL_INTERRUPT' == y then
523 o = '!'
524 label:SetTextColor(1, 0, 0)
525 else
526 o = '.'
527 label:SetTextColor(1, 1, 1)
528 end
529 label:SetText(c .. '\n' .. s .. o)
530
531 local artwork = widget.artwork
532 assert (artwork ~= nil)
533 local pictureFile = GetSpellTexture(d)
534 artwork:SetTexture(pictureFile)
535
536 widget.unit = e[INDEX_CASTER_ID]
537 widget.spell = d
538
539 widget:Show()
540 end
541 end
542
543 while (j < #widgetList) do
544 j = j + 1
545 local widget = widgetList[j]
546 assert (widget ~= nil)
547
548 local artwork = widget.artwork
549 assert (artwork ~= nil)
550 artwork:SetTexture("Interface\\Icons\\spell_nature_wispsplode")
551
552 widget.unit = nil
553 widget.spell = nil
554 widget:Hide()
555 end
556 end
557
558 local function createSpellCastWidgetSection(frameDesignation, frameParent, unitDesignation)
559 assert (frameDesignation ~= nil)
560 assert (frameParent ~= nil)
561 assert (unitDesignation ~= nil)
562
563 local f = CreateFrame('FRAME', frameDesignation, frameParent)
564
565 local widgetQuantity = 3
566 f:SetSize(144, 144)
567 f:SetPoint('CENTER', 0, 0)
568
569 local i = 0
570 local widgetList = {}
571 local y = 0
572 while (i < widgetQuantity) do
573 i = i + 1
574 local w = createSpellCastWidget(frameDesignation .. 'SpellCastWidget' .. tostring(i), f)
575 assert (w ~= nil, 'could not create spell cast widget')
576 w:SetPoint('TOPLEFT', 0, -y)
577 y = y + w:GetHeight()
578 widgetList[i] = w
579 end
580
581 f.unit = unitDesignation
582
583 f:SetScript('OnEvent', spellCastWidgetSectionEventProcessor)
584 f:RegisterEvent('UNIT_COMBAT')
585 f:RegisterEvent('PLAYER_ENTERING_WORLD')
586
587 return f
588 end
589
590 local function init(rootFrame)
591 assert (rootFrame ~= nil)
592
593 if not HeadbuttCache then
594 HeadbuttCache = {}
595 end
596
597 local spellSet = HeadbuttSpellSet
598 assert (spellSet ~= nil)
599 assert ('table' == type(spellSet))
600 assert (#spellSet >= 1)
601
602 rootFrame:UnregisterAllEvents()
603
604 rootFrame:SetSize(512, 256)
605 rootFrame:SetPoint('CENTER', 0, 0)
606
607 local d = createUnitSpellCooldownWidget('HeadbuttSpellCooldownTargetFrame', rootFrame, 'target')
608 d:SetPoint('CENTER', 144 * 2, 144)
609
610 local s = createSpellCastWidgetSection('HeadbuttSpellCastPlayerFrame', rootFrame, 'player')
611 s:SetPoint('CENTER', 0, 12 * 9)
612
613 local t = createSpellCastWidgetSection('HeadbuttSpellCastTargetFrame', rootFrame, 'target')
614 t:SetPoint('CENTER', -288, 12 * 9)
615
616 rootFrame:RegisterEvent('COMBAT_LOG_EVENT_UNFILTERED')
617 rootFrame:SetScript('OnEvent', cacheEventProcessor)
618
619 rootFrame.clearCache = function()
620 HeadbuttCache = {}
621 trace('clearCache')
622 end
623
624 rootFrame.traceCache = function()
625 local cache = HeadbuttCache
626 local i = 0
627 while (i < #cache) do
628 i = i + 1
629 trace(unpack(cache[i]))
630 end
631 end
632
633 trace('init')
634 end
635
636 local function main()
637 local rootFrame = CreateFrame('FRAME', 'HeadbuttFrame', UIParent)
638
639 rootFrame:RegisterEvent('PLAYER_LOGIN')
640 rootFrame:SetScript('OnEvent', init)
641 end
642
643 do
644 main()
645 end
646
File src/HeadbuttSpellSet-enUS.lua added (mode: 100644) (index 0000000..f9f0ee1)
1 local t = {
2 'Bad Manner',
3 'Concussion Blow',
4 'Counterspell',
5 'Gnaw',
6 'Hammer of Justice',
7 'Head Butt',
8 'Howl of Terror',
9 'Kick',
10 'Mind Freeze',
11 'Psychic Scream',
12 'Pummel',
13 'Rebuke',
14 'Silence',
15 'Silencing Shot',
16 'Skull Bash',
17 'Spell Lock',
18 'Strangulate',
19 'Throwdown',
20 }
21
22 do
23 if 'enUS' == GetLocale() then
24 HeadbuttSpellSet = t
25 end
26 end
Hints:
Before first commit, do not forget to setup your git environment:
git config --global user.name "your_name_here"
git config --global user.email "your@email_here"

Clone this repository using HTTP(S):
git clone https://rocketgit.com/user/vrtc/headbutt

Clone this repository using ssh (do not forget to upload a key first):
git clone ssh://rocketgit@ssh.rocketgit.com/user/vrtc/headbutt

Clone this repository using git:
git clone git://git.rocketgit.com/user/vrtc/headbutt

You are allowed to anonymously push to this repository.
This means that your pushed commits will automatically be transformed into a merge request:
... clone the repository ...
... make some changes and some commits ...
git push origin main