local options = {
        x = 4,
        y = 4,
        z = 49, -- +1
        b = 245,
        r = 4
}

 
-- Ничего не трогайте ниже!
local matrix = {} -- Трехмерная матрица, содержащая информацию по позиции блоков 
local objects = {} --Список объектов
local moving = {} --Список перемещающиеся объектов в данный
 (Мы не хотим перемещать уже перемещающиеся объекты)
local leveltop = {} -- Список самого высокого уровня находящегося от каждого игрока 
local textDisplay -- Контейнер для textDisplay
local textItem -- Контейнер для textItem
local xy_speed -- Число мс блоков перемещающихся быстрее горизонтально с каждым уровнем 
local z_speed -- Число мс блоков перемещающихся быстрее вертикально с каждым уровнем 
local root = getRootElement() -- Главный элемент
local barrier_x -- Антибезудержный барьер положения x
local barrier_y -- Антибезудержный барьер положения y
local barrier_r -- Антибезудержный барьер радиуса

 
--Вычисление скорости
xy_speed = 2000 / (options.z + 1)
z_speed = 1500 / (options.z + 1)

 
-- Вычислите центр башни и радиус барьера 
barrier_x = (options.x + 1) * -2
barrier_y = (options.y + 1) * -2
x = options.x * 2 + 4
y = options.y * 2 + 4
barrier_r = math.sqrt(x*x+y*y)

 
--Очищение матрицы
for x = 1,options.x do --Для каждого X
        matrix[x] = {} --Инициализация таблицы Y
        for y = 1,options.y do --Для каждого Y
                matrix[x][y] = {} -- Инициализация таблицы Z
                for z = 1,options.z do --Для каждого Z
                        matrix[x][y][z] = 0 -- Заполнить 0
                end
        end
end

-- Число положений блоков сена в матрице
local x,y,z
for count = 1,options.b do
repeat
x = randInt ( 1, options.x ) --Отметить 1
y = randInt ( 1, options.y )
z = randInt ( 1, options.z )
until (matrix[x][y][z] == 0) -- Отметить 2
        matrix[x][y][z] = 1 --Отметить 3
        objects[count] = createObject ( 3374, x * -4, y * -4, z * 3,
 randInt ( 0, 3 ) * 90, randInt ( 0, 1 ) * 180 , randInt ( 0, 1 ) * 180 ) -- Отметить 4
end

 
-- Число положений камней в матрице 
for count = 1,options.r do
repeat
x = randInt ( 1, options.x ) -- Отметить 1
y = randInt ( 1, options.y )
z = randInt ( 1, options.z )
until (matrix[x][y][z] == 0) -- Отметить 2
	matrix[x][y][z] = 1 -- Отметить 3
	createObject ( 1305, x * -4, y * -4, z * 3, randInt ( 0, 359 ),
 randInt ( 0, 359 ), randInt ( 0, 359 ) ) -- Отметить 4
end

 
-- Место главного блока сена  + сюрприз
createObject ( 3374, barrier_x, barrier_y, options.z * 3 + 3 ) --Отметить 1
createPickup ( barrier_x, barrier_y, options.z * 3 + 6, 2, 38, 500 ) --Отметить 2

 
--Настройка показа текста
textDisplay = textCreateDisplay () --Отметить 1
textItem = textCreateTextItem ( "", 0.08, 0.20, 2, 255, 255, 255, 255, 1) --Отметить 2
textDisplayAddText ( textDisplay, textItem ) --Отметим 3
local players = getElementsByType( "player" )
for k,v in players do
	leveltop[v] = 0 --Отметить 5
	textDisplayAddObserver ( textDisplay, v ) --Отметить 4
