--Gen city by LeCom
--Nooby code, feel free to fix things and optimize the code for lua

--TODO: make noise and colour values more appropriate
function ROAD_COLOR() d=math.random(0, 1) return {d, d, d} end
function CONCRETE_GROUND_COLOR() d=math.random(-4, 4) return {128+d, 128+d, 128+d} end
function GRASS_COLOR() return {0, 128+math.random(-8, 8), 0} end

function BUILDING_WALL_COLOR() d=math.random(-4, 4) return {100+d, 100+d, 100+d} end
function BUILDING_FLOOR_COLOR() d=math.random(-4, 4) return {100+d, 100+d, 100+d} end
function BUILDING_STAIR_COLUMN_COLOR() return {32, 32, 32} end
function BUILDING_STAIR_COLOR() return {128, 128, 128} end
function BUILDING_BASEMENT_COLOR() return {16, 16, 16} end

function BUILDING_TABLE_COLOR() return {128, 64, 0} end
TABLE_W=2
TABLE_L=5
function BUILDING_CHAIR_COLOR() return {128, 64, 0} end


function FENCE_COLOR() d=math.random(-32, 32) return {80+d, 80+d, 80+d} end
FENCE_HEIGHT=6

function RUBBISH_BIN_COLOR() d=math.random(-32, 32) return {55+d, 64+d, 64+d} end
function RUBBISH_BIN_TOP_COLOR() d=math.random(-16, 16) return {25+d, 32+d, 32+d} end

function BUSH_COLOR() return {0, 128+math.random(-16, 16), 0} end
function LANTERN_COLOR() return {64, 64, 64} end
function LANTERN_LAMP_COLOR() return {255, 255, 0} end
LANTERN_H=8
LANTERN_INTERVAL=8

xcells=32
zcells=32

cells={}
celldata={}
cellheights={}

MIN_BUILDING_H=2
MAX_BUILDING_H=4
BUILDING_FLOOR_HEIGHT=6
WINDOW_WIDTH=3
WINDOW_HEIGHT=2
WINDOW_FRAME_WIDTH=4
WINDOW_OFFSET=3

ROAD_W=10

HROAD_W=math.floor(ROAD_W/2)

FLOOR_Y=0

function ternary(c, t, f)
	if c then
		return t
	else
		return f
	end
end

function gen_bush(x1, y1, z1, x2, y2, z2)
	r=3
	midy=(y2-y1)/2+y1
	midz=(z2-z1)/2+z1
	for x=x1, x2-1 do
		pow_r=r*r/4
		for z=z1, z2-1 do
			pow_z=(z-midz)*(z-midz)
			for y=y1, y2-1 do
				pow_y=(y-midy)*(y-midy)
				if pow_z+pow_y<pow_r and math.random(0, 2) ~=0 then
					map_block_set(x, y, z, 1, unpack(BUSH_COLOR()))
				end
			end
		end
		if math.random(0, 1)==0 then
			r=r+math.random(-1, 1)
		end
	end
end

function gen_table(x1, y1, z1)
	tx2=x1+TABLE_W
	ty2=y1-1
	tz2=z1+TABLE_L
	for x=x1, tx2 do
		for z=z1, tz2 do
			map_block_set(x, ty2, z, 1, unpack(BUILDING_TABLE_COLOR()))
		end
	end
	map_block_set(x1, y1, z1, 1, unpack(BUILDING_TABLE_COLOR()))
	map_block_set(x1, y1, tz2, 1, unpack(BUILDING_TABLE_COLOR()))
	map_block_set(tx2, y1, z1, 1, unpack(BUILDING_TABLE_COLOR()))
	map_block_set(tx2, y1, tz2, 1, unpack(BUILDING_TABLE_COLOR()))
end

function gen_chair(x1, y1, z1)
	map_block_set(x1, y1, z1, 1, unpack(BUILDING_CHAIR_COLOR()))
	map_block_set(x1, y1-1, z1, 1, unpack(BUILDING_CHAIR_COLOR()))
	map_block_set(x1-1, y1, z1, 1, unpack(BUILDING_CHAIR_COLOR()))
