adventures/creative.lua

--Creative Mode

minetest.register_on_joinplayer(function(obj)
	if adventures.started then return end
	local file = io.open(minetest.get_worldpath().."/adventures_previousmode", "r")
	if(file:read("*l") ~= adventures.creative) then
		file:close()
		for pos,data in pairs(adventures.sourceData) do
			minetest.env:set_node({x=data[2],y=data[3],z=data[4]}, {name=data[1]})
		end
		file = io.open(minetest.get_worldpath().."/adventures_previousmode", "w")
		file:write(adventures.creative)
		file:close()
	else
		file:close()
		for pos,data in pairs(adventures.sourceData) do
			adventures.sources[pos] = data[1]
		end
	end
	adventures.started = true
end)

local function updateInvincibleSourceFormspec(meta)
	local formspec = "size[6.25,3]"..
		"label[1,0;Position]"..
		"button[0,1;.75,.5;xminusten;-10]button[.5,1;.75,.5;xminusone;-1]label[1.125,.825;X("..meta:get_int("x")..")]button[1.5,1;.75,.5;xplusone;+1]button[2,1;.75,.5;xplusten;+10]"..
		"button[0,1.5;.75,.5;yminusten;-10]button[.5,1.5;.75,.5;yminusone;-1]label[1.125,1.325;Y("..meta:get_int("y")..")]button[1.5,1.5;.75,.5;yplusone;+1]button[2,1.5;.75,.5;yplusten;+10]"..
		"button[0,2;.75,.5;zminusten;-10]button[.5,2;.75,.5;zminusone;-1]label[1.125,1.825;Z("..meta:get_int("z")..")]button[1.5,2;.75,.5;zplusone;+1]button[2,2;.75,.5;zplusten;+10]"..
		"label[4.5,0;Dimension]"..
		"button[3.5,1;.75,.5;widthminusten;-10]button[4,1;.75,.5;widthminusone;-1]label[4.625,.825;W("..meta:get_int("width")..")]button[5,1;.75,.5;widthplusone;+1]button[5.5,1;.75,.5;widthplusten;+10]"..
		"button[3.5,1.5;.75,.5;lengthminusten;-10]button[4,1.5;.75,.5;lengthminusone;-1]label[4.625,1.325;L("..meta:get_int("length")..")]button[5,1.5;.75,.5;lengthplusone;+1]button[5.5,1.5;.75,.5;lengthplusten;+10]"..
		"button[3.5,2;.75,.5;heightminusten;-10]button[4,2;.75,.5;heightminusone;-1]label[4.625,1.825;H("..meta:get_int("height")..")]button[5,2;.75,.5;heightplusone;+1]button[5.5,2;.75,.5;heightplusten;+10]"
	return formspec
end

minetest.register_entity("adventures:invincible_area" ,{
	physical = true,
	visual = "cube",
	visual_size = {x=2,y=1},
	collisionbox = {0,0,0,0,0,0},
	textures = {"adventures_invinArea.png","adventures_invinArea.png","adventures_invinArea.png","adventures_invinArea.png","adventures_invinArea.png","adventures_invinArea.png"},
})

