ToME: the Tales of Maj'Eyal

Code: Select all

newEntity{
   define_as = "TILE1",
   name = "tile1",
   display=' ', back_color={240,120,90},
   add_mos={{image="outlines/outline"..(rng.range(1, 96))..".png"}},
   always_remember = true,
}

Code: Select all

newEntity{
   define_as = "TILE1",
   name = "tile1",
   display=' ', back_color={240,120,90},
   resolvers.generic(function(e)
      e.add_mos={{image="outlines/outline"..(rng.range(1, 96))..".png"}}
   end),
   always_remember = true,
}

Code: Select all

--Look for empty square around edge, floodfill when found or make stairs if not there
function _M:edgeCheck()
	local foundx, foundy = -1, -1
	self.map_array = {}
	
	-- Mark all level unconnected
	for i = 0, self.level.map.w - 1 do
		self.map_array[i] = {}
		for j = 0, self.level.map.h - 1 do
			if self.level.map:checkEntity(i, j, Map.TERRAIN, "level") < 1 then
				self.map_array[i][j] = true
			else self.map_array[i][j] = false
			end
		end
	end
	
	
	for i = 0, self.level.map.w - 1 do
		if self.map_array[i][0] == true then
			foundx = i
			self:floodfill(i,0)
		end
	end
	
	if foundx == -1 then
		for i = 0, self.level.map.w - 1 do
			if self.map_array[i][self.level.map.h-1] == true then
				self:floodfill(i,self.level.map.h-1)
				foundx = i
			end
		end
	end
	
	if foundx == -1 then
		for i = 1, self.level.map.h - 2 do
			if self.map_array[0][i] == true then
				self:floodfill(0,i)
				foundx = 0
			end
		end
	end
	
	if foundx == -1 then
		for i = 1, self.level.map.h - 2 do
			if self.map_array[self.level.map.w - 1][i] == true then
				self:floodfill(self.level.map.w - 1,i)
				foundx = self.level.map.w - 1
			end
		end
	end
	
	--[[if foundx == -1 then
		for i = 1, self.level.map.h - 2 do
			if self.level.map:checkEntity(self.level.map.w - 1, i, Map.TERRAIN, "level") < 1 then
				foundx = self.level.map.w - 1
				foundy = i
			end
		end
	end--]]
	
	if foundx == -1 then
		--Make stairs - add lots of particle effects!  Pretty sounds!
		local g = self.zone:makeEntityByName(self.level, "terrain", "STAIRS")
		if g then self.zone:addEntity(self.level, g, "terrain", math.floor(self.level.map.w/2), math.floor(self.level.map.h/2)) end
		self.stairs_generated = false
		-- Add crazy shader?
	else
		for i = 0, self.level.map.w - 1 do
			for j = 0, self.level.map.h - 1 do
				if self.map_array[i][j] == true then
					local g = self.zone:makeEntityByName(game.level, "terrain", "TILE"..(rng.range(1, 29)))
					if g then
						self.zone:addEntity(game.level, g, "terrain", i, j)
					end
				end
			end
		end
		-- Go through whole map and mark all unconnected squares of level < 1 level = 1
		-- Cool particle effect too
	end

end

function _M:floodfill(x,y)
	if self.map_array[x+1][y] == true then
		self.map_array[x+1][y] = false
		self:floodfill(x+1,y)
	end
	if self.map_array[x+1][y+1] then 
		self.map_array[x+1][y+1] = false
		self:floodfill(x+1,y+1)
	end
	if self.map_array[x+1][y-1] then 
		self.map_array[x+1][y-1] = false
		self:floodfill(x+1,y-1)
	end
	if self.map_array[x][y+1] then 
		self.map_array[x][y+1] = false
		self:floodfill(x,y+1)
	end
	if self.map_array[x-1][y] then 
		self.map_array[x-1][y] = false
		self:floodfill(x-1,y) 
	end
	if self.map_array[x-1][y-1] then 
		self.map_array[x-1][y-1] = false
		self:floodfill(x-1,y-1) 
	end
	if self.map_array[x][y-1] then 
		self.map_array[x][y-1] = false
		self:floodfill(x,y-1) 
	end
	if self.map_array[x-1][y+1] then 
		self.map_array[x-1][y+1] = false
		self:floodfill(x-1,y+1) 
	end	
end

Code: Select all

if self.map_array[x+1][y+1] then 

Code: Select all

local grids = {}
actor:project({type="ball", radius=3}, x, y, function(px, py)
  local g = game.level.map(px, py, Map.TERRAIN)
  local a = game.level.map(px, py, Map.ACTOR)
  if g and g.define_as == "WHATEVER" and not a then grids[#grids+1] = {x=px, y=py} end
end)
if #grids > 0 then
  local spot = rng.table(grids)
  .... here you can use spot.x and spot.y ....
end