Project Pokemon Script

Game: https://www.roblox.com/games/8129673115/Master-quest-2

Credit: V3rmillion, payk12

Script:

MDown = false
Mouse = game.Players.LocalPlayer:GetMouse()
function ConvertNumbers(X, Y)
    local TX = Mouse.ViewSizeX*X
    local TY = Mouse.ViewSizeY*Y
    return TX, TY
end
function MoveableItem(item)
    item.InputBegan:connect(function(input)
        if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
            MDown = true
            local CX, CY = ConvertNumbers(item.Position.X.Scale, item.Position.Y.Scale)
            item.Position = UDim2.new(0, item.Position.X.Offset+CX, 0, item.Position.Y.Offset+CY)
            local StartX = Mouse.X - item.Position.X.Offset
            local StartY = Mouse.Y - item.Position.Y.Offset
            while MDown == true do
                item.Position = UDim2.new(0, Mouse.X - StartX, 0, Mouse.Y - StartY)
                wait()
            end
        end
    end)
    item.InputEnded:connect(function(input)
        if input.UserInputType == Enum.UserInputType.MouseButton1 then
            MDown = false
        end
    end)
end

Badges = {1, 2, 3, 4, 5 , 6, 7, 8, "Aether Paradise", "Indigo", "EV", "Champ", "Eternatus", "Mysterious Grotto", "Sword", "Mausoleum of Origins"}
local ItemTable = {
    ["Recover"] = { ["Antidote"] = true, ["Awakening"] = true, ["Burn Heal"] = true, ["Full Restore"] = true, ["Hyper Potion"] = true, ["Max Elixir"] = true, ["Paralyze Heal"] = true, ["Revive"] = true, ["Potion"] = true, ["Ice Heal"] = true},
    ["Pokeball"] = { ["Great Ball"] = true, ["Premier Ball"] = true, ["Ultra Ball"] = true, ["Pokeball"] = true, ["Repeat Ball"] = true, ["Nest Ball"] = true, ["Net Ball"] = true, ["Master Ball"] = true },
    ["Competitive"] = { ["Calcium"] = true, ["Carbos"] = true, ["HP Up"] = true, ["Iron"] = true, ["Mini Stat Reset"] = true, ["Nature Stone"] = true, ["PokeImprove"] = true, ["Protein"] = true, ["Stat Reset"] = true, ["Zinc"] = true },
    ["Evolution"] = {["Rare Candy"] = true, ["Common Candy"] = true, ["Dragon Scale"] = true, ["Fire Stone"] = true, ["Friendship Ribbon"] = true, ["Leaf Stone"] = true, ["Link Cable Stone"] = true, ["Metal Coat"] = true, ["Moon Stone"] = true, ["Sinnoh Stone"] = true, ["Thunder Stone"] = true, ["Water Stone"] = true },
    ["HeldItems"] = { ["Aggronite"] = true, ["Beedrillite"] = true, ["Altarianite"] = true, ["Audinite"] = true, ["Glalitite"] = true, ["Ampharosite"] = true, ["Pinsirite"] = true, ["Slowbronite"] = true, ["Manectite"] = true, ["Venusaurite"] = true, ["Swampertite"] = true, ["Tyranitarite"] = true, ["Salamencite"] = true, ["Sablenite"] = true, ["Heracronite"] = true, ["Lopunnite"] = true, ["Latiosite"] = true, ["Latiasite"] = true, ["Houndoomite"] = true, ["Lucarionite"] = true, ["Metagrossite"] = true, ["Steelixite"] = true, ["Sharpedonite"] = true, ["Sceptilite"] = true, ["Pidgeotite"] = true, ["Gyaradosite"] = true, ["Medichamite"] = true, ["Mawilite"] = true, ["Gengarite"] = true, ["Gardevoirite"] = true, ["Galladite"] = true, ["Charizardite Y"] = true, ["Charizardite X"] = true, ["Cameruptite"] = true, ["Blazikenite"] = true, ["Blastoisinite"] = true, ["Absolite"] = true, ["Alakazamite"] = true, ["Banettite"] = true, ["Aerodactylite"] = true, ["Garchompite"] = true, ["Scizorite"] = true }
};
--GetFunctionsRequired and making bypasses--
Tab = getrenv()._G
FakeFunctions = {["UpgradedRoulette"] = true, ["BattleInitiate"] = true, ["ForceOak"] = true, ["GetBattleTowerTeam"] = true, ["PCSystem"] = true, ["UltimateRoulette"] = true, ["MoveRelearner"] = true, ["EVChecker"] = true, ["nickname"] = true, ["TrainerCard"] = true, ["PokeBoosters"] = true, ["BattleTowerSelectPoke"] = true, ["ItemBattle"] = true, ["UpdateBag"] = true, ["StatScreen"] = true, ["getBackSprite"] = true, ["Roulette"] = true, ["Shop"] = true, ["CashShop"] = true, ["TMShop"] = true, ["MysteryGift"] = true, ["Redward"] = true, ["TransferAura"] = true, ["UsernamePartyGet"] = true, ["Trade"] = true, ["BPTMShop"] = true, ["PokemonShop"] = true, ["Nickname"] = true, ["NatureScientist"] = true, ["BPItemShop"] = true, ["PartyBattle"] = true, ["getFrontSprite"] = true, ["Pokedex"] = true, ["PVPParty"] = true, ["PartyOverworld"] = true, ["ShowStats"] = true}
function GetRealFunction()
for i, v in pairs(Tab) do
if typeof(v) == "function" and FakeFunctions[tostring(i)] == nil then
return v
end
end
end
SpawnFunction = GetRealFunction()
if debug.getconstant(SpawnFunction, 3) == "getrenv" then
    debug.setconstant(SpawnFunction, 3, "This is a really long string which should bypass anything because I said so.")
