function area(id,x1,y1,x2,y2)
	return (player(id,'tilex')>=x1 or player(id,'tilex')==x1) and (player(id,'tilex')<=x2 or player(id,'tilex')==x2) and (player(id,'tiley')>=y1 or player(id,'tiley')==y1) and (player(id,'tiley')<=y2 or player(id,'tiley')==y2)
end

function spawnbuild(id,x,y,t)
	parse('spawnobject '..t..' '..x..' '..y..' 0 0 '..player(id, 'team')..' '..id)
end

function array(m)
	local array = {}
	for i = 1, 32 do
		array[i] = 0
	end
return array
end

block = {}

addhook('build', 'mc_build')
function mc_build(id, type, x, y, mode, objectid)
	block[objectid]. image = image("gfx/blood.bmp", x*32, y*32, 1)
end


addhook('objectkill', 'mc_blockdestroy')
function mc_blockdestroy(id, player)
	freeimage(block[id]. block)
end

addhook('build', 'mc_build')
function mc_build(id, type, x, y, mode, objectid)
     freeimage( objectid)
end

addhook( "buildattempt", "obj_build")
function obj_build( id, t, x, y)
	parse( 'spawnobject '.. t ..' '.. x ..' '.. y ..' '.. player( id, "rot") ..' 0 '.. player( id, "team") ..' '.. id)
	for _, j in ipairs( object( 0, "table")) do
		if object( j, "tilex") == x and object( j, "tiley") == y then
			objid = j
			break
		end
	end