Main

local Start = script.Parent.StartFrame
local NextStart = script.Parent.NextStart
local Application = script.Parent.Application
local Loading = script.Parent.Loading
local Data = { }
local remote = game:GetService("ReplicatedStorage").Application
local plr = game:GetService("Players").LocalPlayer

Start.NamePlayer.Text = "Welcome, "..plr.Name

function FadeIn(Frame)
	  Frame.Visible = true
	  for i = 1,0,-0.05 do
		Frame.Transparency = i
		wait(0.05)
	end
end

function FadeOut(Frame)
	      for i = 0,1,0.05 do
		  Frame.Transeparancy = i
		  wait(0.05)
	end
	  Frame.Visible = false
end


Start.Start.MouseButton1Click:connect(function()
	FadeIn(NextStart)
	FadeOut(Start)
end)

NextStart.R1.MouseButton1Click:connect(function()
	table.insert(Data,1,NextStart.R1.Text)
	FadeIn(Application)
	FadeOut(NextStart)
end)

NextStart.R2.MouseButton1Click:connect(function()
	table.insert(Data,1,NextStart.R2.Text)
	FadeIn(Application)
	FadeOut(NextStart)
end)

NextStart.R3.MouseButton1Click:connect(function()
	table.insert(Data,1,NextStart.R3.Text)
	FadeIn(Application)
	FadeOut(NextStart)
end)

local Debounce = false

Application.Application.Send.MouseButton1Click:connect(function()
	   for i,v in pairs(Application.Application:GetChildren()) do
		   if v:IsA("TextBox") then
			if v.Text == "" or v.Text == nil then
				warn("The player has not entered anything for the questions.")
			else
				if not Debounce then
					Debounce = true
				    table.insert(Data,2,"Q1: "..Application.Application.Q1.Text)
				    table.insert(Data,3,"Q2: "..Application.Application.Q2.Text)
				    table.insert(Data,4,"Q3: "..Application.Application.Q3.Text)
				    table.insert(Data,5,"Q4: "..Application.Application.Q4.Text)
				    table.insert(Data,6,"Q5: "..Application.Application.Q5.Text)
			        FadeIn(Application)
			        FadeIn(Loading)
			        Loading.Status:TweenSize(UDim2.new(0, 699,0, 62),1,0,10)
			        wait(10)
			        Loading.ServerStatus.Text = "Your Application Has Been Sent, You May Leave!"
			        remote:FireServer(Data)
				end
			end
		end
	end
end)