function deleteallbuildings(partei)
	counter = 1
	x = 0
	while counter < 83 do

		if counter == 46 then
		counter=49
		end

		x = Buildings.Amount(partei,counter, Buildings.READY)

		while x~=0 do
			Buildings.Delete(Buildings.GetFirstBuilding(partei,counter),partei)
			x = x-1
		end
		counter = counter +1
	end
end