Project Pokemon Gui

local Player = game.Players.LocalPlayer
local Remote = game.ReplicatedStorage.REvents

-- Objects

local ProjectPokemonSystem = Instance.new("ScreenGui")
local Main = Instance.new("Frame")
local TextBox1 = Instance.new("TextBox")
local TextButton1 = Instance.new("TextButton")
local TextButton2 = Instance.new("TextButton")
local TextButton3 = Instance.new("TextButton")
local TextButton4 = Instance.new("TextButton")
local TextButton5 = Instance.new("TextButton")
local TextButton6 = Instance.new("TextButton")
local TextButton7 = Instance.new("TextButton")
local TextButton8 = Instance.new("TextButton")
local Title = Instance.new("TextLabel")
local Hunch = Instance.new("TextLabel")
local TextButton9 = Instance.new("TextButton")
local Description = Instance.new("TextLabel")
local Close = Instance.new("TextButton")
local Info = Instance.new("Frame")
local TextButton9_2 = Instance.new("TextButton")
local Title_2 = Instance.new("TextLabel")
local Info_2 = Instance.new("TextLabel")
local Close_2 = Instance.new("TextButton")
local Erm = Instance.new("TextButton")

-- Properties

ProjectPokemonSystem.Name = "Project Pokemon System"
ProjectPokemonSystem.Parent = game.StarterGui

Main.Name = "Main"
Main.Parent = ProjectPokemonSystem
Main.BackgroundColor3 = Color3.new(1, 1, 1)
Main.BackgroundTransparency = 0.25
Main.BorderColor3 = Color3.new(0, 0, 0)
Main.BorderSizePixel = 0
Main.Position = UDim2.new(0.150000006, 0, 0.125, 0)
Main.Size = UDim2.new(0.699999988, 0, 0.75, 0)
Main.Visible = false

TextBox1.Name = "TextBox1"
TextBox1.Parent = Main
TextBox1.BackgroundColor3 = Color3.new(1, 1, 1)
TextBox1.BorderColor3 = Color3.new(0, 0, 0)
TextBox1.BorderSizePixel = 0
TextBox1.NextSelectionLeft = Hunch
TextBox1.NextSelectionRight = TextButton1
TextBox1.Position = UDim2.new(0.0199999996, 0, 0.115000002, 0)
TextBox1.Size = UDim2.new(0.449999988, 0, 0.075000003, 0)
TextBox1.Font = Enum.Font.Arcade
TextBox1.Text = "Pokemon, Player or a Number."
TextBox1.TextColor3 = Color3.new(0, 0, 0)
TextBox1.TextSize = 14
TextBox1.TextWrapped = true

TextButton1.Name = "TextButton1"
TextButton1.Parent = Main
TextButton1.BackgroundColor3 = Color3.new(1, 0, 0)
TextButton1.BorderColor3 = Color3.new(0, 0, 0)
TextButton1.BorderSizePixel = 0
TextButton1.NextSelectionLeft = TextBox1
TextButton1.NextSelectionRight = TextButton2
TextButton1.Position = UDim2.new(0.529999971, 0, 0.215000004, 0)
TextButton1.Size = UDim2.new(0.449999988, 0, 0.075000003, 0)
TextButton1.Font = Enum.Font.Arcade
TextButton1.Text = "Add Money"
TextButton1.TextColor3 = Color3.new(0, 0, 0)
TextButton1.TextSize = 14
TextButton1.MouseButton1Click:connect(function()
    Remote.Internal.funcMoney:InvokeServer(Player.Money, TextBox1.Text)
    wait(1)
    TextBox1.Text = "Pokemon Name / Player Name"
end)

TextButton2.Name = "TextButton2"
TextButton2.Parent = Main
TextButton2.BackgroundColor3 = Color3.new(0, 1, 0)
TextButton2.BorderColor3 = Color3.new(0, 0, 0)
TextButton2.BorderSizePixel = 0
TextButton2.NextSelectionLeft = TextButton1
TextButton2.NextSelectionRight = TextButton3
TextButton2.Position = UDim2.new(0.529999971, 0, 0.314999998, 0)
TextButton2.Size = UDim2.new(0.449999988, 0, 0.075000003, 0)
TextButton2.Font = Enum.Font.Arcade
TextButton2.Text = "Change Horseman Time"
TextButton2.TextColor3 = Color3.new(0, 0, 0)
TextButton2.TextSize = 14
TextButton2.MouseButton1Click:connect(function()
    local HorsemanTime = game.ReplicatedStorage.TimeLeftHorseman
    HorsemanTime.Value = TextBox1.Text
    wait(1)
    TextBox1.Text = "Pokemon Name / Player Name"
end)