end

 
setTimer ( "level", 1000, 0 )

 
setTimer ( "move", 100, 0 )

 
function move ()
local rand
repeat
rand = randInt ( 1, options.b ) --Отметим 1
until (moving[rand] ~= 1) --Отметим 2
	local object = objects[ rand ] --Отметим 3
	local move = randInt ( 0, 5 ) --Отметим 4
	local x,y,z
	local x2,y2,z2 = getElementPosition ( object )
	local free = {}
	copyTable(matrix,free) --Отметим 5
	getFree(free) --Отметим 6
	x = x2 / -4 --Отметим 7
	y = y2 / -4
	z = z2 / 3
	if (move == 0) and (x ~= 1) and (free[x-1][y][z] == 0) then --Отметим 8
		moving[rand] = 1 --Отметим 9
		local s = 4000 - xy_speed * z --Отметим 10
		setTimer ("done", s, 1, rand, x, y, z) --Отметим 11
		x = x - 1 --Отметим 12
		matrix[x][y][z] = 1 --Отметим 13
		moveObject ( object, s, x2 + 4, y2, z2, 0, 0, 0 ) --Отметим 14
	elseif (move == 1) and (x ~= options.x) and (free[x+1][y][z] == 0) then
		moving[rand] = 1
		local s = 4000 - xy_speed * z
		setTimer ("done", s, 1, rand, x, y, z)
		x = x + 1
		matrix[x][y][z] = 1
		moveObject ( object, s, x2 - 4, y2, z2, 0, 0, 0 )
	elseif (move == 2) and (y ~= 1) and (free[x][y-1][z] == 0) then
		moving[rand] = 1
		local s = 4000 - xy_speed * z
		setTimer ("done", s, 1, rand, x, y, z)
		y = y - 1
		matrix[x][y][z] = 1
		moveObject ( object, s, x2, y2 + 4, z2, 0, 0, 0 )
	elseif (move == 3) and (y ~= options.y) and (free[x][y+1][z] == 0) then
		moving[rand] = 1
		local s = 4000 - xy_speed * z
		setTimer ("done", s, 1, rand, x, y, z)
		y = y + 1
		matrix[x][y][z] = 1
		moveObject ( object, s, x2, y2 - 4, z2, 0, 0, 0 )
	elseif (move == 4) and (z ~= 1) and (free[x][y][z-1] == 0) then
		moving[rand] = 1
		local s = 3000 - z_speed * z
		setTimer ("done", s, 1, rand, x, y, z)
		z = z - 1
		matrix[x][y][z] = 1
		moveObject ( object, s, x2, y2, z2 - 3, 0, 0, 0 )
	elseif (move == 5) and (z ~= options.z) and (free[x][y][z+1] == 0) then
		moving[rand] = 1
		local s = 3000 - z_speed * z
		setTimer ("done", s, 1, rand, x, y, z)
		z = z + 1
		matrix[x][y][z] = 1
		moveObject ( object, s, x2, y2, z2 + 3, 0, 0, 0 )
	end
end

 
function level()
	local x,y,z
	local level
	local string = options.z + 1 .. " levels:\n" --Отметим 1
	local players = getElementsByType( "player" )
	for k,v in players do --Отметим 2
		x,y,z = getElementPosition( v )
		level = math.floor(z / 3 - 0.5) --Отметим 3
		if (getDistanceBetweenPoints2D(barrier_x,barrier_y,x,y) > barrier_r)
and (isPlayerDead ( v ) == false) and (z ~= 700) then --Отметим (4)
			outputChatBox( "* Killed: Don't walk away.", v, 255, 100, 100 )
			killPlayer(v)
		end
		if (z == 700) then --Отметим 5
			string = string .. getClientName ( v )
 .. " (-/" .. leveltop[v] .. ") 0%\n"
		else --Отметим 6
			if (level > leveltop[v]) then
				leveltop[v] = level
			end
			string = string .. getClientName ( v ) .. " 
(" .. level .. "/" .. leveltop[v] .. ") " .. math.floor(getPlayerHealth(v)) .. "%\n"
		end
	end
	textItemSetText ( textItem , string ) --Отметим 7
end

 
addEventHandler( "onPickupHit", root, "onPickupHit")
function onPickupHit ( player ) --Отметим 1
	if (getPickupType ( source ) == 2) then
		outputChatBox( "* " .. getClientName ( player )
 .. " made it to the top!", root, 255, 100, 100 ) --Отметим 2
		destroyElement( source ) --Отметим 3
	end
end

 
addEventHandler( "onPlayerJoin", root, "onPlayerJoin")
function onPlayerJoin ( )
leveltop[source] = 0 --Отметим 1
textDisplayAddObserver ( textDisplay, source ) --Отметим 2
end

 
function done ( id, x, y, z )
	moving[id] = 0 --Отметим 1
	matrix[x][y][z] = 0 --Отметим 2
end

 
function getFree ( src )
	local x,y,z
	local players = getElementsByType( "player" )
	for k,v in players do --Отметим 1
		x,y,z = getElementPosition( v )
		x = math.floor(x / -4 + 0.5) --Отметим 2
		y = math.floor(y / -4 + 0.5)
		z = math.floor(z / 3 + 0.5)
		if (x >= 1) and (x <options>= 1) and (y <options>= 1) 
and (z <= options.z) then --Отметим 3
			src[x][y][z] = 2 --Отметим 4
		end
	end
end

 
function copyTable ( src, des )
	for k,v in pairs(src) do
		if (type(v) == "table") then
			des[k] = {}
			copyTable(src[k],des[k])
		else
			des[k] = v
		end
	end
end