Added coins when actually mining
parent
3239bf0964
commit
490d2e8e0e
|
@ -87,5 +87,8 @@ X X X
|
|||
|
||||
April 2015, Updates by DonBatman and Nathan.S Removed all ABMs, updated the mod to work with current versions of Minetest, improved code and added more visual feedback.
|
||||
|
||||
04/25/15 added on punch functionality to all computers and computers now turn off when player is logged out,
|
||||
player now must punch computer to reboot and mine coins again. MilesDyson
|
||||
|
||||
|
||||
Enjoy!! :D
|
||||
|
|
1
init.lua
1
init.lua
|
@ -13,4 +13,5 @@ dofile(minetest.get_modpath("mycoins").."/nodes.lua")
|
|||
dofile(minetest.get_modpath("mycoins").."/items.lua")
|
||||
dofile(minetest.get_modpath("mycoins").."/crafts.lua")
|
||||
dofile(minetest.get_modpath("mycoins").."/modrecipes.lua")
|
||||
dofile(minetest.get_modpath("mycoins").."/shop.lua")
|
||||
print("mycoins mod loaded!")
|
||||
|
|
17
items.lua
17
items.lua
|
@ -214,4 +214,21 @@ minetest.register_craftitem( "mycoins:alien_computer_cooler", {
|
|||
stack_max = 1,
|
||||
inventory_image = "mycoins_alien_computer_watercooler.png",
|
||||
on_place_on_ground = minetest.craftitem_place_item,
|
||||
})
|
||||
|
||||
minetest.override_item("default:stone",{
|
||||
drop = {
|
||||
min_items = 1,
|
||||
max_items = 2,
|
||||
items = {
|
||||
{
|
||||
items = {"default:stone 1"},
|
||||
rarity = 1,
|
||||
},
|
||||
{
|
||||
items = {"mycoins:bitcent 1"},
|
||||
rarity = 8,
|
||||
},
|
||||
}
|
||||
}
|
||||
})
|
||||
|
|
|
@ -0,0 +1,195 @@
|
|||
default.shop = {}
|
||||
default.shop.current_shop = {}
|
||||
default.shop.formspec = {
|
||||
customer = function(pos)
|
||||
local list_name = "nodemeta:"..pos.x..','..pos.y..','..pos.z
|
||||
local formspec = "size[10,12.5]"..
|
||||
"label[0,0;Customer gives (pay here !)]"..
|
||||
"list[current_player;customer_gives;0,0.5;4,3;]"..
|
||||
"label[0,3.5;Take Your Stuff!!]"..
|
||||
"list[current_player;customer_gets;0,4;4,3;]"..
|
||||
"label[6,0;Owner wants (price)]"..
|
||||
"list["..list_name..";owner_wants;6,0.5;4,3;]"..
|
||||
"label[6,3.5;Items for sale]"..
|
||||
"list["..list_name..";owner_gives;6,4;4,3;]"..
|
||||
"list[current_player;main;1,8.5;8,4;]"..
|
||||
"button[4,7;2,1;exchange;Exchange]"
|
||||
return formspec
|
||||
end,
|
||||
owner = function(pos)
|
||||
local list_name = "nodemeta:"..pos.x..','..pos.y..','..pos.z
|
||||
local formspec = "size[10,12.5]"..
|
||||
"label[0,0;Customers gave:]"..
|
||||
"list["..list_name..";customers_gave;0,0.5;4,3;]"..
|
||||
"label[0,3.5;Items to sell:]"..
|
||||
"list["..list_name..";stock;0,4;5,4;]"..
|
||||
"label[6,0;You want:]"..
|
||||
"list["..list_name..";owner_wants;6,0.5;4,3;]"..
|
||||
"label[6,3.5;Number of Items for each sale:]"..
|
||||
"list["..list_name..";owner_gives;6,4;4,3;]"..
|
||||
"label[3,8;Owner, Use (E) + Right Click for customer interface]"..
|
||||
"list[current_player;main;1,8.5;8,4;]"
|
||||
return formspec
|
||||
end,
|
||||
}
|
||||
|
||||
default.shop.check_privilege = function(listname,playername,meta)
|
||||
--[[if listname == "pl1" then
|
||||
if playername ~= meta:get_string("pl1") then
|
||||
return false
|
||||
elseif meta:get_int("pl1step") ~= 1 then
|
||||
return false
|
||||
end
|
||||
end
|
||||
if listname == "pl2" then
|
||||
if playername ~= meta:get_string("pl2") then
|
||||
return false
|
||||
elseif meta:get_int("pl2step") ~= 1 then
|
||||
return false
|
||||
end
|
||||
end]]
|
||||
return true
|
||||
end
|
||||
|
||||
|
||||
default.shop.give_inventory = function(inv,list,playername)
|
||||
player = minetest.env:get_player_by_name(playername)
|
||||
if player then
|
||||
for k,v in ipairs(inv:get_list(list)) do
|
||||
player:get_inventory():add_item("main",v)
|
||||
inv:remove_item(list,v)
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
default.shop.cancel = function(meta)
|
||||
--[[default.shop.give_inventory(meta:get_inventory(),"pl1",meta:get_string("pl1"))
|
||||
default.shop.give_inventory(meta:get_inventory(),"pl2",meta:get_string("pl2"))
|
||||
meta:set_string("pl1","")
|
||||
meta:set_string("pl2","")
|
||||
meta:set_int("pl1step",0)
|
||||
meta:set_int("pl2step",0)]]
|
||||
end
|
||||
|
||||
default.shop.exchange = function(meta)
|
||||
--[[default.shop.give_inventory(meta:get_inventory(),"pl1",meta:get_string("pl2"))
|
||||
default.shop.give_inventory(meta:get_inventory(),"pl2",meta:get_string("pl1"))
|
||||
meta:set_string("pl1","")
|
||||
meta:set_string("pl2","")
|
||||
meta:set_int("pl1step",0)
|
||||
meta:set_int("pl2step",0)]]
|
||||
end
|
||||
|
||||
minetest.register_node("mycoins:shop", {
|
||||
description = "Shop",
|
||||
paramtype2 = "facedir",
|
||||
tiles = {"mycoins_shop_top.png",
|
||||
"mycoins_shop_back.png",
|
||||
"mycoins_shop_side.png",
|
||||
"mycoins_shop_side.png",
|
||||
"mycoins_shop_back.png",
|
||||
"mycoins_shop_front.png"},
|
||||
--inventory_image = "currency_shop_front.png",
|
||||
groups = {choppy=2,oddly_breakable_by_hand=2},
|
||||
sounds = default.node_sound_wood_defaults(),
|
||||
after_place_node = function(pos, placer, itemstack)
|
||||
local owner = placer:get_player_name()
|
||||
local meta = minetest.env:get_meta(pos)
|
||||
meta:set_string("infotext", "Exchange shop (owned by "..owner..")")
|
||||
meta:set_string("owner",owner)
|
||||
--[[meta:set_string("pl1","")
|
||||
meta:set_string("pl2","")]]
|
||||
local inv = meta:get_inventory()
|
||||
inv:set_size("customers_gave", 4*3)
|
||||
inv:set_size("stock", 5*4)
|
||||
inv:set_size("owner_wants", 4*3)
|
||||
inv:set_size("owner_gives", 4*3)
|
||||
end,
|
||||
on_rightclick = function(pos, node, clicker, itemstack)
|
||||
clicker:get_inventory():set_size("customer_gives", 4*3)
|
||||
clicker:get_inventory():set_size("customer_gets", 4*3)
|
||||
default.shop.current_shop[clicker:get_player_name()] = pos
|
||||
local meta = minetest.env:get_meta(pos)
|
||||
if clicker:get_player_name() == meta:get_string("owner") and not clicker:get_player_control().aux1 then
|
||||
minetest.show_formspec(clicker:get_player_name(),"mycoins:shop_formspec",default.shop.formspec.owner(pos))
|
||||
else
|
||||
minetest.show_formspec(clicker:get_player_name(),"mycoins:shop_formspec",default.shop.formspec.customer(pos))
|
||||
end
|
||||
end,
|
||||
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
|
||||
local meta = minetest.env:get_meta(pos)
|
||||
if player:get_player_name() ~= meta:get_string("owner") then return 0 end
|
||||
return count
|
||||
end,
|
||||
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
|
||||
local meta = minetest.env:get_meta(pos)
|
||||
if player:get_player_name() ~= meta:get_string("owner") then return 0 end
|
||||
return stack:get_count()
|
||||
end,
|
||||
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
|
||||
local meta = minetest.env:get_meta(pos)
|
||||
if player:get_player_name() ~= meta:get_string("owner") then return 0 end
|
||||
return stack:get_count()
|
||||
end,
|
||||
can_dig = function(pos, player)
|
||||
local meta = minetest.env:get_meta(pos)
|
||||
local inv = meta:get_inventory()
|
||||
return inv:is_empty("stock") and inv:is_empty("customers_gave") and inv:is_empty("owner_wants") and inv:is_empty("owner_gives")
|
||||
end
|
||||
})
|
||||
|
||||
minetest.register_on_player_receive_fields(function(sender, formname, fields)
|
||||
if formname == "mycoins:shop_formspec" then
|
||||
local name = sender:get_player_name()
|
||||
local pos = default.shop.current_shop[name]
|
||||
local meta = minetest.env:get_meta(pos)
|
||||
if meta:get_string("owner") == name then
|
||||
minetest.chat_send_player(name,"You can't exchange to yourself !")
|
||||
else
|
||||
local minv = meta:get_inventory()
|
||||
local pinv = sender:get_inventory()
|
||||
local invlist_tostring = function(invlist)
|
||||
local out = {}
|
||||
for i, item in pairs(invlist) do
|
||||
out[i] = item:to_string()
|
||||
end
|
||||
return out
|
||||
end
|
||||
local wants = minv:get_list("owner_wants")
|
||||
local gives = minv:get_list("owner_gives")
|
||||
if wants == nil or gives == nil then return end -- do not crash the server
|
||||
-- Check if we can exchange
|
||||
local can_exchange = true
|
||||
local owners_fault = false
|
||||
for i, item in pairs(wants) do
|
||||
if not pinv:contains_item("customer_gives",item) then
|
||||
can_exchange = false
|
||||
end
|
||||
end
|
||||
for i, item in pairs(gives) do
|
||||
if not minv:contains_item("stock",item) then
|
||||
can_exchange = false
|
||||
owners_fault = true
|
||||
end
|
||||
end
|
||||
if can_exchange then
|
||||
for i, item in pairs(wants) do
|
||||
pinv:remove_item("customer_gives",item)
|
||||
minv:add_item("customers_gave",item)
|
||||
end
|
||||
for i, item in pairs(gives) do
|
||||
minv:remove_item("stock",item)
|
||||
pinv:add_item("customer_gets",item)
|
||||
end
|
||||
minetest.chat_send_player(name,"Exchanged!")
|
||||
else
|
||||
if owners_fault then
|
||||
minetest.chat_send_player(name,"Exchange can not be done, contact the owner.")
|
||||
else
|
||||
minetest.chat_send_player(name,"Exchange can not be done, did you put in all items?")
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end)
|
||||
|
Binary file not shown.
After Width: | Height: | Size: 835 B |
Binary file not shown.
After Width: | Height: | Size: 822 B |
Binary file not shown.
After Width: | Height: | Size: 755 B |
Binary file not shown.
After Width: | Height: | Size: 734 B |
Loading…
Reference in New Issue