end
Math = require(game.ReplicatedStorage.Functions.Math)
BadgeFunction = Math.AwardBadge
FuncAddItem = Math.AddItem
AddItem = Math.BuyItem
if debug.getconstant(BadgeFunction, 3) == "getrenv" then
    debug.setconstant(BadgeFunction, 3, "Again, this is a really long string which should bypass their stupid security they have in place xD")
end
if debug.getconstant(FuncAddItem, 3) == "getrenv" then
    debug.setconstant(FuncAddItem, 3, "Again, this is a really long string which should bypass their stupid security they have in place xD")
end
if debug.getconstant(AddItem, 3) == "getrenv" then
    debug.setconstant(AddItem, 3, "Again, this is a really long string which should bypass their stupid security they have in place xD")
end
--End of getting functions--
--Setup functions--
Rep = game:GetService("ReplicatedStorage")
MoveLearn = Rep.REvents.Pokemon.MoveLearn
function ChangeParent(Object, Par)
    Rep.REvents.PC.ParentChange:InvokeServer(Object, Par)
end
function GetSlot(Par, Val)
    local Tab = {}
    for i = 1, 60 do
        Tab[i] = true
    end
    for i, v in pairs(Par:GetChildren()) do
        if v:FindFirstChild("PartyPosition") then
            Tab[v.PartyPosition.Value] = nil
        end
    end
    if Val ~= nil then
        return Tab
    end
    for i = 1, 60 do
        if Tab[i] == true then
            return tonumber(i)
        end
    end
    return 0