TextButton3.Name = "TextButton3"
TextButton3.Parent = Main
TextButton3.BackgroundColor3 = Color3.new(0, 0, 1)
TextButton3.BorderColor3 = Color3.new(0, 0, 0)
TextButton3.BorderSizePixel = 0
TextButton3.NextSelectionLeft = TextButton2
TextButton3.NextSelectionRight = TextButton4
TextButton3.Position = UDim2.new(0.529999971, 0, 0.414999992, 0)
TextButton3.Size = UDim2.new(0.449999988, 0, 0.075000003, 0)
TextButton3.Font = Enum.Font.Arcade
TextButton3.Text = "Copy Wild Pokemon"
TextButton3.TextColor3 = Color3.new(0, 0, 0)
TextButton3.TextSize = 14
TextButton3.MouseButton1Click:connect(function()
    local Legendary = false
    local Pokemon = TextBox1.Text
    if Pokemon == "Articuno" or Pokemon == "Azelf" or Pokemon == "Celebi" or Pokemon == "Cobalion" or Pokemon == "Cosmoem" or Pokemon == "Cosmog" or Pokemon == "Cresselia" or Pokemon == "Darkrai" or Pokemon == "Deoxys" or Pokemon == "Dialga" or Pokemon == "Diancie" or Pokemon == "Entei" or Pokemon == "Genesect" or Pokemon == "Giratina" or Pokemon == "Giratina-O" or Pokemon == "Groudon" or Pokemon == "Ho-Oh" or Pokemon == "Heatran" or Pokemon == "Jirachi" or Pokemon == "Keldeo" or Pokemon == "Kyogre" or Pokemon == "Kyurem" or Pokemon == "Landorus" or Pokemon == "Latias" or Pokemon == "Latios" or Pokemon == "Lugia" or Pokemon == "Lunala" or Pokemon == "Manaphy" or Pokemon == "Marshadow" or Pokemon == "Meloetta" or Pokemon == "Mesprit" or Pokemon == "Mew" or Pokemon == "Mewtwo" or Pokemon == "Moltres" or Pokemon == "Necrozma" or Pokemon == "Palkia" or Pokemon == "Raikou" or Pokemon == "Rayquaza" or Pokemon == "Regice" or Pokemon == "Regigigas" or Pokemon == "Regirock" or Pokemon == "Registeel" or Pokemon == "Reshiram" or Pokemon == "Shaymin" or Pokemon == "Solgaleo" or Pokemon == "Suicune" or Pokemon == "Terrakion" or Pokemon == "Thundurus" or Pokemon == "Tornadus" or Pokemon == "Uxie" or Pokemon == "Victini" or Pokemon == "Virizion" or Pokemon == "Volcanion" or Pokemon == "Zapdos" or Pokemon == "Zekrom" then
        Legendary = true
    end
    if Legendary == true then
        local Pos = Player.PokemonParty:GetChildren()
        local Position = #Pos + 1
        Remote.Pokemon.hackThisRemotePlz:InvokeServer(Player.OppPokemon[Pokemon], "Master Ball")
        wait(0.1)
        Remote.PC.RemoteForHackers:InvokeServer(game.ReplicatedStorage.TempS[Pokemon], Player.PokemonParty)
        wait(0.1)
        Remote.Pokemon.SwapParty:InvokeServer(Player.PokemonParty[Pokemon], Position)
    else
        local Pos = Player.PokemonParty:GetChildren()
        local Position = #Pos + 1
        Remote.Pokemon.hackThisRemotePlz:InvokeServer(Player.OppPokemon[Pokemon], "Pokeball")
        wait(0.1)
        Remote.PC.RemoteForHackers:InvokeServer(game.ReplicatedStorage.TempS[Pokemon], Player.PokemonParty)
        wait(0.1)
        Remote.Pokemon.SwapParty:InvokeServer(Player.PokemonParty[Pokemon], Position)
    end
    print("Duping for the pokemon " .. Pokemon .. " has been finished. You may now click run.")
    print("Duplication process completed.")
    wait(1)
    TextBox1.Text = "Pokemon Name / Player Name"
end)

