Added coins when actually mining

master
DonBatman 2015-04-25 09:55:59 -07:00
parent 3239bf0964
commit 490d2e8e0e
9 changed files with 963 additions and 588 deletions

View File

@ -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

View File

@ -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!")

View File

@ -215,3 +215,20 @@ minetest.register_craftitem( "mycoins:alien_computer_cooler", {
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,
},
}
}
})

465
nodes.lua
View File

@ -1,44 +1,34 @@
local function has_home_computer_privilege(meta, player)
local function computer_owner(meta, player)
if player:get_player_name() ~= meta:get_string("owner") then
return false
end
return true
end
function default.home_computer_formspec(pos)
function default.computer_formspec(pos)
local spos = pos.x .. "," .. pos.y .. "," ..pos.z
local formspec = "size[10,10]"..
"label[2,2;Booting a proprietary OS, this could take a while...]" ..
"list[nodemeta:".. spos .. ";main;1,3;8,1;]"..
"list[current_player;main;1,6;8,4;]"
return formspec
end
local function has_game_computer_privilege(meta, player)
if player:get_player_name() ~= meta:get_string("owner") then
return false
end
return true
end
function default.game_computer_formspec(pos)
function default.computer_off_formspec(pos)
local spos = pos.x .. "," .. pos.y .. "," ..pos.z
local formspec = "size[10,10]"..
"label[2,2;Powered Off...]" ..
"list[nodemeta:".. spos .. ";main;1,3;8,1;]"..
"list[current_player;main;1,6;8,4;]"
return formspec
end
local function has_alien_computer_privilege(meta, player)
if player:get_player_name() ~= meta:get_string("owner") then
return false
end
return true
end
function default.alien_computer_formspec(pos)
function default.active_computer_formspec(pos)
local spos = pos.x .. "," .. pos.y .. "," ..pos.z
local formspec = "size[10,10]"..
"label[2,2;Mining coins.]" ..
"label[2,2.5;Upgrade your computer to mine faster.]" ..
"list[nodemeta:".. spos .. ";main;1,3;8,1;]"..
"list[current_player;main;1,6;8,4;]"
return formspec
@ -46,21 +36,22 @@ end
-- Home Computer
minetest.register_node("bitcoins:home_computer",{
minetest.register_node("mycoins:home_computer",{
drawtype = "nodebox",
description = "Home Computer",
tiles = {"bitcoins_home_computer_tp.png",
"bitcoins_home_computer_bt.png",
"bitcoins_home_computer_rt.png",
"bitcoins_home_computer_lt.png",
"bitcoins_home_computer_bk.png",
"bitcoins_home_computer_ft_off.png"},
tiles = {"mycoins_home_computer_tp.png",
"mycoins_home_computer_bt.png",
"mycoins_home_computer_rt.png",
"mycoins_home_computer_lt.png",
"mycoins_home_computer_bk.png",
"mycoins_home_computer_ft_off.png"},
paramtype = "light",
paramtype2 = "facedir",
drop = "bitcoins:home_computer",
groups = {cracky=2},
drop = "mycoins:home_computer",
groups = {cracky=2, oddly_breakable_by_hand=2},
node_box = {
type = "fixed",
fixed = {
@ -73,26 +64,63 @@ minetest.register_node("bitcoins:home_computer",{
sounds = default.node_sound_wood_defaults(),
after_place_node = function(pos, placer)
local meta = minetest.get_meta(pos)
local timer = minetest.get_node_timer(pos)
meta:set_string("owner", placer:get_player_name() or "")
meta:set_string("infotext", "Home Computer (owner "..
meta:get_string("owner")..")")
-- hacky_swap_node(pos,"bitcoins:game_computer_active")
timer:start(60)
end,
on_timer = function(pos)
local meta = minetest.get_meta(pos)
if ( minetest.get_player_by_name(meta:get_string("owner")) == nil ) then
local timer = minetest.get_node_timer(pos)
local meta = minetest.get_meta(pos)
local node = minetest.get_node(pos)
minetest.swap_node(pos, {name = 'mycoins:home_computer', param2 = node.param2})
meta:set_string("formspec", default.computer_off_formspec(pos))
meta:set_string("infotext", "Home Computer (owner "..
meta:get_string("owner")..")")
local inv = meta:get_inventory()
inv:set_size("main", 4*2)
timer:stop()
else
local timer = minetest.get_node_timer(pos)
local meta = minetest.get_meta(pos)
local node = minetest.get_node(pos)
minetest.swap_node(pos, {name = 'mycoins:home_computer_active', param2 = node.param2})
meta:set_string("formspec", default.active_computer_formspec(pos))
meta:set_string("infotext", "Home Computer (owner "..
meta:get_string("owner")..")")
local inv = meta:get_inventory()
inv:set_size("main", 4*2)
timer:start(1300)
end
end,
on_punch = function(pos)
local timer = minetest.get_node_timer(pos)
local meta = minetest.get_meta(pos)
local node = minetest.get_node(pos)
meta:set_string("formspec", default.computer_formspec(pos))
meta:set_string("infotext", "Home Computer (owner "..
meta:get_string("owner")..")")
local inv = meta:get_inventory()
inv:set_size("main", 4*2)
timer:start(60)
end,
on_construct = function(pos)
local meta = minetest.get_meta(pos)
meta:set_string("formspec", default.game_computer_formspec(pos))
meta:set_string("formspec", default.computer_formspec(pos))
meta:set_string("infotext", "Computer")
local inv = meta:get_inventory()
inv:set_size("main", 4*2)
end,
can_dig = function(pos,player)
local meta = minetest.get_meta(pos);
local inv = meta:get_inventory()
return inv:is_empty("main") and has_home_computer_privilege(meta, player)
return computer_owner(meta, player)
end,
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
local meta = minetest.get_meta(pos)
if not has_home_computer_privilege(meta, player) then
if not computer_owner(meta, player) then
minetest.log("action", player:get_player_name()..
" tried to access a home computer belonging to "..
meta:get_string("owner").." at "..
@ -103,7 +131,7 @@ minetest.register_node("bitcoins:home_computer",{
end,
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
local meta = minetest.get_meta(pos)
if not has_home_computer_privilege(meta, player) then
if not computer_owner(meta, player) then
minetest.log("action", player:get_player_name()..
" tried to access a locked chest belonging to "..
meta:get_string("owner").." at "..
@ -114,7 +142,7 @@ minetest.register_node("bitcoins:home_computer",{
end,
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
local meta = minetest.get_meta(pos)
if not has_home_computer_privilege(meta, player) then
if not computer_owner(meta, player) then
minetest.log("action", player:get_player_name()..
" tried to access a home computer belonging to "..
meta:get_string("owner").." at "..
@ -138,20 +166,20 @@ minetest.register_node("bitcoins:home_computer",{
})
minetest.register_node("bitcoins:home_computer_active",{
minetest.register_node("mycoins:home_computer_active",{
drawtype = "nodebox",
description = "Home Computer",
tiles = {"bitcoins_home_computer_tp.png",
"bitcoins_home_computer_bt.png",
"bitcoins_home_computer_rt.png",
"bitcoins_home_computer_lt.png",
"bitcoins_home_computer_bk.png",
"bitcoins_home_computer_ft.png"},
tiles = {"mycoins_home_computer_tp.png",
"mycoins_home_computer_bt.png",
"mycoins_home_computer_rt.png",
"mycoins_home_computer_lt.png",
"mycoins_home_computer_bk.png",
"mycoins_home_computer_ft.png"},
paramtype = "light",
paramtype2 = "facedir",
light_source = 8,
drop = "bitcoins:home_computer",
groups = {cracky=2, not_in_creative_inventory=1},
drop = "mycoins:home_computer",
groups = {cracky=2, not_in_creative_inventory=1, oddly_breakable_by_hand=2},
node_box = {
type = "fixed",
fixed = {
@ -160,30 +188,49 @@ minetest.register_node("bitcoins:home_computer_active",{
{-0.500000,-0.500000,-0.500000,0.500000,-0.375,-0.03125},
},
},
sounds = default.node_sound_wood_defaults(),
after_place_node = function(pos, placer)
on_timer = function(pos)
local meta = minetest.get_meta(pos)
if ( minetest.get_player_by_name(meta:get_string("owner")) == nil ) then
local timer = minetest.get_node_timer(pos)
local meta = minetest.get_meta(pos)
meta:set_string("owner", placer:get_player_name() or "")
local node = minetest.get_node(pos)
minetest.swap_node(pos, {name = 'mycoins:home_computer', param2 = node.param2})
meta:set_string("formspec", default.computer_off_formspec(pos))
meta:set_string("infotext", "Home Computer (owner "..
meta:get_string("owner")..")")
end,
on_construct = function(pos)
local meta = minetest.get_meta(pos)
meta:set_string("formspec", default.home_computer_formspec(pos))
meta:set_string("infotext", "Computer")
local inv = meta:get_inventory()
inv:set_size("main", 4*2)
minetest.get_node_timer(pos):start(1300,0)
end,
timer:stop()
else
local timer = minetest.get_node_timer(pos)
minetest.get_meta(pos):get_inventory():add_item("main", "mycoins:bitcent")
timer:start(1300)
end
end,
on_punch = function(pos)
local timer = minetest.get_node_timer(pos)
local meta = minetest.get_meta(pos)
local node = minetest.get_node(pos)
minetest.swap_node(pos, {name = 'mycoins:home_computer', param2 = node.param2})
meta:set_string("formspec", default.computer_off_formspec(pos))
meta:set_string("infotext", "Home Computer (owner "..
meta:get_string("owner")..")")
local inv = meta:get_inventory()
inv:set_size("main", 4*2)
timer:stop()
end,
can_dig = function(pos,player)
local meta = minetest.get_meta(pos);
local inv = meta:get_inventory()
return inv:is_empty("main") and has_home_computer_privilege(meta, player)
return inv:is_empty("main") and computer_owner(meta, player)
end,
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
local meta = minetest.get_meta(pos)
if not has_home_computer_privilege(meta, player) then
if not computer_owner(meta, player) then
minetest.log("action", player:get_player_name()..
" tried to access a home computer belonging to "..
meta:get_string("owner").." at "..
@ -194,7 +241,7 @@ minetest.register_node("bitcoins:home_computer_active",{
end,
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
local meta = minetest.get_meta(pos)
if not has_home_computer_privilege(meta, player) then
if not computer_owner(meta, player) then
minetest.log("action", player:get_player_name()..
" tried to access a locked chest belonging to "..
meta:get_string("owner").." at "..
@ -205,7 +252,7 @@ minetest.register_node("bitcoins:home_computer_active",{
end,
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
local meta = minetest.get_meta(pos)
if not has_home_computer_privilege(meta, player) then
if not computer_owner(meta, player) then
minetest.log("action", player:get_player_name()..
" tried to access a home computer belonging to "..
meta:get_string("owner").." at "..
@ -230,19 +277,19 @@ minetest.register_node("bitcoins:home_computer_active",{
-- Game Computer
minetest.register_node("bitcoins:game_computer",{
minetest.register_node("mycoins:game_computer",{
drawtype = "nodebox",
description = "Gaming Computer",
tiles = {"bitcoins_game_computer_tp.png",
"bitcoins_game_computer_bt.png",
"bitcoins_game_computer_rt.png",
"bitcoins_game_computer_lt.png",
"bitcoins_game_computer_bk.png",
"bitcoins_game_computer_ft_off.png"},
tiles = {"mycoins_game_computer_tp.png",
"mycoins_game_computer_bt.png",
"mycoins_game_computer_rt.png",
"mycoins_game_computer_lt.png",
"mycoins_game_computer_bk.png",
"mycoins_game_computer_ft_off.png"},
paramtype = "light",
paramtype2 = "facedir",
drop = "bitcoins:game_computer",
groups = {cracky=2},
drop = "mycoins:game_computer",
groups = {cracky=2, oddly_breakable_by_hand=2},
node_box = {
type = "fixed",
fixed = {
@ -251,29 +298,67 @@ minetest.register_node("bitcoins:game_computer",{
{-0.500000,-0.500000,-0.500000,0.500000,-0.375,-0.03125},
},
},
sounds = default.node_sound_wood_defaults(),
after_place_node = function(pos, placer)
local meta = minetest.get_meta(pos)
local timer = minetest.get_node_timer(pos)
meta:set_string("owner", placer:get_player_name() or "")
meta:set_string("infotext", "Gaming Computer (owner "..
meta:get_string("owner")..")")
timer:start(50)
end,
on_construct = function(pos)
local meta = minetest.get_meta(pos)
meta:set_string("formspec", default.game_computer_formspec(pos))
meta:set_string("infotext", "Gaming Computer")
meta:set_string("formspec", default.computer_formspec(pos))
meta:set_string("infotext", "Gaming Computer (owner "..
meta:get_string("owner")..")")
local inv = meta:get_inventory()
inv:set_size("main", 4*2)
end,
can_dig = function(pos,player)
local meta = minetest.get_meta(pos);
return computer_owner(meta, player)
end,
on_timer = function(pos)
local meta = minetest.get_meta(pos)
if ( minetest.get_player_by_name(meta:get_string("owner")) == nil ) then
local timer = minetest.get_node_timer(pos)
local meta = minetest.get_meta(pos)
local node = minetest.get_node(pos)
minetest.swap_node(pos, {name = 'mycoins:game_computer', param2 = node.param2})
meta:set_string("formspec", default.computer_off_formspec(pos))
meta:set_string("infotext", "Game Computer (owner "..
meta:get_string("owner")..")")
local inv = meta:get_inventory()
return inv:is_empty("main") and has_game_computer_privilege(meta, player)
inv:set_size("main", 4*2)
timer:stop()
else
local timer = minetest.get_node_timer(pos)
local meta = minetest.get_meta(pos)
local node = minetest.get_node(pos)
minetest.swap_node(pos, {name = 'mycoins:game_computer_active', param2 = node.param2})
meta:set_string("formspec", default.active_computer_formspec(pos))
meta:set_string("infotext", "Game Computer (owner "..
meta:get_string("owner")..")")
local inv = meta:get_inventory()
inv:set_size("main", 4*2)
timer:start(800)
end
end,
on_punch = function(pos)
local timer = minetest.get_node_timer(pos)
local meta = minetest.get_meta(pos)
local node = minetest.get_node(pos)
meta:set_string("formspec", default.computer_formspec(pos))
meta:set_string("infotext", "Game Computer (owner "..
meta:get_string("owner")..")")
local inv = meta:get_inventory()
inv:set_size("main", 4*2)
timer:start(50)
end,
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
local meta = minetest.get_meta(pos)
if not has_game_computer_privilege(meta, player) then
if not computer_owner(meta, player) then
minetest.log("action", player:get_player_name()..
" tried to access a gaming computer belonging to "..
meta:get_string("owner").." at "..
@ -284,7 +369,7 @@ minetest.register_node("bitcoins:game_computer",{
end,
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
local meta = minetest.get_meta(pos)
if not has_game_computer_privilege(meta, player) then
if not computer_owner(meta, player) then
minetest.log("action", player:get_player_name()..
" tried to access a locked chest belonging to "..
meta:get_string("owner").." at "..
@ -295,7 +380,7 @@ minetest.register_node("bitcoins:game_computer",{
end,
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
local meta = minetest.get_meta(pos)
if not has_game_computer_privilege(meta, player) then
if not computer_owner(meta, player) then
minetest.log("action", player:get_player_name()..
" tried to access a gaming computer belonging to "..
meta:get_string("owner").." at "..
@ -319,20 +404,20 @@ minetest.register_node("bitcoins:game_computer",{
})
minetest.register_node("bitcoins:game_computer_active",{
minetest.register_node("mycoins:game_computer_active",{
drawtype = "nodebox",
description = "Home Computer",
tiles = {"bitcoins_game_computer_tp.png",
"bitcoins_game_computer_bt.png",
"bitcoins_game_computer_rt.png",
"bitcoins_game_computer_lt.png",
"bitcoins_game_computer_bk.png",
"bitcoins_game_computer_ft.png"},
tiles = {"mycoins_game_computer_tp.png",
"mycoins_game_computer_bt.png",
"mycoins_game_computer_rt.png",
"mycoins_game_computer_lt.png",
"mycoins_game_computer_bk.png",
"mycoins_game_computer_ft.png"},
paramtype = "light",
paramtype2 = "facedir",
light_source = 8,
drop = "bitcoins:game_computer",
groups = {cracky=2, not_in_creative_inventory=1},
drop = "mycoins:game_computer",
groups = {cracky=2, not_in_creative_inventory=1, oddly_breakable_by_hand=2},
node_box = {
type = "fixed",
fixed = {
@ -343,28 +428,46 @@ minetest.register_node("bitcoins:game_computer_active",{
},
sounds = default.node_sound_wood_defaults(),
after_place_node = function(pos, placer)
local meta = minetest.get_meta(pos)
meta:set_string("owner", placer:get_player_name() or "")
meta:set_string("infotext", "Gaming Computer (owner "..
meta:get_string("owner")..")")
end,
on_construct = function(pos)
local meta = minetest.get_meta(pos)
meta:set_string("formspec", default.game_computer_formspec(pos))
meta:set_string("infotext", "Gaming Computer")
local inv = meta:get_inventory()
inv:set_size("main", 4*2)
minetest.get_node_timer(pos):start(800,0)
end,
can_dig = function(pos,player)
local meta = minetest.get_meta(pos);
local inv = meta:get_inventory()
return inv:is_empty("main") and has_game_computer_privilege(meta, player)
return inv:is_empty("main") and computer_owner(meta, player)
end,
on_timer = function(pos)
local meta = minetest.get_meta(pos)
if ( minetest.get_player_by_name(meta:get_string("owner")) == nil ) then
local timer = minetest.get_node_timer(pos)
local meta = minetest.get_meta(pos)
local node = minetest.get_node(pos)
minetest.swap_node(pos, {name = 'mycoins:game_computer', param2 = node.param2})
meta:set_string("formspec", default.computer_off_formspec(pos))
meta:set_string("infotext", "Game Computer (owner "..
meta:get_string("owner")..")")
local inv = meta:get_inventory()
inv:set_size("main", 4*2)
timer:stop()
else
local timer = minetest.get_node_timer(pos)
minetest.get_meta(pos):get_inventory():add_item("main", "mycoins:bitcent")
timer:start(800)
end
end,
on_punch = function(pos)
local timer = minetest.get_node_timer(pos)
local meta = minetest.get_meta(pos)
local node = minetest.get_node(pos)
minetest.swap_node(pos, {name = 'mycoins:game_computer', param2 = node.param2})
meta:set_string("formspec", default.computer_off_formspec(pos))
meta:set_string("infotext", "Game Computer (owner "..
meta:get_string("owner")..")")
local inv = meta:get_inventory()
inv:set_size("main", 4*2)
timer:stop()
end,
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
local meta = minetest.get_meta(pos)
if not has_game_computer_privilege(meta, player) then
if not computer_owner(meta, player) then
minetest.log("action", player:get_player_name()..
" tried to access a gaming computer belonging to "..
meta:get_string("owner").." at "..
@ -375,7 +478,7 @@ minetest.register_node("bitcoins:game_computer_active",{
end,
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
local meta = minetest.get_meta(pos)
if not has_game_computer_privilege(meta, player) then
if not computer_owner(meta, player) then
minetest.log("action", player:get_player_name()..
" tried to access a locked chest belonging to "..
meta:get_string("owner").." at "..
@ -386,7 +489,7 @@ minetest.register_node("bitcoins:game_computer_active",{
end,
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
local meta = minetest.get_meta(pos)
if not has_game_computer_privilege(meta, player) then
if not computer_owner(meta, player) then
minetest.log("action", player:get_player_name()..
" tried to access a gaming computer belonging to "..
meta:get_string("owner").." at "..
@ -411,19 +514,19 @@ minetest.register_node("bitcoins:game_computer_active",{
-- Alienware Computer
minetest.register_node("bitcoins:alien_computer",{
minetest.register_node("mycoins:alien_computer",{
drawtype = "nodebox",
description = "Alienware Computer",
tiles = {"bitcoins_alien_computer_tp.png",
"bitcoins_alien_computer_bt.png",
"bitcoins_alien_computer_rt.png",
"bitcoins_alien_computer_lt.png",
"bitcoins_alien_computer_bk.png",
"bitcoins_alien_computer_ft_off.png"},
tiles = {"mycoins_alien_computer_tp.png",
"mycoins_alien_computer_bt.png",
"mycoins_alien_computer_rt.png",
"mycoins_alien_computer_lt.png",
"mycoins_alien_computer_bk.png",
"mycoins_alien_computer_ft_off.png"},
paramtype = "light",
paramtype2 = "facedir",
drop = "bitcoins:alien_computer",
groups = {cracky=2},
drop = "mycoins:alien_computer",
groups = {cracky=2, oddly_breakable_by_hand=2},
node_box = {
type = "fixed",
fixed = {
@ -436,28 +539,67 @@ minetest.register_node("bitcoins:alien_computer",{
sounds = default.node_sound_wood_defaults(),
after_place_node = function(pos, placer)
local meta = minetest.get_meta(pos)
local timer = minetest.get_node_timer(pos)
meta:set_string("owner", placer:get_player_name() or "")
meta:set_string("infotext", "Alienware Computer (owner "..
meta:get_string("owner")..")")
-- hacky_swap_node(pos,"bitcoins:game_computer_active")
timer:start(40)
end,
on_construct = function(pos)
local meta = minetest.get_meta(pos)
meta:set_string("formspec", default.game_computer_formspec(pos))
meta:set_string("infotext", "Computer")
meta:set_string("formspec", default.computer_formspec(pos))
meta:set_string("infotext", "Alienware Computer (owner "..
meta:get_string("owner")..")")
local inv = meta:get_inventory()
inv:set_size("main", 4*2)
end,
can_dig = function(pos,player)
local meta = minetest.get_meta(pos);
return computer_owner(meta, player)
end,
on_timer = function(pos)
local meta = minetest.get_meta(pos)
if ( minetest.get_player_by_name(meta:get_string("owner")) == nil ) then
local timer = minetest.get_node_timer(pos)
local meta = minetest.get_meta(pos)
local node = minetest.get_node(pos)
minetest.swap_node(pos, {name = 'mycoins:alien_computer', param2 = node.param2})
meta:set_string("formspec", default.computer_off_formspec(pos))
meta:set_string("infotext", "Alienware Computer (owner "..
meta:get_string("owner")..")")
local inv = meta:get_inventory()
return inv:is_empty("main") and has_alien_computer_privilege(meta, player)
inv:set_size("main", 4*2)
timer:stop()
else
local timer = minetest.get_node_timer(pos)
local meta = minetest.get_meta(pos)
local node = minetest.get_node(pos)
minetest.swap_node(pos, {name = 'mycoins:alien_computer_active', param2 = node.param2})
meta:set_string("formspec", default.active_computer_formspec(pos))
meta:set_string("infotext", "Alienware Computer (owner "..
meta:get_string("owner")..")")
local inv = meta:get_inventory()
inv:set_size("main", 4*2)
timer:start(600)
end
end,
on_punch = function(pos)
local timer = minetest.get_node_timer(pos)
local meta = minetest.get_meta(pos)
local node = minetest.get_node(pos)
meta:set_string("formspec", default.computer_formspec(pos))
meta:set_string("infotext", "Alienware Computer (owner "..
meta:get_string("owner")..")")
local inv = meta:get_inventory()
inv:set_size("main", 4*2)
timer:start(40)
end,
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
local meta = minetest.get_meta(pos)
if not has_alien_computer_privilege(meta, player) then
if not computer_owner(meta, player) then
minetest.log("action", player:get_player_name()..
" tried to access a alineware computer belonging to "..
" tried to access a Alienware computer belonging to "..
meta:get_string("owner").." at "..
minetest.pos_to_string(pos))
return 0
@ -466,9 +608,9 @@ minetest.register_node("bitcoins:alien_computer",{
end,
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
local meta = minetest.get_meta(pos)
if not has_alien_computer_privilege(meta, player) then
if not computer_owner(meta, player) then
minetest.log("action", player:get_player_name()..
" tried to access a alineware computer belonging to "..
" tried to access a Alienware computer belonging to "..
meta:get_string("owner").." at "..
minetest.pos_to_string(pos))
return 0
@ -477,9 +619,9 @@ minetest.register_node("bitcoins:alien_computer",{
end,
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
local meta = minetest.get_meta(pos)
if not has_alien_computer_privilege(meta, player) then
if not computer_owner(meta, player) then
minetest.log("action", player:get_player_name()..
" tried to access a alineware computer belonging to "..
" tried to access a Alienware computer belonging to "..
meta:get_string("owner").." at "..
minetest.pos_to_string(pos))
return 0
@ -488,33 +630,33 @@ minetest.register_node("bitcoins:alien_computer",{
end,
on_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
minetest.log("action", player:get_player_name()..
" moves stuff in alineware computer at "..minetest.pos_to_string(pos))
" moves stuff in Alienware computer at "..minetest.pos_to_string(pos))
end,
on_metadata_inventory_put = function(pos, listname, index, stack, player)
minetest.log("action", player:get_player_name()..
" moves stuff to alineware computer at "..minetest.pos_to_string(pos))
" moves stuff to Alienware computer at "..minetest.pos_to_string(pos))
end,
on_metadata_inventory_take = function(pos, listname, index, stack, player)
minetest.log("action", player:get_player_name()..
" takes stuff from alineware computer at "..minetest.pos_to_string(pos))
" takes stuff from Alienware computer at "..minetest.pos_to_string(pos))
end,
})
minetest.register_node("bitcoins:alien_computer_active",{
minetest.register_node("mycoins:alien_computer_active",{
drawtype = "nodebox",
description = "Alienware Computer",
tiles = {"bitcoins_alien_computer_tp.png",
"bitcoins_alien_computer_bt.png",
"bitcoins_alien_computer_rt.png",
"bitcoins_alien_computer_lt.png",
"bitcoins_alien_computer_bk.png",
"bitcoins_alien_computer_ft.png"},
tiles = {"mycoins_alien_computer_tp.png",
"mycoins_alien_computer_bt.png",
"mycoins_alien_computer_rt.png",
"mycoins_alien_computer_lt.png",
"mycoins_alien_computer_bk.png",
"mycoins_alien_computer_ft.png"},
paramtype = "light",
paramtype2 = "facedir",
light_source = 8,
drop = "bitcoins:alien_computer",
groups = {cracky=2, not_in_creative_inventory=1},
drop = "mycoins:alien_computer",
groups = {cracky=2, not_in_creative_inventory=1, oddly_breakable_by_hand=2},
node_box = {
type = "fixed",
fixed = {
@ -525,30 +667,50 @@ minetest.register_node("bitcoins:alien_computer_active",{
},
sounds = default.node_sound_wood_defaults(),
after_place_node = function(pos, placer)
on_timer = function(pos)
local meta = minetest.get_meta(pos)
if ( minetest.get_player_by_name(meta:get_string("owner")) == nil ) then
local timer = minetest.get_node_timer(pos)
local meta = minetest.get_meta(pos)
meta:set_string("owner", placer:get_player_name() or "")
local node = minetest.get_node(pos)
minetest.swap_node(pos, {name = 'mycoins:alien_computer', param2 = node.param2})
meta:set_string("formspec", default.computer_off_formspec(pos))
meta:set_string("infotext", "Alienware Computer (owner "..
meta:get_string("owner")..")")
end,
on_construct = function(pos)
local meta = minetest.get_meta(pos)
meta:set_string("formspec", default.alien_computer_formspec(pos))
meta:set_string("infotext", "Computer")
local inv = meta:get_inventory()
inv:set_size("main", 4*2)
minetest.get_node_timer(pos):start(600,0)
end,
timer:stop()
else
local timer = minetest.get_node_timer(pos)
minetest.get_meta(pos):get_inventory():add_item("main", "mycoins:bitcent")
timer:start(600)
end
end,
on_punch = function(pos)
local timer = minetest.get_node_timer(pos)
local meta = minetest.get_meta(pos)
local node = minetest.get_node(pos)
minetest.swap_node(pos, {name = 'mycoins:alien_computer', param2 = node.param2})
meta:set_string("formspec", default.computer_off_formspec(pos))
meta:set_string("infotext", "Alienware Computer (owner "..
meta:get_string("owner")..")")
local inv = meta:get_inventory()
inv:set_size("main", 4*2)
timer:stop()
end,
can_dig = function(pos,player)
local meta = minetest.get_meta(pos);
local inv = meta:get_inventory()
return inv:is_empty("main") and has_alien_computer_privilege(meta, player)
return inv:is_empty("main") and computer_owner(meta, player)
end,
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
local meta = minetest.get_meta(pos)
if not has_alien_computer_privilege(meta, player) then
if not computer_owner(meta, player) then
minetest.log("action", player:get_player_name()..
" tried to access a home computer belonging to "..
" tried to access an Alienware computer belonging to "..
meta:get_string("owner").." at "..
minetest.pos_to_string(pos))
return 0
@ -557,9 +719,9 @@ minetest.register_node("bitcoins:alien_computer_active",{
end,
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
local meta = minetest.get_meta(pos)
if not has_alien_computer_privilege(meta, player) then
if not computer_owner(meta, player) then
minetest.log("action", player:get_player_name()..
" tried to access a alineware computer belonging to "..
" tried to access an Alienware computer belonging to "..
meta:get_string("owner").." at "..
minetest.pos_to_string(pos))
return 0
@ -568,9 +730,9 @@ minetest.register_node("bitcoins:alien_computer_active",{
end,
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
local meta = minetest.get_meta(pos)
if not has_alien_computer_privilege(meta, player) then
if not computer_owner(meta, player) then
minetest.log("action", player:get_player_name()..
" tried to access a home computer belonging to "..
" tried to access a Alienware computer belonging to "..
meta:get_string("owner").." at "..
minetest.pos_to_string(pos))
return 0
@ -579,17 +741,14 @@ minetest.register_node("bitcoins:alien_computer_active",{
end,
on_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
minetest.log("action", player:get_player_name()..
" moves stuff in home computer at "..minetest.pos_to_string(pos))
" moves stuff in Alienware computer at "..minetest.pos_to_string(pos))
end,
on_metadata_inventory_put = function(pos, listname, index, stack, player)
minetest.log("action", player:get_player_name()..
" moves stuff to alineware computer at "..minetest.pos_to_string(pos))
" moves stuff to Alienware computer at "..minetest.pos_to_string(pos))
end,
on_metadata_inventory_take = function(pos, listname, index, stack, player)
minetest.log("action", player:get_player_name()..
" takes stuff from home computer at "..minetest.pos_to_string(pos))
" takes stuff from Alienware computer at "..minetest.pos_to_string(pos))
end,
})

195
shop.lua Normal file
View File

@ -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