Grimrock

Code: Select all

--SecretDoorTorchScript

function opensecretdoor()
	if everlastingholder:hasEverlastingLight() == true 
	then
		secretlightdoor:open()
	else
		secretlightdoor:close()
	end
end

Code: Select all

-- Lock to prevent adding/removing torches from causing a infinite loop.
locked = false

function CheckTorch(holder)
	-- Prevent an infinite loop
	if locked then
		return
	end

	-- Make a list of all torches at the holder's location.  We can't loop
	-- over the items directly because we are going to change the entities
	-- at the current cell
	local eTorches = {}
	for item in entitiesAt(holder.level, holder.x, holder.y) do
		if item.name == "torch_everburning" then
			table.insert(eTorches, item)
		end
	end

	locked = true
	-- Loop over the everburning torches at the location.
	for i, torch in ipairs(eTorches) do
		local torchFacing = torch.facing

		-- Destroy the torch. If the torch was in the holder, the holder
		-- should now be empty.
		torch:destroy()	
		if not holder:hasTorch() then
			-- holder is empty, the torch was in the holder.  We can
			-- then open the door, recreate the torch, and break out
			-- of the loop.
			torchDoor:open()
			holder:addItem(spawn("torch_everburning"))
			break
		else
			-- if the holder still has the torch, then the everburning torch
			-- was not in the holder.  we then create a new torch on the ground
			-- to replace the one we destroyed
			spawn("torch_everburning", holder.level, holder.x, holder.y, torchFacing)
		end
	end
	locked = false
end