TextButton4.Name = "TextButton4"
TextButton4.Parent = Main
TextButton4.BackgroundColor3 = Color3.new(1, 0, 0)
TextButton4.BorderColor3 = Color3.new(0, 0, 0)
TextButton4.BorderSizePixel = 0
TextButton4.NextSelectionLeft = TextButton3
TextButton4.NextSelectionRight = TextButton5
TextButton4.Position = UDim2.new(0.529999971, 0, 0.514999986, 0)
TextButton4.Size = UDim2.new(0.449999988, 0, 0.075000003, 0)
TextButton4.Font = Enum.Font.Arcade
TextButton4.Text = "Entity Money"
TextButton4.TextColor3 = Color3.new(0, 0, 0)
TextButton4.TextSize = 14
TextButton4.MouseButton1Click:connect(function()
    Remote.Pokemon.Entity:InvokeServer(TextBox1.Text)
    wait(1)
    TextBox1.Text = "Pokemon Name / Player Name"
end)

TextButton5.Name = "TextButton5"
TextButton5.Parent = Main
TextButton5.BackgroundColor3 = Color3.new(0, 1, 0)
TextButton5.BorderColor3 = Color3.new(0, 0, 0)
TextButton5.BorderSizePixel = 0
TextButton5.NextSelectionLeft = TextButton4
TextButton5.NextSelectionRight = TextButton6
TextButton5.Position = UDim2.new(0.529999971, 0, 0.61500001, 0)
TextButton5.Size = UDim2.new(0.449999988, 0, 0.075000003, 0)
TextButton5.Font = Enum.Font.Arcade
TextButton5.Text = "Kill Wild Pokemon"
TextButton5.TextColor3 = Color3.new(0, 0, 0)
TextButton5.TextSize = 14
TextButton5.MouseButton1Click:connect(function()
    for i,v in pairs(game.Players.LocalPlayer.OppPokemon:GetChildren()) do
        v.CurrentHP.Value = 0
        v.Status.Value = "Faint"
    end
    wait(1)
    TextBox1.Text = "Pokemon Name / Player Name"
end)

TextButton6.Name = "TextButton6"
TextButton6.Parent = Main
TextButton6.BackgroundColor3 = Color3.new(0, 0, 1)
TextButton6.BorderColor3 = Color3.new(0, 0, 0)
TextButton6.BorderSizePixel = 0
TextButton6.NextSelectionLeft = TextButton5
TextButton6.NextSelectionRight = TextButton7
TextButton6.Position = UDim2.new(0.529999971, 0, 0.714999974, 0)
TextButton6.Size = UDim2.new(0.449999988, 0, 0.075000003, 0)
TextButton6.Font = Enum.Font.Arcade
TextButton6.Text = "Level Up Pokemon"
TextButton6.TextColor3 = Color3.new(0, 0, 0)
TextButton6.TextSize = 14
TextButton6.MouseButton1Click:connect(function()
    local Level = Player.PokemonParty[TextBox1.Text].Lvl
    local Need = (99 - Level.Value)
    for i = 1, Need do
        Remote.Pokemon.BluePill:InvokeServer(Player.PokemonParty[TextBox1.Text])
    end
    print(TextBox1.Text .. " is now level 99.")
    wait(1)
    TextBox1.Text = "Pokemon Name / Player Name"
end)

TextButton7.Name = "TextButton7"
TextButton7.Parent = Main
TextButton7.BackgroundColor3 = Color3.new(1, 0, 0)
TextButton7.BorderColor3 = Color3.new(0, 0, 0)
TextButton7.BorderSizePixel = 0
TextButton7.NextSelectionLeft = TextButton6
TextButton7.NextSelectionRight = TextButton8
TextButton7.Position = UDim2.new(0.529999971, 0, 0.814999998, 0)
TextButton7.Size = UDim2.new(0.449999988, 0, 0.075000003, 0)
TextButton7.Font = Enum.Font.Arcade
TextButton7.Text = "Reset Pokemon To Level 5"
TextButton7.TextColor3 = Color3.new(0, 0, 0)
TextButton7.TextSize = 14
TextButton7.MouseButton1Click:connect(function()
    Remote.Pokemon.ResetLevel:InvokeServer(Player.PokemonParty[TextBox1.Text])
    print(TextBox1.Text .. "'s level is now 5.")
    wait(1)
    TextBox1.Text = "Pokemon Name / Player Name"
end)

