Живой просмотр в Roblox

Roblox - это интересная среда для разработки игр и обучения основам программирования. Но у неё нет одной из важнейших функций - живого просмотра, по причине чего приходится постоянно перезагружать проект после внесения изменений в скрипты. Будем это исправлять.

Основным языком программирования в Roblox является Lua, в котором есть метод loadstring. Этот метод позволяет загружать код из строки и выполнять его. Выполнять код может и командная строка в Roblox Studio. Но её недостаток состоит в том, что она может выполнять далеко не любой код и является однострочным полем ввода. Нам же требуется многострочное поле, при помощи которого можно будет создавать объекты в сценах, изменять их свойства и обрабатывать события. Для включения поддержки метода loadstring установите в контейнере ServerScriptService флажок для свойства LoadStringEnabled. Алгоритм реализации данного решения следующий:

Добавьте в проект рамку с прокруткой ScrollingFrame, и в него текстовое поле TextBox с многострочностью: MultiLine = true, TextWrapped = true

Создадим событие, которое будет возникать при изменении ввода и отправлять его на сервер для обработки. Выбираем ReplicatedStorage и создаём новое событие с именем Event (name = Event).

Добавим в рамку прокрутки кнопку и серверный скрипт при нажатии на кнопку. Важно, чтобы свойство скрипта RunContext = Legacy. Если это свойство будет Server, то с большой степенью вероятность серверный скрипт будет удваивать событие: нажали на кнопку один раз, а серверный скрипт выполнился 2 раза.

Базовая версия готова и наступает самый сложный момент - дописывание кода редактирования для TextBox. С момента создания Roblox никто не думал, что TextBox кто-то захочет использовать для редактирования многострочного текста, и функциональность этого элемента крайне скудна. Нет ни возможности удалять символы по Del, ни выделения с Shift, нет других необходимых для более или менее удобного редактирования текста функций. Значит, всё необходимое нужно будет писать руками в таком духе.

local event = game.ReplicatedStorage.Event

local textBox = script.Parent

function getSelectedText(textBox)
	if textBox.CursorPosition == -1 or textBox.SelectionStart == -1 then
		return
	end
	local minPos = math.min(textBox.CursorPosition, textBox.SelectionStart);
	local maxPos = math.max(textBox.CursorPosition, textBox.SelectionStart);
	
	local selectedText = string.sub(
		textBox.Text,
		math.min(textBox.CursorPosition, textBox.SelectionStart),
		math.max(textBox.CursorPosition, textBox.SelectionStart)
	)
	local test = string.sub(textBox.Text,0,textBox.CursorPosition-1) 
	
	textBox.Text = string.sub(textBox.Text,0,minPos-1) .. string.sub(textBox.Text,maxPos,#textBox.Text)
	if textBox.SelectionStart < textBox.CursorPosition then
		textBox.CursorPosition = textBox.SelectionStart;
	end	
	textBox.SelectionStart = -1

return selectedText
end

function findLast(textBox, haystack, needle)
	local i=haystack:match(".*"..needle.."()")
	if i==nil then
		return nil
	else
		return i
	end
end

local Game = game
local UserInputService = Game:GetService("UserInputService")

local function OnInputBegan(InputObject)
	--print(InputObject.KeyCode.Name)
	if InputObject.KeyCode.Name == "KeypadSeven" then
	--Home	
		local test = string.sub(textBox.Text,0,textBox.CursorPosition-1)
		local lastNpos = findLast(textBox, test,"%\n")
		if lastNpos == nil then
			lastNpos = 1;
		end
		if UserInputService:IsKeyDown("LeftShift") then
			if UserInputService:IsKeyDown("LeftControl") then
				textBox.SelectionStart = 0
			else	
				textBox.SelectionStart = lastNpos
			end	
		else
			textBox.CursorPosition = lastNpos	
		end
	elseif InputObject.KeyCode.Name == "KeypadOne" then
	--End	
		local test = string.sub(textBox.Text,textBox.CursorPosition,#textBox.Text)
		local lastNpos = string.find(test,"\n")
		if lastNpos == nil then
			lastNpos = #test;
		else
			lastNpos = lastNpos - 1
		end
		if UserInputService:IsKeyDown("LeftShift") then
			if UserInputService:IsKeyDown("LeftControl") then
				textBox.SelectionStart = textBox.CursorPosition + #test
			else	
				textBox.SelectionStart = textBox.CursorPosition + lastNpos
			end
		else
			textBox.CursorPosition = textBox.CursorPosition + lastNpos 
		end
	elseif InputObject.KeyCode.Name == "KeypadPeriod" then
		if textBox.CursorPosition ~= -1 and textBox.SelectionStart == -1 then
			textBox.SelectionStart = textBox.CursorPosition + 1 
			getSelectedText(textBox)
		else
			getSelectedText(textBox)
		end
	elseif InputObject.KeyCode.Name == "R" and UserInputService:IsKeyDown("LeftControl") then
		
			event:FireServer(textBox.Text)
	end

end

UserInputService.InputBegan:Connect(OnInputBegan)

local textBox = script.Parent
local function onlyAllowNumbers()
	event:FireServer(textBox.Text);
	
end
textBox:GetPropertyChangedSignal("Text"):Connect(onlyAllowNumbers)

В данном прмере интерпретация скрипта будет происходить при любом изменении ввода в поле TextBox, что приведёт к отображению ошибок в консоли до тех пор, пока в текстовой области не будет всё правильно и до конца дописано. Если такой режим предпросмотра раздражает, то можно интерпретацию скрипта повесить на какое-нибудь сочетание клавиш или нажатии на кнопку "Выполнить".