math.randomseed(os.time())
game_boot = 45												-- seconds it takes to boot the computer
game_miner = math.random(350,425)					-- seconds it takes to mine one bitcent default 400
game_upgrade_step = 30									-- seconds to subtract from game_miner per upgrade

local function computer_owner(meta, player)
	if player:get_player_name() ~= meta:get_string("owner") then
		return false
	end
	return true
end

local function upgrade_timer(pos)
	local meta = minetest.get_meta(pos)
	local inv = meta:get_inventory()
	local expansion1 = inv:get_stack("exp1", 1)
	local expansion2 = inv:get_stack("exp2", 1)
	local expansion3 = inv:get_stack("exp3", 1)
	local upgraded_miner = game_miner
	if expansion1:get_name()== "mycoins:game_computer_video" then
		upgraded_miner = upgraded_miner - game_upgrade_step
	else
		if expansion1:get_name()== "" then
			upgraded_miner = upgraded_miner
		else
			upgraded_miner = upgraded_miner + 99999
		end
	end
	if expansion2:get_name()=="mycoins:game_computer_video" then
		upgraded_miner = upgraded_miner - game_upgrade_step
	else
		if expansion2:get_name()== "" then
			upgraded_miner = upgraded_miner
		else
			upgraded_miner = upgraded_miner + 99999
		end
	end
	if expansion3:get_name()== "mycoins:game_computer_video" then
		upgraded_miner = upgraded_miner - game_upgrade_step
	else
		if expansion3:get_name()== "" then
			upgraded_miner = upgraded_miner
		else
			upgraded_miner = upgraded_miner + 99999
		end
	end
	return upgraded_miner
end
 
function default.game_boot_formspec(pos)
	local formspec = "invsize[10,10]"..
	   "image[1,0.5;1.2,1.2;tux.png]"..
		"label[2,0.8;Initializing basic system settings	... OK]" ..
		"label[2,1.1;Mounting local filesystems			... OK]" ..
		"label[2,1.4;Enabling swap space						... OK]" ..
		"label[2,1.7;Setting up console						... OK]" ..
		"label[2,2;Operaing System Loaded					... OK]" ..
		"label[2,2.3;Starting cgminer 3.7.2 ]" ..
		"list[current_name;main;1,3;1,1;]"..
		"list[current_player;main;3,9.5;4,1;]"
	return formspec
end

function default.game_off_formspec(pos)
	local formspec = "invsize[10,10]"..
		"background[1,2.5;8,7;mycoins_game_computer_motherboard.png]"..
		"label[2,2;Powered Off...]"..
		"list[current_name;main;1,3;1,1;]"..
		"list[current_name;exp1;2,5.94;1,1;]"..
		"list[current_name;exp2;3,7.11;1,1;]"..
		"list[current_name;exp3;2,8.29;1,1;]"..
		"list[current_player;main;3,9.5;4,1;]"
	return formspec
end
 
function default.game_active_formspec(pos)
	local formspec = "invsize[10,10]"..
		"background[1,2.5;8,7;mycoins_game_computer_motherboard.png]"..
		"label[2,0.0;cgminer version 3.7.2 - Started]" ..
		"label[2,0.2;----------------------------------------------------------------------------------]" ..
		"label[2,0.4;5s:468.9K avg:468.8Kh/s : A:2304 R:0 HW:0 WU:394.4/m]" ..
		"label[2,0.7;ST: 2  SS: 0  NB: 1909  LW: 34901  GF: 14  RF: 7]" ..
		"label[2,1;Connected to stratum.max.bitcoin.com diff 1.02k with stratum.]" ..
		"label[2,1.3;Block: 31dca6d... Diff:104 Started: 09:24:05 Best share: 618K.]" ..
		"label[2,1.5;----------------------------------------------------------------------------------]" ..
		"list[current_name;main;1,3;1,1;]"..
		"list[current_name;exp1;2,5.94;1,1;]"..
		"list[current_name;exp2;3,7.11;1,1;]"..
		"list[current_name;exp3;2,8.29;1,1;]"..
		"list[current_player;main;3,9.5;4,1;]"
	return formspec
end
 
