wow/skeletonkey: KeyButton.lua annotate

annotate KeyButton.lua @ 88:283dacee2850 v8.0.1a

Merge

author	Nenue
date	Tue, 17 Jul 2018 14:52:19 -0400
parents	1407e3a2cd1f
children	5005aecc2dc8

rev	line source
Nenue@70	1 -- SkeletonKey
Nenue@70	2 -- KeyButton.lua
Nenue@70	3 -- Created: 7/28/2016 11:26 PM
Nenue@70	4 -- %file-revision%
Nenue@70	5 -- Deals with display and manipulation of binding slots
Nenue@70	6
Nenue@70	7 local _, kb = ...
Nenue@74	8 local print = (DEVIAN_PNAME == 'SkeletonKey') and function(...) _G.print('KeyButton', ...) end or function() end
Nenue@70	9 local cprint = (DEVIAN_PNAME == 'SkeletonKey') and function(...) _G.print('Cfg', ...) end or function() end
Nenue@70	10 local L = kb.L
Nenue@70	11 local type, tonumber, tostring, tinsert, tremove, ipairs, pairs = type, tonumber, tostring, tinsert, tremove, ipairs, pairs
Nenue@70	12 local _G, unpack, select, tostring = _G, unpack, select, tostring
Nenue@70	13 local GetSpellBookItemName, GetSpellBookItemTexture, GetSpellBookItemInfo, GetPetActionInfo = GetSpellBookItemName, GetSpellBookItemTexture, GetSpellBookItemInfo, GetPetActionInfo
Nenue@70	14 local GetSpellInfo, GetMacroInfo, GetItemInfo, GetItemIcon = GetSpellInfo, GetMacroInfo, GetItemInfo, GetItemIcon
Nenue@70	15 local GetCursorInfo, ClearCursor, ResetCursor = GetCursorInfo, ClearCursor, ResetCursor
Nenue@70	16 local GetSpellTexture, IsTalentSpell, GetMacroIndexByName, IsAltKeyDown, IsControlKeyDown, IsShiftKeyDown = GetSpellTexture, IsTalentSpell, GetMacroIndexByName, IsAltKeyDown, IsControlKeyDown,IsShiftKeyDown
Nenue@70	17 local GetBindingKey, GetProfessionInfo = GetBindingKey, GetProfessionInfo
Nenue@70	18 local GetMountInfoByID, GetPetInfoByPetID = C_MountJournal.GetMountInfoByID, C_PetJournal.GetPetInfoByPetID
Nenue@70	19 local skb = SkeletonKeyButtonMixin
Nenue@70	20 local CURSOR_SPELLSLOT, CURSOR_BOOKTYPE, CURSOR_PETACTION, CURSOR_TEXTURE
Nenue@70	21 local SUMMON_RANDOM_FAVORITE_MOUNT_SPELL = 150544
Nenue@70	22 local BORDER_UNASSIGNED = {0.6,0.6,0.6,1}
Nenue@70	23 local BORDER_ASSIGNED = {1,1,1,1}
Nenue@70	24 local BORDER_DYNAMIC = {1,1,0,1}
Nick@80	25 local BORDER_PENDING = {1,0.5,0,1}
Nick@80	26 local BORDER_REPLACED = {0,1,.5,1}
Nenue@70	27 local BUTTON_HEADERS = {
Nenue@70	28 ['spell'] = SPELLS,
Nenue@70	29 ['macro'] = MACRO,
Nenue@70	30 ['petaction'] = PET,
Nenue@70	31 ['mount'] = MOUNT,
Nenue@70	32 ['battlepet'] = BATTLEPET,
Nenue@70	33
Nenue@70	34
Nenue@70	35 [5] = PROFESSIONS_FIRST_AID,
Nenue@70	36 [7] = PROFESSIONS_COOKING,
Nenue@70	37 [9] = PROFESSIONS_FISHING,
Nenue@70	38 [10] = PROFESSIONS_ARCHAEOLOGY,
Nenue@70	39
Nenue@70	40 }
Nenue@70	41
Nenue@70	42 local PROFESSION_HEADERS = {
Nenue@70	43 [1] = 'Profession 1',
Nenue@70	44 [2] = 'Profession 2',
Nenue@70	45 [3] = 10,
Nenue@70	46 [4] = 7,
Nenue@70	47 [5] = 9,
Nenue@70	48 [6] = 5
Nenue@70	49 }
Nenue@70	50
Nenue@81	51 -- Spell replacements that can't be easily detected
Nenue@81	52 local TALENT_SPELLS = {
Nenue@81	53 -- Shimmer
Nenue@81	54 [212653] = {
Nenue@81	55 actionName = 'Blink',
Nenue@81	56 actionID = 1953,
Nenue@83	57 icon = [[Interface\\ICONS\\spell_arcane_blink]]
Nenue@81	58 },
Nenue@81	59 -- Sidewinders; have to assume arcane sadly
Nenue@81	60 [214579] = {
Nenue@81	61 actionName = 'Arcane Shot',
Nenue@81	62 actionID = 185358,
Nenue@83	63 icon = [[Interface\\ICONS\\ability_impalingbolt]]
Nenue@81	64 },
Nenue@81	65 -- Serenity
Nenue@81	66 [152173] = {
Nenue@81	67 actionName = 'Storm, Earth, and Fire',
Nenue@83	68 actionID = 137639,
Nenue@83	69 icon = [[Interface\\ICONS\\spell_nature_giftofthewild]]
Nenue@83	70 },
Nenue@83	71 -- Carve
Nenue@83	72 [212436] = {
Nenue@83	73 actionName = 'Carve',
Nenue@83	74 actionID = 187708,
Nenue@83	75 icon = [[Interface\\ICONS\\ability_hunter_carve]]
Nenue@81	76 }
Nenue@81	77 }
Nenue@81	78
Nenue@70	79
Nenue@70	80 -- This is needed to identify a spells that aren't reflected by GetCursorInfo()
Nenue@70	81 kb.OnPickupPetAction = function(slot, ...)
Nenue@70	82 local isPickup = GetCursorInfo()
Nenue@70	83 print(slot, ...)
Nenue@70	84 if kb.PetCache.action[slot] then
Nenue@70	85 if isPickup then
Nenue@70	86 local key, _, texture = unpack(kb.PetCache.action[slot])
Nenue@70	87 local spellName = _G[key] or key
Nenue@70	88 if spellName and kb.PetCache.spellslot[spellName] then
Nenue@70	89 CURSOR_SPELLSLOT = kb.PetCache.spellslot[spellName][1]
Nenue@70	90 CURSOR_BOOKTYPE = BOOKTYPE_PET
Nenue@70	91 CURSOR_TEXTURE = _G[texture] or texture
Nenue@70	92 end
Nenue@70	93 else
Nenue@70	94 CURSOR_SPELLSLOT = nil
Nenue@70	95 CURSOR_BOOKTYPE = nil
Nenue@70	96 CURSOR_TEXTURE = nil
Nenue@70	97 end
Nenue@70	98 print('\|cFFFF4400PickupPetAction\|r', isPickup, CURSOR_PETACTION)
Nenue@70	99 end
Nenue@70	100
Nenue@70	101 local name, subtext, texture, isToken = GetPetActionInfo(slot)
Nenue@70	102 if name then
Nenue@70	103 kb.PetCache.action[slot] = {name, subtext, texture, isToken}
Nenue@70	104 end
Nenue@70	105
Nenue@70	106
Nenue@70	107 print('current cursor info', CURSOR_SPELLSLOT, CURSOR_BOOKTYPE, CURSOR_TEXTURE)
Nenue@70	108
Nenue@70	109 end
Nenue@70	110
Nenue@70	111 kb.OnPickupSpellBookItem = function(slot, bookType)
Nenue@70	112 print('\|cFFFF4400PickupSpellBookItem('.. tostring(slot).. ', '..tostring(bookType)..')')
Nenue@70	113 CURSOR_SPELLSLOT = slot
Nenue@70	114 CURSOR_BOOKTYPE = bookType
Nenue@70	115 CURSOR_TEXTURE = GetSpellBookItemTexture(slot, bookType)
Nenue@70	116 print('current cursor info', CURSOR_SPELLSLOT, CURSOR_BOOKTYPE, CURSOR_TEXTURE)
Nenue@70	117 end
Nenue@70	118
Nenue@70	119 kb.CreateHooks = function()
Nenue@70	120 hooksecurefunc("PickupSpellBookItem", kb.OnPickupSpellBookItem)
Nenue@70	121 hooksecurefunc("PickupPetAction", kb.OnPickupPetAction)
Nenue@70	122 end
Nenue@70	123
Nenue@70	124
Nenue@70	125
Nenue@70	126 function skb:OnLoad()
Nenue@70	127 self:EnableKeyboard(false)
Nenue@70	128 self:EnableMouse(true)
Nenue@70	129 self:RegisterForDrag('LeftButton')
Nenue@70	130 self:RegisterForClicks('AnyUp')
Nenue@70	131 end
Nenue@70	132
Nenue@70	133 function skb:OnEnter()
Nenue@70	134 if not self.command then
Nenue@70	135 return
Nenue@70	136 end
Nenue@70	137 if self.statusText then
Nenue@70	138 SkeletonKey.statustext:SetText(self.statusText .. ': '..self.actionName)
Nenue@70	139 SkeletonKey.bindingstext:SetText(self.bindingText)
Nenue@70	140 end
Nenue@70	141
Nenue@70	142
Nenue@70	143 if kb.db.hoverInput and kb.saveTarget ~= self then
Nenue@70	144 self:GetParent():ActivateSlot(self)
Nenue@70	145 SkeletonKey:Update()
Nenue@70	146 end
Nenue@70	147 end
Nenue@70	148
Nenue@70	149 function skb:OnLeave()
Nenue@70	150 if kb.db.hoverInput and kb.saveTarget == self then
Nenue@70	151 self:GetParent():DeactivateSlot(self)
Nenue@70	152 SkeletonKey:Update()
Nenue@70	153 end
Nenue@70	154 end
Nenue@70	155
Nenue@70	156 function skb:OnUpdate()
Nenue@70	157 end
Nenue@70	158 function skb:OnClick(click)
Nenue@70	159 print(self:GetName(), 'OnMouseDown', click)
Nenue@70	160 local cursorType = GetCursorInfo()
Nenue@70	161 if click == 'LeftButton' then
Nenue@70	162 if cursorType then
Nenue@70	163 self:DropToSlot()
Nenue@70	164 else
Nenue@76	165 if self.command then
Nenue@70	166 if IsShiftKeyDown() then
Nenue@70	167 kb.db.stickyMode = true
Nenue@70	168 KeyBinderStickyMode:SetChecked(true)
Nenue@70	169 end
Nenue@70	170 self:GetParent():ActivateSlot(self)
Nenue@70	171 end
Nenue@70	172 end
Nenue@70	173 elseif click == 'RightButton' then
Nenue@70	174 self:ReleaseSlot()
Nenue@70	175 else
Nick@80	176 SkeletonKey:ProcessInput(strupper(click))
Nenue@70	177 end
Nenue@70	178 SkeletonKey:Update()
Nenue@70	179 end
Nenue@70	180
Nenue@70	181 function skb:OnDragStart()
Nenue@70	182 self:PickupSlot()
Nenue@70	183 end
Nenue@70	184
Nenue@70	185 function skb:OnReceiveDrag(...)
Nenue@70	186 self:DropToSlot()
Nenue@70	187 end
Nenue@70	188
Nenue@70	189 function skb:DropToSlot ()
Nenue@70	190 print(self:GetName(),'\|cFF0088FFreceived\|r')
Nenue@70	191 local actionType, actionID, subType, subData = GetCursorInfo()
Nenue@70	192 print('GetCursorInfo', GetCursorInfo())
Nenue@70	193 if actionType then
Nenue@70	194
Nenue@70	195 if actionType == 'flyout' then
Nenue@70	196 ClearCursor()
Nenue@70	197 ResetCursor()
Nenue@70	198 return
Nenue@70	199 end
Nenue@70	200
Nenue@70	201
Nenue@74	202 local name, icon, _, macroName, macroText
Nenue@70	203 local pickupID, pickupBook
Nenue@70	204
Nenue@70	205 if actionType == 'spell' then
Nick@80	206 local realName = GetSpellInfo(subData)
Nick@80	207 name, _, icon, _, _, _, actionID = GetSpellInfo(subData)
Nenue@83	208
Nenue@83	209 if TALENT_SPELLS[actionID] then
Nenue@83	210 name = TALENT_SPELLS[actionID].actionName
Nenue@83	211 actionID = TALENT_SPELLS[actionID].actionID
Nenue@83	212 icon = TALENT_SPELLS[actionID].icon
Nenue@70	213 elseif actionType == 'macro' then
Nenue@74	214 name, icon, macroText = GetMacroInfo(actionID)
Nenue@74	215 macroName = name
Nenue@70	216 elseif actionType == 'petaction' then
Nenue@70	217 if CURSOR_SPELLSLOT and CURSOR_BOOKTYPE then
Nenue@70	218
Nenue@70	219 local spellType, spellID = GetSpellBookItemInfo(CURSOR_SPELLSLOT, CURSOR_BOOKTYPE)
Nenue@70	220 local spellName, spellText = GetSpellBookItemName(CURSOR_SPELLSLOT, CURSOR_BOOKTYPE)
Nenue@70	221 if spellType == 'PETACTION' then
Nenue@70	222 name = spellName
Nenue@70	223 actionID = spellText
Nenue@70	224 icon = CURSOR_TEXTURE
Nenue@70	225 else
Nenue@70	226 name, _, icon = GetSpellInfo(spellID)
Nenue@70	227 actionID = spellID
Nenue@70	228 end
Nenue@70	229
Nenue@70	230 pickupID = CURSOR_SPELLSLOT
Nenue@70	231 pickupBook = CURSOR_BOOKTYPE
Nenue@70	232 else
Nenue@70	233
Nenue@70	234
Nenue@70	235 end
Nenue@70	236
Nenue@70	237 elseif actionType == 'mount' then
Nenue@70	238 if subType == 0 then
Nenue@70	239 name, _, icon = GetSpellInfo(SUMMON_RANDOM_FAVORITE_MOUNT_SPELL)
Nenue@70	240 actionID = 0
Nenue@70	241 else
Nenue@70	242 name, _, icon = GetMountInfoByID(actionID)
Nenue@70	243 end
Nenue@70	244 elseif actionType == 'item' then
Nenue@70	245 name = GetItemInfo(actionID)
Nenue@70	246 icon = GetItemIcon(actionID)
Nenue@70	247 elseif actionType == 'battlepet' then
Nenue@70	248
Nenue@70	249 local speciesID, customName, level, xp, maxXp, displayID, isFavorite, petName, petIcon, petType, creatureID = GetPetInfoByPetID(actionID)
Nenue@70	250 name = customName or petName
Nenue@70	251 icon = petIcon
Nenue@70	252
Nenue@70	253 end
Nenue@74	254 local _, macroBody, command = kb.RegisterAction(actionType, actionID, name)
Nenue@70	255 local slotInfo = {
Nenue@70	256 command = command,
Nenue@70	257 actionName = name,
Nenue@70	258 iconPath = icon,
Nenue@70	259 actionType = actionType,
Nenue@70	260 actionID = actionID,
Nenue@70	261 macroName = macroName,
Nenue@74	262 macroText = macroText or macroBody,
Nenue@70	263 spellbookSlot = pickupID,
Nenue@70	264 spellbookType = pickupBook,
Nenue@70	265 assignedKeys = {GetBindingKey(command)}
Nenue@70	266 }
Nenue@70	267
Nenue@70	268 local isAssigned, isBound, assignedBy, boundBy = kb.IsCommandBound(self, command)
Nenue@70	269 if isAssigned then
Nenue@70	270 local popup = StaticPopupDialogs["SKELETONKEY_CONFIRM_ASSIGN_SLOT"]
Nenue@70	271 popup.slot = self
Nenue@70	272 popup.text = "Currently assigned in \|cFFFFFF00"..tostring(kb.configHeaders[assignedBy]).."\|r. Are you sure?"
Nenue@70	273 popup.oldProfile = assignedBy
Nenue@70	274 popup.args = {slotInfo}
Nenue@70	275 SkeletonKey:SetScript('OnMouseWheel', nil) -- disable scrolling
Nenue@70	276 StaticPopup_Show('SKELETONKEY_CONFIRM_ASSIGN_SLOT')
Nenue@70	277 else
Nenue@70	278 kb.currentProfile.buttons[self:GetID()] = slotInfo
Nenue@74	279 kb.LoadBinding(slotInfo)
Nenue@70	280 self:SetSlot(slotInfo)
Nenue@70	281 self:UpdateSlot()
Nenue@70	282 self.active = nil
Nenue@70	283 ClearCursor()
Nenue@70	284 ResetCursor()
Nenue@70	285 end
Nenue@70	286 end
Nenue@70	287 end
Nenue@70	288
Nenue@70	289
Nenue@70	290 do
Nenue@70	291 local PickupAction = {
Nenue@70	292 spell = _G.PickupSpell,
Nenue@70	293 petaction =
Nenue@70	294 function(...)
Nenue@70	295 -- needs to be enclosed to acquire hooksecurefunc effects
Nenue@70	296 _G.PickupSpellBookItem(...)
Nenue@70	297 end,
Nenue@70	298 macro = _G.PickupMacro,
Nenue@70	299 item = _G.PickupItem,
Nenue@70	300 mount = _G.C_MountJournal.Pickup
Nenue@70	301 }
Nenue@70	302 local GetPickupValue = {
Nenue@70	303 spell = function(self) return select(7, GetSpellInfo(self.actionID)) end,
Nenue@70	304 petaction = function(self) return self.pickupSlot, self.pickupBook end,
Nenue@70	305 }
Nenue@70	306 function skb:PickupSlot ()
Nenue@70	307 if not (self.command and self.isAvailable) then
Nenue@70	308 return
Nenue@70	309 end
Nenue@70	310 print(self.actionType)
Nenue@70	311 if self.actionType == 'spell' then
Nenue@70	312 -- It can't be picked up if SpellInfo(name) returns void
Nenue@70	313 local dummy = GetSpellInfo(self.actionName)
Nenue@70	314 if not dummy then
Nenue@70	315 return
Nenue@70	316 end
Nenue@70	317 end
Nenue@70	318 if PickupAction[self.actionType] then
Nenue@70	319 if GetPickupValue[self.actionType] then
Nenue@70	320 PickupAction[self.actionType](GetPickupValue[self.actionType](self))
Nenue@70	321 else
Nenue@70	322 PickupAction[self.actionType](self.actionID)
Nenue@70	323 end
Nenue@70	324 self:ReleaseSlot()
Nenue@70	325 self:UpdateSlot()
Nenue@70	326 end
Nenue@70	327 end
Nenue@70	328 end
Nenue@70	329
Nenue@70	330
Nenue@70	331
Nenue@70	332
Nenue@70	333 --- Updates profile assignment and button contents
Nenue@70	334 function skb:UpdateSlot (force)
Nenue@70	335 local slot = self:GetID()
Nenue@70	336
Nenue@70	337 if force then
Nenue@70	338 if kb.currentProfile.buttons[slot] then
Nenue@70	339 print('loading in', slot, kb.db.bindMode)
Nenue@70	340 self:SetSlot(kb.currentProfile.buttons[slot])
Nenue@70	341 else
Nenue@70	342 self:ReleaseSlot()
Nenue@70	343 end
Nenue@70	344 end
Nenue@70	345
Nenue@70	346 local borderType = BORDER_UNASSIGNED
Nick@80	347 local displayName = self.actionName
Nick@80	348 local displayTexture = self.iconPath
Nick@80	349 local altName, altTexture
Nenue@70	350 if self.command then
Nenue@70	351
Nick@80	352 print('\|cFFFF4400:', self.actionName, #self.assignedKeys, table.concat(self.assignedKeys, ','))
Nick@80	353 print('\|cFF00FF88:', self.isAvailable, self.actionID)
Nick@80	354
Nenue@72	355 self.bindingText= kb.BindingString(unpack(self.assignedKeys))
Nick@80	356
Nenue@70	357 if not self.isAvailable then
Nenue@70	358 borderType = BORDER_DYNAMIC
Nenue@70	359 self.ignoreTexture:Show()
Nenue@70	360 else
Nenue@70	361 self.ignoreTexture:Hide()
Nenue@70	362
Nenue@70	363 if self.pending then
Nenue@70	364 borderType = BORDER_PENDING
Nenue@70	365 elseif self.dynamicType then
Nenue@70	366 borderType = BORDER_DYNAMIC
Nenue@70	367 else
Nenue@70	368 borderType = BORDER_ASSIGNED
Nenue@70	369 end
Nenue@70	370 end
Nenue@70	371
Nenue@70	372 if self.actionType == 'macro' then
Nenue@70	373 self.macro:Show()
Nenue@70	374 else
Nenue@70	375 self.macro:Hide()
Nenue@70	376 if self.actionType == 'spell' then
Nick@80	377 altName, _, altTexture = GetSpellInfo(self.actionName)
Nick@80	378 self.isAvailable = displayName and true or false
Nick@80	379 if altName and (altName ~= self.actionName) then
Nick@80	380 displayName = '\|cFFFFFF00'..altName..'\|r ('..self.actionName..')'
Nick@80	381 displayTexture = altTexture
Nick@80	382 borderType = BORDER_REPLACED
Nick@80	383 end
Nick@80	384
Nenue@70	385 end
Nenue@70	386 end
Nenue@70	387
Nenue@70	388
Nenue@70	389 if self.dynamicType == 'profession' then
Nenue@70	390 if self.isAvailable then
Nenue@81	391 self.statusText = '\|cFFFFFF00Profession Slot\|r ' .. tostring(self.dynamicIndex) .. '-' .. tostring(self.dynamicSubIndex)
Nenue@70	392 else
Nenue@70	393
Nenue@70	394 self.statusText = '\|cFFFF4400'..PROFESSION_HEADERS[self.dynamicIndex]..'\|r'
Nenue@70	395 self.actionName = '(#'..self.dynamicIndex..')'
Nenue@70	396 end
Nenue@70	397 elseif self.dynamicType == 'talent' then
Nenue@70	398 self.statusText = '\|cFF00FFFF'.. TALENT .. '\|r'
Nenue@70	399 end
Nenue@70	400
Nenue@70	401 local locked, layer = kb.IsCommandBound(self)
Nenue@70	402 if locked then
Nenue@70	403 self.icon:SetAlpha(0.5)
Nenue@70	404 else
Nenue@70	405 self.icon:SetAlpha(1)
Nenue@70	406 end
Nenue@70	407
Nenue@70	408
Nenue@70	409 print('\|cFF00BBFFUpdateSlot\|r:', '['..slot..'] =', self.command, self.bindingText, self.dynamicType, self.isAvailable, self.actionID)
Nenue@70	410
Nenue@70	411 end
Nenue@70	412
Nenue@70	413 if not self.isAvailable then
Nenue@74	414 self.bind:SetTextColor(.7,.7,.7,1)
Nenue@74	415 self.ignoreTexture:SetShown(self.command and true)
Nenue@74	416 self.icon:SetVertexColor(.5,.5,.5)
Nenue@70	417 else
Nenue@74	418 self.ignoreTexture:SetShown(false)
Nenue@70	419 self.bind:SetTextColor(1,1,1,1)
Nenue@74	420 self.icon:SetVertexColor(1,1,1)
Nenue@70	421 end
Nenue@70	422
Nenue@70	423
Nenue@70	424 if kb.saveTarget and kb.saveTarget ~= self then
Nenue@70	425 self:SetAlpha(0.25)
Nenue@70	426 else
Nenue@70	427
Nenue@70	428 self:SetAlpha(1)
Nenue@70	429 end
Nenue@70	430
Nenue@70	431 --self.alert:SetShown(self.command and not self.isBound)
Nenue@70	432
Nick@80	433 self.icon:SetTexture(displayTexture)
Nenue@70	434
Nenue@70	435 self.border:SetColorTexture(unpack(borderType))
Nenue@70	436 self.header:SetText(self.statusText)
Nenue@70	437 self.bind:SetText(self.bindingText)
Nick@80	438 self.details:SetText(displayName)
Nenue@70	439 end
Nenue@70	440
Nenue@70	441 --- Resets button command
Nenue@70	442 function skb:ReleaseSlot ()
Nenue@70	443 local slot = self:GetID()
Nenue@70	444
Nick@80	445 -- keep right click from deleting an assignment during bind mode
Nick@80	446 if kb.saveTarget == self then
Nick@80	447 self:GetParent():DeactivateSlot(self)
Nick@80	448 return
Nick@80	449 end
Nenue@70	450
Nenue@70	451 if kb.currentProfile.buttons[slot] then
Nenue@70	452 kb.currentProfile.buttons[slot] = nil
Nenue@70	453 end
Nenue@70	454 if self.command then
Nenue@70	455 kb.currentProfile.commands[self.command] = nil
Nenue@70	456 end
Nenue@70	457 local talentName = self.actionName
Nenue@70	458 if self.actionType == 'macro' then
Nenue@70	459 talentName = GetMacroSpell(self.actionID)
Nenue@70	460 end
Nenue@76	461
Nenue@70	462 local droppedKeys = {}
Nenue@70	463
Nenue@70	464 -- doing removal in second loop to avoid possible iterator shenanigans
Nenue@70	465 for k,v in pairs(kb.currentProfile.bindings) do
Nenue@70	466 if v == self.command then
Nenue@70	467 tinsert(droppedKeys, k)
Nenue@70	468 end
Nenue@70	469 end
Nenue@70	470 if #droppedKeys >=1 then
Nenue@70	471 for i, k in ipairs(droppedKeys) do
Nenue@70	472 kb.currentProfile.bindings[k] = nil
Nenue@70	473 end
Nenue@70	474 end
Nenue@70	475
Nenue@70	476 self.isAvailable = nil
Nenue@70	477 self.dynamicType = nil
Nenue@70	478 self.bindingText = nil
Nenue@70	479 self.statusText = nil
Nenue@70	480 self.command = nil
Nenue@70	481 self.iconPath = nil
Nenue@70	482 self.actionType = nil
Nenue@70	483 self.actionID = nil
Nenue@70	484 self.actionName = nil
Nenue@70	485 self.pickupSlot = nil
Nenue@70	486 self.pickupBook = nil
Nenue@70	487 self.macroName = nil
Nenue@70	488 self.profile = nil
Nenue@70	489 self.border:SetColorTexture(unpack(BORDER_UNASSIGNED))
Nenue@70	490 self:EnableKeyboard(false)
Nenue@70	491 self:SetScript('OnKeyDown', nil)
Nenue@70	492 self.bindingText = nil
Nenue@70	493 self.icon:SetTexture(nil)
Nenue@70	494 self.ignoreTexture:Hide()
Nenue@70	495
Nenue@70	496 end
Nenue@70	497
Nenue@70	498 --- Assigns the slot via table copy; any manipulations from this point are temporary and
Nenue@70	499 function skb:SetSlot(slotInfo)
Nenue@70	500 print('slot info', self:GetID())
Nenue@70	501
Nenue@70	502 for k,v in pairs(slotInfo) do
Nenue@70	503 print(' -', k, v)
Nenue@70	504 self[k] = v
Nenue@70	505 end
Nenue@70	506 self.dynamicType = slotInfo.dynamicType
Nenue@70	507 local command, name, icon, actionType, actionID, macroName, macroText, pickupSlot, pickupBook
Nenue@70	508 = self.command, self.actionName, self.iconPath, self.actionType, self.actionID, self.macroName, self.macroText, self.spellbookSlot, self.spellbookType
Nenue@70	509
Nenue@70	510
Nenue@70	511 local slot = self:GetID()
Nenue@70	512 local isBound = false
Nenue@70	513 print('\|cFFFFFF00SetSlot\|r:', self:GetID())
Nenue@70	514 if self.command then
Nenue@70	515
Nenue@70	516 isBound = kb.IsCommandBound(self, self.command)
Nenue@70	517 if actionType == 'spell' then
Nenue@74	518 local info = kb.ResolveSpellSlot(self)
Nenue@70	519 name, icon, actionType, actionID, macroName, macroText, pickupSlot, pickupBook = self.actionName, self.iconPath, self.actionType, self.actionID, self.macroName, self.macroText, self.spellbookSlot, self.spellbookType
Nenue@71	520 self.isAvailable = info and info.isAvailable
Nenue@70	521 elseif actionType == 'petaction' then
Nenue@70	522 self.dynamicType = 'petaction'
Nenue@70	523 local specialType, specialNum = command:match(actionType..'_([%a%s]+)_(%d)')
Nenue@70	524
Nenue@70	525 if kb.PetCache.subtext[specialType] then
Nenue@70	526
Nenue@70	527 local info = kb.PetCache.subtext[specialType][tonumber(specialNum)]
Nenue@70	528 if info then
Nenue@70	529 print('***dynamic pet skill', specialType, specialNum)
Nenue@70	530 --[[ i, spellName, subText, spellID, texture, specialNum[subText ]]
Nenue@70	531
Nenue@70	532 for k,v in pairs(info) do
Nenue@70	533 self[k] = v
Nenue@70	534 end
Nenue@70	535 end
Nenue@70	536
Nenue@70	537 end
Nenue@70	538 self.statusText = 'Pet Action'
Nenue@70	539 self.isAvailable = (kb.PetCache.spellslot[name])
Nenue@70	540 elseif actionType == 'macro' then
Nenue@70	541 if actionID then
Nenue@74	542
Nenue@74	543 -- Update stored information if it mis-matches
Nenue@70	544 local nameByID, _, bodyByID = GetMacroInfo(actionID)
Nenue@74	545 --print(bodyByID, "\n", macroText)
Nenue@70	546 if (nameByID ~= name) or (bodyByID ~= macroText) then
Nenue@74	547 --kb:print('mismatches for slot', self:GetID(), actionID, ((nameByID ~= name) and 'name' or ''), ((bodyByID ~= macroText) and 'body' or ''))
Nenue@74	548 local matchID, matchName, matchBody, hasMultiple
Nenue@74	549 local roughResult = ""
Nenue@74	550
Nenue@74	551 local newID = GetMacroIndexByName(name)
Nenue@74	552 local firstName, _, firstBody = GetMacroInfo(newID)
Nenue@70	553 if (firstName ~= name) or (firstBody ~= macroText) then
Nenue@74	554
Nenue@74	555
Nenue@70	556 -- go even deeper
Nenue@74	557 local numAccount, numCharacter = GetNumMacros()
Nenue@74	558 local searchID = 1
Nenue@74	559 while searchID <= (120+numCharacter) do
Nenue@74	560 --kb:print(searchID)
Nenue@74	561
Nenue@74	562
Nenue@74	563 local searchName, _ , searchBody = GetMacroInfo(searchID)
Nenue@70	564 if (searchName == name) and (searchBody == macroText) then
Nenue@74	565 --kb:print('definitely', matchID, searchName, '\n', searchBody)
Nenue@70	566 -- complete match
Nenue@74	567 matchID = searchID
Nenue@74	568 matchName = searchName
Nenue@74	569 matchBody = searchBody
Nenue@70	570 break
Nenue@70	571 elseif (searchName == name) or (searchBody == macroText) then
Nenue@70	572 -- partial match, continue the search
Nenue@74	573
Nenue@74	574 if matchID then
Nenue@74	575 hasMultiple = true
Nenue@74	576 roughResult = roughResult .. "\n" .. tostring(searchID) .. ':'..tostring(searchName)
Nenue@74	577 end
Nenue@74	578
Nenue@74	579 matchID = searchID
Nenue@74	580 matchName = searchName
Nenue@74	581 matchBody = searchBody
Nenue@74	582 --kb:print('possibly', matchID, matchName, '\n', matchBody)
Nenue@70	583 end
Nenue@74	584
Nenue@74	585 if searchID == numAccount then
Nenue@74	586 searchID = 120
Nenue@74	587 end
Nenue@74	588 searchID = searchID + 1
Nenue@70	589 end
Nenue@74	590 else
Nenue@74	591 matchID = newID
Nenue@74	592 matchName = firstName
Nenue@74	593 matchBody = firstBody
Nenue@70	594 end
Nenue@72	595
Nenue@74	596 --kb:print(matchID, hasMultiple)
Nenue@74	597 if hasMultiple then
Nenue@74	598 kb:print('Macro assignment in slot #'..tostring(self:GetID())..' has multiple possible indexes:\nSaved Info: '..tostring(actionID)..'/'..tostring(name)..'\n\|cFFFFFF00', roughResult)
Nenue@74	599 elseif matchID then
Nenue@74	600 kb:print('Macro for slot #'..tostring(self:GetID())..' ('..tostring(name)..') has probably changed:', ((actionID ~= newID) and (' \|cFFFF4400'..tostring(actionID)..'\|r to \|cFF00FF88' .. newID .. '\|r.') or ''), 'We\'re not sure, so you may want to re-do that assignment.')
Nenue@74	601 actionID = matchID
Nenue@74	602 name = matchName
Nenue@74	603 macroName = matchName
Nenue@74	604 macroText = matchBody
Nenue@74	605 end
Nenue@70	606 end
Nenue@70	607 else
Nenue@70	608 actionID = GetMacroIndexByName(name)
Nenue@70	609 end
Nenue@74	610 self.statusText = 'Macro ' .. tostring(actionID)
Nenue@70	611 self.isAvailable = true
Nenue@70	612 else
Nenue@70	613 if not actionID then
Nenue@70	614 actionID = command:match("^KeyBinderMacro:(.+)")
Nenue@70	615 end
Nenue@70	616 self.isAvailable = true
Nenue@70	617 end
Nenue@70	618
Nenue@70	619 if self.isAvailable then
Nenue@72	620 --[[
Nenue@72	621 local checkCommand = command
Nenue@72	622 checkCommand = kb.LoadBinding(self)
Nenue@72	623 if checkCommand and (checkCommand ~= command) then
Nenue@70	624 print('\|cFFFF4400fixing command string', actionType, actionID, name)
Nenue@72	625 kb.currentProfile.bound[command] = nil
Nenue@72	626 kb.currentProfile.bound[checkCommand] = slot
Nenue@70	627 for k,v in pairs(kb.currentProfile.bindings) do
Nenue@72	628 if v == command then
Nenue@72	629 kb.currentProfile.bindings[k] = checkCommand
Nenue@70	630 end
Nenue@70	631 end
Nenue@70	632 end
Nenue@72	633 --]]
Nenue@70	634 end
Nenue@70	635
Nenue@70	636
Nenue@70	637 actionID = actionID or 0
Nenue@70	638 self:EnableKeyboard(true)
Nenue@70	639
Nenue@70	640 -- this is done to keep legacy key-values from breaking algorithm assumptions
Nick@80	641 print('assigned', table.concat(slotInfo.assignedKeys,', '))
Nick@80	642
Nick@80	643 if #slotInfo.assignedKeys == 0 then
Nick@80	644 print('updating assigned table to:', GetBindingKey(command))
Nick@80	645 slotInfo.assignedKeys = {GetBindingKey(command) }
Nick@80	646 end
Nick@80	647
Nick@80	648 self.assignedKeys = slotInfo.assignedKeys
Nenue@71	649
Nenue@70	650 local slotInfo = {
Nenue@70	651 command = command,
Nenue@70	652 actionName = name,
Nenue@70	653 iconPath = icon,
Nenue@70	654 actionID = actionID,
Nenue@70	655 actionType = actionType,
Nenue@70	656 macroName = macroName,
Nenue@70	657 macroText = macroText,
Nenue@70	658 spellbookSlot = pickupSlot,
Nenue@70	659 spellbookType = pickupBook,
Nenue@71	660 assignedKeys = slotInfo.assignedKeys,
Nenue@71	661 dynamicType = self.dynamicType,
Nenue@71	662 dynamicID = self.dynamicID,
Nenue@71	663 dynamicIndex = self.dynamicIndex,
Nenue@71	664 dynamicSubIndex = self.dynamicSubIndex
Nenue@70	665 }
Nenue@70	666 kb.currentProfile.buttons[slot] = slotInfo
Nenue@70	667
Nenue@70	668 -- Clean up conflicting entries for loaded button
Nenue@70	669 local previous = kb.currentProfile.commands[command]
Nenue@70	670 if previous ~= slot and kb.buttons[previous] then
Nenue@70	671 kb.ReleaseSlot(kb.buttons[previous])
Nenue@70	672 end
Nenue@70	673
Nenue@70	674 local binds = {GetBindingKey(command) }
Nenue@70	675 if self.isAvailable and (#binds >= 1) then
Nenue@70	676 local found
Nenue@70	677 for i, key in ipairs(binds) do
Nenue@70	678 if not tContains(self.assignedKeys, key) then
Nenue@70	679 tinsert(self.assignedKeys, key)
Nenue@70	680 kb.currentProfile.bindings[key] = command
Nenue@70	681 kb.currentProfile.bound[command] = true
Nenue@70	682 found = true
Nenue@70	683 end
Nenue@70	684 end
Nenue@70	685 if found then
Nenue@70	686 kb:print('Recovered key binding for', name)
Nenue@70	687 end
Nenue@70	688 end
Nenue@70	689
Nenue@70	690 kb.currentProfile.commands[command] = slot
Nenue@70	691 end
Nenue@70	692
Nenue@71	693 --self.assignedKeys = slotInfo.assignedKeys
Nenue@70	694 self.isBound = isBound
Nenue@70	695 self.pickupSlot = pickupSlot
Nenue@70	696 self.pickupBook = pickupBook
Nenue@70	697 self.macroText = macroText
Nenue@70	698 self.macroName = macroName
Nenue@70	699 self.actionType = actionType
Nenue@70	700 self.actionID = actionID
Nenue@70	701 self.actionName = name
Nenue@70	702 self.command = command
Nenue@70	703 self.iconPath = icon
Nenue@70	704 self.profile = kb.db.bindMode
Nenue@70	705 self:RegisterForDrag('LeftButton')
Nenue@74	706
Nenue@74	707 return slotInfo
Nenue@70	708 end
Nenue@70	709
Nenue@70	710 kb.GetCommandAction = function(command)
Nenue@70	711 for i, data in ipairs(kb.loadedProfiles) do
Nenue@70	712 if data.commands[command] then
Nenue@70	713 if data.buttons[data.commands[command]] then
Nenue@70	714 local _, _, _, actionType, actionID = unpack(data.buttons[data.commands[command]])
Nenue@70	715 return actionType, actionID
Nenue@70	716 end
Nenue@70	717 end
Nenue@70	718 end
Nenue@70	719 end
Nenue@70	720

Mercurial > wow > skeletonkey

annotate KeyButton.lua @ 88:283dacee2850 v8.0.1a