end

function gen_bin(x1, y1, z1)
	map_block_set(x1, y1, z1, 1, unpack(RUBBISH_BIN_COLOR()))
	map_block_set(x1, y1-1, z1, 1, unpack(RUBBISH_BIN_TOP_COLOR()))
end

function gen_lantern(x1, y1, z1, xd, zd)
	hy=y1-LANTERN_H
	for y=hy, y1 do
		map_block_set(x1, y, z1, 1, unpack(LANTERN_COLOR()))
	end
	for i=1, 2 do
		x=x1+xd*i
		z=z1+zd*i
		map_block_set(x+zd, hy, z+xd, 1, unpack(LANTERN_COLOR()))
		map_block_set(x-zd, hy, z-xd, 1, unpack(LANTERN_COLOR()))
	end
	for i=1, 2 do
		x=x1+xd*i
		z=z1+zd*i
		map_block_set(x, hy, z, 1, unpack(LANTERN_LAMP_COLOR()))
	end
	map_block_set(x1+xd*3, hy, z1+zd*3, 1, unpack(LANTERN_COLOR()))
end

function create_building_site(x1, z1, x2, z2)
	xlen, ylen, zlen=common.map_get_dims()
	y1=map_highest_point(x1, 0, z1, x2, ylen, z2)
	for x=x1, x2-1 do
		for z=z1, z2-1 do
			y2=map_height_get(x, z)
			for y=y1, y2 do
				map_block_set(x, y, z, 1, unpack(CONCRETE_GROUND_COLOR()))
			end
		end
	end
	return y1
end

function map_highest_point(x1, y1, z1, x2, y2, z2)
	highest_point=y2
	for x=x1, x2-1 do
		for z=z1, z2-1 do
			y=map_height_get(x, z, y1)
			if y<highest_point then highest_point=y end
		end
	end
	return highest_point
end

function map_height_get(x, z, y1)
	if y1==nil then y1=0 end
	xlen, ylen, zlen=common.map_get_dims()
	for y=y1, ylen do
		if map_block_get(x, y, z) then
			return y
		end
	end
	return y
end

function gen_grass(x1, z1, lower_y, xsize, zsize, xnl, xnr, znl, znr)
	x2=x1+xsize
	z2=z1+zsize
	for x=0, xsize-1 do
		for z=0, zsize-1 do
			map_block_set(x+x1, lower_y, z+z1, 1, unpack(GRASS_COLOR()))
		end
	end
	wallxd=0
	wallzd=0
	if math.random(0, 3)==0 then
		wallxd=0
		wallzd=0
		while wallxd==0 and wallzd==0 do
			wallxd=math.random(-1, 1)
			wallzd=math.random(-1, 1)
		end
		mdl=0
		if wallxd~=0 then
			fencex=x1+xsize/2+(xsize/2-ternary(wallxd==1, 1, 0))*wallxd
			for z=z1, z1+xsize-1 do
				mdl=1-mdl
				for y=0, FENCE_HEIGHT do
					if(y%2)==mdl then
						map_block_set(fencex, lower_y-y, z, 1, unpack(FENCE_COLOR()))
					end
				end
			end
		else
			fencez=z1+zsize/2+(zsize/2-ternary(wallzd==1, 1, 0))*wallzd
			for x=x1, x1+xsize-1 do
				mdl=1-mdl
				for y=0, FENCE_HEIGHT do
					if(y%2)==mdl then
						map_block_set(x, lower_y-y, fencez, 1,  unpack(FENCE_COLOR()))
					end
				end
			end
		end
	end
	if math.random(0, 2)==0 and (wallxd~=0 or wallzd~=0) then
		b=math.random(1, 2)
		for i=0, b-1 do
			if wallxd~=0 then
				x=x1+xsize/2+(xsize/2-math.random(1, 2)-ternary(wallxd==1, 1, 0))*wallxd
				z=z1+math.random(1, zsize-1)
			else
				x=x1+math.random(1, xsize-1)
				z=z1+zsize/2+(zsize/2-math.random(1, 2)-ternary(wallzd==1, 1, 0))*wallzd
			end
			gen_bin(x, lower_y-1, z)
		end
	end
	bushes=math.random(0, 5)
	bush_w=4
	bush_l=6
	if bushes then
		for b=0, bushes-1 do
			x=math.random(x1+4, x2-bush_l-4)
			z=math.random(z1+4, z2-bush_w-4)
			gen_bush(x, lower_y-bush_w, z, x+bush_l, lower_y, z+bush_w)
		end
	end