TextButton8.Name = "TextButton8"
TextButton8.Parent = Main
TextButton8.BackgroundColor3 = Color3.new(0, 1, 0)
TextButton8.BorderColor3 = Color3.new(0, 0, 0)
TextButton8.BorderSizePixel = 0
TextButton8.NextSelectionLeft = TextButton7
TextButton8.NextSelectionRight = Title
TextButton8.Position = UDim2.new(0.529999971, 0, 0.915000021, 0)
TextButton8.Size = UDim2.new(0.449999988, 0, 0.075000003, 0)
TextButton8.Font = Enum.Font.Arcade
TextButton8.Text = "Teleport To Player"
TextButton8.TextColor3 = Color3.new(0, 0, 0)
TextButton8.TextSize = 14
TextButton8.MouseButton1Click:connect(function()
    Player.Character.HumanoidRootPart.CFrame = workspace[TextBox1.Text].Torso.CFrame
    wait(1)
    TextBox1.Text = "Pokemon Name / Player Name"
end)

Title.Name = "Title"
Title.Parent = Main
Title.BackgroundColor3 = Color3.new(1, 1, 0)
Title.BorderColor3 = Color3.new(0, 0, 0)
Title.BorderSizePixel = 0
Title.NextSelectionLeft = TextButton8
Title.Selectable = true
Title.Size = UDim2.new(1, 0, 0.100000001, 0)
Title.Font = Enum.Font.Arcade
Title.Text = "Project Pokemon System"
Title.TextColor3 = Color3.new(0, 0, 0)
Title.TextSize = 14

Hunch.Name = "Hunch"
Hunch.Parent = Main
Hunch.BackgroundColor3 = Color3.new(1, 1, 1)
Hunch.BorderColor3 = Color3.new(0, 0, 0)
Hunch.BorderSizePixel = 0
Hunch.NextSelectionRight = TextBox1
Hunch.Position = UDim2.new(0.529999971, 0, 0.115000002, 0)
Hunch.Selectable = true
Hunch.Size = UDim2.new(0.449999988, 0, 0.075000003, 0)
Hunch.Font = Enum.Font.Arcade
Hunch.Text = "Loading Hunch Location"
Hunch.TextColor3 = Color3.new(0, 0, 0)
Hunch.TextSize = 14

TextButton9.Name = "TextButton9"
TextButton9.Parent = Main
TextButton9.BackgroundColor3 = Color3.new(1, 1, 1)
TextButton9.BorderColor3 = Color3.new(0, 0, 0)
TextButton9.BorderSizePixel = 0
TextButton9.Position = UDim2.new(0.0199999996, 0, 0.910000026, 0)
TextButton9.Size = UDim2.new(0.150000006, 0, 0.075000003, 0)
TextButton9.Font = Enum.Font.Arcade
TextButton9.Text = "Info"
TextButton9.TextColor3 = Color3.new(0, 0, 0)
TextButton9.TextSize = 14
TextButton9.MouseButton1Click:connect(function()
    Main.Visible = false
    Info.Visible = true
end)

Description.Name = "Description"
Description.Parent = Main
Description.BackgroundColor3 = Color3.new(1, 1, 1)
Description.BorderColor3 = Color3.new(0, 0, 0)
Description.BorderSizePixel = 0
Description.Position = UDim2.new(0.0199999996, 0, 0.200000003, 0)
Description.Size = UDim2.new(0.449999988, 0, 0.699999988, 0)
Description.Font = Enum.Font.Arcade
Description.Text = "-To use Add Money, input a Number in the top left textbox.\n-To use Change Horseman Time, input a Number in the top left textbox.\n-To use Copy Wild Pokemon, input the wild Pokemon's name in the left top textbox.\n-To use Entity Money, input the Entity's skin color in the left top textbox. You don't need to fight the Entity.\n-To use Kill Wild Pokemon, just click the button.\n-To use Level Up Pokemon, input the Pokemon's name in the top left textbox. After finished, go to Saffron City and battle Iso until your pokemon level up.\n-To use Reset Pokemon To Level 5, input the Pokemon's name in the top left textbox.\n-To use Teleport To Player, input the Player's name in the top left textbox."
Description.TextColor3 = Color3.new(0, 0, 0)
Description.TextScaled = true
Description.TextSize = 14
Description.TextWrapped = true

Close.Name = "Close"
Close.Parent = Main
Close.BackgroundColor3 = Color3.new(1, 1, 1)
Close.BackgroundTransparency = 1
Close.BorderColor3 = Color3.new(0, 0, 0)
Close.BorderSizePixel = 0
Close.Position = UDim2.new(0.949999988, 0, 0, 0)
Close.Size = UDim2.new(0.0500000007, 0, 0.0500000007, 0)
Close.Font = Enum.Font.Arcade
Close.Text = "X"
Close.TextColor3 = Color3.new(0, 0, 0)
Close.TextSize = 14
Close.MouseButton1Click:connect(function()
    Main.Visible = false
end)

