gramps/wyntrwear
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
Files
main
wyntrwear/WyntrWear.lua

251 lines
10 KiB
Lua
Raw Permalink Blame History

function WyntrWear_OnLoad(frame)
SlashCmdList["WYNTRWEAR"] = WyntrWear_CmdHandler;
SLASH_WYNTRWEAR1 = "/wyntrwear";
SLASH_WYNTRWEAR2 = "/ww";
NEUTRAL_MIN = 0;
NEUTRAL_MAX = 3000;
FRIENDLY_MIN = 3001;
FRIENDLY_MAX = 9000;
HONORED_MIN = 9001;
HONORED_MAX = 21000;
REVERED_MIN = 21001;
REVERED_MAX = 42000;
EXALTED_MIN = 42001;
EXALTED_MAX = 43000;
HORDE_EXPEDITION = "Horde Expedition";
startRep = nil;
totalEarned = nil;
oldTabard = nil;
atExalted = false;
wrathNames = {"Argent Crusade", "Knights of the Ebon Blade", "Kirin Tor", "The Wyrmrest Accord", "Horde Expedition"};
if (IsEquippedItemType("Tabard")) then
tabardName = GetInventoryItemLink("player", GetInventorySlotInfo("TabardSlot"));
else
tabardName = HORDE_EXPEDITION;
end
oldTabard = tabardName;
startRep = getRepData(tabardName, false);
frame:Hide();
frame:RegisterForDrag("leftButton");
frame:RegisterEvent("ADDON_LOADED");
frame:RegisterEvent("PLAYER_ENTERING_WORLD");
frame:RegisterEvent("UNIT_INVENTORY_CHANGED");
DEFAULT_CHAT_FRAME:AddMessage("WyntrWear: wyntrwear loaded...");
end
function processTabardName(tabardName)
local found, _, itemString = string.find(tabardName, "^|c%x+|H(.+)|h%[.*%]");
if (found) then
local linkType, itemID = strsplit(":", itemString);
local itemName = GetItemInfo(itemID);
itemName = string.gsub(itemName, "Tabard", "");
itemName = string.gsub(itemName, "of", "");
itemName = string.gsub(itemName, "the", "");
itemName = string.gsub(itemName, "^%s*(.-)%s*$", "%1"); -- trim()
itemName = string.gsub(itemName, " ", " "); -- eliminate x2 spaces
return itemName;
else
return tabardName;
end
end
function getRepData(tabardName, printRep)
local itemName = tabardName;
local factionIndex = 1;
local lastFactionName = nil;
local repString;
local basePoints;
local demoninator;
local repLevel;
local foundName = false;
local oldTabardIsWrath = false;
local factionColor;
local colorTemplate = "|cff%02x%02x%02x";
local r, g, b;
if (printRep == nil) then printRep = true; end
--DEFAULT_CHAT_FRAME:AddMessage("WWDB: getRepData(" .. tabardName .. ")");
if (tabardName ~= HORDE_EXPEDITION) then
itemName = processTabardName(tabardName);
end
if (oldTabard ~= HORDE_EXPEDITION) then
oldTabard = processTabardName(oldTabard);
end
--DEFAULT_CHAT_FRAME:AddMessage("WWDB: Processed itemName = " .. itemName);
repeat
local name, description, standingId, bottomValue, topValue, earnedValue, atWarWith,
canToggleAtWar, isHeader, isCollapsed, hasRep, isWatched, isChild = GetFactionInfo(factionIndex);
if (name == lastFactionName) then
break;
elseif (name == nil) then
break;
else
lastFactionName = name;
for i = 1, #wrathNames do
if (name == wrathNames[i]) then
foundName = true; -- is this a wotlk faction name?
end
oVal = string.find(wrathNames[i], oldTabard);
if (oVal ~= nil) then
oldTabardIsWrath = true;
end
end
oVal = string.find(name, oldTabard);
if (oVal ~= nil and startRep ~= nil and oldTabardIsWrath) then
totalEarned = earnedValue - startRep;
if (totalEarned ~= nil and totalEarned > 0) then
DEFAULT_CHAT_FRAME:AddMessage("WyntrWear: You earned " .. totalEarned .. " reputation with " .. oldTabard ..".");
end
--DEFAULT_CHAT_FRAME:AddMessage("WWDB: start rep: " .. startRep ..", earnedValue: " .. earnedValue);
else
totalEarned = 0;
end
if (itemName ~= nil and name ~= nil) then
tVal = string.find(name, itemName);
if (tVal ~= nil and foundName) then
--DEFAULT_CHAT_FRAME:AddMessage("earnedValue = " .. earnedValue);
if (earnedValue > EXALTED_MIN) then
repLevel = "exalted";
atExalted = true;
basePoints = earnedValue - REVERED_MAX;
denominator = EXALTED_MAX - EXALTED_MIN;
r = 0.6;
g = 0.2;
b = 0.8;
elseif (earnedValue > REVERED_MIN) then
repLevel = "revered";
basePoints = earnedValue - HONORED_MAX;
denominator = REVERED_MAX - REVERED_MIN;
r = 0.25;
g = 0.4;
b = 0.9;
elseif (earnedValue > HONORED_MIN) then
repLevel = "honored";
basePoints = earnedValue - FRIENDLY_MAX;
denominator = HONORED_MAX - HONORED_MIN
r = 0;
g = 1;
b = 0;
elseif (earnedValue > FRIENDLY_MIN) then
repLevel = "friendly";
basePoints = earnedValue - NEUTRAL_MAX;
denominator = FRIENDLY_MAX - FRIENDLY_MIN;
r = 1;
g = 1;
b = 1;
elseif (earnedValue > NEUTRAL_MIN) then
repLevel = "neutral";
basePoints = earnedValue;
denominator = topvalue;
r = 0.75;
g = 0.75;
b = 0.75;
else
repLevel = "bad";
end
if (repLevel ~= "bad") then
if (printRep) then
repString = string.format("%.2f", tostring((basePoints/denominator)*100));
colorString = format(colorTemplate, r * 255, g * 255, b * 255);
DEFAULT_CHAT_FRAME:AddMessage("WyntrWear: Currently at " .. repString .. "% of " .. colorString .. repLevel .. "|r reputation with " .. name .. ".");
end
return earnedValue, totalEarned;
end
end
else
return; -- error trap: for some reason itemName got zapped to nil...fuggit - return
end
end
factionIndex = factionIndex + 1;
until (factionIndex > 200)
end
function checkRep()
if (startRep == nil) then
startRep = getRepData(tabardName, true);
oldTabard = tabardName;
else
startRep = getRepData(tabardName, true);
oldTabard = tabardName;
end
end
function WyntrWear_OnEvent(frame, event, ...)
if (event == "PLAYER_ENTERING_WORLD") then
if ((UnitLevel("player") > 79) and not wynWearLoad) then
inInstance, instanceType = IsInInstance();
if (instanceType == "party") then
if (not IsEquippedItemType("Tabard")) then
frame:Show();
else -- check to see which tabard is being worn and if it generates rep
tabardName = GetInventoryItemLink("player", GetInventorySlotInfo("TabardSlot"));
local found, _, itemString = string.find(tabardName, "^|c%x+|H(.+)|h%[.*%]");
tabardFaction = strsub(itemString, 15);
end
end
end
if (IsEquippedItemType("Tabard")) then
tabardName = GetInventoryItemLink("player", GetInventorySlotInfo("TabardSlot"));
DEFAULT_CHAT_FRAME:AddMessage("WyntrWear: Wearing: " .. tabardName .. ".");
if (atExalted) then
DEFAULT_CHAT_FRAME:AddMessage("|cffff0000WyntrWear: You are at exalted with this faction and should consider using a different tabard.");
end
else
tabardName = HORDE_EXPEDITION;
DEFAULT_CHAT_FRAME:AddMessage("WyntrWear: Not wearing a tabard.");
end
elseif (event == "ADDON_LOADED") then
if (wynWearLoad == nil) then
wynWearLoad = false;
end
elseif (event == "UNIT_INVENTORY_CHANGED") then
local repEarnedThisTabard = 0;
local newTabard = GetInventoryItemLink("player", GetInventorySlotInfo("TabardSlot"));
if (newTabard ~= tabardName) then -- if this evaluates true - the tabard change triggered the event
atExalted = false;
if (IsEquippedItemType("Tabard")) then
tabardName = newTabard;
DEFAULT_CHAT_FRAME:AddMessage("WyntrWear: Tabard equipped: " .. tabardName);
checkRep();
elseif (UnitLevel("player") > 67 and oldTabard ~= HORDE_EXPEDITION) then
DEFAULT_CHAT_FRAME:AddMessage("WyntrWear: Tabard unequipped.");
tabardName = HORDE_EXPEDITION;
checkRep();
end
end
end
end
function wynCheckBoxFunction()
wynWearLoad = wynCheckBox1:GetChecked();
end
function WyntrWear_CmdHandler(str)
frame = getglobal("wynFrame1");
if (frame) then
if (frame:IsVisible()) then
frame:Hide();
end
end
if (str == "status") then
if (IsEquippedItemType("Tabard")) then
tabardName = GetInventoryItemLink("player", GetInventorySlotInfo("TabardSlot"));
DEFAULT_CHAT_FRAME:AddMessage("WyntrWear: You are wearing " .. tabardName .. ".");
getRepData(tabardName, true);
else
if (UnitLevel("player") > 67) then
DEFAULT_CHAT_FRAME:AddMessage("WyntrWear: You are not wearing a tabard.");
getRepData(HORDE_EXPEDITION, true);
end
end
elseif (str == "check") then
DEFAULT_CHAT_FRAME:AddMessage("WyntrWear check forced for next time you enter an instance.");
wynWearLoad = false;
else
DEFAULT_CHAT_FRAME:AddMessage("WyntrWear: Usage: /{ww}|{wyntrwear} {status}|{check}\nstatus: tells if you are currently wearing a tabard.\ncheck - forces check to be performed upon entering instance.");
end
end
Reference in New Issue View Git Blame Copy Permalink