Here is the chunk which is not shown in the post I showed:
CurrentPokemon = PokemonList[Points]
and here is the rest of the script if it helps,
--//Intro script//
local IntroScript = {}
--[Services]
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local ReplicatedFirst = game:GetService("ReplicatedFirst")
local StarterGui = game:GetService("StarterGui")
local TweenService = game:GetService("TweenService")
local Players = game:GetService("Players")
local UserInputService = game:GetService("UserInputService")
--[Variables]
local AssetsFolder = ReplicatedStorage:WaitForChild("Assets")
local GuiFolder = ReplicatedStorage:WaitForChild("Gui")
local ModulesFolder = ReplicatedStorage:WaitForChild("Modules")
local RemotesFolder = ReplicatedStorage:WaitForChild("Remotes")
local Player = Players.LocalPlayer
local PlayerGui = Player:WaitForChild("PlayerGui")
local Camera = workspace.CurrentCamera
--[Required Modules]
local GuiModule = require(GuiFolder:WaitForChild("GuiModule"))
local Images = require(AssetsFolder:WaitForChild("Images"))
local Audio = require(AssetsFolder:WaitForChild("Audio"))
local Animations = require(AssetsFolder:WaitForChild("Animations"))
local Utilities = require(ModulesFolder:WaitForChild("Utilities"))
local PlayerData = require(ModulesFolder:WaitForChild("PlayerData"))
local Dialogue = require(ModulesFolder:WaitForChild("Dialogue"))
local Pokemon = require(ModulesFolder:WaitForChild("Pokemon"))
local Signal = Utilities.Signal()
local CreateObject = Utilities.CreateObject
local WaitForInputType = Utilities.WaitForInputType
local Theme = CreateObject "Sound" {Name = "Theme",
SoundId = ("rbxassetid://"..Audio.MainTheme),
Parent = workspace:WaitForChild("AudioContainer")}
local Crash = CreateObject "Sound" {Name = "Crash",
SoundId = ("rbxassetid://"..Audio.MenuSelect),
Parent = workspace:WaitForChild("AudioContainer")}
local TitleScreenChunk = workspace:WaitForChild("titlescreen")
local CutsceneCamerasFolder = TitleScreenChunk:WaitForChild("PersonalityTest")
local ChoosingPokemonChunk = workspace:WaitForChild("choosingpokemon")
local PokemonFolder = ChoosingPokemonChunk:WaitForChild("Pokemon")
local PokemonCamerasFolder = ChoosingPokemonChunk:WaitForChild("Cameras")
local CurrentPokemon = "Mudkip"
local PokemonFor = "Player"
local PokemonList = {
"Bulbasaur", "Charmander", "Squirtle",
"Pikachu", "Chikorita", "Cyndaquil",
"Totodile", "Treecko", "Torchic",
"Mudkip", "Skitty", "Riolu"
}
local function Highlight(Pokemon)
for i, pkmn in pairs(PokemonFolder:GetChildren()) do
if pkmn.Name == Pokemon then
TweenService:Create(pkmn.PrimaryPart,
TweenInfo.new(2.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.Out),
{Position = pkmn.PrimaryPart.Position + Vector3.new(2.0, 0.0, 0.0)}
):Play()
else
end
end
end
local function Minimize(Pokemon)
for i, pkmn in pairs(PokemonFolder:GetChildren()) do
if pkmn.Name == Pokemon then
TweenService:Create(pkmn.PrimaryPart,
TweenInfo.new(2.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.Out),
{Position = pkmn.PrimaryPart.Position - Vector3.new(2.0, 0.0, 0.0)}
):Play()
else
end
end
end
local function SelectPokemon(Pokemon, ChosenFor, Tweening)
if ChosenFor == "Partner" and Pokemon == PlayerData.PlayerPokemon then
for i, pkmn in pairs(PokemonFolder:GetChildren()) do
if pkmn.Name == Pokemon then
TweenService:Create(pkmn.PrimaryPart,
TweenInfo.new(2.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.InOut),
{Position = pkmn.PrimaryPart.Position - Vector3.new(2.0, 0.0, 0.0)
}
):Play()
end
end
Dialogue:Broadcast({"You already chose "..Pokemon.." as "..PlayerData.PlayerName.."!"}, false)
IntroScript:ShowScrollScreen(ChosenFor)
else
Utilities.PlayAnimation(PokemonFolder[Pokemon], Animations[(Pokemon.."Cheer")])
PlayerData[(ChosenFor.."Pokemon")] = Pokemon
task.wait(1.0)
for i, pkmn in pairs(PokemonFolder:GetChildren()) do
if pkmn.Name == Pokemon then
TweenService:Create(pkmn.PrimaryPart,
TweenInfo.new(2.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.InOut),
{Position = pkmn.PrimaryPart.Position - Vector3.new(2.0, 0.0, 0.0)
}
):Play()
end
end
task.wait(2.0)
local PokemonName = Dialogue:KeyboardInput((CurrentPokemon.."'s Name?"), ("Type "..CurrentPokemon.."'s name here"), Tweening)
PlayerData[(ChosenFor.."Name")] = PokemonName
end
end
function IntroScript:ShowScrollScreen(IsFor)
local Gui = Instance.new("ScreenGui")
Gui.Name = "ScrollScreen"
Gui.IgnoreGuiInset = true
Gui.Parent = PlayerGui
PokemonFor = IsFor
local PokemonData = CreateObject "Frame" {
BackgroundTransparency = 1.0,
BackgroundColor3 = Color3.new(0.0, 0.0, 0.0),
Size = UDim2.new(0.35, 0.0, 0.2, 0.0),
Position = UDim2.new(0.3, 0.0, 1.0, 0.0),
Name = "PokemonData",
ZIndex = 1.0, Parent = Gui,
CreateObject "UICorner" {
CornerRadius = UDim.new(0.2, 0.0)
},
--//Creating the Icon Container//
CreateObject "Frame" {
BackgroundTransparency = 1.0,
SizeConstraint = Enum.SizeConstraint.RelativeYY,
Size = UDim2.new(1.0, 0.0, 1.0, 0.0),
Name = "IconContainer",
CreateObject "ImageLabel" {
BackgroundTransparency = 1.0,
Size = UDim2.new(0.8, 0.0, 0.8, 0.0),
Position = UDim2.new(0.1, 0.0, 0.1, 0.0),
ImageRectSize = Vector2.new(160.0, 160.0),
Name = "Icon", ZIndex = 2.0,
Image = ("rbxassetid://"..Images[CurrentPokemon]),
CreateObject "UICorner" {
CornerRadius = UDim.new(0.2, 0.0)
},
CreateObject "UIStroke" {
Color = Color3.new(0.0, 0.0, 0.0),
Thickness = 2.0
},
}
},
CreateObject "TextLabel" {
BackgroundTransparency = 1.0,
Size = UDim2.new(0.7, 0.0, 0.4, 0.0),
Position = UDim2.new(0.3, 0.0, 0.0 ,0.0),
Name = "Name", Text = CurrentPokemon,
TextScaled = true,
TextColor3 = Color3.new(1.0, 1.0, 1.0),
Font = Enum.Font.PatrickHand,
ZIndex = 2.0,
CreateObject "UIStroke" {
Color = Color3.new(0.0, 0.0, 0.0),
Thickness = 2.0
},
},
CreateObject "TextLabel" {
BackgroundTransparency = 1.0,
Size = UDim2.new(0.7, 0.0, 0.25, 0.0),
Position = UDim2.new(0.3, 0.0, 0.4 ,0.0),
Name = "Typing", Text = ("Typing: "..Pokemon[CurrentPokemon].Typing),
TextScaled = true,
TextColor3 = Color3.new(1.0, 1.0, 1.0),
Font = Enum.Font.PatrickHand,
ZIndex = 2.0,
CreateObject "UIStroke" {
Color = Color3.new(0.0, 0.0, 0.0),
Thickness = 2.0
}
},
CreateObject "TextButton" {
BackgroundColor3 = Color3.new(1.0, 1.0, 1.0),
Size = UDim2.new(0.65, 0.0, 0.25, 0.0),
Position = UDim2.new(0.315, 0.0, 0.7, 0.0),
Name = "Button", Text = ("Choose "..CurrentPokemon.."?"),
TextScaled = true,
TextColor3 = Color3.new(0.0, 0.0, 0.0),
Font = Enum.Font.PatrickHand,
ZIndex = 2.0,
CreateObject "UICorner" {
CornerRadius = UDim.new(0.4, 0.0)
},
CreateObject "UIStroke" {
Color = Color3.new(0.0, 0.0, 0.0),
ApplyStrokeMode = "Border",
Thickness = 2.0
},
MouseButton1Down = function()
workspace:WaitForChild("AudioContainer"):WaitForChild("MenuBlip"):Play()
TweenService:Create(Camera,
TweenInfo.new(2.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.Out),
{CFrame = PokemonCamerasFolder[(CurrentPokemon.."Highlight")].CFrame}
):Play()
Highlight(CurrentPokemon)
TweenService:Create(Gui:WaitForChild("PokemonData"),
TweenInfo.new(1.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.InOut),
{Position = UDim2.new(0.3, 0.0, 1.0, 0.0)}
):Play()
task.wait(0.5)
TweenService:Create(Gui:WaitForChild("RightArrow"),
TweenInfo.new(1.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.InOut
),
{Position = UDim2.new(0.65, 0.0, 1.0, 0.0)}
):Play()
TweenService:Create(Gui:WaitForChild("LeftArrow"),
TweenInfo.new(1.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.InOut),
{Position = UDim2.new(0.275, 0.0, 1.0, 0.0)}
):Play()
task.wait(1.0)
Gui:Remove()
local ChoosePrompt = (PokemonFor == "Player" and ("You're "..CurrentPokemon.."?") or ("Your partner is "..CurrentPokemon.."?"))
local Prompt = Dialogue:PromptYesOrNo(ChoosePrompt, false)
if Prompt then
SelectPokemon(CurrentPokemon, PokemonFor, true)
Signal:fire()
else
Minimize(CurrentPokemon)
TweenService:Create(Camera,
TweenInfo.new(2.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.Out),
{CFrame = PokemonCamerasFolder[CurrentPokemon].CFrame}
):Play()
task.wait(3.0)
IntroScript:ShowScrollScreen()
end
end
},
}
local RightArrow = CreateObject "TextButton" {
BackgroundTransparency = 1.0,
Size = UDim2.new(0.025, 0.0, 0.2, 0.0),
Position = UDim2.new(0.65, 0.0, 1.0, 0.0),
Name = "RightArrow",
Text = ">",
TextScaled = true,
TextColor3 = Color3.new(1.0, 1.0, 1.0),
Font = Enum.Font.Arcade,
ZIndex = 1.0, Parent = Gui,
CreateObject "UIStroke" {
Color = Color3.new(0.0, 0.0, 0.0),
Thickness = 2.0
},
MouseButton1Down = function()
workspace:WaitForChild("AudioContainer"):WaitForChild("MenuBlip"):Play()
local PokemonNumber = table.find(PokemonList, CurrentPokemon) or 12
PokemonNumber = (PokemonNumber % #PokemonList) + 1
CurrentPokemon = PokemonList[PokemonNumber]
local IconContainer = PokemonData:WaitForChild("IconContainer")
local Icon = IconContainer:WaitForChild("Icon")
Icon.Image = ("rbxassetid://"..Images[CurrentPokemon])
local Name = PokemonData:WaitForChild("Name")
local Typing = PokemonData:WaitForChild("Typing")
local Button = PokemonData:WaitForChild("Button")
Name.Text = CurrentPokemon
Typing.Text = ("Typing: "..Pokemon[CurrentPokemon].Typing)
Button.Text = ("Choose "..CurrentPokemon.."?")
Gui:WaitForChild("RightArrow").Position = UDim2.new(0.66, 0.0, 0.75, 0.0)
TweenService:Create(Gui:WaitForChild("RightArrow"),
TweenInfo.new(0.25, Enum.EasingStyle.Back, Enum.EasingDirection.Out),
{Position = UDim2.new(0.65, 0.0, 0.75, 0.0)}
):Play()
TweenService:Create(Camera,
TweenInfo.new(1.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.Out),
{CFrame = PokemonCamerasFolder[CurrentPokemon].CFrame}
):Play()
end
}
local LeftArrow = CreateObject "TextButton" {
BackgroundTransparency = 1.0,
Size = UDim2.new(0.025, 0.0, 0.2, 0.0),
Position = UDim2.new(0.275, 0.0, 1.0, 0.0),
Name = "LeftArrow",
Text = "<",
TextScaled = true,
TextColor3 = Color3.new(1.0, 1.0, 1.0),
Font = Enum.Font.Arcade,
ZIndex = 1.0, Parent = Gui,
CreateObject "UIStroke" {
Color = Color3.new(0.0, 0.0, 0.0),
Thickness = 2.0
},
MouseButton1Down = function()
workspace:WaitForChild("AudioContainer"):WaitForChild("MenuBlip"):Play()
local PokemonNumber = table.find(PokemonList, CurrentPokemon) or 1
PokemonNumber = (PokemonNumber % #PokemonList) - 1
CurrentPokemon = PokemonList[PokemonNumber]
local IconContainer = PokemonData:WaitForChild("IconContainer")
local Icon = IconContainer:WaitForChild("Icon")
Icon.Image = ("rbxassetid://"..Images[CurrentPokemon])
local Name = PokemonData:WaitForChild("Name")
local Typing = PokemonData:WaitForChild("Typing")
local Button = PokemonData:WaitForChild("Button")
Name.Text = CurrentPokemon
Typing.Text = ("Typing: "..Pokemon[CurrentPokemon].Typing)
Button.Text = ("Choose "..CurrentPokemon.."?")
Gui:WaitForChild("LeftArrow").Position = UDim2.new(0.265, 0.0, 0.75, 0.0)
TweenService:Create(Gui:WaitForChild("LeftArrow"),
TweenInfo.new(0.25, Enum.EasingStyle.Back, Enum.EasingDirection.Out),
{Position = UDim2.new(0.275, 0.0, 0.75, 0.0)}
):Play()
TweenService:Create(Camera,
TweenInfo.new(1.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.Out),
{CFrame = PokemonCamerasFolder[CurrentPokemon].CFrame}
):Play()
end
}
TweenService:Create(PokemonData,
TweenInfo.new(1.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.Out),
{BackgroundTransparency = 0.5,
Position = UDim2.new(0.3, 0.0, 0.75, 0.0)}
):Play()
task.wait(0.5)
TweenService:Create(RightArrow,
TweenInfo.new(1.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.Out),
{Position = UDim2.new(0.65, 0.0, 0.75, 0.0)}
):Play()
TweenService:Create(LeftArrow,
TweenInfo.new(1.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.Out),
{Position = UDim2.new(0.275, 0.0, 0.75, 0.0)}
):Play()
Signal:wait()
end
function IntroScript:ChoosePokemon(StartPokemon)
if Camera.CameraType ~= Enum.CameraType.Scriptable then
Camera.CameraType = Enum.CameraType.Scriptable
end
for i, Pokemon in pairs(PokemonFolder:GetChildren())do
if Pokemon:IsA("Model") then
Utilities.PlayAnimation(Pokemon, Animations[Pokemon.Name.."Idle"])
end
end
Camera.CFrame = ChoosingPokemonChunk:WaitForChild("Camera1").CFrame
TweenService:Create(Camera,
TweenInfo.new(4.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.Out),
{CFrame = PokemonCamerasFolder[StartPokemon.."Highlight"].CFrame}
):Play()
task.wait(4.0)
Highlight(StartPokemon)
local ChoosePrompt = ("You're "..StartPokemon.."! Right?")
local Prompt = Dialogue:PromptYesOrNo(ChoosePrompt, true)
if Prompt then
SelectPokemon(StartPokemon, PokemonFor, false)
else
Minimize(StartPokemon)
TweenService:Create(Camera,
TweenInfo.new(2.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.Out),
{CFrame = PokemonCamerasFolder[StartPokemon].CFrame}
):Play()
task.wait(3.0)
IntroScript:ShowScrollScreen("Player")
end
end
function IntroScript:PlayPersonalityTest()
if Camera.CameraType ~= Enum.CameraType.Scriptable then
Camera.CameraType = Enum.CameraType.Scriptable
end
Utilities.PlaySound(Audio.WelcomeToThePokemonWorld, nil, nil, true, "PersonalityTest")
Dialogue:Broadcast({"Well, hello there.",
"It seems we haven't met.",
"Mind telling me a bit about yourself?",
"I'll just be asking you a series of very simple questions,",
"all I want you to do is answer them thoughtfully."}, true)
TweenService:Create(Camera,
TweenInfo.new(2.0,
Enum.EasingStyle.Back,
Enum.EasingDirection.InOut),
{CFrame = CutsceneCamerasFolder:WaitForChild("cam1").CFrame}
):Play()
task.wait(2.0)
local Questions, Answers, RandomQuestion, Points
local Personality = {}
table.insert(Personality, "Hmm, interesting!")
Questions = {
"You're walking with your friends but one of them needs to tie their shoelaces, what will you do?",
"You're over at your friends house, and their parents offer you snacks. How will you respond?",
"Aww, man! It's the first day of school! How do you plan to dress?"
}
Answers = {
{
"Leave him behind and keep walking with my friends",
"Get mad at him",
"Get my friends to wait for him with me",
"Stay and wait for him to finish",
},
{
"Ignore them and keep talking with your friends.",
"Rudely take the snacks and eat them",
"Thank them but deny the snacks",
"Respectfully accept the kind offer"
},
{
"I'll be rockin that Punk look!",
"Minimalistic, only a tank top and shorts.",
"Trying my best to look cute!",
"Gotta Dress Casual"
}
}
--[Determining the Typing of the Destined Pokemon]
RandomQuestion = math.random(1.0,3.0)
local Prompts1 = Answers[Dialogue:PromptMultipleChoice(Questions[RandomQuestion], Answers[RandomQuestion], true)]
Points = {
Hardy = 1.0,
Docile = 1.0,
Brave = 1.0,
Jolly = 1.0,
Impish = 1.0,
Naive = 1.0,
Timid = 1.0,
Hasty = 1.0,
Sassy = 1.0,
Calm = 1.0,
Relaxed = 1.0,
Lonely = 1.0
}
local function AddPoints(Nature, NewPoints)
print(Nature, NewPoints)
Points[Nature] = Points[Nature] + NewPoints
end
if Prompts1 == "Leave him behind and keep walking with my friends" then
AddPoints("Hardy", 1.0)
table.insert(Personality, "You're not the best friend, but you're funny.")
elseif Prompts1 == "Get mad at him" then
AddPoints("Docile", 1.0)
table.insert(Personality, "You've got a short temper, but you know how to get stuff done.")
elseif Prompts1 == "Get my friends to wait for him with me" then
AddPoints("Brave", 1.0)
table.insert(Personality, "You're a great friend, all in all you really care for others.")
elseif Prompts1 == "Stay and wait for him to finish" then
AddPoints("Jolly", 1.0)
table.insert(Personality, "You're a loyal friend, always ready to help out.")
elseif Prompts1 == "Ignore them and keep talking with your friends." then
AddPoints("Hardy", 1.0)
table.insert(Personality, "You like to focus on one thing until you are finished before moving on with the next.")
elseif Prompts1 == "Rudely take the snacks and eat them" then
AddPoints("Docile", 1.0)
table.insert(Personality, "You're very opportunistic. Ready to take chances while they are there.")
elseif Prompts1 == "Thank them but deny the snacks" then
AddPoints("Brave", 1.0)
table.insert(Personality, "You're very humble. Valuing others before yourself.")
elseif Prompts1 == "Respectfully accept the kind offer" then
AddPoints("Jolly", 1.0)
table.insert(Personality, "You are very kind, but opportunistic. Not willing to deny something when it is offered to you.")
elseif Prompts1 == "I'll be rockin that Punk look!" then
AddPoints("Hardy", 1.0)
table.insert(Personality, "You love to express your interests, it's a very fun look!")
elseif Prompts1 == "Minimalistic, only a tank top and shorts." then
AddPoints("Docile", 1.0)
table.insert(Personality, "You don't need much to be happy.")
elseif Prompts1 == "Trying my best to look cute!" then
AddPoints("Brave", 1.0)
table.insert(Personality, "You like it when people compliment you and like you.")
elseif Prompts1 == "Gotta Dress Casual" then
AddPoints("Jolly", 1.0)
table.insert(Personality, "You don't mind blending in, sometimes socializing isn't the best.")
end
Crash:Play()
TweenService:Create(Camera,
TweenInfo.new(1.0,
Enum.EasingStyle.Back,
Enum.EasingDirection.Out),
{CFrame = CutsceneCamerasFolder:WaitForChild("cam2").CFrame}
):Play()
task.wait(1.0)
TweenService:Create(Camera,
TweenInfo.new(4.0,
Enum.EasingStyle.Back,
Enum.EasingDirection.InOut),
{CFrame = CutsceneCamerasFolder:WaitForChild("cam3").CFrame}
):Play()
task.wait(4.0)
Questions = {
"A test for school is due tomorrow! But you forgot to study! What are you going to do?",
"Your parents are taking you to a theme park! What do you plan to do there?",
"It's your birthday! Your parents got you the present you've always wanted! How will you thank them?"
}
Answers = {
{
"Can't be bothered. I'll just keep on playing.",
"Study all night if I have to!",
"Don't acknowledge that I even had a test.",
"Study a little bit."
},
{
"Ride everything there!",
"I'm too scared for the rides.",
"Eat all the yummy food!",
"Ride a few attractions."
},
{
"Gratefully thank them.",
"Ask them how much it was.",
"Don't thank them.",
"Be un-grateful as it was the wrong color."
}
}
RandomQuestion = math.random(1.0,3.0)
local Prompts2 = Answers[Dialogue:PromptMultipleChoice(Questions[RandomQuestion], Answers[RandomQuestion], true)]
if Prompts2 == "Can't be bothered. I'll just keep on playing." then
AddPoints("Impish", 1.0)
table.insert(Personality, "You like to put your mind to one thing until it's completed.")
elseif Prompts2 == "Study all night if I have to!" then
AddPoints("Naive", 1.0)
table.insert(Personality, "Your determination is always unmatched! You're never afraid to go above and beyond to get a win!")
elseif Prompts2 == "Don't acknowledge that I even had a test." then
AddPoints("Timid", 1.0)
table.insert(Personality, "")
elseif Prompts2 == "Study a little bit." then
AddPoints("Hasty", 1.0)
table.insert(Personality, "It's a bit hard to get you going. But once you start, you never stop!")
elseif Prompts2 == "Ride everything there!" then
AddPoints("Impish", 1.0)
table.insert(Personality, "Adrenaline is the best! Anything that gets your blood pumping is your go-to!")
elseif Prompts2 == "I'm too scared for the rides." then
AddPoints("Naive", 1.0)
table.insert(Personality, "Though you like to view everything from the sidelines.")
elseif Prompts2 == "Eat all the yummy food!" then
AddPoints("Timid", 1.0)
table.insert(Personality, "You go to many places for the satisfaction they bring.")
elseif Prompts2 == "Ride a few attractions." then
AddPoints("Hasty", 1.0)
table.insert(Personality, "It's nice to savor the moment. Rushing things is never the best.")
elseif Prompts2 == "Gratefully thank them." then
AddPoints("Impish", 1.0)
table.insert(Personality, "You have a very sincere and grateful spirit. Always happy when people gesture you kindly!")
elseif Prompts2 == "Ask them how much it was." then
AddPoints("Naive", 1.0)
table.insert(Personality, "You need confirmation for many things to help better yourself.")
elseif Prompts2 == "Don't thank them." then
AddPoints("Timid", 1.0)
table.insert(Personality, "You're mind is set on you, and getting your personal problems dealt with first to better yourself..")
elseif Prompts2 == "Be un-grateful as it was the wrong color." then
AddPoints("Hasty", 1.0)
table.insert(Personality, "You have spoiled issues.")
end
Crash:Play()
TweenService:Create(Camera,
TweenInfo.new(1.0,
Enum.EasingStyle.Back,
Enum.EasingDirection.Out),
{CFrame = CutsceneCamerasFolder:WaitForChild("cam1").CFrame}
):Play()
task.wait(1.0)
TweenService:Create(Camera,
TweenInfo.new(4.0,
Enum.EasingStyle.Back,
Enum.EasingDirection.InOut),
{CFrame = CutsceneCamerasFolder:WaitForChild("cam4").CFrame}
):Play()
task.wait(4.0)
Questions = {
"It's a beautiful sunny saturday! What do you want to do with your friends?",
"Dinner time! Your parents ask where you want to eat. What are you choosing?",
"You're walking behind a stranger, and they drop their wallet! What will you do?"
}
Answers = {
{
"Go shopping and eat out!",
"I'd love to go to the pool with everybody!",
"Let's veg out and play some video games!",
"Go to a park and hang out!"
},
{
"A nice burger and fries!",
"Anywhere expensive and gourmet.",
"Go to the store and get supplies for a good meal!",
"As long as everybody else likes it, I don't mind."
},
{
"Grab and return the wallet.",
"Take the wallet and walk away.",
"Ignore the wallet.",
"Stare at the wallet."
}
}
RandomQuestion = math.random(1.0, 3.0)
local Prompt3 = Answers[Dialogue:PromptMultipleChoice(Questions[RandomQuestion], Answers[RandomQuestion], true)]
if Prompt3 == "Go shopping and eat out!" then
AddPoints("Sassy", 1.0)
table.insert(Personality, "The one thing you look forward to is hanging out with your friends!")
elseif Prompt3 == "I'd love to go to the pool with everybody!" then
AddPoints("Calm ", 1.0)
table.insert(Personality, "You're not afraid to get messy or wet, not as long as you're having fun!")
elseif Prompt3 == "Let's veg out and play some video games!" then
AddPoints("Relaxed", 1.0)
table.insert(Personality, "You love to take a chill pill and relax.")
elseif Prompt3 == "Go to a park and hang out!" then
AddPoints("Lonely", 1.0)
table.insert(Personality, "You love to be active, it's fun to go out!")
elseif Prompt3 == "A nice burger and fries!" then
AddPoints("Sassy", 1.0)
table.insert(Personality, "You have simple taste, it doesn't take much to please you.")
elseif Prompt3 == "Anywhere expensive and gourmet." then
AddPoints("Calm ", 1.0)
table.insert(Personality, "You love going all out, it's not very fun when there isn't very much.")
elseif Prompt3 == "Go to the store and get supplies for a good meal!" then
AddPoints("Relaxed", 1.0)
table.insert(Personality, "You like having alot of options, it's never fun to be restricted!")
elseif Prompt3 == "As long as everybody else likes it, I don't mind." then
AddPoints("Lonely", 1.0)
table.insert(Personality, "You're very humble, always putting others before yourself.")
elseif Prompt3 == "Grab and return the wallet." then
AddPoints("Sassy", 1.0)
table.insert(Personality, "You care for others and wish the best for everybody.")
elseif Prompt3 == "Take the wallet and walk away." then
AddPoints("Calm ", 1.0)
table.insert(Personality, "You're smart to take opportunities while they still last!")
elseif Prompt3 == "Ignore the wallet." then
AddPoints("Relaxed", 1.0)
table.insert(Personality, "You don't like to involve yourselves in situations you don't wanna be in.")
elseif Prompt3 == "Stare at the wallet." then
AddPoints("Lonely", 1.0)
table.insert(Personality, "You like to take your time understanding situations.")
end
Crash:Play()
TweenService:Create(Camera,
TweenInfo.new(1.0,
Enum.EasingStyle.Back,
Enum.EasingDirection.Out),
{CFrame = CutsceneCamerasFolder:WaitForChild("cam3").CFrame}
):Play()
task.wait(1.0)
TweenService:Create(Camera,
TweenInfo.new(4.0,
Enum.EasingStyle.Back,
Enum.EasingDirection.InOut),
{CFrame = CutsceneCamerasFolder:WaitForChild("cam5").CFrame}
):Play()
task.wait(4.0)
Questions = {
"It's a beautiful sunny saturday! What do you want to do with your friends?",
"Dinner time! Your parents ask where you want to eat. What are you choosing?",
"You're walking behind a stranger, and they drop their wallet! What will you do?"
}
Answers = {
{
"Go shopping and eat out!",
"Go to a park and hang out!",
"Let's veg out and play some video games!",
"I'd love to go to the pool with everybody!"
},
{
"A nice burger and fries!",
"Anywhere expensive and gourmet.",
"Go to the store and get supplies for a good meal!",
"As long as everybody else likes it, I don't mind."
},
{
"Grab and return the wallet.",
"Take the wallet and walk away.",
"Ignore the wallet.",
"Stare at the wallet."
}
}
RandomQuestion = math.random(1.0, 3.0)
local Prompt4 = Answers[Dialogue:PromptMultipleChoice(Questions[RandomQuestion], Answers[RandomQuestion], true)]
if Prompt4 == "Go shopping and eat out!" then
AddPoints("Hardy", 1.0)
table.insert(Personality, "The one thing you look forward to is hanging out with your friends!")
elseif Prompt4 == "Go to a park and hang out!" then
AddPoints("Docile", 1.0)
table.insert(Personality, "You're not afraid to get messy or wet, not as long as you're having fun!")
elseif Prompt4 == "Let's veg out and play some video games!" then
AddPoints("Brave", 1.0)
table.insert(Personality, "You love to take a chill pill and relax.")
elseif Prompt4 == "I'd love to go to the pool with everybody!" then
AddPoints("Jolly", 1.0)
table.insert(Personality, "You love to be active, it's fun to go out!")
elseif Prompt4 == "A nice burger and fries!" then
AddPoints("Impish", 1.0)
table.insert(Personality, "You have simple taste, it doesn't take much to please you.")
elseif Prompt4 == "Anywhere expensive and gourmet." then
AddPoints("Naive", 1.0)
table.insert(Personality, "You love going all out, it's not very fun when there isn't very much.")
elseif Prompt4 == "Go to the store and get supplies for a good meal!" then
AddPoints("Timid", 1.0)
table.insert(Personality, "You like having alot of options, it's never fun to be restricted!")
elseif Prompt4 == "As long as everybody else likes it, I don't mind." then
AddPoints("Hasty", 1.0)
table.insert(Personality, "You're very humble, always putting others before yourself.")
elseif Prompt4 == "Grab and return the wallet." then
AddPoints("Sassy", 1.0)
table.insert(Personality, "You care for others and wish the best for everybody.")
elseif Prompt4 == "Take the wallet and walk away." then
AddPoints("Calm ", 1.0)
table.insert(Personality, "You're smart to take opportunities while they still last!")
elseif Prompt4 == "Ignore the wallet." then
AddPoints("Relaxed", 1.0)
table.insert(Personality, "You don't like to involve yourselves in situations you don't wanna be in.")
elseif Prompt4 == "Stare at the wallet." then
AddPoints("Lonely", 1.0)
table.insert(Personality, "You like to take your time understanding situations.")
end
Crash:Play()
for i, nature in pairs(Points) do
print(nature)
end
TweenService:Create(Camera,
TweenInfo.new(4.0,
Enum.EasingStyle.Back,
Enum.EasingDirection.Out),
{CFrame = CutsceneCamerasFolder:WaitForChild("cam6").CFrame}
):Play()
task.wait(4.0)
local Question5 = "How would you describe yourself?"
local Answers = {"Cool!", "Cute~"}
local Natures
local ChoosePrompt
local Prompt5 = Answers[Dialogue:PromptMultipleChoice(Question5, Answers, true)]
if Prompt5 == "Cool!" then
ChoosePrompt = ("How cool! You're "..CurrentPokemon.."! Right?")
Natures = {
Hardy = "Charmander",
Docile = "Bulbasaur",
Brave = "Riolu",
Jolly = "Mudkip",
Impish = "Pikachu",
Naive = "Squirtle",
Timid = "Skitty",--
Hasty = "Torchic",--
Sassy = "Treecko",
Calm = "Cyndaquil",
Relaxed = "Chikorita",
Lonely = "Totodile"
}
elseif Prompt5 == "Cute~" then
ChoosePrompt = ("Aww, how cute! You're "..CurrentPokemon.."! Aren't you?")
Natures = {
Hardy = "Cyndaquil",
Docile = "Squirtle",
Brave = "Riolu",
Jolly = "Pikachu",
Impish = "Charmander",
Naive = "Torchic",
Timid = "Treecko",--
Hasty = "Mudkip",--
Sassy = "Skitty",
Calm = "Bulbasaur",
Relaxed = "Totodile",
Lonely = "Chikorita"
}
end
Crash:Play()
TweenService:Create(Camera,
TweenInfo.new(1.0,
Enum.EasingStyle.Back,
Enum.EasingDirection.Out),
{CFrame = TitleScreenChunk:WaitForChild("SpacePressed"):WaitForChild("cam1").CFrame}
):Play()
task.wait(1.0)
TweenService:Create(Camera,
TweenInfo.new(4.0,
Enum.EasingStyle.Back,
Enum.EasingDirection.InOut),
{CFrame = TitleScreenChunk:WaitForChild("Camera").CFrame}
):Play()
task.wait(4.0)
table.insert(Personality, "That's it! I know exactly who you are!")
Dialogue:Broadcast(Personality, true)
TweenService:Create(Camera,
TweenInfo.new(4.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.InOut),
{CFrame = TitleScreenChunk:WaitForChild("SpacePressed"):WaitForChild("cam2").CFrame}
):Play()
Utilities.FadeScreenIn(4.0, Color3.new(1.0, 1.0, 1.0))
CurrentPokemon = PokemonList[Points]
for i, Pokemon in pairs(PokemonFolder:GetChildren())do
if Pokemon:IsA("Model") then
Utilities.PlayAnimation(Pokemon, Animations[Pokemon.Name.."Idle"])
end
end
Camera.CFrame = ChoosingPokemonChunk:WaitForChild("Camera1").CFrame
TweenService:Create(Camera,
TweenInfo.new(4.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.Out),
{CFrame = PokemonCamerasFolder[CurrentPokemon.."Highlight"].CFrame}
):Play()
Utilities.FadeScreenOut(1.0)
task.wait(3.0)
Highlight(CurrentPokemon)
local Prompt = Dialogue:PromptYesOrNo(ChoosePrompt, false)
if Prompt then
SelectPokemon(CurrentPokemon, PokemonFor)
else
Minimize(CurrentPokemon)
TweenService:Create(Camera,
TweenInfo.new(2.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.Out),
{CFrame = PokemonCamerasFolder[CurrentPokemon].CFrame}
):Play()
task.wait(3.0)
IntroScript:ShowScrollScreen(PokemonFor)
end
TweenService:Create(Camera,
TweenInfo.new(2.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.Out),
{CFrame = ChoosingPokemonChunk:WaitForChild("Camera2").CFrame}
):Play()
task.wait(2.0)
if PokemonFor == "Player" then
PokemonFor = "Partner"
end
Dialogue:Broadcast({"And who will be your partner to stick with you through this journey?"}, true)
IntroScript:ShowScrollScreen(PokemonFor)
task.wait(2.0)
TweenService:Create(Camera,
TweenInfo.new(4.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.InOut),
{CFrame = ChoosingPokemonChunk:WaitForChild("Camera2").CFrame}
):Play()
Utilities.FadeScreenIn(4.0, Color3.new(1.0, 1.0, 1.0))
local WhiteList = {
PlayerData.PlayerPokemon,
PlayerData.PartnerPokemon
}
for i, Pokemon in next, PokemonFolder:GetChildren() do
if not table.find(WhiteList, Pokemon.Name) then
Pokemon:Remove()
end
end
PokemonFolder[PlayerData.PlayerPokemon].PrimaryPart.CFrame = ChoosingPokemonChunk:WaitForChild("PlayerCFrame").CFrame
PokemonFolder[PlayerData.PartnerPokemon].PrimaryPart.CFrame = ChoosingPokemonChunk:WaitForChild("PartnerCFrame").CFrame
Camera.CFrame = ChoosingPokemonChunk:WaitForChild("Camera1").CFrame
TweenService:Create(Camera,
TweenInfo.new(4.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.Out),
{CFrame = ChoosingPokemonChunk:WaitForChild("Camera3").CFrame}
):Play()
Utilities.FadeScreenOut(3.0)
task.wait(1.0)
Dialogue:Broadcast({
"Well, "..PlayerData.PlayerName.." the "..PlayerData.PlayerPokemon.." and "..PlayerData.PartnerName.." the "..PlayerData.PartnerPokemon..".",
"Your journey is about to unfold! Many wonders await!", "It's time to go...","To the pokemon world!"
}, true)
TweenService:Create(Camera,
TweenInfo.new(4.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.InOut),
{
CFrame = ChoosingPokemonChunk:WaitForChild("Camera4").CFrame
}
):Play()
local AudioContainer = workspace:WaitForChild("AudioContainer")
local TestAudio = AudioContainer:WaitForChild("PersonalityTest")
TweenService:Create(TestAudio, TweenInfo.new(4.0), {Volume = 0.0}):Play()
Utilities.FadeScreenIn(4.0, Color3.new(1.0, 1.0, 1.0))
Utilities.ChangeScreenColor(1.0, Color3.new(0.0, 0.0, 0.0))
PlayerData.Chapter = "1"
PlayerData.HasData = true
local Continue = Dialogue:PromptSave()
if Continue then
GuiModule:ChapterScreen(1, "The World we enter and the World we leave")
end
TestAudio:Remove()
Crash:Remove()
TitleScreenChunk:Remove()
ChoosingPokemonChunk:Remove()
Utilities.RemoveScreen()
script:Remove()
end
function IntroScript:PlayIntro()
--[Checking to see if loading variables still exist (optimization !!)]
if ReplicatedFirst:WaitForChild("LoadingScript") and PlayerGui:WaitForChild("LoadingGui") then
pcall(function()
ReplicatedFirst:WaitForChild("LoadingScript"):Remove()
PlayerGui:WaitForChild("LoadingGui"):Remove()
end)
end
--[Checking to see if Choosing Pokemon Chunk exists when player has data]
if PlayerData.HasData then
pcall(function()
workspace:WaitForChild("choosingpokemon"):Remove()
end)
end
local Chunk = workspace:WaitForChild("titlescreen")
Camera.CameraType = Enum.CameraType.Scriptable
Camera.CFrame = Chunk:WaitForChild("Cutscene"):WaitForChild("cam1").CFrame
Theme:Play()
local Gui = Instance.new("ScreenGui")
Gui.Parent = PlayerGui
Gui.Name = "TitleScreen"
Gui.IgnoreGuiInset = true
local Fader = CreateObject "Frame" {
BackgroundColor3 = Color3.new(0.0, 0.0, 0.0),
Size = UDim2.new(1.0, 0, 1.0, 0),
Parent = Gui
}
TweenService:Create(
Fader,
TweenInfo.new(1.0),
{BackgroundTransparency = 1.0}
):Play()
TweenService:Create(Camera,
TweenInfo.new(4.0,
Enum.EasingStyle.Quad,
Enum.EasingDirection.Out),
{CFrame = Chunk:WaitForChild("Cutscene"):WaitForChild("cam2").CFrame}
):Play()
local Logo = CreateObject"ImageLabel" {
BackgroundTransparency = 1.0,
Image = ("rbxassetid://"..Images.Logo),
ImageTransparency = 1.0,
Position = UDim2.new(0.5, 0, 0.5, 0),
Size = UDim2.new(0.79, 0, 0.835, 0),
AnchorPoint = Vector2.new(0.5, 0.5),
ZIndex = 1.0, Parent = Gui
}
task.wait(4.2)
Fader:Remove()
TweenService:Create(Logo,
TweenInfo.new(1.0),
{ImageTransparency = 0.0}
):Play()
TweenService:Create(Camera,
TweenInfo.new(1.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.Out),
{CFrame = Chunk:WaitForChild("Camera").CFrame}
):Play()
task.wait(2.0)
--[Code for Tween]
local PlayLabel = CreateObject "TextLabel" {
BackgroundTransparency = 1.0,
Size = UDim2.new(1.0, 0, 0.0, 40), Position = UDim2.new(0.0, 0, 1.0, 0),
TextXAlignment = Enum.TextXAlignment.Center, AnchorPoint = Vector2.new(0.0, 0.5),
TextScaled = true, TextColor3 = Color3.new(1.0, 1.0, 1.0),
Text = (Utilities.IsMobile() and "Tap to Play" or "Press any Key"),
Font = Enum.Font.Arcade, Name = "PlayLabel", ZIndex = 2.0, Parent = Gui,
CreateObject "UIStroke" {
Color = Color3.new(0.0, 0.0, 0.0),
Thickness = 2.0,
}
}
local ShadowLabel = CreateObject "TextLabel" {
BackgroundTransparency = 1.0,
Size = UDim2.new(1.0, 0, 0.0, 40), Position = UDim2.new(0.0, 3, 0.0, 3),
TextXAlignment = Enum.TextXAlignment.Center,
TextScaled = true, TextColor3 = Color3.new(0.0, 0.0, 0.0), Text = PlayLabel.Text,
Font = Enum.Font.Arcade, Name = "Shadow", ZIndex = 1.0, Parent = PlayLabel,
CreateObject "UIStroke" {
Color = Color3.new(0.0, 0.0, 0.0),
Thickness = 2.0,
}
}
TweenService:Create(PlayLabel,
TweenInfo.new(1.0, Enum.EasingStyle.Quart, Enum.EasingDirection.Out),
{Position = UDim2.new(0.0, 0, 1.0, Utilities.IsMobile() and -30 or -50)}
):Play()
task.wait(1.0)
WaitForInputType(UserInputService.KeyboardEnabled and Enum.UserInputType.Keyboard or Enum.UserInputType.Touch)
TweenService:Create(Camera,
TweenInfo.new(1.5,
Enum.EasingStyle.Back,
Enum.EasingDirection.Out),
{CFrame = Chunk:WaitForChild("SpacePressed"):WaitForChild("cam1").CFrame}
):Play()
Crash:Play()
Logo:Remove()
PlayLabel:Remove()
local Flash = CreateObject "Frame" {
BackgroundColor3 = Color3.new(1, 1, 1),
Size = UDim2.new(1.0, 0, 1.0, 0),
ZIndex = 2.0, Parent = Gui
}
TweenService:Create(Flash,
TweenInfo.new(2.0),
{BackgroundTransparency = 1.0}
):Play()
TweenService:Create(Theme,
TweenInfo.new(3.0),
{Volume = 0.0}
):Play()
task.wait(1.0)
if PlayerData.HasData then
TweenService:Create(Camera,
TweenInfo.new(3.0,
Enum.EasingStyle.Quart,
Enum.EasingDirection.InOut),
{CFrame = Chunk:WaitForChild("SpacePressed"):WaitForChild("cam2").CFrame}
):Play()
task.wait(1.5)
Utilities.FadeScreenIn(1.5, Color3.new(0.0, 0.0, 0.0))
task.wait(1.5)
Chunk:Remove()
Theme:Remove()
Crash:Remove()
Gui:Remove()
GuiModule.MainMenu:Init()
script:Remove()
else
task.wait(1.0)
TweenService:Create(Camera,
TweenInfo.new(4.0,
Enum.EasingStyle.Back,
Enum.EasingDirection.InOut),
{CFrame = Chunk:WaitForChild("Camera").CFrame}
):Play()
task.wait(2.0)
Theme:Remove()
Gui:Remove()
IntroScript:PlayPersonalityTest()
end
end
return IntroScript
I have not finished the system that counts to see which of the natures values are the highest yet though.