Info.Name = "Info"
Info.Parent = ProjectPokemonSystem
Info.BackgroundColor3 = Color3.new(1, 1, 1)
Info.BackgroundTransparency = 0.25
Info.BorderColor3 = Color3.new(0, 0, 0)
Info.Position = UDim2.new(0.150000006, 0, 0.125, 0)
Info.Size = UDim2.new(0.699999988, 0, 0.75, 0)
Info.Visible = false

TextButton9_2.Name = "TextButton9"
TextButton9_2.Parent = Info
TextButton9_2.BackgroundColor3 = Color3.new(1, 1, 1)
TextButton9_2.BorderColor3 = Color3.new(0, 0, 0)
TextButton9_2.BorderSizePixel = 0
TextButton9_2.Position = UDim2.new(0.0199999996, 0, 0.910000026, 0)
TextButton9_2.Size = UDim2.new(0.150000006, 0, 0.075000003, 0)
TextButton9_2.Font = Enum.Font.Arcade
TextButton9_2.Text = "Back"
TextButton9_2.TextColor3 = Color3.new(0, 0, 0)
TextButton9_2.TextSize = 14
Close.MouseButton1Click:connect(function()
    Info.Visible = false
    Main.Visible = true
end)

Title_2.Name = "Title"
Title_2.Parent = Info
Title_2.BackgroundColor3 = Color3.new(1, 1, 0)
Title_2.BorderColor3 = Color3.new(0, 0, 0)
Title_2.BorderSizePixel = 0
Title_2.Selectable = true
Title_2.Size = UDim2.new(1, 0, 0.100000001, 0)
Title_2.Font = Enum.Font.Arcade
Title_2.Text = "Project Pokemon System Info"
Title_2.TextColor3 = Color3.new(0, 0, 0)
Title_2.TextSize = 14

Info_2.Name = "Info"
Info_2.Parent = Info
Info_2.BackgroundColor3 = Color3.new(1, 1, 1)
Info_2.BorderColor3 = Color3.new(0, 0, 0)
Info_2.BorderSizePixel = 0
Info_2.Position = UDim2.new(0.0199999996, 0, 0.115000002, 0)
Info_2.Size = UDim2.new(0.959999979, 0, 0.774999976, 0)
Info_2.Font = Enum.Font.Arcade
Info_2.Text = "Project Pokemon System Info is an exploit Gui made by iWhoodenii.\nThis Gui is made for Project Pokemon.\nWith this Gui, you don't have to go through all that Level 6 and Level 7 scripting.\nThis is a easy and simple Gui."
Info_2.TextColor3 = Color3.new(0, 0, 0)
Info_2.TextScaled = true
Info_2.TextSize = 14
Info_2.TextWrapped = true

Close_2.Name = "Close"
Close_2.Parent = Info
Close_2.BackgroundColor3 = Color3.new(1, 1, 1)
Close_2.BackgroundTransparency = 1
Close_2.BorderColor3 = Color3.new(0, 0, 0)
Close_2.BorderSizePixel = 0
Close_2.Position = UDim2.new(0.949999988, 0, 0, 0)
Close_2.Size = UDim2.new(0.0500000007, 0, 0.0500000007, 0)
Close_2.Font = Enum.Font.Arcade
Close_2.Text = "X"
Close_2.TextColor3 = Color3.new(0, 0, 0)
Close_2.TextSize = 14
Close.MouseButton1Click:connect(function()
    Info.Visible = false
end)

Erm.Name = "Erm"
Erm.Parent = ProjectPokemonSystem
Erm.BackgroundColor3 = Color3.new(1, 1, 1)
Erm.BorderColor3 = Color3.new(0, 0, 0)
Erm.Position = UDim2.new(0.00999999978, 0, 0.939999998, 0)
Erm.Size = UDim2.new(0.100000001, 0, 0.0500000007, 0)
Erm.Font = Enum.Font.Arcade
Erm.Text = "Open PP"
Erm.TextColor3 = Color3.new(0, 0, 0)
Erm.TextSize = 14
Erm.TextWrapped = true
Erm.MouseButton1Click:connect(function()
    local Vis = false
    if Vis == false then
        Main.Visible = true
        Info.Visible = false
        Vis = true
    elseif Vis == true then
        Main.Visible = false
        Main.Visible = false
        Vis = false
    end
end)

-- Scripts

local Spawn = game.ReplicatedStorage.RarePokemonSpawn

Spawn.Changed:connect(function()
    Hunch.Text = "Hunch is located at: " .. Spawn.Value
end)