Pastey.net - paste bin

Language:

Lua Change language:

Pastebin:

74187

Author:

bunnyfufu

Subject:

EvalWoWEcon

Created:

2007-09-21 18:28:04

Download and save
Toggle line numbers

1	--[[
2	This is a module for BtmScan to evaluate an item for purchase.
3
4	License:
5	This program is free software; you can redistribute it and/or
6	modify it under the terms of the GNU General Public License
7	as published by the Free Software Foundation; either version 2
8	of the License, or (at your option) any later version.
9
10	This program is distributed in the hope that it will be useful,
11	but WITHOUT ANY WARRANTY; without even the implied warranty of
12	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13	GNU General Public License for more details.
14
15	You should have received a copy of the GNU General Public License
16	along with this program(see GPL.txt); if not, write to the Free Software
17	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
18
19	Note:
20	This AddOn's source code is specifically designed to work with
21	World of Warcraft's interpreted AddOn system.
22	You have an implicit licence to use this AddOn with these facilities
23	since that is its designated purpose as per:
24	http://www.fsf org/licensing/licenses/gpl-faq.html#InterpreterIncompat
25	]]
26
27	-- If auctioneer is not loaded, then we cannot run.
28	if not (AucAdvanced or (Auctioneer and Auctioneer.Statistic)) then return end
29
30	local libName = "WOWEcon"
31	local lcName = libName:lower()
32	local lib = { name = lcName, propername = libName }
33	table.insert(BtmScan.evaluators, lcName)
34	local define = BtmScan.Settings.SetDefault
35	local get = BtmScan.Settings.GetSetting
36	local set = BtmScan.Settings.SetSetting
37
38	BtmScan.evaluators[lcName] = lib
39
40	function lib:valuate(item, tooltip)
41	local price = 0
42
43	-- If we're not enabled, scadaddle!
44	if (not get(lcName..".enable")) then return end
45
46	-- All items, even grey/vendor items, are considered
47
48	--[[ Which scope for pricing are we to use?
49	local scope = get(lcName..'.adjust.scope')
50	if (scope == "server") then
51	scope = Wowecon.API.SERVER_PRICE
52	elseif (scope == "auto") then
53	scope = Wowecon.API.AUTO_PRICE
54	else scope = Wowecon.API.GLOBAL_PRICE
55	end
56	--]]
57	local scope = Wowecon.API.GLOBAL_PRICE --temp hard-coding scope to global
58	local wowecon = Wowecon.API.GetAuctionPrice_ByLink(item.link, scope)
59
60	-- Adjust for brokerage / deposit costs
61	local adjusted = wowecon
62	local deposit = get(lcName..'.adjust.deposit')
63	local brokerage = get(lcName..'.adjust.brokerage')
64
65	if (deposit or brokerage) then
66	local basis = get(lcName..'.adjust.basis')
67	local brokerRate, depositRate = 0.05, 0.05
68	if (basis == "neutral") then
69	brokerRate, depositRate = 0.15, 0.25
70	end
71	if (deposit) then
72	local relistings = get(lcName..'.adjust.listings')
73	local amount = (BtmScan.GetDepositCost(item.id, item.count, depositRate) * relistings)
74	adjusted = adjusted - amount
75	item:info(" - "..relistings.." x deposit", amount)
76	end
77	if (brokerage) then
78	local amount = (wowecon * brokerRate)
79	adjusted = adjusted - amount
80	item:info(" - Brokerage", amount)
81	end
82	item:info(" = Adjusted amount", adjusted)
83	end
84
85	-- Valuate this item
86	local pct = get(lcName..".profit.pct")
87	local min = get(lcName..".profit.min")
88	local value, mkdown = BtmScan.Markdown(adjusted, pct, min)
89	item:info((" - %d%% / %s markdown"):format(pct,BtmScan.GSC(min, true)), mkdown)
90
91	-- Check for tooltip evaluation
92	if (tooltip) then
93	item.what = self.name
94	item.valuation = value
95	if (item.bid == 0) then
96	return
97	end
98	end
99
100	-- If the current purchase price is more than our valuation,
101	-- another module "wins" this purchase.
102	if (value < item.purchase) then return end
103
104	-- Check to see what the most we can pay for this item is.
105	if (item.canbuy and not get(lcName..".never.buy") and item.buy < value) then
106	price = item.buy
107	elseif (item.canbid and not get(lcName..".never.bid") and item.bid < value) then
108	price = item.bid
109	end
110
111	-- Check our projected profit level
112	local profit = 0
113	if price > 0 then profit = value - price end
114
115	-- If what we are willing to pay for this item beats what
116	-- other modules are willing to pay, and we can make more
117	-- profit, then we "win".
118	if (price >= item.purchase and profit > item.profit) then
119	item.purchase = price
120	item.reason = self.name
121	item.what = self.name
122	item.profit = profit
123	item.valuation = wowecon
124	end
125	end
126
127	local qualityTable = {
128	{0, ITEM_QUALITY0_DESC},
129	{1, ITEM_QUALITY1_DESC},
130	{2, ITEM_QUALITY2_DESC},
131	{3, ITEM_QUALITY3_DESC},
132	{4, ITEM_QUALITY4_DESC},
133	{5, ITEM_QUALITY5_DESC},
134	{6, ITEM_QUALITY6_DESC},
135	}
136	local ahList = {
137	{'faction', "Faction AH Fees"},
138	{'neutral', "Neutral AH Fees"},
139	}
140
141	define(lcName..'.enable', true)
142	define(lcName..'.profit.min', 3000)
143	define(lcName..'.profit.pct', 30)
144	define(lcName..'.quality.check', true)
145	define(lcName..'.quality.min', 1)
146	define(lcName..'.adjust.basis', "faction")
147	define(lcName..'.adjust.brokerage', true)
148	define(lcName..'.adjust.listings', 1)
149	define(lcName..'.never.bid', false)
150	define(lcName..'.never.buyout', false)
151	function lib:setup(gui)
152	id = gui:AddTab(libName)
153	gui:AddControl(id, "Subhead", 0, libName.." Settings")
154	gui:AddControl(id, "Checkbox", 0, 1, lcName..".enable", "Enable purchasing for "..lcName)
155	gui:AddControl(id, "Checkbox", 0, 1, lcName..".never.buy", "Never buyout items")
156	gui:AddControl(id, "Checkbox", 0, 1, lcName..".never.bid", "Never bid on items")
157	gui:AddControl(id, "MoneyFramePinned", 0, 1, lcName..".profit.min", 1, 99999999, "Minimum Profit")
158	gui:AddControl(id, "WideSlider", 0, 1, lcName..".profit.pct", 1, 100, 0.5, "Minimum Discount: %0.01f%%")
159	gui:AddControl(id, "Checkbox", 0, 1, lcName..".quality.check", "Enable quality checking:")
160	gui:AddControl(id, "Selectbox", 0, 2, qualityTable, lcName..".quality.min", "Minimum item quality")
161	gui:AddControl(id, "Subhead", 0, "Fees adjustment")
162	gui:AddControl(id, "Selectbox", 0, 1, ahList, lcName..".adjust.basis", "Deposit/fees basis")
163	gui:AddControl(id, "Checkbox", 0, 1, lcName..".adjust.brokerage", "Subtract auction fees from projected profit")
164	gui:AddControl(id, "Checkbox", 0, 1, lcName..".adjust.deposit", "Subtract deposit cost from projected profit")
165	gui:AddControl(id, "WideSlider", 0, 2, lcName..".adjust.listings", 1, 10, 0.1, "Average relistings: %0.1fx")
166	end
167
168