end

--Array accesses need to be replaced by arrays passed to functions
function gen_building(x1, z1, lower_y, xsize, zsize, xnl, xnr, znl, znr)
	x2=x1+xsize-1
	z2=z1+zsize-1
	xc=x1/xsize
	zc=z1/zsize
	h=celldata[xc][zc]
	xnl=xnl==gen_building
	xnr=xnr==gen_building
	znl=znl==gen_building
	znr=znr==gen_building
	--UNSAFE TERNARY OPERATOR
	xlh=(xnl and celldata[xc-1][zc] or -1)
	xrh=(xnr and celldata[xc+1][zc] or -1)
	zlh=(znl and celldata[xc][zc-1] or -1)
	zrh=(znr and celldata[xc][zc+1] or -1)
	neighbour_higher=xlh>h or xrh>h or zlh>h or xrh>h
	neighbour=xnl or xnr or znl or znr
	do_stairs=neighbour_higher==false or math.random(0, 3)==0
	midx=xsize/2+x1
	midz=zsize/2+z1
	for f=0, h-1 do
		y1=lower_y-(f+1)*BUILDING_FLOOR_HEIGHT+1
		y2=lower_y-f*BUILDING_FLOOR_HEIGHT-1
		fy=y1-1
		--The floor (+ hole at stair positions)
		for x=x1, x2 do
			stairx=((x>=midx-1) and (x<midx+2)) and do_stairs
			for z=z1, z2 do
				continue=0
				if stairx then
					if z>=midz-1 and z<midz+2 then
						continue=1
					end
				end
				if continue==0 then
					map_block_set(x, fy, z, 1, unpack(BUILDING_FLOOR_COLOR()))
				end
			end
		end
		table_count=math.random(0, 2)
		if table_count~=0 then
			for i=0, table_count do
				gen_table(ternary(math.random(0, 1)==0, x1+1, x2-TABLE_W-1), y2, ternary(math.random(0, 1)==0, z1+1, z2-TABLE_L-1))
			end
		end
		chair_count=math.random(0, 5)
		if chair_count~=0 then
			for i=0, chair_count do
				gen_chair(ternary(math.random(0, 1)==0, x1+4, x2-5)+1, y2, ternary(math.random(0, 1)==0, z1+4, z2-5))
			end
		end

		do_zlhw=(zlh<=f or znl==false)
		do_zrhw=(zrh<=f or znr==false)
		do_xlhw=(xlh<=f or xnl==false)
		do_xrhw=(xrh<=f or xnr==false)

		door_side=0
		if f==0 then door_side=math.random(1, 8) end
		if xlh==f then door_side=bit_or(door_side, 1) end
		if xrh==f then door_side=bit_or(door_side, 2) end
		if zrh==f then door_side=bit_or(door_side, 4) end
		if zlh==f then door_side=bit_or(door_side, 8) end

		upper_window_y=y1+WINDOW_HEIGHT/2
		lower_window_y=y2-WINDOW_HEIGHT/2-(WINDOW_HEIGHT%2)

		--WALLS (x direction)
		if do_zlhw or do_zrhw then
			window_c=-1+WINDOW_OFFSET
			window=0
			for x=x1, x2 do		
				for y=y1, y2 do
					build_block=y>=lower_window_y or y<upper_window_y or window==0
					if do_zlhw and build_block and not (bit_and(door_side, 8)~=0 and window==1) then
						map_block_set(x, y, z1, 1, unpack(BUILDING_WALL_COLOR()))
					end
					if do_zrhw and build_block and not (bit_and(door_side, 4)~=0 and window==1) then
						map_block_set(x, y, z2, 1, unpack(BUILDING_WALL_COLOR()))
					end
				end
				if window==0 then
					if window_c>=WINDOW_FRAME_WIDTH then
						window=1
						window_c=0
					end
				else
					if window_c>=WINDOW_WIDTH then
						window=0
						window_c=0
					end
				end
				window_c=window_c+1
			end
		end
		--WALLS (z direction)
		if do_xlhw or do_xrhw then
			window_c=-1+WINDOW_OFFSET
			window=0
			for z=z1, z2 do		
				for y=y1, y2 do	
					build_block=y>=lower_window_y or y<upper_window_y or window==0
					if do_xlhw and build_block and not (bit_and(door_side, 1)~=0 and window==1) then
						map_block_set(x1, y, z, 1, unpack(BUILDING_WALL_COLOR()))
					end
					if do_xrhw and build_block and not (bit_and(door_side, 2)~=0 and window==1) then
						map_block_set(x2, y, z, 1, unpack(BUILDING_WALL_COLOR()))
					end
				end
				if window==0 then
					if window_c>=WINDOW_FRAME_WIDTH then
						window=1
						window_c=0
					end
				else
					if window_c>=WINDOW_WIDTH then
						window=0
						window_c=0
					end
				end
				window_c=window_c+1
			end
		end
		--Stairs
		if do_stairs then
			for y=lower_y-(f+1)*BUILDING_FLOOR_HEIGHT, lower_y-f*BUILDING_FLOOR_HEIGHT do
				x=midx
				z=midz
				map_block_set(x, y, z, 1, unpack(BUILDING_STAIR_COLUMN_COLOR()))
				ymod=(y-lower_y+1)%8
				if ymod>=1 and ymod<4 then
					x=x+1
				else
					if ymod>4 then
						x=x-1
					end
				end
				ymod=(y-lower_y-1)%8
				if ymod>=1 and ymod<4 then
					z=z+1
				else
					if ymod>4 then
						z=z-1
					end
				end
				map_block_set(x, y, z, 1, unpack(BUILDING_STAIR_COLOR()))
			end
		end
	end
	--Roof
	do_xlr=xnl~=false and xlh<h
	do_xrr=xnr~=false and xrh<h
	do_zlr=znl~=false and zlh<h
	do_zrr=znr~=false and zrh<h
	if do_xlhw or do_xrhw then
		for z=z1, z2 do
			if do_xlhw then
				map_block_set(x1, lower_y-h*BUILDING_FLOOR_HEIGHT-1, z, 1, unpack(BUILDING_WALL_COLOR()))
			end
			if do_xrhw then
				map_block_set(x2, lower_y-h*BUILDING_FLOOR_HEIGHT-1, z, 1, unpack(BUILDING_WALL_COLOR()))
			end
		end
	end
	if do_zlhw or do_zrhw then
		for x=x1, x2 do
			if do_zlhw then
				map_block_set(x, lower_y-h*BUILDING_FLOOR_HEIGHT-1, z1, 1, unpack(BUILDING_WALL_COLOR()))
			end
			if do_zrhw then
				map_block_set(x, lower_y-h*BUILDING_FLOOR_HEIGHT-1, z2, 1, unpack(BUILDING_WALL_COLOR()))
			end
		end
	end
