morse code translator in rlua

-- Farewell Infortality.
-- Version: 2.82
-- Instances:
local ScreenGui = Instance.new("ScreenGui")
local Frame = Instance.new("Frame")
local TextLabel = Instance.new("TextLabel")
local TextButton = Instance.new("TextButton")
local out = Instance.new("TextLabel")
local TextBox = Instance.new("TextBox")
local cpy = setclipboard or toclipboard
--Properties:
ScreenGui.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")
ScreenGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling

Frame.Parent = ScreenGui
Frame.AnchorPoint = Vector2.new(0.5, 0.5)
Frame.BackgroundColor3 = Color3.new(0.341176, 0.494118, 0.470588)
Frame.Position = UDim2.new(0.5, 0, 0.5, 0)
Frame.Size = UDim2.new(1, 0, 1, 0)

TextLabel.Parent = Frame
TextLabel.BackgroundColor3 = Color3.new(1, 1, 1)
TextLabel.BackgroundTransparency = 1
TextLabel.Size = UDim2.new(1, 0, 0.151558071, 0)
TextLabel.Font = Enum.Font.Fantasy
TextLabel.Text = "ENGLISH TO MORSE CODE"
TextLabel.TextColor3 = Color3.new(0, 0, 0)
TextLabel.TextScaled = true
TextLabel.TextSize = 14
TextLabel.TextWrapped = true

TextButton.Parent = Frame
TextButton.AnchorPoint = Vector2.new(0.5, 0)
TextButton.BackgroundColor3 = Color3.new(0.690196, 1, 0.94902)
TextButton.Position = UDim2.new(0.5, 0, 0.5, 0)
TextButton.Size = UDim2.new(0.152207002, 0, 0.0708215311, 0)
TextButton.Font = Enum.Font.Fantasy
TextButton.Text = "TRANSLATE"
TextButton.TextColor3 = Color3.new(0, 0, 0)
TextButton.TextScaled = true
TextButton.TextSize = 14
TextButton.TextWrapped = true

out.Name = "out"
out.Parent = Frame
out.BackgroundColor3 = Color3.new(0.690196, 1, 0.94902)
out.Position = UDim2.new(0.629375935, 0, 0.151558071, 0)
out.Size = UDim2.new(0.281582952, 0, 0.848441899, 0)
out.Font = Enum.Font.Fantasy
out.Text = "OUTPUT"
out.TextColor3 = Color3.new(0, 0, 0)
out.TextScaled = true
out.TextSize = 14
out.TextWrapped = true

TextBox.Parent = Frame
TextBox.BackgroundColor3 = Color3.new(0.690196, 1, 0.94902)
TextBox.Position = UDim2.new(0.110350072, 0, 0.351274788, 0)
TextBox.Size = UDim2.new(0.152207002, 0, 0.349858344, 0)
TextBox.Font = Enum.Font.Fantasy
TextBox.PlaceholderText = "WORDS HERE"
TextBox.Text = ""
TextBox.TextColor3 = Color3.new(0, 0, 0)
TextBox.TextScaled = true
TextBox.TextSize = 14
TextBox.TextWrapped = true
-- Scripts:
function SCRIPT_OAPL79_FAKESCRIPT() -- TextButton.LocalScript
	local script = Instance.new('LocalScript')
	script.Parent = TextButton
	words = {
	"A",
	"B",
	"C",
	"D",
	"E",
	"F",
	"G",
	"H",
	"I",
	"J",
	"K",
	"L",
	"M",
	"N",
	"O",
	"P",
	"Q",
	"R",
	"S",
	"T",
	"U",
	"V",
	"W",
	"X",
	"Y",
	"Z",
	"0",
	"1",
	"2",
	"3",
	"4",
	"5",
	"6",
	"7",
	"8",
	"9",
	}

	translatedwords = {
	".-",
	"-...",
	"-.-.",
	"-..",
	".",
	"..-.",
	"--.",
	"....",
	"..",
	".---",
	"-.-",
	".-..",
	"--",
	"-.",
	"---",
	".--.",
	"--.-",
	".-.",
	"...",
	"-",
	"..-",
	"...-",
	".--",
	"-..-",
	"-.--",
	"--..",
	"-----",
	".----",
	"..---",
	"...--",
	"....-",
	".....",
	"-....",
	"--...",
	"---..",
	"----."
	}

	local word = ""
	script.Parent.MouseButton1Click:Connect(function()
		local delt = false
	    for i = 0 , string.len(script.Parent.Parent.TextBox.Text),1 do
			local t = script.Parent.Parent.TextBox.Text
			if string.len(script.Parent.Parent.TextBox.Text) >= 2000 then
				wait()
			end

			script.Parent.Parent.out.Text = 'Translating... '..100/(string.len(script.Parent.Parent.TextBox.Text))*i ..' % done'
	        for a,c in pairs(words) do
				if t ~= script.Parent.Parent.TextBox.Text then
					break
				end

	            if string.upper(string.sub(script.Parent.Parent.TextBox.Text,i,i)) == c then
	                word = word..translatedwords[a].." "
	            elseif string.sub(script.Parent.Parent.TextBox.Text,i,i) == " " and delt == false and i ~= 1 then
					delt = true
					print(string.sub(script.Parent.Parent.TextBox.Text,i,i))
	                word = word.." / "
	            end

			end
		delt = false
	    end
	    cpy(word)
	    script.Parent.Parent.out.Text = "Translated..."
	    wait(1)
	    script.Parent.Parent.out.Text = word
	    word = ""
	end)

end
coroutine.resume(coroutine.create(SCRIPT_OAPL79_FAKESCRIPT))