function default.game_wifi_formspec(pos)
	local formspec = "invsize[10,10]"..
		"label[2,2;No Internet Connection.]" ..
		"label[2,2.5;Contact Your Network Administrator For More Information.]" ..
		"list[current_name;main;1,3;1,1;]"..
		"list[current_player;main;3,9.5;4,1;]"
	return formspec
end

function default.game_off(pos)
	local timer = minetest.get_node_timer(pos)
	local meta = minetest.get_meta(pos)
	local node = minetest.get_node(pos)
	local inv = meta:get_inventory()
	minetest.swap_node(pos, {name = 'mycoins:game_computer', param2 = node.param2})
	meta:set_string("formspec", default.game_off_formspec(pos))
	meta:set_string("infotext", "Game Computer (owner "..
	meta:get_string("owner")..")")
	inv:set_size("main", 1*1)
	timer:stop()
end

function default.game_wifi(pos)
	local timer = minetest.get_node_timer(pos)
	local meta = minetest.get_meta(pos)
	local node = minetest.get_node(pos)
	local inv = meta:get_inventory()
	minetest.swap_node(pos, {name = 'mycoins:game_computer', param2 = node.param2})
	meta:set_string("formspec", default.game_wifi_formspec(pos))
	meta:set_string("infotext", "Game Computer (owner "..
	meta:get_string("owner")..")")
	inv:set_size("main", 1*1)
	timer:stop()
end

function default.game_boot(pos)
	local timer = minetest.get_node_timer(pos)
	local meta = minetest.get_meta(pos)
	local node = minetest.get_node(pos)
	local inv = meta:get_inventory()		
	meta:set_string("formspec", default.game_boot_formspec(pos))
	meta:set_string("infotext", "Game Computer (owner "..
	meta:get_string("owner")..")")
	inv:set_size("main", 1*1)
	timer:start(game_boot)
end


