CiscOH
/
Bastion
forked from Bastion/Bastion
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

11.0

Browse Source 
11.0
pull/1/head
4n0n 6 months ago
parent f9583a85d8
commit 86e7aeccec
1 changed files with 302 additions and 287 deletions
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Show Stats Download Patch File Download Diff File
  1. 589
      src/_bastion.lua

589
src/_bastion.lua
Unescape View File

@ -1,9 +1,9 @@
local Tinkr = ... local Tinkr = ...
local Evaulator = Tinkr.Evaluator
---@class Bastion ---@class Bastion
local Bastion = { local Bastion = {DebugMode = false}
DebugMode = false
}
Bastion.__index = Bastion Bastion.__index = Bastion
function Bastion:Require(file) function Bastion:Require(file)
@ -50,348 +50,363 @@ function Bastion.require(class)
return Bastion:Require("~/src/" .. class .. "/" .. class) return Bastion:Require("~/src/" .. class .. "/" .. class)
end end
Bastion.Globals = {} -- fenv for all required files
function Bastion.Bootstrap()
---@type ClassMagic
Bastion.ClassMagic = Bastion.require("ClassMagic") Bastion.Globals = {}
---@type List
Bastion.List = Bastion.require("List") ---@type ClassMagic
---@type Library Bastion.ClassMagic = Bastion.require("ClassMagic")
Bastion.Library = Bastion.require("Library") ---@type List
---@type NotificationsList, Notification Bastion.List = Bastion.require("List")
Bastion.NotificationsList, Bastion.Notification = Bastion.require("NotificationsList") ---@type Library
---@type Vector3 Bastion.Library = Bastion.require("Library")
Bastion.Vector3 = Bastion.require("Vector3") ---@type NotificationsList, Notification
---@type Sequencer Bastion.NotificationsList, Bastion.Notification = Bastion.require(
Bastion.Sequencer = Bastion.require("Sequencer") "NotificationsList")
---@type Command ---@type Vector3
Bastion.Command = Bastion.require("Command") Bastion.Vector3 = Bastion.require("Vector3")
---@type Cache ---@type Sequencer
Bastion.Cache = Bastion.require("Cache") Bastion.Sequencer = Bastion.require("Sequencer")
---@type Cacheable ---@type Command
Bastion.Cacheable = Bastion.require("Cacheable") Bastion.Command = Bastion.require("Command")
---@type Refreshable ---@type Cache
Bastion.Refreshable = Bastion.require("Refreshable") Bastion.Cache = Bastion.require("Cache")
---@type Unit ---@type Cacheable
Bastion.Unit = Bastion.require("Unit") Bastion.Cacheable = Bastion.require("Cacheable")
---@type Aura ---@type Refreshable
Bastion.Aura = Bastion.require("Aura") Bastion.Refreshable = Bastion.require("Refreshable")
---@type APL, APLActor, APLTrait ---@type Unit
Bastion.APL, Bastion.APLActor, Bastion.APLTrait = Bastion.require("APL") Bastion.Unit = Bastion.require("Unit")
---@type Module ---@type Aura
Bastion.Module = Bastion.require("Module") Bastion.Aura = Bastion.require("Aura")
---@type UnitManager ---@type APL, APLActor, APLTrait
Bastion.UnitManager = Bastion.require("UnitManager"):New() Bastion.APL, Bastion.APLActor, Bastion.APLTrait = Bastion.require("APL")
---@type ObjectManager ---@type Module
Bastion.ObjectManager = Bastion.require("ObjectManager"):New() Bastion.Module = Bastion.require("Module")
---@type EventManager ---@type UnitManager
Bastion.EventManager = Bastion.require("EventManager") Bastion.UnitManager = Bastion.require("UnitManager"):New()
Bastion.Globals.EventManager = Bastion.EventManager:New() ---@type ObjectManager
---@type Spell Bastion.ObjectManager = Bastion.require("ObjectManager"):New()
Bastion.Spell = Bastion.require("Spell") ---@type EventManager
---@type SpellBook Bastion.EventManager = Bastion.require("EventManager")
Bastion.SpellBook = Bastion.require("SpellBook") Bastion.Globals.EventManager = Bastion.EventManager:New()
Bastion.Globals.SpellBook = Bastion.SpellBook:New() ---@type Spell
---@type Item Bastion.Spell = Bastion.require("Spell")
Bastion.Item = Bastion.require("Item") ---@type SpellBook
---@type ItemBook Bastion.SpellBook = Bastion.require("SpellBook")
Bastion.ItemBook = Bastion.require("ItemBook") Bastion.Globals.SpellBook = Bastion.SpellBook:New()
Bastion.Globals.ItemBook = Bastion.ItemBook:New() ---@type Item
---@type AuraTable Bastion.Item = Bastion.require("Item")
Bastion.AuraTable = Bastion.require("AuraTable") ---@type ItemBook
---@type Class Bastion.ItemBook = Bastion.require("ItemBook")
Bastion.Class = Bastion.require("Class") Bastion.Globals.ItemBook = Bastion.ItemBook:New()
---@type Timer ---@type AuraTable
Bastion.Timer = Bastion.require("Timer") Bastion.AuraTable = Bastion.require("AuraTable")
---@type Timer ---@type Class
Bastion.CombatTimer = Bastion.Timer:New('combat') Bastion.Class = Bastion.require("Class")
---@type MythicPlusUtils ---@type Timer
Bastion.MythicPlusUtils = Bastion.require("MythicPlusUtils"):New() Bastion.Timer = Bastion.require("Timer")
---@type NotificationsList ---@type Timer
Bastion.Notifications = Bastion.NotificationsList:New() Bastion.CombatTimer = Bastion.Timer:New('combat')
---@type MythicPlusUtils
local LIBRARIES = {} Bastion.MythicPlusUtils = Bastion.require("MythicPlusUtils"):New()
local MODULES = {} ---@type NotificationsList
Bastion.Notifications = Bastion.NotificationsList:New()
Bastion.Enabled = false
local LIBRARIES = {}
Bastion.Globals.EventManager:RegisterWoWEvent('UNIT_AURA', function(unit, auras) local MODULES = {}
local u = Bastion.UnitManager[unit]
Bastion.Enabled = false
if u then
u:GetAuras():OnUpdate(auras) Bastion.Globals.EventManager:RegisterWoWEvent('UNIT_AURA',
end function(unit, auras)
end) local u = Bastion.UnitManager[unit]
Bastion.Globals.EventManager:RegisterWoWEvent("UNIT_SPELLCAST_SUCCEEDED", function(...) if u then u:GetAuras():OnUpdate(auras) end
local unit, castGUID, spellID = ... end)
local spell = Bastion.Globals.SpellBook:GetIfRegistered(spellID) Bastion.Globals.EventManager:RegisterWoWEvent("UNIT_SPELLCAST_SUCCEEDED",
function(...)
if unit == "player" and spell then local unit, castGUID, spellID = ...
spell.lastCastAt = GetTime()
local spell = Bastion.Globals.SpellBook:GetIfRegistered(spellID)
if spell:GetPostCastFunction() then
spell:GetPostCastFunction()(spell) if unit == "player" and spell then
spell.lastCastAt = GetTime()
if spell:GetPostCastFunction() then
spell:GetPostCastFunction()(spell)
end
end end
end end)
end)
local pguid = UnitGUID("player") local pguid = UnitGUID("player")
local missed = {} local missed = {}
Bastion.Globals.EventManager:RegisterWoWEvent("COMBAT_LOG_EVENT_UNFILTERED", function() Bastion.Globals.EventManager:RegisterWoWEvent("COMBAT_LOG_EVENT_UNFILTERED",
local args = {CombatLogGetCurrentEventInfo()} function()
local args = {CombatLogGetCurrentEventInfo()}
local subEvent = args[2] local subEvent = args[2]
local sourceGUID = args[4] local sourceGUID = args[4]
local destGUID = args[8] local destGUID = args[8]
local spellID = args[12] local spellID = args[12]
-- if sourceGUID == pguid then -- if sourceGUID == pguid then
-- local args = { CombatLogGetCurrentEventInfo() } -- local args = { CombatLogGetCurrentEventInfo() }
-- for i = 1, #args do -- for i = 1, #args do
-- Log(tostring(args[i])) -- Log(tostring(args[i]))
-- end -- end
-- end -- end
local u = Bastion.UnitManager[sourceGUID] local u = Bastion.UnitManager[sourceGUID]
local u2 = Bastion.UnitManager[destGUID] local u2 = Bastion.UnitManager[destGUID]
local t = GetTime() local t = GetTime()
if u then if u then u:SetLastCombatTime(t) end
u:SetLastCombatTime(t)
end
if u2 then if u2 then
u2:SetLastCombatTime(t) u2:SetLastCombatTime(t)
if subEvent == "SPELL_MISSED" and sourceGUID == pguid and spellID == 408 then if subEvent == "SPELL_MISSED" and sourceGUID == pguid and spellID ==
local missType = args[15] 408 then
local missType = args[15]
if missType == "IMMUNE" then if missType == "IMMUNE" then
local castingSpell = u:GetCastingOrChannelingSpell() local castingSpell = u:GetCastingOrChannelingSpell()
if castingSpell then if castingSpell then
if not missed[castingSpell:GetID()] then if not missed[castingSpell:GetID()] then
missed[castingSpell:GetID()] = true missed[castingSpell:GetID()] = true
end
end end
end end
end end
end end
end end)
end)
Bastion.Ticker = C_Timer.NewTicker(0.1, function()
if not Bastion.CombatTimer:IsRunning() and UnitAffectingCombat("player") then
Bastion.CombatTimer:Start()
elseif Bastion.CombatTimer:IsRunning() and
not UnitAffectingCombat("player") then
Bastion.CombatTimer:Reset()
end
Bastion.Ticker = C_Timer.NewTicker(0.1, function() if Bastion.Enabled then
if not Bastion.CombatTimer:IsRunning() and UnitAffectingCombat("player") then Bastion.ObjectManager:Refresh()
Bastion.CombatTimer:Start() for i = 1, #MODULES do MODULES[i]:Tick() end
elseif Bastion.CombatTimer:IsRunning() and not UnitAffectingCombat("player") then end
Bastion.CombatTimer:Reset() end)
function Bastion:Register(module)
table.insert(MODULES, module)
Bastion:Print("Registered", module)
end end
if Bastion.Enabled then -- Find a module by name
Bastion.ObjectManager:Refresh() function Bastion:FindModule(name)
for i = 1, #MODULES do for i = 1, #MODULES do
MODULES[i]:Tick() if MODULES[i].name == name then return MODULES[i] end
end end
end
end)
function Bastion:Register(module)
table.insert(MODULES, module)
Bastion:Print("Registered", module)
end
-- Find a module by name return nil
function Bastion:FindModule(name)
for i = 1, #MODULES do
if MODULES[i].name == name then
return MODULES[i]
end
end end
return nil function Bastion:Print(...)
end local args = {...}
local str = "|cFFDF362D[Bastion]|r |cFFFFFFFF"
function Bastion:Print(...) for i = 1, #args do str = str .. tostring(args[i]) .. " " end
local args = {...} print(str)
local str = "|cFFDF362D[Bastion]|r |cFFFFFFFF"
for i = 1, #args do
str = str .. tostring(args[i]) .. " "
end end
print(str)
end
function Bastion:Debug(...) function Bastion:Debug(...)
if not Bastion.DebugMode then if not Bastion.DebugMode then return end
return local args = {...}
end local str = "|cFFDF6520[Bastion]|r |cFFFFFFFF"
local args = {...} for i = 1, #args do str = str .. tostring(args[i]) .. " " end
local str = "|cFFDF6520[Bastion]|r |cFFFFFFFF" print(str)
for i = 1, #args do
str = str .. tostring(args[i]) .. " "
end end
print(str)
end
local Command = Bastion.Command:New('bastion') local Command = Bastion.Command:New('bastion')
Command:Register('toggle', 'Toggle bastion on/off', function() Command:Register('toggle', 'Toggle bastion on/off', function()
Bastion.Enabled = not Bastion.Enabled Bastion.Enabled = not Bastion.Enabled
if Bastion.Enabled then if Bastion.Enabled then
Bastion:Print("Enabled") Bastion:Print("Enabled")
else else
Bastion:Print("Disabled") Bastion:Print("Disabled")
end end
end) end)
Command:Register('debug', 'Toggle debug mode on/off', function() Command:Register('debug', 'Toggle debug mode on/off', function()
Bastion.DebugMode = not Bastion.DebugMode Bastion.DebugMode = not Bastion.DebugMode
if Bastion.DebugMode then if Bastion.DebugMode then
Bastion:Print("Debug mode enabled") Bastion:Print("Debug mode enabled")
else else
Bastion:Print("Debug mode disabled") Bastion:Print("Debug mode disabled")
end
end)
Command:Register('dumpspells', 'Dump spells to a file', function()
local i = 1
local rand = math.random(100000, 999999)
while true do
local spellName, spellSubName = GetSpellBookItemName(i, BOOKTYPE_SPELL)
if not spellName then
do
break
end
end end
end)
Command:Register('dumpspells', 'Dump spells to a file', function()
local i = 1
local rand = math.random(100000, 999999)
local BOOKTYPE_SPELL = BOOKTYPE_SPELL or (Enum.SpellBookSpellBank.Player and Enum.SpellBookSpellBank.Player or 'spell')
while true do
local spellName, spellSubName
if C_SpellBook.GetSpellBookItemName then
spellName, spellSubName = C_SpellBook.GetSpellBookItemName(i, BOOKTYPE_SPELL)
else
spellName, spellSubName = GetSpellBookItemName(i, BOOKTYPE_SPELL)
end
if not spellName then do break end end
-- use spellName and spellSubName here -- use spellName and spellSubName here
local spellID = select(7, GetSpellInfo(spellName)) local spellID
if spellID then if C_Spell.GetSpellInfo then
spellName = spellName:gsub("[%W%s]", "") local info = C_Spell.GetSpellInfo(spellName)
WriteFile('bastion-' .. UnitClass('player') .. '-' .. rand .. '.lua', spellID = info.spellID
"local " .. spellName .. " = Bastion.Globals.SpellBook:GetSpell(" .. spellID .. ")\n", true) else
spellID = select(7, GetSpellInfo(spellName))
end
if spellID then
spellName = spellName:gsub("[%W%s]", "")
WriteFile('bastion-' .. UnitClass('player') .. '-' .. rand ..
'.lua',
"local " .. spellName ..
" = Bastion.Globals.SpellBook:GetSpell(" ..
spellID .. ")\n", true)
end
i = i + 1
end end
i = i + 1 end)
end
end) Command:Register('module', 'Toggle a module on/off', function(args)
local module = Bastion:FindModule(args[2])
Command:Register('module', 'Toggle a module on/off', function(args) if module then
local module = Bastion:FindModule(args[2]) module:Toggle()
if module then if module.enabled then
module:Toggle() Bastion:Print("Enabled", module.name)
if module.enabled then else
Bastion:Print("Enabled", module.name) Bastion:Print("Disabled", module.name)
end
else else
Bastion:Print("Disabled", module.name) Bastion:Print("Module not found")
end
end)
Command:Register('mplus', 'Toggle m+ module on/off', function(args)
local cmd = args[2]
if cmd == 'debuffs' then
Bastion.MythicPlusUtils:ToggleDebuffLogging()
Bastion:Print("Debuff logging", Bastion.MythicPlusUtils
.debuffLogging and "enabled" or "disabled")
return
end end
else
Bastion:Print("Module not found")
end
end)
Command:Register('mplus', 'Toggle m+ module on/off', function(args)
local cmd = args[2]
if cmd == 'debuffs' then
Bastion.MythicPlusUtils:ToggleDebuffLogging()
Bastion:Print("Debuff logging", Bastion.MythicPlusUtils.debuffLogging and "enabled" or "disabled")
return
end
if cmd == 'casts' then if cmd == 'casts' then
Bastion.MythicPlusUtils:ToggleCastLogging() Bastion.MythicPlusUtils:ToggleCastLogging()
Bastion:Print("Cast logging", Bastion.MythicPlusUtils.castLogging and "enabled" or "disabled") Bastion:Print("Cast logging",
return Bastion.MythicPlusUtils.castLogging and "enabled" or
end "disabled")
return
end
Bastion:Print("[MythicPlusUtils] Unknown command") Bastion:Print("[MythicPlusUtils] Unknown command")
Bastion:Print("Available commands:") Bastion:Print("Available commands:")
Bastion:Print("debuffs") Bastion:Print("debuffs")
Bastion:Print("casts") Bastion:Print("casts")
end) end)
Command:Register('missed', 'Dump the list of immune kidney shot spells', function() Command:Register('missed', 'Dump the list of immune kidney shot spells',
for k, v in pairs(missed) do function()
Bastion:Print(k) for k, v in pairs(missed) do Bastion:Print(k) end
end end)
end)
---@param library Library ---@param library Library
function Bastion:RegisterLibrary(library) function Bastion:RegisterLibrary(library)
LIBRARIES[library.name] = library LIBRARIES[library.name] = library
end end
function Bastion:CheckLibraryDependencies() function Bastion:CheckLibraryDependencies()
for k, v in pairs(LIBRARIES) do for k, v in pairs(LIBRARIES) do
if v.dependencies then if v.dependencies then
for i = 1, #v.dependencies do for i = 1, #v.dependencies do
local dep = v.dependencies[i] local dep = v.dependencies[i]
if LIBRARIES[dep] then if LIBRARIES[dep] then
if LIBRARIES[dep].dependencies then if LIBRARIES[dep].dependencies then
for j = 1, #LIBRARIES[dep].dependencies do for j = 1, #LIBRARIES[dep].dependencies do
if LIBRARIES[dep].dependencies[j] == v.name then if LIBRARIES[dep].dependencies[j] == v.name then
Bastion:Print("Circular dependency detected between " .. v.name .. " and " .. dep) Bastion:Print(
return false "Circular dependency detected between " ..
v.name .. " and " .. dep)
return false
end
end end
end end
else
Bastion:Print("Library " .. v.name .. " depends on " ..
dep .. " but it's not registered")
return false
end end
else
Bastion:Print("Library " .. v.name .. " depends on " .. dep .. " but it's not registered")
return false
end end
end end
end end
return true
end end
return true function Bastion:Import(library)
end local lib = self:GetLibrary(library)
function Bastion:Import(library) if not lib then error("Library " .. library .. " not found") end
local lib = self:GetLibrary(library)
if not lib then return lib:Resolve()
error("Library " .. library .. " not found")
end end
return lib:Resolve() function Bastion:GetLibrary(name)
end if not LIBRARIES[name] then
error("Library " .. name .. " not found")
end
function Bastion:GetLibrary(name) local library = LIBRARIES[name]
if not LIBRARIES[name] then
error("Library " .. name .. " not found") -- if library.dependencies then
-- for i = 1, #library.dependencies do
-- local dep = library.dependencies[i]
-- if LIBRARIES[dep] then
-- if LIBRARIES[dep].dependencies then
-- for j = 1, #LIBRARIES[dep].dependencies do
-- if LIBRARIES[dep].dependencies[j] == library.name then
-- Bastion:Print("Circular dependency detected between " .. library.name .. " and " .. dep)
-- return false
-- end
-- end
-- end
-- else
-- Bastion:Print("Library " .. v.name .. " depends on " .. dep .. " but it's not registered")
-- return false
-- end
-- end
-- end
return library
end end
local library = LIBRARIES[name] -- if not Bastion:CheckLibraryDependencies() then
-- return
-- if library.dependencies then
-- for i = 1, #library.dependencies do
-- local dep = library.dependencies[i]
-- if LIBRARIES[dep] then
-- if LIBRARIES[dep].dependencies then
-- for j = 1, #LIBRARIES[dep].dependencies do
-- if LIBRARIES[dep].dependencies[j] == library.name then
-- Bastion:Print("Circular dependency detected between " .. library.name .. " and " .. dep)
-- return false
-- end
-- end
-- end
-- else
-- Bastion:Print("Library " .. v.name .. " depends on " .. dep .. " but it's not registered")
-- return false
-- end
-- end
-- end -- end
return library Load("@Libraries/")
Load("@Modules/")
Load("@")
end end
-- if not Bastion:CheckLibraryDependencies() then Bastion.Bootstrap()
-- return
-- end
Load("@Libraries/")
Load("@Modules/")
Load("@")

Write Preview
Loading…
Cancel
Save