Download and save
Toggle line numbers

Thread:

[74187] EvalWoWEcon by bunnyfufu at 2007-09-21 18:28:04

Tip: Click the line numbers to toggle highliting on that line.

Paste followup:

Language:
Author:
Subject:
Secure the url for this pastey.

--[[
	This is a module for BtmScan to evaluate an item for purchase.

License:
		This program is free software; you can redistribute it and/or
		modify it under the terms of the GNU General Public License
		as published by the Free Software Foundation; either version 2
		of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
		but WITHOUT ANY WARRANTY; without even the implied warranty of
		MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
		GNU General Public License for more details.

You should have received a copy of the GNU General Public License
		along with this program(see GPL.txt); if not, write to the Free Software
		Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.

Note:
		This AddOn's source code is specifically designed to work with
		World of Warcraft's interpreted AddOn system.
		You have an implicit licence to use this AddOn with these facilities
		since that is its designated purpose as per:
		http://www.fsf org/licensing/licenses/gpl-faq.html#InterpreterIncompat
]]

-- If auctioneer is not loaded, then we cannot run.
if not (AucAdvanced or (Auctioneer and Auctioneer.Statistic)) then return end

local libName = "WOWEcon"
local lcName = libName:lower()
local lib = { name = lcName, propername = libName }
table.insert(BtmScan.evaluators, lcName)
local define = BtmScan.Settings.SetDefault
local get = BtmScan.Settings.GetSetting
local set = BtmScan.Settings.SetSetting

BtmScan.evaluators[lcName] = lib

function lib:valuate(item, tooltip)
	local price = 0

-- If we're not enabled, scadaddle!
	if (not get(lcName..".enable")) then return end

-- All items, even grey/vendor items, are considered

--[[ Which scope for pricing are we to use?
	local scope = get(lcName..'.adjust.scope')
  if (scope == "server") then
    scope = Wowecon.API.SERVER_PRICE
  elseif (scope == "auto") then
    scope = Wowecon.API.AUTO_PRICE
  else scope = Wowecon.API.GLOBAL_PRICE
  end
--]]
  local scope = Wowecon.API.GLOBAL_PRICE --temp hard-coding scope to global
  local wowecon = Wowecon.API.GetAuctionPrice_ByLink(item.link, scope)

