building_time = {
	[1] = 1, -- Barricade
	[2] = 1, -- Barbed Wire
	[3] = 1, -- Wall I
	[4] = 1, -- Wall II
	[5] = 2, -- Wall III
	[6] = 2, -- Gate Field
	[7] = 2, -- Dispenser
	[8] = 3, -- Turret
	[9] = 3, -- Supply
	[13] = 2, -- Teleporter Entrance
	[14] = 2, -- Teleporter Exit
}

building_price = {
	[1] = 300, -- Barricade
	[2] = 500, -- Barbed Wire
	[3] = 1000, -- Wall I
	[4] = 2000, -- Wall II
	[5] = 3000, -- Wall III
	[6] = 1500, -- Gate Field
	[7] = 5000, -- Dispenser
	[8] = 5000, -- Turret
	[9] = 5000, -- Supply
	[13] = 3000, -- Teleporter Entrance
	[14] = 3000, -- Teleporter Exit
}

t_buildings = {}

addhook("buildattempt", "simulatebuilding")
function simulatebuilding(id, type, x, y, mode)
	if (math.ceil(math.sqrt((player(id, "tilex") - x)^2 + (player(id, "tiley") - y)^2)) == 1) then
		if (player(id, "money") > building_price[type]) then
			t_buildings[#t_buildings+1] = {type = type, id = id, x = x, y = y, mode = mode, timer = {"parse", "spawnobject "..type.." "..x.." "..y.." 0 "..mode.." "..player(id,"team").." "..id}}
			parse("spawnobject 10 "..x.." "..y.." 0 "..mode.." "..player(id,"team").." "..id) -- Spawn a construction site on the spot
			timer(building_time[type]*1000, "parse", "killobject "..#object(0,"table")) -- Destroy the construction site after the building time
			timer(building_time[type]*1000, t_buildings[#t_buildings].timer[1], t_buildings[#t_buildings].timer[2]) -- Turn that construction site into a complete building after the building time
			parse("setmoney "..id.." "..player(id, "money") - building_price[type])
		else
			msg2(id,"\169255000000You have insufficient funds@C")
		end
	else
		msg2(id,"\169255000000you cannot build here@C")
	end
	return 1
end

addhook("objectkill", "destroycsites")
function destroycsites(oid, id)
	if (id > 0) then
		for k, v in pairs(t_buildings) do
			if (v.x == object(oid,"tilex") and v.y == object(oid,"tiley")) then
				freetimer(unpack(v.timer)) -- Free the completion timer in case it's still being built
				table.remove(t_buildings, k) -- Remove this entry from the table and rearrange the table neatly again
			end
		end
	end
end

local function randomTile()
	local x = math.random(0, map("xsize")-1)
	local y = math.random(0, map("ysize")-1)
	
	if (tile(x, y, "walkable")) then
		return x, y
	else
		randomTile()
	end
end

function giveUnequipableItem(id, item)
	parse("spawnitem "..item.." "..player(id,"tilex").." "..player(id,"tiley"))
	local x, y = player(id,"x"), player(id,"y")
	local x1, y1 = randomTile()
	timer(1, "parse", "setpos "..id.." ".. x1*32+16 .." "..y1*32+16) -- Teleport player to a random tile
	timer(10, "parse", "setpos "..id.." ".. x .." "..y) -- Teleport them back almost instantly
end

money = {}

money.start = 16000 -- Money at start
money.hud = {1, 320, 100, 1} -- ID, position and alignment of HUD text
money.effects = true -- Display visual effects

function money.add(id, a) -- Give money to a player
	money[id] = money[id] + a
	parse("hudtxt2 "..id.." "..money.hud[1].." \"\169000255000$: "..money[id].."\" "..money.hud[2].." "..money.hud[3].." "..money.hud[4])
	if (money.effects) then
		parse("hudtxtcolorfade "..id.." "..money.hud[1].." 1000 255 220 0")
	end
end

function money.sub(id, a) -- Remove money from a player directly (can make a player's money negative)
	money[id] = money[id] - a
	parse("hudtxt2 "..id.." "..money.hud[1].." \"\169255000000$: "..money[id].."\" "..money.hud[2].." "..money.hud[3].." "..money.hud[4])
	if (money.effects) then
		parse("hudtxtcolorfade "..id.." "..money.hud[1].." 1000 255 220 0")
	end
end

function money.take(id, a) -- Take money from a player (cannot make money negative)
	if (money[id] >= a) then
		money[id] = money[id] - a
	end
	parse("hudtxt2 "..id.." "..money.hud[1].." \"\169255000000$: "..money[id].."\" "..money.hud[2].." "..money.hud[3].." "..money.hud[4])
	if (money.effects) then
		parse("hudtxtcolorfade "..id.." "..money.hud[1].." 1000 255 220 0")
	end
end

function money.update(id) -- Call this to manually update the HUD text (shouldn't be needed if you only use the above functions)
	parse("hudtxt2 "..id.." "..money.hud[1].." \"$: "..money[id].."\" "..money.hud[2].." "..money.hud[3].." "..money.hud[4])
end

addhook("join", "money.join")
function money.join(id)
	money[id] = money.start
	money.update(id)
end