end

-- xc = grid x ; zc = grid z ; xnl, xnr = left/right neighbour tiles ; znl, znr = upper/lower neighbour tiles
function gen_road(x1, z1, lower_y, xsize, zsize, xnl, xnr, znl, znr)
	x2=x1+xsize
	z2=z1+zsize
	white_r=255
	white_g=255
	white_b=255
	powrange=(ROAD_W/2.0)*(ROAD_W/2.0)
	cx=x1/xsize
	cz=z1/zsize
	lxyf=0
	rxyf=0
	lzyf=0
	rzyf=0
	if xnl==gen_road then lxyf=(cellheights[cx-1][cz]-cellheights[cx][cz])/(xsize/2) end
	if xnr==gen_road then rxyf=(cellheights[cx+1][cz]-cellheights[cx][cz])/(xsize/2) end
	if znl==gen_road then lzyf=(cellheights[cx][cz-1]-cellheights[cx][cz])/(xsize/2) end
	if znr==gen_road then rzyf=(cellheights[cx][cz+1]-cellheights[cx][cz])/(xsize/2) end
	for x=0, xsize-1 do
		for z=0, zsize-1 do
			if (x+.5-xsize/2.0)*(x+.5-xsize/2.0)+(z+.5-zsize/2.0)*(z+.5-zsize/2.0)<=powrange then
				map_block_set(x+x1, lower_y, z+z1, 1, unpack(ROAD_COLOR()))
			end
		end
	end
	if znl==gen_road or znr==gen_road then
		midx=x1+xsize/2
		sz=z1+ternary(znl~=gen_road, xsize/2, 0)
		ez=z1+zsize/2+ternary(znr==gen_road, xsize/2, 0)
		for z=sz, ez-1 do
			build_white_line=(z%4)~=0
			for x=midx-HROAD_W, midx+HROAD_W-1 do
				continue=0
				c=map_block_get(x, lower_y, z)
				if c[2]==white_r and c[3]==white_g and c[4]==white_b then
					continue=1
				end
				if (x==midx) and build_white_line and (continue==0) then
					map_block_set(x, lower_y, z, 1, white_r, white_g, white_b)
					continue=1
				end
				if continue==0 then
					map_block_set(x, lower_y, z, 1, unpack(ROAD_COLOR()))
				end
			end
		end
	end
	if xnl==gen_road or xnr==gen_road then
		midz=z1+zsize/2
		sx=x1+ternary(xnl~=gen_road, xsize/2, 0)
		ex=x1+xsize/2+ternary(xnr==gen_road, xsize/2, 0)
		for x=sx, ex-1 do
			build_white_line=(x%4)~=0
			for z=midz-HROAD_W, midz+HROAD_W-1 do
				continue=0
				c=map_block_get(x, lower_y, z)
				if c[2]==white_r and c[3]==white_g and c[4]==white_b then
					continue=1
				end
				if (z==midz) and build_white_line and continue==0 then
					map_block_set(x, lower_y, z, 1, white_r, white_g, white_b)
					continue=1
				end
				if continue==0 then
					map_block_set(x, lower_y, z, 1, unpack(ROAD_COLOR()))
				end
			end
		end
	end
	if znl~=gen_road and znr~=gen_road then
		b=math.random(0, 2)
		if b==0 then
			b=math.random(1, 3)
			for i=0, b-1 do
				zd=math.random(0, 1)*2-1
				x=math.random(x1, x2-1)
				z=z1+zsize/2+(zsize/2-ternary(zd==1, 1, 0))*zd
				gen_bin(x, lower_y-1, z)
			end
		end
		if xnr==gen_road or xnl==gen_road then
			for x=x1+LANTERN_INTERVAL*ternary(xnl~=gen_road, 1, 0),  x2-1-LANTERN_INTERVAL*ternary(xnr~=gen_road, 1, 0), LANTERN_INTERVAL do
				gen_lantern(x, lower_y-1, z1+1, 0, 1)
				gen_lantern(x, lower_y-1, z2-2, 0, -1)
			end
		end
	end
	if xnr~=gen_road and xnl~=gen_road then
		b=math.random(0, 2)
		if b==0 then
			b=math.random(1, 3)
			for i=0, b-1 do
				xd=math.random(0, 1)*2-1
				z=math.random(x1, x2-1)
				x=x1+xsize/2+(xsize/2-ternary(wallxd==1, 1, 0))*xd
				gen_bin(x, lower_y-1, z)
			end
		end
		if znr==gen_road or znl==gen_road then
			for z=z1+LANTERN_INTERVAL*ternary(znl~=gen_road, 1, 0),  z2-1-LANTERN_INTERVAL*ternary(znr~=gen_road, 1, 0), LANTERN_INTERVAL do
				gen_lantern(x1+1, lower_y-1, z, 1, 0)
				gen_lantern(x2-2, lower_y-1, z, -1, 0)
			end
		end
	end