end
local Accepted = 0
local SpawnPlace = game.Players.LocalPlayer.Backpack
function SpawnPokemon(Poke, Lvl, Par, S, A)
    Poke = SpawnFunction(Poke, SpawnPlace, Lvl)
    if tostring(Par) == "PokemonParty" then
        if (S == true and Poke:WaitForChild("Shiny").Value ~= true or A == true and not Poke:FindFirstChild("Aura")) then
            ChangeParent(Poke, nil)
            return
        end
        Rep.REvents.PC.ChangePos:InvokeServer(Poke, #Par:GetChildren()+1)
        ChangeParent(Poke, Par)
    end
end
function GetPokemon(Poke)
    local Pokes = Tab.Pokemon
    if Pokes[Poke] ~= nil then
        return Poke
    end
    for i, v in pairs(Pokes) do
        if string.sub(string.lower(i), 1, string.len(Poke)) == string.lower(Poke) then
            return i
        end
    end
end
function ChangeName(Ob)
    Poke = game:GetService("Players").LocalPlayer.PokemonParty:FindFirstChildOfClass("Configuration")
    spawn(function()
        pcall(function()
            Move = Poke.Moves:FindFirstChildOfClass("IntValue").Name
            if Ob.Name ~= Move then
                MoveLearn:InvokeServer(Poke, Ob, Move)
            end
        end)
    end)
end
function MakeItem(Par, Name, Val)
FuncAddItem(nil, Name, Par, Val)
end
function ChangeNumber(Item, Val)
AddItem(nil, Item, Val)
end
--End of setup--

function OpenTabF(Tab)
    Local.Visible = false
    Server.Visible = false
    Spawner.Visible = false
    Tab.Visible = true
    OpenClose()
end

ScreenGui = Instance.new("ScreenGui", game:GetService("CoreGui"))
ScreenGui.Name = "PokemonGui"
ScreenGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
if _G.SG ~= nil then
    _G.SG:remove()
end
_G.SG = ScreenGui

Frame = Instance.new("Frame", ScreenGui)
Frame.Name = "Frame"
Frame.BackgroundColor3 = Color3.fromRGB(43, 43, 43)
Frame.BorderSizePixel = 0
Frame.Position = UDim2.new(0.301, 0, 0.36, 0)
Frame.Size = UDim2.new(0, 375, 0, 37)
MoveableItem(Frame)

MainFrame = Instance.new("Frame", Frame)
MainFrame.Name = "MainFrame"
MainFrame.BackgroundColor3 = Color3.fromRGB(48, 48, 48)
MainFrame.BorderSizePixel = 0
MainFrame.Position = UDim2.new(0, 0, 1, 0)
MainFrame.Size = UDim2.new(0, 375, 0, 221)
MainFrame.ClipsDescendants = true

Tabs = Instance.new("ScrollingFrame", MainFrame)
Tabs.Name = "Tabs"
Tabs.Active = true
Tabs.BackgroundColor3 = Color3.fromRGB(54, 54, 54)
Tabs.BorderSizePixel = 0
Tabs.Size = UDim2.new(0, 100, 0, 221)
Tabs.Visible = false
Tabs.ScrollBarImageColor3 = Color3.fromRGB(0, 0, 0)
Tabs.ScrollBarThickness = 0
Tabs.ZIndex = 100

UIListLayout = Instance.new("UIListLayout", Tabs)
UIListLayout.Name = "UIListLayout"
UIListLayout.SortOrder = Enum.SortOrder.LayoutOrder
UIListLayout.Padding = UDim.new(0, 4)

Frame2 = Instance.new("Frame", Tabs)
Frame2.Name = "Frame2"
Frame2.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
Frame2.BackgroundTransparency = 1
Frame2.Size = UDim2.new(0, 100, 0, 0)

TextButton = Instance.new("TextButton", Tabs)
TextButton.Name = "TextButton"
TextButton.BackgroundColor3 = Color3.fromRGB(43, 43, 43)
TextButton.BorderSizePixel = 0
TextButton.Size = UDim2.new(0, 100, 0, 33)
TextButton.Font = Enum.Font.SourceSans
TextButton.Text = "Local"
TextButton.TextColor3 = Color3.fromRGB(255, 255, 255)
TextButton.TextSize = 21
TextButton.MouseButton1Down:Connect(function()
    OpenTabF(Local)
end)

TextButton2 = Instance.new("TextButton", Tabs)
TextButton2.Name = "TextButton2"
TextButton2.BackgroundColor3 = Color3.fromRGB(43, 43, 43)
TextButton2.BorderSizePixel = 0
TextButton2.Size = UDim2.new(0, 100, 0, 33)
TextButton2.Font = Enum.Font.SourceSans
TextButton2.Text = "Server"
TextButton2.TextColor3 = Color3.fromRGB(255, 255, 255)
TextButton2.TextSize = 21
TextButton2.MouseButton1Down:Connect(function()
    OpenTabF(Server)
end)

TextButton3 = Instance.new("TextButton", Tabs)
TextButton3.Name = "TextButton3"
TextButton3.BackgroundColor3 = Color3.fromRGB(43, 43, 43)
TextButton3.BorderSizePixel = 0
TextButton3.Size = UDim2.new(0, 100, 0, 33)
TextButton3.Font = Enum.Font.SourceSans
TextButton3.Text = "Spawner"
TextButton3.TextColor3 = Color3.fromRGB(255, 255, 255)
TextButton3.TextSize = 21
TextButton3.MouseButton1Down:Connect(function()
    OpenTabF(Spawner)
end)

Local = Instance.new("Frame", MainFrame)
Local.Name = "Local"
Local.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
Local.BackgroundTransparency = 1
Local.BorderSizePixel = 0
Local.Size = UDim2.new(0, 375, 0, 221)
Local.Visible = true

Frame3 = Instance.new("Frame", Local)
Frame3.Name = "Frame3"
Frame3.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
Frame3.BackgroundTransparency = 1
Frame3.Position = UDim2.new(0, 32.5, 0.24, -1)
Frame3.Size = UDim2.new(0, 335, 0, 168)

Money = Instance.new("TextButton", Frame3)
Money.Name = "Money"
Money.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
Money.BorderSizePixel = 0
Money.Position = UDim2.new(0.222, 0, 0.032, 0)
Money.Size = UDim2.new(0, 80, 0, 37)
Money.Font = Enum.Font.SourceSans
Money.Text = "Set Money"
Money.TextColor3 = Color3.fromRGB(255, 255, 255)
Money.TextSize = 21
Money.MouseButton1Down:Connect(function()
local TempNumber = tonumber(Num.Text)
if tonumber(Num.Text) == nil then
TempNumber = 0
end
if Name2.Text ~= "" then
    for i, v in pairs(game.Players:GetPlayers()) do
        if string.match(string.lower(tostring(v)), string.lower(Name2.Text)) then
            MakeItem(v, "Money", TempNumber)
            ChangeName(v.Money)
        end
    end
else
MakeItem(game.Players.LocalPlayer, "Money", TempNumber)
ChangeName(game.Players.LocalPlayer.Money)
end
end)

Badge = Instance.new("TextButton", Frame3)
Badge.Name = "Badge"
Badge.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
Badge.BorderSizePixel = 0
Badge.Position = UDim2.new(0.222, 0, 0.452, 0)
Badge.Size = UDim2.new(0, 80, 0, 37)
Badge.Font = Enum.Font.SourceSans
Badge.Text = "Badges"
Badge.TextColor3 = Color3.fromRGB(255, 255, 255)
Badge.TextSize = 21
Badge.MouseButton1Down:Connect(function()
    if Name2.Text ~= "" then
        for i, v in pairs(game.Players:GetPlayers()) do
            if string.match(string.lower(tostring(v)), string.lower(Name2.Text)) and v:FindFirstChild("Badges") then
                for a = 1, #Badges do
                    if not v.Badges:FindFirstChild(Badges[a]) then
                        spawn(function()
                            MakeItem(v.Badges, Badges[a], 0)
                        end)
                    end
                end
            end
        end
    else
        for i = 1, #Badges do
            if not game.Players.LocalPlayer.Badges:FindFirstChild(Badges[i]) then
                spawn(function()
                    MakeItem(game.Players.LocalPlayer.Badges, Badges[i], 0)
                end)
            end
        end
    end
end)

Items = Instance.new("TextButton", Frame3)
Items.Name = "Items"
Items.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
Items.BorderSizePixel = 0
Items.Position = UDim2.new(0.222, 0, 0.249, 0)
Items.Size = UDim2.new(0, 80, 0, 37)
Items.Font = Enum.Font.SourceSans
Items.Text = "Set Items"
Items.TextColor3 = Color3.fromRGB(255, 255, 255)
Items.TextSize = 19
Items.MouseButton1Down:connect(function()
    local TempItems = Tab.Items
    local TItem = Name3.Text
    local Amount = 0
    if tonumber(Num.Text) ~= nil then
        Amount = tonumber(Num.Text)
    end
    if not TempItems[TItem] then
        for i, v in pairs(TempItems) do
            if string.match(string.lower(i), string.lower(TItem)) then
                TItem = i
                break
            end
        end
    end
    if TempItems[TItem] == nil then
        return
    end
    Plr = game.Players.LocalPlayer
    if Name2.Text ~= "" then
        for i, v in pairs(game.Players:GetPlayers()) do
            if string.match(tostring(v), Name2.Text) then
                Plr = v
            end
        end
    end
    local Slot = nil
    for i, v in pairs(ItemTable) do
        if v[TItem] ~= nil then
            Slot = i
            break
        end
    end
    if Slot ~= nil then
        if Plr.Bag[Slot]:FindFirstChild(TItem) and Plr == game.Players.LocalPlayer then
            ChangeNumber(Plr.Bag[Slot][TItem], Amount)
        else
            MakeItem(Plr.Bag[Slot], TItem, Amount)
        end
    end
end)

Heal = Instance.new("TextButton", Frame3)
Heal.Name = "Heal"
Heal.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
Heal.BorderSizePixel = 0
Heal.Position = UDim2.new(0.222, 0, 0.249, 0)
Heal.Size = UDim2.new(0, 80, 0, 37)
Heal.Font = Enum.Font.SourceSans
Heal.Text = "Heal - Local"
Heal.TextColor3 = Color3.fromRGB(255, 255, 255)
Heal.TextSize = 19
Heal.MouseButton1Down:connect(function()
    for i, v in pairs(game.Players.LocalPlayer.PokemonParty:GetChildren()) do
        v.Status.Value = ""
        v.CurrentHP.Value = v.Stats.HPStat
    end
end)

UIGridLayout = Instance.new("UIGridLayout", Frame3)
UIGridLayout.Name = "UIGridLayout"
UIGridLayout.SortOrder = Enum.SortOrder.LayoutOrder
UIGridLayout.CellSize = UDim2.new(0, 100, 0, 37)
UIGridLayout.CellPadding = UDim2.new(0, 6, 0, 5)

PDex = Instance.new("TextButton", Frame3)
PDex.Name = "PDex"
PDex.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
PDex.BorderSizePixel = 0
PDex.Position = UDim2.new(0.222, 0, 0.249, 0)
PDex.Size = UDim2.new(0, 80, 0, 37)
PDex.Font = Enum.Font.SourceSans
PDex.Text = "Pokedex"
PDex.TextColor3 = Color3.fromRGB(255, 255, 255)
PDex.TextSize = 19
PDex.MouseButton1Down:connect(function()
Plr = nil
if Name2.Text ~= "" then
    for i, v in pairs(game.Players:GetPlayers()) do
        if string.match(tostring(v), Name2.Text) then
            Plr = v
        end
    end
else
    Plr = game.Players.LocalPlayer
end
if Plr ~= nil then
    PF = Rep.REvents.Pokemon
    for i, v in pairs(Tab["Pokemon"]) do
        if not Plr.Pokedex:FindFirstChild(tostring(v.Pokedex)) or Plr.Pokedex[tostring(v.Pokedex)].Caught.Value == false then
            PF.createPokedex:FireServer(i)
            spawn(function()
                repeat
                    wait()
                until game.Players.LocalPlayer.Pokedex:FindFirstChild(tostring(v.Pokedex))
                PF.caughtPokedex:FireServer(i)
                repeat
                    wait()
                until game.Players.LocalPlayer.Pokedex:FindFirstChild(tostring(v.Pokedex)).Caught.Value == true
                ChangeParent(game.Players.LocalPlayer.Pokedex:FindFirstChild(tostring(v.Pokedex)), Plr.Pokedex)
            end)
        end
    end
end
end)

BP = Instance.new("TextButton", Frame3)
BP.Name = "BP"
BP.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
BP.BorderSizePixel = 0
BP.Position = UDim2.new(0.222, 0, 0.249, 0)
BP.Size = UDim2.new(0, 80, 0, 37)
BP.Font = Enum.Font.SourceSans
BP.Text = "BattlePoints"
BP.TextColor3 = Color3.fromRGB(255, 255, 255)
BP.TextScaled = 19
BP.MouseButton1Down:Connect(function()
local TempNumber = tonumber(Num.Text)
if tonumber(Num.Text) == nil then
TempNumber = 0
end
if Name2.Text ~= "" then
for i, v in pairs(game.Players:GetPlayers()) do
if string.match(tostring(v), Name2.Text) then
MakeItem(v, "BP", TempNumber)
ChangeName(v.BP)
end
end
else
MakeItem(game.Players.LocalPlayer, "BP", TempNumber)
ChangeName(game.Players.LocalPlayer.BP)
end
end)

Num = Instance.new("TextBox", Local)
Num.Name = "Num"
Num.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
Num.BorderSizePixel = 0
Num.Position = UDim2.new(1, -131, 0.032, 0)
Num.Size = UDim2.new(0, 100, 0, 37)
Num.Font = Enum.Font.SourceSans
Num.PlaceholderText = "Number"
Num.Text = ""
Num.TextColor3 = Color3.fromRGB(255, 255, 255)
Num.TextScaled = true

Name2 = Instance.new("TextBox", Local)
Name2.Name = "Name2"
Name2.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
Name2.BorderSizePixel = 0
Name2.Position = UDim2.new(0, 32.5, 0.032, 0)
Name2.Size = UDim2.new(0, 100, 0, 37)
Name2.Font = Enum.Font.SourceSans
Name2.PlaceholderText = "Player Name"
Name2.Text = ""
Name2.TextColor3 = Color3.fromRGB(255, 255, 255)
Name2.TextScaled = true

Name3 = Instance.new("TextBox", Local)
Name3.Name = "Name3"
Name3.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
Name3.BorderSizePixel = 0
Name3.Position = UDim2.new(0, 138.5, 0.032, 0)
Name3.Size = UDim2.new(0, 100, 0, 37)
Name3.Font = Enum.Font.SourceSans
Name3.PlaceholderText = "Item Name"
Name3.Text = ""
Name3.TextColor3 = Color3.fromRGB(255, 255, 255)
Name3.TextScaled = true

Server = Instance.new("Frame", MainFrame)
Server.Name = "Server"
Server.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
Server.BackgroundTransparency = 1
Server.BorderSizePixel = 0
Server.Size = UDim2.new(0, 375, 0, 221)
Server.Visible = false

Frame4 = Instance.new("Frame", Server)
Frame4.Name = "Frame4"
Frame4.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
Frame4.BackgroundTransparency = 1
Frame4.Position = UDim2.new(0, 0, 0.24, 0)
Frame4.Size = UDim2.new(0, 375, 0, 168)

TextButton5 = Instance.new("TextButton", Frame4)
TextButton5.Name = "TextButton5"
TextButton5.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
TextButton5.BorderSizePixel = 0
TextButton5.Position = UDim2.new(0.222, 0, 0.249, 0)
TextButton5.Size = UDim2.new(0, 100, 0, 37)
TextButton5.Font = Enum.Font.SourceSans
TextButton5.Text = "Reset Player"
TextButton5.TextColor3 = Color3.fromRGB(255, 255, 255)
TextButton5.TextScaled = true
TextButton5.TextSize = 19
TextButton5.TextWrapped = true
TextButton5.MouseButton1Down:connect(function()
    for i, v in pairs(game.Players:GetPlayers()) do
        if v ~= game.Players.LocalPlayer and v.Character ~= nil and (Plr.Text == "" or string.match(string.lower(tostring(v)), string.lower(Plr.Text))) then
            for a, b in pairs(v.Character:GetDescendants()) do
                ChangeName(b)
            end
        end
    end
end)

TextButton6 = Instance.new("TextButton", Frame4)
TextButton6.Name = "TextButton6"
TextButton6.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
TextButton6.BorderSizePixel = 0
TextButton6.Position = UDim2.new(0.222, 0, 0.452, 0)
TextButton6.Size = UDim2.new(0, 100, 0, 37)
TextButton6.Font = Enum.Font.SourceSans
TextButton6.Text = "Destroy Pc's/Party's"
TextButton6.TextColor3 = Color3.fromRGB(255, 255, 255)
TextButton6.TextScaled = true
TextButton6.TextSize = 21
TextButton6.TextWrapped = true
TextButton6.MouseButton1Down:connect(function()
    for i, v in pairs(game.Players:GetPlayers()) do
        if v ~= game.Players.LocalPlayer and (Plr.Text == "" or string.match(string.lower(tostring(v)), string.lower(Plr.Text))) then
            for a, b in pairs(v.PokemonParty:GetChildren()) do
                ChangeName(b)
            end
            for a, b in pairs(v.PC:GetChildren()) do
                for c, d in pairs(b:GetChildren()) do
                    ChangeName(d)
                end
            end
        end
    end
end)

UIGridLayout2 = Instance.new("UIGridLayout", Frame4)
UIGridLayout2.Name = "UIGridLayout2"
UIGridLayout2.HorizontalAlignment = Enum.HorizontalAlignment.Center
UIGridLayout2.SortOrder = Enum.SortOrder.LayoutOrder
UIGridLayout2.CellPadding = UDim2.new(0, 6, 0, 5)
UIGridLayout2.CellSize = UDim2.new(0, 100, 0, 37)

TextButton7 = Instance.new("TextButton", Frame4)
TextButton7.Name = "TextButton7"
TextButton7.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
TextButton7.BorderSizePixel = 0
TextButton7.Position = UDim2.new(0, 0, 0.249, 0)
TextButton7.Size = UDim2.new(0, 100, 0, 37)
TextButton7.Font = Enum.Font.SourceSans
TextButton7.Text = "Destroy Badges"
TextButton7.TextColor3 = Color3.fromRGB(255, 255, 255)
TextButton7.TextScaled = true
TextButton7.TextSize = 20
TextButton7.TextWrapped = true
TextButton7.MouseButton1Down:connect(function()
    for i, v in pairs(game.Players:GetPlayers()) do
        if v ~= game.Players.LocalPlayer and v:FindFirstChild("Badges") and (Plr.Text == "" or string.match(string.lower(tostring(v)), string.lower(Plr.Text))) then
            for a, b in pairs(v.Badges:GetChildren()) do
                ChangeName(b)
            end
         end
    end
end)

TextButton8 = Instance.new("TextButton", Frame4)
TextButton8.Name = "TextButton8"
TextButton8.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
TextButton8.BorderSizePixel = 0
TextButton8.Position = UDim2.new(0.222, 0, 0.249, 0)
TextButton8.Size = UDim2.new(0, 100, 0, 37)
TextButton8.Font = Enum.Font.SourceSans
TextButton8.Text = "Destroy Players"
TextButton8.TextColor3 = Color3.fromRGB(255, 255, 255)
TextButton8.TextScaled = true
TextButton8.TextSize = 20
TextButton8.TextWrapped = true
TextButton8.MouseButton1Down:connect(function()
    for i, v in pairs(game.Players:GetPlayers()) do
        if v ~= game.Players.LocalPlayer and (Plr.Text == "" or string.match(string.lower(tostring(v)), string.lower(Plr.Text))) then
            for a, b in pairs(v:GetDescendants()) do
                ChangeName(b)
            end
        end
    end
end)

TextButton9 = Instance.new("TextButton", Frame4)
TextButton9.Name = "TextButton9"
TextButton9.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
TextButton9.BorderSizePixel = 0
TextButton9.Position = UDim2.new(0.244, 0, 0.511, 0)
TextButton9.Size = UDim2.new(0, 100, 0, 37)
TextButton9.Font = Enum.Font.SourceSans
TextButton9.Text = "Destroy Server"
TextButton9.TextColor3 = Color3.fromRGB(255, 255, 255)
TextButton9.TextScaled = true
TextButton9.TextSize = 20
TextButton9.TextWrapped = true
TextButton9.MouseButton1Down:connect(function()
    for i, v in pairs(game.ReplicatedStorage:GetDescendants()) do
        ChangeName(v)
    end
    for i, v in pairs(game.Workspace:GetDescendants()) do
        ChangeName(v)
    end
end)

Plr = Instance.new("TextBox", Server)
Plr.Name = "Pokemon"
Plr.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
Plr.BorderSizePixel = 0
Plr.Position = UDim2.new(0, 32.5, 0.032, 0)
Plr.Size = UDim2.new(0, 100, 0, 37)
Plr.Font = Enum.Font.SourceSans
Plr.PlaceholderText = "Player"
Plr.Text = ""
Plr.TextColor3 = Color3.fromRGB(255, 255, 255)
Plr.TextScaled = true

Spawner = Instance.new("Frame", MainFrame)
Spawner.Name = "Spawner"
Spawner.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
Spawner.BackgroundTransparency = 1
Spawner.BorderSizePixel = 0
Spawner.Size = UDim2.new(0, 375, 0, 221)
Spawner.Visible = false

Pokemon = Instance.new("TextBox", Spawner)
Pokemon.Name = "Pokemon2"
Pokemon.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
Pokemon.BorderSizePixel = 0
Pokemon.Position = UDim2.new(0.085, 1, 0.032, 0)
Pokemon.Size = UDim2.new(0, 100, 0, 37)
Pokemon.Font = Enum.Font.SourceSans
Pokemon.PlaceholderText = "Pokemon"
Pokemon.Text = ""
Pokemon.TextColor3 = Color3.fromRGB(255, 255, 255)
Pokemon.TextScaled = true

Player = Instance.new("TextBox", Spawner)
Player.Name = "Player"
Player.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
Player.BorderSizePixel = 0
Player.Position = UDim2.new(0.368, 0, 0.032, 0)
Player.Size = UDim2.new(0, 100, 0, 37)
Player.Font = Enum.Font.SourceSans
Player.PlaceholderText = "Player"
Player.Text = ""
Player.TextColor3 = Color3.fromRGB(255, 255, 255)
Player.TextScaled = true

PCBox = Instance.new("TextBox", Spawner)
PCBox.Name = "PCBox"
PCBox.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
PCBox.BorderSizePixel = 0
PCBox.Position = UDim2.new(1, -132, 0.032, 0)
PCBox.Size = UDim2.new(0, 100, 0, 37)
PCBox.Font = Enum.Font.SourceSans
PCBox.PlaceholderText = "PC Box"
PCBox.Text = ""
PCBox.TextColor3 = Color3.fromRGB(255, 255, 255)
PCBox.TextScaled = true

Level = Instance.new("TextBox", Spawner)
Level.Name = "Level"
Level.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
Level.BorderSizePixel = 0
Level.Position = UDim2.new(0.368, 0, 0.226, 0)
Level.Size = UDim2.new(0, 100, 0, 37)
Level.Font = Enum.Font.SourceSans
Level.PlaceholderText = "Level"
Level.Text = ""
Level.TextColor3 = Color3.fromRGB(255, 255, 255)
Level.TextSize = 21

local ShinyVal = false
local AuraVal = false
Frame5 = Instance.new("Frame", Spawner)
Frame5.Name = "Frame5"
Frame5.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
Frame5.BackgroundTransparency = 1
Frame5.Position = UDim2.new(0, 0, 0.226, 42)
Frame5.Size = UDim2.new(0, 375, 0, 171)

function GetPlayer(P)
    for i, v in pairs(game.Players:GetPlayers()) do
        if string.sub(string.lower(tostring(v)), 1, string.len(P)) == string.lower(P) then
            return v
        end
    end
end

Spawn = Instance.new("TextButton", Frame5)
Spawn.Name = "Spawn"
Spawn.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
Spawn.BorderSizePixel = 0
Spawn.Position = UDim2.new(0.222, 0, 0.032, 0)
Spawn.Size = UDim2.new(0, 100, 0, 37)
Spawn.Font = Enum.Font.SourceSans
Spawn.Text = "Spawn"
Spawn.TextColor3 = Color3.fromRGB(255, 255, 255)
Spawn.TextSize = 21
Spawn.MouseButton1Down:connect(function()
    local Poke = GetPokemon(Pokemon.Text)
    local Lvl = tonumber(Level.Text)
    Accepted = 0
    if Lvl == nil then
        Lvl = 5
    end
    local P = game.Players.LocalPlayer
    if Player.Text ~= "" then
        P = GetPlayer(Player.Text)
    end
    local Par = P.PokemonParty
    if PCBox.Text ~= "" and P.PC["Box "..PCBox.Text] ~= nil then
        Par = P.PC["Box "..PCBox.Text]
    end
    if Poke ~= nil and P ~= nil then
        SpawnPokemon(Poke, Lvl, Par, ShinyVal, AuraVal)
    end
end)
local Spawning = false
SpawnBox = Instance.new("TextButton", Frame5)
SpawnBox.Name = "SpawnBox"
SpawnBox.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
SpawnBox.BorderSizePixel = 0
SpawnBox.Position = UDim2.new(0.222, 0, 0.249, 0)
SpawnBox.Size = UDim2.new(0, 100, 0, 37)
SpawnBox.Font = Enum.Font.SourceSans
SpawnBox.Text = "SpawnBox"
SpawnBox.TextColor3 = Color3.fromRGB(255, 255, 255)
SpawnBox.TextSize = 21
SpawnBox.MouseButton1Down:connect(function()
    Spawning = not Spawning
    SpawnBox.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
    Accepted = 0
    StartingNumber = #SpawnPlace:GetChildren()
    local Stuck = false
    local Poke = GetPokemon(Pokemon.Text)
    local Lvl = tonumber(Level.Text)
    if Lvl == nil then
        Lvl = 5
    end
    local P = game.Players.LocalPlayer
    if Player.Text ~= "" then
        P = GetPlayer(Player.Text)
    end
    local Par = nil
    if PCBox.Text ~= "" and P.PC["Box "..PCBox.Text] ~= nil then
        Par = P.PC["Box "..PCBox.Text]
    end
    if Spawning == true then
        SpawnBox.BackgroundColor3 = Color3.fromRGB(35, 110, 35)
        Accepted = #Par:GetChildren()
        while Spawning ==  true do
            print("Spawning")
            if Accepted >= 60 then
                Spawning = false
                SpawnBox.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
                break
            end
            for i = 1, 300 do
                spawn(function()
                    if SpawnPokemon(Poke, Lvl, Par, ShinyVal, AuraVal) == false then
                        Spawning = false
                        SpawnBox.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
                        return
                    end
                end)
            end
            repeat
            wait()
            until #SpawnPlace:GetChildren() >= 300+StartingNumber
            local Numbers = GetSlot(Par, true)
            for i, v in pairs(SpawnPlace:GetChildren()) do
                if v.ClassName == "Configuration" and (ShinyVal == true and v:FindFirstChild("Shiny") and v.Shiny.Value == true or AuraVal == true and v:FindFirstChild("Aura")) or (ShinyVal == false and AuraVal == false) then
                    local moved = false
                    for a = 1, 60 do
                        if Numbers[a] ~= nil then
                            Numbers[a] = nil
                            Accepted = Accepted + 1
                            moved = true
                            spawn(function()
                                print("Moving to Position "..tostring(a))
                                Rep.REvents.PC.ChangePos:InvokeServer(v, a)
                                ChangeParent(v, Par)
                            end)
                            break
                        end
                    end
                    if moved == false then
                        spawn(function()
                            repeat
                                ChangeParent(v, nil)
                                wait(0.2)
                            until v.Parent == nil
                        end)
                    end
                elseif v.ClassName == "Configuration" then
                    spawn(function()
                        repeat
                            ChangeParent(v, nil)
                            wait(0.2)
                        until v.Parent == nil
                    end)
                end
            end
            repeat
            wait()
            until #SpawnPlace:GetChildren() == StartingNumber
        end
        print("Done")
    end
end)

Toggle1 = Instance.new("TextButton", Frame5)
Toggle1.Name = "Toggle1"
Toggle1.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
Toggle1.BorderSizePixel = 0
Toggle1.Position = UDim2.new(0.222, 0, 0.452, 0)
Toggle1.Size = UDim2.new(0, 100, 0, 37)
Toggle1.Font = Enum.Font.SourceSans
Toggle1.Text = "Shiny"
Toggle1.TextColor3 = Color3.fromRGB(255, 255, 255)
Toggle1.TextSize = 21
Toggle1.MouseButton1Down:connect(function()
    ShinyVal = not ShinyVal
    Toggle1.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
    if ShinyVal == true then
        Toggle1.BackgroundColor3 = Color3.fromRGB(35, 110, 35)
    end
end)

UIGridLayout3 = Instance.new("UIGridLayout", Frame5)
UIGridLayout3.Name = "UIGridLayout3"
UIGridLayout3.HorizontalAlignment = Enum.HorizontalAlignment.Center
UIGridLayout3.SortOrder = Enum.SortOrder.LayoutOrder
UIGridLayout3.CellSize = UDim2.new(0, 100, 0, 37)

Toggle2 = Instance.new("TextButton", Frame5)
Toggle2.Name = "Toggle2"
Toggle2.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
Toggle2.BorderSizePixel = 0
Toggle2.Position = UDim2.new(0.222, 0, 0.452, 0)
Toggle2.Size = UDim2.new(0, 100, 0, 37)
Toggle2.Font = Enum.Font.SourceSans
Toggle2.Text = "Aura"
Toggle2.TextColor3 = Color3.fromRGB(255, 255, 255)
Toggle2.TextSize = 21
Toggle2.MouseButton1Down:connect(function()
    AuraVal = not AuraVal
    Toggle2.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
    if AuraVal == true then
        Toggle2.BackgroundColor3 = Color3.fromRGB(35, 110, 35)
    end
end)

ClearBox = Instance.new("TextButton", Frame5)
ClearBox.Name = "ClearBox"
ClearBox.BackgroundColor3 = Color3.fromRGB(35, 35, 35)
ClearBox.BorderSizePixel = 0
ClearBox.Position = UDim2.new(0.222, 0, 0.452, 0)
ClearBox.Size = UDim2.new(0, 100, 0, 37)
ClearBox.Font = Enum.Font.SourceSans
ClearBox.Text = "Clear Box - Local"
ClearBox.TextColor3 = Color3.fromRGB(255, 255, 255)
ClearBox.TextSize = 16
ClearBox.MouseButton1Down:connect(function()
    if PCBox.Text ~= "" and game.Players.LocalPlayer.PC:FindFirstChild("Box "..PCBox.Text) then
        for i, v in pairs(game.Players.LocalPlayer.PC["Box "..PCBox.Text]:GetChildren()) do
            spawn(function()
                ChangeParent(v, nil)
            end)
        end
    end
end)

Credits = Instance.new("Frame", MainFrame)
Credits.Name = "Credits"
Credits.BackgroundColor3 = Color3.fromRGB(54, 54, 54)
Credits.BorderSizePixel = 0
Credits.Position = UDim2.new(0.384, 0, 0.235, 0)
Credits.Size = UDim2.new(0, 182, 0, 84)
Credits.Visible = false
Credits.ClipsDescendants = true

TextLabel = Instance.new("TextLabel", Credits)
TextLabel.Name = "TextLabel"
TextLabel.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
TextLabel.BackgroundTransparency = 1
TextLabel.Position = UDim2.new(0, 0, 0.057, 0)
TextLabel.Size = UDim2.new(0, 182, 0, 34)
TextLabel.Font = Enum.Font.SourceSans
TextLabel.Text = "Made By Victini"
TextLabel.TextColor3 = Color3.fromRGB(255, 129, 56)
TextLabel.TextSize = 21

TextLabel2 = Instance.new("TextLabel", Credits)
TextLabel2.Name = "TextLabel2"
TextLabel2.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
TextLabel2.BackgroundTransparency = 1
TextLabel2.Position = UDim2.new(0.126, 0, 0.681, 0)
TextLabel2.Size = UDim2.new(0, 135, 0, 26)
TextLabel2.Font = Enum.Font.SourceSans
TextLabel2.Text = "Soma: Gui Dev"
TextLabel2.TextColor3 = Color3.fromRGB(255, 147, 23)
TextLabel2.TextSize = 15

function OpenClose()
Tabs.Visible = not Tabs.Visible
OpenTab.Text = "<"
if Tabs.Visible == false then
OpenTab.Text = ">"
end
end

OpenTab = Instance.new("TextButton", Frame)
OpenTab.Name = "OpenTab"
OpenTab.BackgroundColor3 = Color3.fromRGB(43, 43, 43)
OpenTab.BorderSizePixel = 0
OpenTab.Size = UDim2.new(0, 49, 0, 37)
OpenTab.Font = Enum.Font.SourceSans
OpenTab.Text = ">"
OpenTab.TextColor3 = Color3.fromRGB(255, 255, 255)
OpenTab.TextSize = 21
OpenTab.MouseButton1Down:connect(function()
OpenClose()
end)

Close = Instance.new("TextButton", Frame)
Close.Name = "Close"
Close.BackgroundColor3 = Color3.fromRGB(43, 43, 43)
Close.BorderSizePixel = 0
Close.Position = UDim2.new(0.869, 0, 0, 0)
Close.Size = UDim2.new(0, 49, 0, 37)
Close.Font = Enum.Font.SourceSans
Close.Text = "X"
Close.TextColor3 = Color3.fromRGB(255, 255, 255)
Close.TextSize = 21
Close.MouseButton1Down:connect(function()
    ScreenGui:remove()
end)