-- params : ...

Player = script.Parent.Parent.Parent.Parent
repeat
	wait(0)
until Player:findFirstChild("Loaded")
repeat
	wait()
until Player:findFirstChild("QuestValues")
Data = Player:FindFirstChild("Data")
Text = script.Parent.Line1
Text2 = script.Parent.Line2
Text3 = script.Parent.Line3
Text4 = script.Parent.Line4
TextSection = 0
event1 = Player.Backpack.Quests.Quest1EventRemote
event2 = Player.Backpack.Quests.Quest2EventRemote
event3 = Player.Backpack.Quests.Quest3EventRemote
status = "nil"
wait(0.15)
Text.Text = "H"
wait(0.08)
Text.Text = "Ho"
wait(0.08)
Text.Text = "How"
wait(0.08)
Text.Text = "How\'"
wait(0.08)
Text.Text = "How\'s"
wait(0.08)
Text.Text = "How\'s "
wait(0.08)
Text.Text = "How\'s I"
wait(0.08)
Text.Text = "How\'s It"
wait(0.08)
Text.Text = "How\'s It "
wait(0.08)
Text.Text = "How\'s It G"
wait(0.08)
Text.Text = "How\'s It Go"
wait(0.08)
Text.Text = "How\'s It Goi"
wait(0.08)
Text.Text = "How\'s It Goin"
wait(0.08)
Text.Text = "How\'s It Going"
wait(0.08)
Text.Text = "How\'s It Going?"
script.Parent.Forward.Visible = true
local button = script.Parent.Forward
button.MouseButton1Click:connect(function()
	if Player.QuestValues.CurrentQuest.Value == "None" then
		if TextSection == 0 then
			script.Parent.Forward.Visible = false
			Text.Text = ""
			wait(0.15)
			Text.Text = "S"
			wait(0.08)
			Text.Text = "So"
			wait(0.08)
			Text.Text = "So "
			wait(0.08)
			Text.Text = "So y"
			wait(0.08)
			Text.Text = "So yo"
			wait(0.08)
			Text.Text = "So you"
			wait(0.08)
			Text.Text = "So you "
			wait(0.08)
			Text.Text = "So you w"
			wait(0.08)
			Text.Text = "So you wa"
			wait(0.08)
			Text.Text = "So you wan"
			wait(0.08)
			Text.Text = "So you want"
			wait(0.08)
			Text.Text = "So you want a"
			wait(0.08)
			Text.Text = "So you want a "
			wait(0.08)
			Text.Text = "So you want a q"
			wait(0.08)
			Text.Text = "So you want a qu"
			wait(0.08)
			Text.Text = "So you want a que"
			wait(0.08)
			Text.Text = "So you want a ques"
			wait(0.08)
			Text.Text = "So you want a quest"
			wait(0.08)
			Text.Text = "So you want a quest,"
			wait(0.08)
			Text.Text = "So you want a quest, "
			wait(0.08)
			Text.Text = "So you want a quest, h"
			wait(0.08)
			Text.Text = "So you want a quest, hu"
			wait(0.08)
			Text.Text = "So you want a quest, huh"
			wait(0.08)
			Text.Text = "So you want a quest, huh?"
			TextSection = 1
			script.Parent.Forward.Visible = true
			return
		end
		if TextSection == 1 then
			script.Parent.Forward.Visible = false
			Text.Text = ""
			wait(0.15)
			Text.Text = "H"
			wait(0.08)
			Text.Text = "He"
			wait(0.08)
			Text.Text = "Her"
			wait(0.08)
			Text.Text = "Here"
			wait(0.08)
			Text.Text = "Here\'"
			wait(0.08)
			Text.Text = "Here\'s"
			wait(0.08)
			Text.Text = "Here\'s "
			wait(0.08)
			Text.Text = "Here\'s a"
			wait(0.08)
			Text.Text = "Here\'s a "
			wait(0.08)
			Text.Text = "Here\'s a f"
			wait(0.08)
			Text.Text = "Here\'s a fe"
			wait(0.08)
			Text.Text = "Here\'s a few"
			wait(0.08)
			wait(0.15)
			Text.Text = "Here\'s a few:"
			TextSection = 2
			Text2.Text = "Get rid of overgrown grass!"
			Text2.TextColor3 = Color3.new(85, 170, 0)
			Text3.Text = "Turkey Takedown"
			Text3.TextColor3 = Color3.new(85, 170, 0)
			Text4.Text = "Clear out the thugs!"
			Text4.TextColor3 = Color3.new(85, 170, 0)
			script.Parent.Line2Option.Visible = true
			script.Parent.Line3Option.Visible = true
			script.Parent.Line4Option.Visible = true
		end
	end
	if TextSection == 0 and Player.QuestValues.CurrentQuest.Value == "Get rid of overgrown grass!" and Player.QuestValues.QuestComplete.Value == true then
		script.Parent.Forward.Visible = false
		Text.Text = ""
		wait(0.15)
		Text.Text = "T"
		wait(0.08)
		Text.Text = "Th"
		wait(0.08)
		Text.Text = "Tha"
		wait(0.08)
		Text.Text = "Thank"
		wait(0.08)
		Text.Text = "Thanks"
		wait(0.08)
		Text.Text = "Thanks "
		wait(0.08)
		Text.Text = "Thanks h"
		wait(0.08)
		Text.Text = "Thanks he"
		wait(0.08)
		Text.Text = "Thanks her"
		wait(0.08)
		Text.Text = "Thanks here"
		wait(0.08)
		Text.Text = "Thanks here\'"
		wait(0.08)
		Text.Text = "Thanks here\'s "
		wait(0.08)
		Text.Text = "Thanks here\'s a"
		wait(0.08)
		Text.Text = "Thanks here\'s a "
		wait(0.08)
		Text.Text = "Thanks here\'s a r"
		wait(0.08)
		Text.Text = "Thanks here\'s a re"
		wait(0.08)
		Text.Text = "Thanks here\'s a rew"
		wait(0.08)
		Text.Text = "Thanks here\'s a rewa"
		wait(0.08)
		Text.Text = "Thanks here\'s a rewar"
		wait(0.08)
		Text.Text = "Thanks here\'s a reward"
		wait(0.08)
		Text.Text = "Thanks here\'s a reward."
		wait(0.15)
		status = "Complete"
		event1:FireServer(status)
	end
	if TextSection == 0 and Player.QuestValues.CurrentQuest.Value == "Turkey Takedown" and Player.QuestValues.QuestComplete.Value == true then
		script.Parent.Forward.Visible = false
		Text.Text = ""
		wait(0.15)
		Text.Text = "T"
		wait(0.08)
		Text.Text = "Th"
		wait(0.08)
		Text.Text = "Tha"
		wait(0.08)
		Text.Text = "Thank"
		wait(0.08)
		Text.Text = "Thanks"
		wait(0.08)
		Text.Text = "Thanks "
		wait(0.08)
		Text.Text = "Thanks h"
		wait(0.08)
		Text.Text = "Thanks he"
		wait(0.08)
		Text.Text = "Thanks her"
		wait(0.08)
		Text.Text = "Thanks here"
		wait(0.08)
		Text.Text = "Thanks here\'"
		wait(0.08)
		Text.Text = "Thanks here\'s "
		wait(0.08)
		Text.Text = "Thanks here\'s a"
		wait(0.08)
		Text.Text = "Thanks here\'s a "
		wait(0.08)
		Text.Text = "Thanks here\'s a r"
		wait(0.08)
		Text.Text = "Thanks here\'s a re"
		wait(0.08)
		Text.Text = "Thanks here\'s a rew"
		wait(0.08)
		Text.Text = "Thanks here\'s a rewa"
		wait(0.08)
		Text.Text = "Thanks here\'s a rewar"
		wait(0.08)
		Text.Text = "Thanks here\'s a reward"
		wait(0.08)
		Text.Text = "Thanks here\'s a reward."
		wait(0.15)
		status = "Complete"
		event2:FireServer(status)
	end
	if TextSection == 0 and Player.QuestValues.CurrentQuest.Value == "Clear out the thugs!" and Player.QuestValues.QuestComplete.Value == true then
		script.Parent.Forward.Visible = false
		Text.Text = ""
		wait(0.15)
		Text.Text = "T"
		wait(0.08)
		Text.Text = "Th"
		wait(0.08)
		Text.Text = "Tha"
		wait(0.08)
		Text.Text = "Thank"
		wait(0.08)
		Text.Text = "Thanks"
		wait(0.08)
		Text.Text = "Thanks "
		wait(0.08)
		Text.Text = "Thanks h"
		wait(0.08)
		Text.Text = "Thanks he"
		wait(0.08)
		Text.Text = "Thanks her"
		wait(0.08)
		Text.Text = "Thanks here"
		wait(0.08)
		Text.Text = "Thanks here\'"
		wait(0.08)
		Text.Text = "Thanks here\'s "
		wait(0.08)
		Text.Text = "Thanks here\'s a"
		wait(0.08)
		Text.Text = "Thanks here\'s a "
		wait(0.08)
		Text.Text = "Thanks here\'s a r"
		wait(0.08)
		Text.Text = "Thanks here\'s a re"
		wait(0.08)
		Text.Text = "Thanks here\'s a rew"
		wait(0.08)
		Text.Text = "Thanks here\'s a rewa"
		wait(0.08)
		Text.Text = "Thanks here\'s a rewar"
		wait(0.08)
		Text.Text = "Thanks here\'s a reward"
		wait(0.08)
		Text.Text = "Thanks here\'s a reward."
		wait(0.15)
		status = "Complete"
		event3:FireServer(status)
	end
end)