FaceDeer/commoditymarket
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
commoditymarket/formspecs.lua
FaceDeer eb10b9c9b7 Initial commit
2019-07-27 15:12:52 -06:00

461 lines
17 KiB
Lua
Raw Blame History

-- Inventory formspec
-------------------------------------------------------------------------------------
local inventory_comp = function(invitem1, invitem2) return invitem1.item < invitem2.item end
local get_account_formspec = function(market, account)
local formspec = {
"size[10,10]",
"tabheader[0,0;tabs;"..market.def.description..",Your Inventory,Market Orders;2;false;true]",
"tablecolumns[text;text,align=center;text;text,align=center]",
"table[0,0;9.9,4;inventory;",
"Item,Quantity,Item,Quantity"
}
local inventory = {}
local inventory_count = 0
for item, quantity in pairs(account.inventory) do
table.insert(inventory, {item=item, quantity=quantity})
inventory_count = inventory_count + quantity
end
table.sort(inventory, inventory_comp)
local i = 1
while i <= #inventory do
local n = #formspec+1
formspec[n] = "," .. inventory[i].item
formspec[n+1] = "," .. inventory[i].quantity
i = i + 1
if inventory[i] then
formspec[n+2] = "," .. inventory[i].item
formspec[n+3] = "," .. inventory[i].quantity
end
i = i + 1
end
formspec[#formspec+1] = "]container[1.1,4.5]list[detached:commoditymarket:"..market.name..";add;0,0;1,1;]"
.."label[1,0;Drop items here to\nadd to your account]"
.."listring[current_player;main]listring[detached:commoditymarket:"..market.name..";add]"
if market.def.inventory_limit then
formspec[#formspec+1] = "label[3,0;Inventory limit:\n"..inventory_count.."/"..market.def.inventory_limit.."]"
end
formspec[#formspec+1] = "label[4.9,0;Balance:\n"..market.def.currency_symbol .. account.balance .."]"
.."field[6.1,0.25;1,1;withdrawamount;;]"
.."field_close_on_enter[withdrawamount;false]"
.."button[6.7,0;1.2,1;withdraw;Withdraw]"
.."container_end[]"
formspec[#formspec+1] = "container[1.1,5.75]list[current_player;main;0,0;8,1;]"..
"list[current_player;main;0,1.25;8,3;8]container_end[]"
return table.concat(formspec)
end
-- Market formspec
--------------------------------------------------------------------------------------------------------
local compare_market_item = function(mkt1, mkt2) return mkt1.item < mkt2.item end
local compare_market_desc = function(mkt1, mkt2)
local def1 = minetest.registered_items[mkt1.item] or {}
local def2 = minetest.registered_items[mkt2.item] or {}
return (def1.description or "Unknown Item") < (def2.description or "Unknown Item")
end
local compare_buy_volume = function(mkt1, mkt2) return mkt1.buy_volume > mkt2.buy_volume end
local compare_buy_max = function(mkt1, mkt2)
return ((mkt1.buy_orders[#mkt1.buy_orders] or {}).price or -2^30) > ((mkt2.buy_orders[#mkt2.buy_orders] or {}).price or -2^30)
end
local compare_sell_volume = function(mkt1, mkt2) return mkt1.sell_volume > mkt2.sell_volume end
local compare_sell_min = function(mkt1, mkt2)
return ((mkt1.sell_orders[#mkt1.sell_orders] or {}).price or 2^31) < ((mkt2.sell_orders[#mkt2.sell_orders] or {}).price or 2^31)
end
local compare_last_price = function(mkt1, mkt2) return (mkt1.last_price or 2^31) < (mkt2.last_price or 2^31) end
local sort_marketlist = function(item_list, account)
local sort_by = account.sort_markets_by_column or 1
-- "Item,Description,#00FF00,Buy Vol,Buy Max,#FF0000,Sell Vol,Sell Min,Last Price"
if sort_by == 1 then
table.sort(item_list, compare_market_item)
elseif sort_by == 2 then
table.sort(item_list, compare_market_desc)
elseif sort_by == 4 then
table.sort(item_list, compare_buy_volume)
elseif sort_by == 5 then
table.sort(item_list, compare_buy_max)
elseif sort_by == 7 then
table.sort(item_list, compare_sell_volume)
elseif sort_by == 8 then
table.sort(item_list, compare_sell_min)
elseif sort_by == 9 then
table.sort(item_list, compare_last_price)
end
end
local make_marketlist = function(market, account)
local market_list = {}
local search_filter = account.search or ""
for item, row in pairs(market.orders_for_items) do
if (search_filter == "" or string.find(item, search_filter)) then
if account.filter_participating == "true" then
local found = false
for _, order in ipairs(row.buy_orders) do
if account == order.account then
found = true
break
end
end
if not found then
for _, order in ipairs(row.sell_orders) do
if account == order.account then
found = true
break
end
end
end
if found then
table.insert(market_list, row)
end
else
table.insert(market_list, row)
end
end
end
sort_marketlist(market_list, account)
return market_list
end
local get_market_formspec = function(market, account)
local selected = account.selected
local formspec = {
"size[10,10]",
"tabheader[0,0;tabs;"..market.def.description..",Your Inventory,Market Orders;3;false;true]",
"tablecolumns[text;"
.."text;"
.."color,span=2;"
.."text,align=right,tooltip=Number of items there's demand for in the market;"
.."text,align=right,tooltip=Maximum price being offered to buy one of these;"
.."color,span=2;"
.."text,align=right,tooltip=Number of items available for sale in the market;"
.."text,align=right,tooltip=Minimum price being demanded to sell one of these;"
.."text,align=right,tooltip=Price paid for one of these the last time one was sold]",
"table[0,0;9.9,5;summary;",
"Item,Description,#00FF00,Buy Vol,Buy Max,#FF0000,Sell Vol,Sell Min,Last Price"
}
local selected_idx
local selected_row
local market_list = make_marketlist(market, account)
-- Show list of item market summaries
for i, row in ipairs(market_list) do
local item_display = row.item
if item_display:len() > 20 then
item_display = item_display:sub(1,18).."..."
end
local n = #formspec+1
formspec[n] = "," .. item_display
local def = minetest.registered_items[row.item] or {}
local desc_display = def.description or "Unknown Item"
if desc_display:len() > 20 then
desc_display = desc_display:sub(1,18).."..."
end
formspec[n+1] = "," .. desc_display
formspec[n+2] = ",#00FF00"
formspec[n+3] = "," .. row.buy_volume
formspec[n+4] = "," .. ((row.buy_orders[#row.buy_orders] or {}).price or "-")
formspec[n+5] = ",#FF0000"
formspec[n+6] = "," .. row.sell_volume
formspec[n+7] = "," .. ((row.sell_orders[#row.sell_orders] or {}).price or "-")
formspec[n+8] = "," .. (row.last_price or "-")
-- we happen to be processing the row that matches the item this player has selected. Record that.
if selected == row.item then
selected_row = row
selected_idx = i + 1
end
end
-- a row that's visible is marked as the selected item, so make it selected in the formspec
if selected_row then
formspec[#formspec+1] = ";"..selected_idx
end
formspec[#formspec+1] = "]"
-- search field
formspec[#formspec+1] = "container[2.5,5]field_close_on_enter[search_filter;false]"
.."field[0,0.85;2.5,1;search_filter;;"..minetest.formspec_escape(account.search or "").."]"
.."image_button[2.25,0.6;0.8,0.8;commoditymarket_search.png;apply_search;]"
.."checkbox[1.77,0;filter_participating;My orders;".. account.filter_participating .."]"
.."tooltip[search_filter;Enter substring to search item identifiers for]"
.."tooltip[apply_search;Apply search to outputs]"
.."container_end[]"
-- if a visible item market is selected, show the orders for it in detail
if selected_row then
local current_time = minetest.get_gametime()
-- player inventory for this item and for currency
formspec[#formspec+1] = "label[0.1,5.1;"..selected.."\nIn inventory: "
.. tostring(account.inventory[selected] or 0) .."\nBalance: "..market.def.currency_symbol..account.balance .."]"
-- buy/sell controls
formspec[#formspec+1] = "container[6,5]"
formspec[#formspec+1] = "button[0,0.5;1,1;buy;Buy]field[1.3,0.85;1,1;quantity;Quantity;]field[2.3,0.85;1,1;price;Price;]button[3,0.5;1,1;sell;Sell]"
.."field_close_on_enter[quantity;false]field_close_on_enter[price;false]"
formspec[#formspec+1] = "container_end[]"
-- table of buy and sell orders
formspec[#formspec+1] = "tablecolumns[color;text;"
.."text,align=right,tooltip=The price per item in this order;"
.."text,align=right,tooltip=The total amount of items in this particular order;"
.."text,align=right,tooltip=The total amount of items available at this price accounting for the other orders also currently being offered;"
.."text,tooltip=The name of the player who placed this order;"
.."text,align=right,tooltip=How many days ago this order was placed]"
formspec[#formspec+1] = "table[0,6.5;9.9,3.5;orders;#FFFFFF,Order,Price,Quantity,Total Volume,Player,Days Old"
local sell_volume = selected_row.sell_volume
for i, sell in ipairs(selected_row.sell_orders) do
formspec[#formspec+1] = ",#FF0000,Sell,"..sell.price..","..sell.quantity..","..sell_volume
..","..sell.account.name..","..math.floor((current_time-sell.timestamp)/86400)
sell_volume = sell_volume - sell.quantity
end
local buy_volume = 0
local buy_orders = selected_row.buy_orders
local buy_count = #buy_orders
-- Show buy orders in reverse order
for i = buy_count, 1, -1 do
buy = buy_orders[i]
buy_volume = buy_volume + buy.quantity
formspec[#formspec+1] = ",#00FF00,Buy,"..buy.price..","..buy.quantity..","..buy_volume
..","..buy.account.name..","..math.floor((current_time-buy.timestamp)/86400)
end
formspec[#formspec+1] = "]"
else
formspec[#formspec+1] = "label[0.1,5.1;Select an item to view or place orders]"
end
return table.concat(formspec)
end
-------------------------------------------------------------------------------------
-- Information formspec
--{item=item, quantity=quantity, price=price, purchaser=purchaser, seller=seller, timestamp = minetest.get_gametime()}
local log_to_string = function(market, log_entry)
local purchaser_name
if log_entry.purchaser == log_entry.seller then
purchaser_name = "themself"
else
purchaser_name = log_entry.purchaser.name
end
return "On day " .. math.ceil(log_entry.timestamp/86400) .. " " .. log_entry.seller.name .. " sold " .. log_entry.quantity .. " "
.. log_entry.item .. " to " .. purchaser_name .. " at " .. market.def.currency_symbol .. log_entry.price
end
local get_info_formspec = function(market, account)
local formspec = {
"size[10,10]",
"tabheader[0,0;tabs;"..market.def.description..",Your Inventory,Market Orders;1;false;true]",
"textarea[0.5,0.5;9.5,1.5;;Description:;"..market.def.long_description.."]",
-- TODO: logging temporarily disabled, it was causing minetest.serialize to generate invalid output for some reason
--"textarea[0.5,2.5;9.5,6;;Your Recent Purchases and Sales:;",
}
-- if next(account.log) then
-- for _, log_entry in ipairs(account.log) do
-- formspec[#formspec+1] = log_to_string(market, log_entry) .. "\n"
-- end
-- else
-- formspec[#formspec+1] = "No logged activites in this market yet"
-- end
-- formspec[#formspec+1] = "]"
return table.concat(formspec)
end
---------------------------------------------------------------------------------------
commoditymarket.get_formspec = function(market, account)
local tab = account.tab
if tab == 1 then
return get_info_formspec(market, account)
elseif tab == 2 then
return get_account_formspec(market, account)
else
return get_market_formspec(market, account)
end
end
------------------------------------------------------------------------------------
-- Handling recieve_fields
local add_to_player_inventory = function(name, item, amount)
local playerinv = minetest.get_inventory({type="player", name=name})
local not_full = true
while amount > 0 and not_full do
local stack = ItemStack(item .. " " .. amount)
amount = amount - stack:get_count()
local leftover = playerinv:add_item("main", stack)
if leftover:get_count() > 0 then
amount = amount + leftover:get_count()
return amount
end
end
return amount
end
minetest.register_on_player_receive_fields(function(player, formname, fields)
local formname_split = formname:split(":")
if formname_split[1] ~= "commoditymarket" then
return false
end
local market = commoditymarket.registered_markets[formname_split[2]]
if not market then
return false
end
local name = formname_split[3]
if name ~= player:get_player_name() then
return false
end
local account = market:get_account(name)
local something_changed = false
if fields.tabs then
account.tab = tonumber(fields.tabs)
something_changed = true
end
-- player clicked on an item in the market summary table
if fields.summary then
local summaryevent = minetest.explode_table_event(fields.summary)
if summaryevent.type == "DCL" or summaryevent.type == "CHG" then
if summaryevent.row == 1 then
-- header clicked, sort by column
account.sort_markets_by_column = summaryevent.column
else
-- item clicked, recreate the list to find out which one
local marketlist = make_marketlist(market, account)
local selected = marketlist[summaryevent.row-1]
if selected then
account.selected = selected.item
end
end
elseif summaryevent.type == "INV" then
account.selected = nil
end
something_changed = true
end
if fields.orders then
local ordersevent = minetest.explode_table_event(fields.orders)
if ordersevent.type == "DCL" then
local selected_idx = ordersevent.row - 1 -- account for header
local selected_row = market.orders_for_items[account.selected] -- sell orders come first
local sell_orders = selected_row.sell_orders
local sell_order_count = #sell_orders
local selected_order
if selected_idx <= sell_order_count then -- if the index is within the range of sell orders,
selected_order = sell_orders[selected_idx]
if selected_order.account == account then -- and the order belongs to the current player,
market:cancel_sell(account.selected, selected_order) -- cancel it
something_changed = true
end
else
-- otherwise we're in the buy group, shift the index up by sell_order_count and reverse index order
local buy_orders = selected_row.buy_orders
local buy_orders_count = #buy_orders
selected_order = buy_orders[buy_orders_count - (selected_idx - sell_order_count - 1)]
if selected_order.account == account then
market:cancel_buy(account.selected, selected_order)
something_changed = true
end
end
end
end
if fields.buy then
local quantity = tonumber(fields.quantity)
local price = tonumber(fields.price)
if price ~= nil and quantity ~= nil then
market:buy(name, account.selected, quantity, price)
something_changed = true
end
end
if fields.sell then
local quantity = tonumber(fields.quantity)
local price = tonumber(fields.price)
if price ~= nil and quantity ~= nil then
market:sell(name, account.selected, quantity, price)
something_changed = true
end
end
-- player clicked in their inventory table, may need to give him his stuff back
if fields.inventory then
local invevent = minetest.explode_table_event(fields.inventory)
if invevent.type == "DCL" then
local index = invevent.row*2 + math.ceil(invevent.column/2) - 4
local account = market:get_account(name)
local inventory = {}
for item, quantity in pairs(account.inventory) do
table.insert(inventory, {item=item, quantity=quantity})
end
table.sort(inventory, inventory_comp)
if inventory[index] then
local item = inventory[index].item
local amount = account.inventory[item]
local remaining = add_to_player_inventory(name, item, amount)
if remaining == 0 then
account.inventory[item] = nil
else
account.inventory[item] = remaining
end
if remaining ~= amount then
something_changed = true
end
end
end
end
if fields.withdraw or fields.key_enter_field == "withdrawamount" then
local withdrawvalue = tonumber(fields.withdrawamount)
if withdrawvalue then
local account = market:get_account(name)
withdrawvalue = math.min(withdrawvalue, account.balance)
for _, currency in ipairs(market.def.currency_ordered) do
this_unit_amount = math.floor(withdrawvalue/currency.amount)
if this_unit_amount > 0 then
local remaining = add_to_player_inventory(name, currency.item, this_unit_amount)
local value_given = (this_unit_amount - remaining) * currency.amount
account.balance = account.balance - value_given
withdrawvalue = withdrawvalue - value_given
something_changed = true
end
end
end
end
if fields.search_filter then
local value = string.lower(fields.search_filter)
if account.search ~= value then
account.search = value
end
end
if (fields.filter_participating == "true" and account.filter_participating == "false") or
(fields.filter_participating == "false" and account.filter_participating == "true") then
account.filter_participating = fields.filter_participating
something_changed = true
end
if fields.apply_search or fields.key_enter_field == "search_filter" then
something_changed = true
end
if something_changed then
minetest.show_formspec(name, formname, market:get_formspec(account))
end
end)
Reference in New Issue View Git Blame Copy Permalink