end

function gen_border(x1, z1, lower_y, xsize, zsize, xnl, xnr, znl, znr)
	for x=0, xsize-1 do
		for z=0, zsize-1 do
			map_block_set(x+x1, lower_y, z+z1, 1, unpack(GRASS_COLOR()))
		end
	end
end


gen_funcs={gen_building, gen_grass}

function choice(array)
	return array[math.random(#array)]
end

--Needs to be improved
function road_snake(z)
	x=0
	zd=0
	l=math.random(xcells, math.floor(xcells*1.5))
	for i=0, l do
		cells[x][z]=gen_road
		z=z+zd
		x=x+ternary(zd==0, 1, 0)
		if x<0 or x>=xcells or z<0 or z>=zcells then break end
		if math.random(0, 3)==0 then
			zd=math.random(-1, 1)
		end
		--Avoid parallel roads (90° crossings are allowed!)
		if z<zcells-1 then
			if zd~=-1 and cells[x][z+1]==gen_road then zd=zd-1 end
		end
		if z>0 then
			if zd~=1 and cells[x][z-1]==gen_road then zd=zd+1 end
		end
		if x>0 and z+zd>0 and z+zd<zcells-1 then
			if zd~=0 and cells[x-1][z+zd]==gen_road then zd=0 end
		end
		if x<xcells-1 and z+zd>0 and z+zd<zcells-1 then
			if zd~=0 and cells[x+1][z+zd]==gen_road then zd=0 end
		end
	end
	
end

do
	local loose, user_toggles, user_settings
	local require=require
	loose, user_toggles, user_settings = ...
	local mx=user_settings["mx"] or 512
	local my=user_settings["my"] or 96
	local mz=user_settings["mz"] or 512
	local ret=common.map_new(mx, my, mz)
	common.map_set(ret)
	xcells=mx/16
	zcells=mz/16
	FLOOR_Y=my-4
	xcsize=mx/xcells
	zcsize=mz/zcells
	h=4
	for x=0, mx-1 do
		for z=0, mz-1 do
			c=CONCRETE_GROUND_COLOR()
			l={0, my-h, my-h, 0, c[1], c[2], c[3], 1}
			common.map_pillar_set(x, z, l)
		end
	end
	map_cache_start()
	for x=0, xcells-1 do
		cells[x]={}
		celldata[x]={}
		cellheights[x]={}
		xborder=x==0 or x==xcells-1
		for z=0, zcells-1 do
			cellheights[x][z]=create_building_site(x*xcsize, z*zcsize, (x+1)*xcsize, (z+1)*zcsize)
			--cellheights[x][z]=my-4			--replace with this line to make it 100x faster (will disable support for uneven terrain)
			zborder=z==0 or z==zcells-1
			if (xborder==false) and (zborder==false) then
				cell=choice(gen_funcs)
				--TODO: make different cells spawn with different amounts
				if math.random(0, 5)==0 then cell=gen_road end
				cells[x][z]=cell
				if cell==gen_building then
					celldata[x][z]=math.random(MIN_BUILDING_H, MAX_BUILDING_H)
				end
			else
				cells[x][z]=gen_border
			end
		end
	end
	rc=math.floor((mx*mx+mz*mz)/65536)
	rnd=math.floor(rc/2)
	if rnd>0 then
		rc=rc+math.random(-rnd, rnd)
	end
	for i=0, rc do
		road_snake(math.random(1, zcells-2))
	end
	for x=0, xcells-1 do
		for z=0, zcells-1 do
			xnl=0
			xnr=0
			znl=0
			znr=0
			if x>0 then
				xnl=cells[x-1][z]
			end
			if x<=xcells-2 then
				xnr=cells[x+1][z]
			end
			if z>0 then
				znl=cells[x][z-1]
			end
			if z<=zcells-2 then
				znr=cells[x][z+1]
			end
			cells[x][z](x*xcsize, z*zcsize, cellheights[x][z], xcsize, zcsize, xnl, xnr, znl, znr)
		end
		print(x*100/(xcells-1).."% generated")
	end
	map_cache_end()
	return ret, "lecom_gencity("..mx..","..mz..","..my..")"
end