1
0
Fork 0
AllTheLittleThings/modules/macros.lua
2011-09-03 16:16:26 -04:00

215 lines
5.6 KiB
Lua

local core = LibStub("AceAddon-3.0"):GetAddon("AllTheLittleThings")
local mod = core:NewModule("Macros", "AceTimer-3.0", "AceEvent-3.0", "AceHook-3.0")
local db
local defaults = {
}
local options = {
}
function mod:OnInitialize()
-- self:RegisterOptions(options, defaults, function(d) db=d end)
self:RegisterSlashCommand("DisbandRaid", "dr", "disbandraid")
self:RegisterSlashCommand("InviteGuild", "ig", "inviteguild")
self:RegisterSlashCommand("PromoteAll", "pa", "promoteall")
self:RegisterSlashCommand("DemoteAll", "da", "demoteall")
self:RegisterSlashCommand("PrintLoot", "pl", "printloot")
self:RegisterSlashCommand("ClearMarks", "cm", "clearmarks")
self:RegisterSlashCommand("MasterLoot", "ml", "masterloot")
self:RegisterSlashCommand("RandomLoot", "rl", "randomloot")
self:RegisterSlashCommand("FlaskCheck", "fc", "flaskcheck")
self:RegisterSlashCommand("Countdown", "cd", "countdown")
self:RegisterSlashCommand("RosterCheck", "rc", "rostercheck")
self:RegisterSlashCommand("AuctionHouseBuyout", "ahbo")
self:RegisterSlashCommand("EJFix", "ej")
self:Hook("QueryAuctionItems", true)
-- Custom slash command for reloading: /rl
LibStub("AceConsole-3.0").RegisterChatCommand(self, "rl", function() ReloadUI() end)
end
function mod:DisbandRaid()
for i=1, GetNumRaidMembers() do
if not UnitIsUnit("raid"..i,"player") then
UninviteUnit("raid"..i)
end
end
end
function mod:InviteGuild()
for i=1, select(2, GetNumGuildMembers()) do
if not UnitInRaid(GetGuildRosterInfo(i)) then
InviteUnit(GetGuildRosterInfo(i))
end
end
end
function mod:PromoteAll()
for i=0, GetNumRaidMembers() do
PromoteToAssistant("raid"..i)
end
end
function mod:DemoteAll()
for i=0, GetNumRaidMembers() do
DemoteAssistant("raid"..i)
end
end
function mod:PrintLoot()
SendChatMessage("Send tells for loot:", "raid_warning")
for i=1,GetNumLootItems() do
SendChatMessage(GetLootSlotLink(i) .. " (" .. ({"A", "B", "C", "D", "E", "F", "G", "H"})[i] .. ")", "raid_warning")
end
end
function mod:ClearMarks()
for i=8,0,-1 do
SetRaidTarget("player", i)
end
self:ScheduleTimer(function() SetRaidTarget("player", 0) end, 0.5)
end
-- This used to be an order for shipping items off to DE, but now it is more a "loot all to self" macro
local mlOrder = {"Chira", UnitName("player")}
function mod:MasterLoot()
for k,v in ipairs(mlOrder) do
for i=1, 40 do
if GetMasterLootCandidate(i) == v then
for j=1, GetNumLootItems() do
GiveMasterLoot(j, i)
end
return
end
end
end
end
function mod:RandomLoot()
local members = {}
for i=1,40 do
if GetMasterLootCandidate(i) then
table.insert(members, i);
end
end
for j=1, GetNumLootItems() do
GiveMasterLoot(j, members[random(#members)])
end
end
function mod:FlaskCheck()
local now = GetTime()
for i=1,GetNumRaidMembers() do
for j=1,32 do
local player = UnitName("raid"..i)
name, _, _, _, _, _, expires = UnitAura("raid"..i, j)
if name and name:find("Flask ") then
local time = expires - now
if time<990 and time>0 then
SendChatMessage(format("%s %d:%02d", player, floor(time/60), time%60), "raid")
-- SendChatMessage(format("Flask ending in %d:%02d", UnitName(r), floor(time/60), time%60), "whipser", nil, player)
end
end
end
end
end
local countDown = {"Pulling in 5", "4", "3", "2", "1", "Go"} -- used in /atlt cd
function mod:Countdown()
for i=5,0,-1 do
self:ScheduleTimer(function()
local msg = countDown[6-i];
--[[if (msg == "Go") then
local transitive = TRANSITIVES[math.random(#TRANSITIVES)];
msg = format("%s babies", transitive)
end]]
SendChatMessage(msg, "RAID_WARNING");
end, 5-i);
end
end
-- TODO: make a global alt_ranks and main_ranks thing in case we change it
local altRanks = {
[2] = true,
[4] = true,
}
function mod:RosterCheck()
local mains = {}
local alts = {}
for i=1,GetNumGuildMembers() do
local name, _, rank, _, _, _, onote = GetGuildRosterInfo(i)
if altRanks[rank] then
alts[name] = onote
else
mains[name] = true
end
end
local toPrint = {}
for name,main in pairs(alts) do
if mains[main] then
alts[name] = nil
else
table.insert(toPrint, name)
table.sort(toPrint, function(a,b) return alts[a]<alts[b] end)
end
end
for _,name in ipairs(toPrint) do
self:Print("Mismatched Alt:", name, "belongs to", alts[name], format("|cffffa0a0|Hgremove:%s|h[Guild Remove]|h", name))
end
end
-- mismatched alts itemlink
local SetItemRefHook = SetItemRef
function SetItemRef(id, ...)
local target = id:match("gremove:(.+)")
if target then
GuildUninvite(target)
else
return SetItemRefHook(id, ...)
end
end
-- mass buyout
local bought = {}
function mod:AuctionHouseBuyout()
local selected = GetSelectedAuctionItem("list")
if selected>0 then
local name,_,count,_,_,_,_,_,price = GetAuctionItemInfo("list", selected)
for j=50,1,-1 do
if not bought[j] and selected ~= j then
local t_name,_,t_count,_,_,_,_,_,t_price = GetAuctionItemInfo("list", j)
-- must be same item name and equal or less price per unit
if (t_name == name) and (t_price>0) and (t_price/t_count <= price/count) then
--self:Print("Buying",j,"at",t_price)
PlaceAuctionBid("list", j, t_price)
bought[j] = true
return
end
end
end
-- no purchase made, buy selected
PlaceAuctionBid("list", selected, price)
SetSelectedAuctionItem("list", 0);
self:Print("All auctions bought.")
wipe(bought)
end
end
function mod:QueryAuctionItems()
wipe(bought)
end
-- Encounter Journal
function mod:EJFix()
for i=1,100 do
local b = _G["EncounterJournalInfoHeader"..i]
if b then
b:SetFrameLevel(b:GetParent():GetFrameLevel()+10)
else
break
end
end
end