@ -1,64 +1,20 @@
local TSM = select ( 2 , ... )
local L = LibStub ( " AceLocale-3.0 " ) : GetLocale ( " TradeSkillMaster_Shopping " ) -- loads the localization table
local private = { itemOperations = { } , purchasedCounts = { } , itemQuantities = { } , operationSettings = { } , itemOperationSettings = { } , itemOperationMaxPrices = { } }
local function GetCachedItemQuantity ( itemString )
local quantity = private.itemQuantities [ itemString ]
if quantity == nil then
local totalQty = TSM : GetTotalQuantity ( itemString ) or 0
totalQty = totalQty + ( private.purchasedCounts [ itemString ] or 0 )
private.itemQuantities [ itemString ] = totalQty
quantity = totalQty
end
return quantity
end
local function GetOperationSettings ( opName )
local settings = private.operationSettings [ opName ]
if settings == nil then
TSMAPI : UpdateOperation ( " Shopping " , opName )
settings = TSM.operations [ opName ]
private.operationSettings [ opName ] = settings or false
end
return settings ~= false and settings or nil
end
local function GetOperationMaxPrice ( itemString , opName , opSettings )
private.itemOperationMaxPrices [ itemString ] = private.itemOperationMaxPrices [ itemString ] or { }
local cached = private.itemOperationMaxPrices [ itemString ] [ opName ]
if cached ~= nil then
return cached ~= false and cached or nil
end
local operationPrice = TSM : GetMaxPrice ( opSettings.maxPrice , itemString )
private.itemOperationMaxPrices [ itemString ] [ opName ] = operationPrice or false
return operationPrice
end
local function GetItemOperationSettings ( itemString , operations )
local settingsList = private.itemOperationSettings [ itemString ]
if settingsList then return settingsList end
settingsList = { }
for _ , opName in ipairs ( operations or { } ) do
local opSettings = GetOperationSettings ( opName )
if opSettings then
tinsert ( settingsList , { name = opName , settings = opSettings } )
end
end
private.itemOperationSettings [ itemString ] = settingsList
return settingsList
end
local private = { itemOperations = { } , purchasedCounts = { } }
local function GetActiveOperations ( itemString , operations )
if not operations or # operations == 0 then return end
local totalQty = GetCachedItemQuantity ( itemString )
local totalQty = TSM : GetTotalQuantity ( itemString ) or 0
totalQty = totalQty + ( private.purchasedCounts [ itemString ] or 0 )
local active = { }
for _ , opEntry in ipairs ( GetItemOperationSettings ( itemString , operations ) ) do
local opSettings = opEntry.settings
for _ , opName in ipairs ( operations ) do
TSMAPI : UpdateOperation ( " Shopping " , opName )
local opSettings = TSM.operations [ opName ]
if opSettings then
local maxRestock = tonumber ( opSettings.maxRestock ) or 0
if maxRestock <= 0 or totalQty < maxRestock then
tinsert ( active , opEntry )
tinsert ( active , opSettings )
end
end
end
@ -104,13 +60,12 @@ function private.ScanCallback(event, ...)
local operations = GetActiveOperations ( itemString , private.itemOperations [ itemString ] )
if not operations or # operations == 0 then return end
local itemMaxPrice
for _ , opEntry in ipairs ( operations ) do
local opSettings = opEntry.settings
if opSettings.showAboveMaxPrice then
for _ , operation in ipairs ( operations ) do
if operation.showAboveMaxPrice then
itemMaxPrice = nil
break
end
local operationPrice = GetOperationMaxPrice ( itemString , opEntry.name , opSettings )
local operationPrice = TSM : GetMaxPrice ( operation.maxPrice , itemString )
if operationPrice then
itemMaxPrice = itemMaxPrice and max ( itemMaxPrice , operationPrice ) or operationPrice
end
@ -129,20 +84,20 @@ function private.ScanCallback(event, ...)
itemString = TSMAPI : GetBaseItemString ( itemString , true )
local operations = GetActiveOperations ( itemString , private.itemOperations [ itemString ] )
if not operations or # operations == 0 then return end
local totalQty = GetCachedItemQuantity ( itemString )
auctionItem : FilterRecords ( function ( record )
local buyout = record : GetItemBuyout ( ) or 0
for _ , opEntry in ipairs ( operations ) do
local opSettings = opEntry.settings
local maxRestock = tonumber ( opSettings.maxRestock ) or 0
local totalQty = TSM : GetTotalQuantity ( itemString ) or 0
totalQty = totalQty + ( private.purchasedCounts [ itemString ] or 0 )
for _ , operation in ipairs ( operations ) do
local maxRestock = tonumber ( operation.maxRestock ) or 0
if maxRestock > 0 and ( totalQty + record.count ) > maxRestock then
-- this operation can't accept more of this item
elseif opSettings .evenStacks and record.count % 5 ~= 0 then
elseif operation .evenStacks and record.count % 5 ~= 0 then
-- not an even stack for this operation
elseif opSettings .showAboveMaxPrice then
elseif operation .showAboveMaxPrice then
return false
else
local operationPrice = GetOperationMaxPrice ( itemString , opEntry.name , opSettings )
local operationPrice = TSM : GetMaxPrice ( operation.maxPrice , itemString )
if operationPrice and buyout <= operationPrice then
return false
end
@ -151,8 +106,8 @@ function private.ScanCallback(event, ...)
return true
end )
local marketValue
for _ , opEntry in ipairs ( operations ) do
local operationPrice = GetOperationMaxPrice ( itemString , opEntry.name , opEntry.settings )
for _ , operation in ipairs ( operations ) do
local operationPrice = TSM : GetMaxPrice ( operation.maxPrice , itemString )
if operationPrice then
marketValue = marketValue and max ( marketValue , operationPrice ) or operationPrice
end
@ -170,17 +125,12 @@ function private.StartScan()
TSM.shoppingGroupSearchActive = true
wipe ( private.itemOperations )
wipe ( private.purchasedCounts )
private.itemQuantities = { }
private.operationSettings = { }
private.itemOperationSettings = { }
private.itemOperationMaxPrices = { }
TSM.searchCallback = function ( event , auction )
if event == " OnBuyout " and auction then
local linkItemString = auction.link and TSMAPI : GetItemString ( auction.link )
if linkItemString then
local itemString = TSMAPI : GetBaseItemString ( linkItemString , true )
private.purchasedCounts [ itemString ] = ( private.purchasedCounts [ itemString ] or 0 ) + ( auction.count or 0 )
private.itemQuantities [ itemString ] = nil
end
end
end
@ -188,18 +138,18 @@ function private.StartScan()
itemString = TSMAPI : GetBaseItemString ( itemString , true )
local operations = GetActiveOperations ( itemString , private.itemOperations [ itemString ] )
if not operations or # operations == 0 then return false end
local totalQty = GetCachedItemQuantity ( itemString )
for _ , opEntry in ipairs ( operations ) do
local opSettings = opEntry.settings
local maxRestock = tonumber ( opSettings.maxRestock ) or 0
for _ , operation in ipairs ( operations ) do
local maxRestock = tonumber ( operation.maxRestock ) or 0
local totalQty = TSM : GetTotalQuantity ( itemString ) or 0
totalQty = totalQty + ( private.purchasedCounts [ itemString ] or 0 )
if maxRestock > 0 and ( totalQty + count ) > maxRestock then
-- doesn't fit this operation
elseif opSettings .evenStacks and count % 5 ~= 0 then
elseif operation .evenStacks and count % 5 ~= 0 then
-- not an even stack for this operation
elseif opSettings .showAboveMaxPrice then
elseif operation .showAboveMaxPrice then
return true
else
local operationPrice = GetOperationMaxPrice ( itemString , opEntry.name , opSettings )
local operationPrice = TSM : GetMaxPrice ( operation.maxPrice , itemString )
if operationPrice and buyoutPerItem and buyoutPerItem > 0 and buyoutPerItem <= operationPrice then
return true
end
@ -223,7 +173,7 @@ function private.StartScan()
if err then
TSM : Printf ( L [ " Invalid custom price source for %s. %s " ] , TSMAPI : GetSafeItemInfo ( itemString ) or itemString , err )
else
local totalQty = GetCachedItem Quantity( itemString )
local totalQty = TSM : GetTotal Quantity( itemString ) or 0
local maxRestock = tonumber ( opSettings.maxRestock ) or 0
if maxRestock <= 0 or totalQty < maxRestock then
private.itemOperations [ baseItemString ] = private.itemOperations [ baseItemString ] or { }