minetest.register_node("adventures:invincible_source" ,{
	description = "Invincible Area",
	walkable = false,
	groups = {crumbly=3},
	tiles = {"adventures_invinSource.png"},
	on_construct = function(pos)
		adventures.sources[adventures.positionToString(pos)] = {name=minetest.env:get_node(pos).name,pos=pos}
		local meta = minetest.env:get_meta(pos)
		local x = 0
		local y = 0
		local z = 0
		local width = 2
		local length = 2
		local height = 1
		local data = adventures.sourceData[adventures.positionToString(pos)]
		if(data ~= nil) then
			x = data[5]
			y = data[6]
			z = data[7]
			width = data[8]
			length = data[9]
			height = data[10]
		end
		meta:set_int("x", x)
		meta:set_int("y", y)
		meta:set_int("z", z)
		meta:set_int("width", width)
		meta:set_int("length", length)
		meta:set_int("height", height)
		meta:set_string("formspec", updateInvincibleSourceFormspec(meta))
		local area = minetest.env:add_entity(pos, "adventures:invincible_area")
		area:setpos(adventures.snapPosition(meta, pos))
	end,
	on_receive_fields = function(pos, formname, fields, sender)
		local meta = minetest.env:get_meta(pos)
		local delta = {x=0,y=0,z=0}
		local updateDimension = false
		if fields.xminusten then delta.x = -10
		meta:set_int("x", meta:get_int("x")-10) end
		if fields.xminusone then delta.x = -1
		meta:set_int("x", meta:get_int("x")-1) end
		if fields.xplusone then delta.x = 1
		meta:set_int("x", meta:get_int("x")+1) end
		if fields.xplusten then delta.x = 10
		meta:set_int("x", meta:get_int("x")+10) end
		
		if fields.yminusten then delta.y = -10
		meta:set_int("y", meta:get_int("y")-10) end
		if fields.yminusone then delta.y = -1
		meta:set_int("y", meta:get_int("y")-1) end
		if fields.yplusone then delta.y = 1
		meta:set_int("y", meta:get_int("y")+1) end
		if fields.yplusten then delta.y = 10
		meta:set_int("y", meta:get_int("y")+10) end
		
		if fields.zminusten then delta.z = -10
		meta:set_int("z", meta:get_int("z")-10) end
		if fields.zminusone then delta.z = -1
		meta:set_int("z", meta:get_int("z")-1) end
		if fields.zplusone then delta.z = 1
		meta:set_int("z", meta:get_int("z")+1) end
		if fields.zplusten then delta.z = 10
		meta:set_int("z", meta:get_int("z")+10) end
		
		if fields.widthminusten then updateDimension = true
		meta:set_int("width", meta:get_int("width")-10) end
		if fields.widthminusone then updateDimension = true
		meta:set_int("width", meta:get_int("width")-1) end
		if fields.widthplusone then updateDimension = true
		meta:set_int("width", meta:get_int("width")+1) end
		if fields.widthplusten then updateDimension = true
		meta:set_int("width", meta:get_int("width")+10) end
		
		if fields.lengthminusten then updateDimension = true
		meta:set_int("length", meta:get_int("length")-10) end
		if fields.lengthminusone then updateDimension = true
		meta:set_int("length", meta:get_int("length")-1) end
		if fields.lengthplusone then updateDimension = true
		meta:set_int("length", meta:get_int("length")+1) end
		if fields.lengthplusten then updateDimension = true
		meta:set_int("length", meta:get_int("length")+10) end
		
		if fields.heightminusten then updateDimension = true
		meta:set_int("height", meta:get_int("height")-10) end
		if fields.heightminusone then updateDimension = true
		meta:set_int("height", meta:get_int("height")-1) end
		if fields.heightplusone then updateDimension = true
		meta:set_int("height", meta:get_int("height")+1) end
		if fields.heightplusten then updateDimension = true
		meta:set_int("height", meta:get_int("height")+10) end
		
		local area = adventures.findArea(meta, pos, delta)
		if updateDimension then
			area:set_properties({visual_size={x=meta:get_int("width"),y=meta:get_int("height")}})
		end
		area:setpos(adventures.snapPosition(meta, pos))
		meta:set_string("formspec", updateInvincibleSourceFormspec(meta))
	end,
	on_destruct = function(pos)
		adventures.sources[adventures.positionToString(pos)] = nil
		adventures.findArea(minetest.env:get_meta(pos), pos, {x=0,y=0,z=0}):remove()
	end,
})

minetest.register_chatcommand("save", {
	description = "saveAdventure : Save all node data to files",
	func = function(name, param)
		local saved = dofile(minetest.get_modpath("adventures").."/encode.lua")
		if saved then
			minetest.chat_send_player(name, "ADVENTURE SAVED")
		else
			minetest.chat_send_player(name, "ADVENTURE NOT SAVED")
		end
	end,
})