-- Game Computer
minetest.register_node("mycoins:game_computer",{
	drawtype = "nodebox",
	description = "Game Computer",
	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 = "mycoins:game_computer",
	groups = {cracky=2, oddly_breakable_by_hand=2},
	node_box = {
		type = "fixed",
		fixed = {
			{-0.500000,-0.500000,0.03125,0.500000,0.500000,0.40625},
			{-0.40625,-0.40625,0.40625,0.40625,0.40625,0.50000},
			{-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 "")
		default.game_off(pos)
	end,
	on_construct = function(pos)
		local meta = minetest.get_meta(pos)
		local inv = meta:get_inventory()
		meta:set_string("formspec", default.game_boot_formspec(pos))
		meta:set_string("infotext", "Game Computer (owner "..
		meta:get_string("owner")..")")
		inv:set_size("main", 1*1)
		inv:set_size("exp1", 1*1)
		inv:set_size("exp2", 1*1)
		inv:set_size("exp3", 1*1)
		end,
	on_timer = function(pos)
		local isp = minetest.find_node_near(pos, 3, {"mycoins:isp_on"})
		if isp == nil then
			local wifi = minetest.find_node_near(pos, 30, {"mycoins:router_on"})
			if wifi == nil then
				default.game_wifi(pos)
			else
				local meta = minetest.get_meta(pos)
				if ( minetest.get_player_by_name(meta:get_string("owner")) == nil ) then
					default.game_off(pos)
				else
					local timer = minetest.get_node_timer(pos)
					local meta = minetest.get_meta(pos)
					local node = minetest.get_node(pos)
					local inv = meta:get_inventory()
					minetest.swap_node(pos, {name = 'mycoins:game_computer_active', param2 = node.param2})
					meta:set_string("formspec", default.game_active_formspec(pos))
					meta:set_string("infotext", "Game Computer (owner "..
					meta:get_string("owner")..")")
					inv:set_size("main", 1*1)
					if ( upgrade_timer(pos) < game_miner ) then
						timer:start(upgrade_timer(pos))
					else
						default.game_off(pos)
					end
				end
			end
		else
			local meta = minetest.get_meta(pos)
			if ( minetest.get_player_by_name(meta:get_string("owner")) == nil ) then
				default.game_off(pos)
			else
				local timer = minetest.get_node_timer(pos)
				local meta = minetest.get_meta(pos)
				local node = minetest.get_node(pos)
				local inv = meta:get_inventory()
				minetest.swap_node(pos, {name = 'mycoins:game_computer_active', param2 = node.param2})
				meta:set_string("formspec", default.game_active_formspec(pos))
				meta:set_string("infotext", "Game Computer (owner "..
				meta:get_string("owner")..")")
				inv:set_size("main", 1*1)
				if ( upgrade_timer(pos) < game_miner ) then
					timer:start(upgrade_timer(pos))
				else
					default.game_off(pos)
				end
			end
		end
	end,
	on_punch = function(pos)
		local isp = minetest.find_node_near(pos, 3, {"mycoins:isp_on"})
		local meta = minetest.get_meta(pos)
		local inv = meta:get_inventory()
		if upgrade_timer(pos) < game_miner then
			if isp == nil then
				local wifi = minetest.find_node_near(pos, 30, {"mycoins:router_on"})
				if wifi == nil then
					default.game_wifi(pos)
				else
					if ( upgrade_timer(pos) < game_miner ) then
						default.game_boot(pos)
					else
						default.game_off(pos)
					end
				end
			else
				default.game_boot(pos)
			end
		else
			default.game_off(pos)
		end
	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 computer_owner(meta, player) 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 not computer_owner(meta, player) then
			return 0
		end
		return stack:get_count()
	end,
    allow_metadata_inventory_take = function(pos, listname, index, stack, player)
		local meta = minetest.get_meta(pos)
		if not computer_owner(meta, player) then
			return 0
		end
		return stack:get_count()
	end,
	can_dig = function(pos,player)
		local meta = minetest.get_meta(pos);
		local inv = meta:get_inventory()
		return inv:is_empty("main") and inv:is_empty("exp1") and inv:is_empty("exp2") and inv:is_empty("exp3") and computer_owner(meta, player)
	end,
})

minetest.register_node("mycoins:game_computer_active",{
	drawtype = "nodebox",
	description = "Game Computer",
	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 = "mycoins:game_computer",
	groups = {cracky=2, not_in_creative_inventory=1, oddly_breakable_by_hand=2},
	node_box = {
		type = "fixed",
		fixed = {
			{-0.500000,-0.500000,0.03125,0.500000,0.500000,0.40625},
			{-0.40625,-0.40625,0.40625,0.40625,0.40625,0.50000},
			{-0.500000,-0.500000,-0.500000,0.500000,-0.375,-0.03125},
		},
	},
	sounds = default.node_sound_wood_defaults(),
	on_timer = function(pos)
		local timer = minetest.get_node_timer(pos)
		local meta = minetest.get_meta(pos)
		local node = minetest.get_node(pos)
		local inv = meta:get_inventory()
		local isp = minetest.find_node_near(pos, 3, {"mycoins:isp_on"})
		if isp == nil then
			local wifi = minetest.find_node_near(pos, 30, {"mycoins:router_on"})
			if wifi == nil then
				default.game_off(pos)
			else
				local meta = minetest.get_meta(pos)
				if ( minetest.get_player_by_name(meta:get_string("owner")) == nil ) then
					default.game_off(pos)
				else
					if ( upgrade_timer(pos) < game_miner ) then
						timer:start(upgrade_timer(pos))
						minetest.get_meta(pos):get_inventory():add_item("main", "mycoins:bitcent")
					else
						default.game_off(pos)
					end
				end
			end
		else
			local meta = minetest.get_meta(pos)
			if ( minetest.get_player_by_name(meta:get_string("owner")) == nil ) then
				default.game_off(pos)
			else					
				if ( upgrade_timer(pos) < game_miner ) then
					minetest.get_meta(pos):get_inventory():add_item("main", "mycoins:bitcent")
					timer:start(upgrade_timer(pos))
				else
					default.game_off(pos)
				end
			end
		end
	end,	
	on_punch = function(pos)
		default.game_off(pos)
	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 computer_owner(meta, player) 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 not computer_owner(meta, player) then
			return 0
		end
		return stack:get_count()
	end,
   allow_metadata_inventory_take = function(pos, listname, index, stack, player)
		local meta = minetest.get_meta(pos)
		if not computer_owner(meta, player) then
			return 0
		end
		return stack:get_count()
	end,
	can_dig = function(pos,player)
		local meta = minetest.get_meta(pos);
		local inv = meta:get_inventory()
		return inv:is_empty("main") and inv:is_empty("exp1") and inv:is_empty("exp2") and inv:is_empty("exp3") and computer_owner(meta, player)
	end,
})