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