Spring RTS Engine

Code: Select all

local function FindOutline(map,level)
	local px,pz={},{}
	local zout
	for z=0,128 do
		if map:Get(0,level,z) then
			zout=true
		elseif zout then
			zout=z
			break
		end
	end
	local xo,yo,zo=0,level,zout
	local x,y,z=xo,yo,zo
	local dx,dz=1,0
	local it=0
	repeat
		it=it+1
		if it>9999 then
			error("Too many iterations!")
		end
		if not map:Get(x+dx,y,z+dz) then
			x,z=x+dx,z+dz
			px[1+#px],pz[1+#pz]=x,z
			if not map:Get(x+dz,y,z-dx) then
				dx,dz=dz,-dx
			end
		else
			dx,dz=-dz,dx
		end
	until x==xo and z==zo
	return px,pz
end