-- Adjust for brokerage / deposit costs
	local adjusted = wowecon
	local deposit = get(lcName..'.adjust.deposit')
	local brokerage = get(lcName..'.adjust.brokerage')

if (deposit or brokerage) then
		local basis = get(lcName..'.adjust.basis')
		local brokerRate, depositRate = 0.05, 0.05
		if (basis == "neutral") then
			brokerRate, depositRate = 0.15, 0.25
		end
		if (deposit) then
			local relistings = get(lcName..'.adjust.listings')
			local amount = (BtmScan.GetDepositCost(item.id, item.count, depositRate) * relistings)
			adjusted = adjusted - amount
			item:info(" - "..relistings.." x deposit", amount)
		end
		if (brokerage) then
			local amount = (wowecon * brokerRate)
			adjusted = adjusted - amount
			item:info(" - Brokerage", amount)
		end
		item:info(" = Adjusted amount", adjusted)
	end

-- Valuate this item
	local pct = get(lcName..".profit.pct")
	local min = get(lcName..".profit.min")
	local value, mkdown = BtmScan.Markdown(adjusted, pct, min)
	item:info((" - %d%% / %s markdown"):format(pct,BtmScan.GSC(min, true)), mkdown)

-- Check for tooltip evaluation
	if (tooltip) then
		item.what = self.name
		item.valuation = value
		if (item.bid == 0) then
			return
		end
	end

-- If the current purchase price is more than our valuation,
	-- another module "wins" this purchase.
	if (value < item.purchase) then return end

-- Check to see what the most we can pay for this item is.
	if (item.canbuy and not get(lcName..".never.buy") and item.buy < value) then
		price = item.buy
	elseif (item.canbid and not get(lcName..".never.bid") and item.bid < value) then
		price = item.bid
	end

-- Check our projected profit level
	local profit = 0
	if price > 0 then profit = value - price end

-- If what we are willing to pay for this item beats what
	-- other modules are willing to pay, and we can make more
	-- profit, then we "win".
	if (price >= item.purchase and profit > item.profit) then
		item.purchase = price
		item.reason = self.name
		item.what = self.name
		item.profit = profit
		item.valuation = wowecon
	end
end

local qualityTable = {
	{0, ITEM_QUALITY0_DESC},
	{1, ITEM_QUALITY1_DESC},
	{2, ITEM_QUALITY2_DESC},
	{3, ITEM_QUALITY3_DESC},
	{4, ITEM_QUALITY4_DESC},
	{5, ITEM_QUALITY5_DESC},
	{6, ITEM_QUALITY6_DESC},
}
local ahList = {
	{'faction', "Faction AH Fees"},
	{'neutral', "Neutral AH Fees"},
}

define(lcName..'.enable', true)
define(lcName..'.profit.min', 3000)
define(lcName..'.profit.pct', 30)
define(lcName..'.quality.check', true)
define(lcName..'.quality.min', 1)
define(lcName..'.adjust.basis', "faction")
define(lcName..'.adjust.brokerage', true)
define(lcName..'.adjust.listings', 1)
define(lcName..'.never.bid', false)
define(lcName..'.never.buyout', false)
function lib:setup(gui)
	id = gui:AddTab(libName)
	gui:AddControl(id, "Subhead",          0,    libName.." Settings")
	gui:AddControl(id, "Checkbox",         0, 1, lcName..".enable", "Enable purchasing for "..lcName)
	gui:AddControl(id, "Checkbox",         0, 1, lcName..".never.buy", "Never buyout items")
	gui:AddControl(id, "Checkbox",         0, 1, lcName..".never.bid", "Never bid on items")
	gui:AddControl(id, "MoneyFramePinned", 0, 1, lcName..".profit.min", 1, 99999999, "Minimum Profit")
	gui:AddControl(id, "WideSlider",       0, 1, lcName..".profit.pct", 1, 100, 0.5, "Minimum Discount: %0.01f%%")
	gui:AddControl(id, "Checkbox",         0, 1, lcName..".quality.check", "Enable quality checking:")
	gui:AddControl(id, "Selectbox",        0, 2, qualityTable, lcName..".quality.min", "Minimum item quality")
	gui:AddControl(id, "Subhead",          0,    "Fees adjustment")
	gui:AddControl(id, "Selectbox",        0, 1, ahList, lcName..".adjust.basis", "Deposit/fees basis")
	gui:AddControl(id, "Checkbox",         0, 1, lcName..".adjust.brokerage", "Subtract auction fees from projected profit")
	gui:AddControl(id, "Checkbox",         0, 1, lcName..".adjust.deposit", "Subtract deposit cost from projected profit")
	gui:AddControl(id, "WideSlider",       0, 2, lcName..".adjust.listings", 1, 10, 0.1, "Average relistings: %0.1fx")
end

Tabstop: bigger biggest

Note: You can prefix a line with "@@@" to highlight it.