Project: Pokemon GUI

--[[
	Pokepower GUI
	~~Made by Albino~~
	More to come be sure to check Protosmasher's script channel for updates!

	CURRENT FEATURES:
	                -give all gamepasses
					-give objects (pokeballs n stuff)
					-give pokemon
					-change pokemon rank
					-give money
					-tp to player
					-noclip
					-tp to other places
					-edit pokemon settings
--]]

--variables to get started lel
if game.PlaceId == 115390858 then
	print("Loading...")
   else
	print("Game is not Project Pokemon")
	script:Remove()
end
local plr = game.Players.LocalPlayer
local plrgui = game.Players.LocalPlayer.PlayerGui
local coregui = game:GetService("CoreGui")
local repstore = game.ReplicatedStorage
local lighting = game.Lighting
local repfirst = game.ReplicatedFirst

function makerankupmenu() --lvl
	local homegui = Instance.new("ScreenGui",plrgui)
	homegui.Name = "rankgui"
	homegui.ResetOnSpawn = false
	homegui.Enabled = true
	local homeframe = Instance.new("Frame",homegui)
	homeframe.Name = "fr"
	homeframe.Size = UDim2.new(0,0,0,0)
	homeframe.Position = UDim2.new(0,0,0,0)
	homeframe.BackgroundColor3 = Color3.new(255,0,0)
	homeframe.BackgroundTransparency = 0.3
	homeframe:TweenSize(UDim2.new(0.4,0,0.4,0))
	if homeframe.Size == UDim2.new(0.4,0,0.4,0) then
		print(".")
	end
	local childframe1 = Instance.new("TextBox",homeframe)
	childframe1.Name = "Object"
	childframe1.Position = UDim2.new(0.165,0,0.2,0)
	childframe1.Size= UDim2.new(0,200,0,0)
	childframe1.BorderSizePixel = 0
	childframe1:TweenSize(UDim2.new(0,200,0,50))
	childframe1.Text = "Type a Pokemon's name (in your party)"
	childframe1.TextScaled = true
	childframe1.TextColor3 = Color3.new(255,0,0)
	local childframe2 = Instance.new("TextBox",homeframe)
	childframe2.Name = "Amount"
	childframe2.Position = UDim2.new(0.165,0,0.5,0)
	childframe2.Size = UDim2.new(0,200,0,50)
	childframe2.Text = "Amount of Levels"
	childframe2.TextScaled = false
	childframe1.TextColor3 = Color3.new(255,0,0)
	childframe2.TextSize = 18
	local submit = Instance.new("TextButton",homeframe)
	submit.Name = "Submit"
	submit.BorderSizePixel = 0
	submit.Text = "Submit"
	submit.BackgroundColor3 = Color3.new(0,0,0)
	submit.TextColor3 = Color3.new(255,0,0)
	submit.TextSize = 20
	submit:TweenSize(UDim2.new(0,110,0,30))
	submit:TweenPosition(UDim2.new(0.315,0,0.8,0))
	local function rankup()
		for i,d in pairs(plr:GetChildren())do
			if d.Name == "PokemonParty" then
				for y,z in pairs(d:GetChildren())do
					if z.Name == childframe1.Text then
						if childframe2.Text == "Amount of Levels" then
							z:FindFirstChild("Lvl").Value = z.Lvl.Value + 1
							print("ranked up "..childframe1.Text.."!")
						else
							z:FindFirstChild("Lvl").Value = childframe2.Text
							print("ight there")
							print("ranked up "..childframe1.Text.."!")
						end
					end
				end
			end
		end
	end
	submit.MouseButton1Click:connect(function()
		rankup()
		wait(1)
		plrgui:FindFirstChild("rankgui"):remove()
	end)
end

function givegamep() --gp
	local plr = game.Players.LocalPlayer
	for i,v in pairs(plr:GetChildren())do
		if v:IsA("BoolValue") then
			v.Value = true
			if v.Name == "InBattle" then
				v.Value = false
			end
			if v.Name == "MuteBG" then
				v.Value = false
			end
		end
	end
end

function maketpmenu() --tp
	local plr = game.Players.LocalPlayer
	local plrgui = plr.PlayerGui
	wait(2)
	local pcf = plr.Character.HumanoidRootPart
	----------------------------------------
	local homegui = Instance.new("ScreenGui",plrgui)
	homegui.Name = "TPGUI"
	homegui.ResetOnSpawn = false
	homegui.Enabled = true
	local homeframe = Instance.new("Frame",homegui)
	homeframe.Name = "fr"
	homeframe.Size = UDim2.new(0,0,0,0)
	homeframe.Position = UDim2.new(0,0,0,0)
	homeframe.BackgroundColor3 = Color3.new(255,0,0)
	homeframe.BackgroundTransparency = 0.3
	homeframe:TweenSize(UDim2.new(0.4,0,0.4,0))
	-----yayyyy buttons :)
	local pokecenter = Instance.new("TextButton",homeframe)
	--position = -1829.74, 2, 350
	pokecenter.Name = "Pokecenter"
	pokecenter.Text = "Pokecenter"
	pokecenter.Size = UDim2.new(0,90,0,45)
	local fuchcity = Instance.new("TextButton",homeframe)
	--position = -4008.8, -16.8, -195.2
	fuchcity.Name = "FuchCity"
	fuchcity.Text = "Fuchsia City"
	fuchcity.Size = UDim2.new(0,90,0,45)
	fuchcity.Position = UDim2.new(0.3,0,0,0)
	local pokemart = Instance.new("TextButton",homeframe)
	--position = -1991.8, 1.7, 635.2
	pokemart.Name = "PokeMart"
	pokemart.Text = "Poke Mart"
	pokemart.Size = UDim2.new(0,90,0,45)
	pokemart.Position = UDim2.new(0.6,0,0,0)
	local celcity = Instance.new("TextButton",homeframe)
	--position = -1791.4, 1.98, 354.4
	celcity.Name = "celcity"
	celcity.Text = "Celadon City"
	celcity.Size = UDim2.new(0,90,0,45)
	celcity.Position = UDim2.new(0,0,0.235,0)
	local pewcity = Instance.new("TextButton",homeframe)
	--position = -976.8, 13.5, 717.3
	pewcity.Name = "pewcity"
	pewcity.Text = "Pewter City"
	pewcity.Size = UDim2.new(0,90,0,45)
	pewcity.Position = UDim2.new(0.3,0,0.235,0)
	local mgrotto = Instance.new("TextButton",homeframe)
	--position = -2409.7, 165.6, 4357.48
	mgrotto.Name = "mgrotto"
	mgrotto.Text = "Mysterious Grotto"
	mgrotto.Size = UDim2.new(0,90,0,45)
	mgrotto.Position = UDim2.new(0.6,0,0.235,0)
	local vircity = Instance.new("TextButton",homeframe)
	--position = -212.43, 12.92, 664.42
	vircity.Name = "vircity"
	vircity.Text = "Viridian City"
	vircity.Size = UDim2.new(0,90,0,45)
	vircity.Position = UDim2.new(0,0,0.47,0)
	local close = Instance.new("TextButton",homeframe)
	close.Name = "Close"
	------------------------button settings-------------------------------
	for i,v in pairs(homeframe:GetChildren())do
		v.Size = UDim2.new(0.35,0,0.25,0)
		v.BackgroundColor3 = Color3.new(0,0,0)
		v.TextColor3 = Color3.new(255,0,0)
		v.BorderSizePixel = 0
		v.TextSize = 17
		v.Font = "SourceSansItalic"
	end
	close.Position = UDim2.new(0.325,0,1,0)
	close.Text = "Close"
	close.MouseButton1Click:connect(function()
		close.Parent.Parent:Remove()
	end)

	--functions--
	pokecenter.MouseButton1Click:connect(function()
		pcf.CFrame = CFrame.new(Vector3.new(-1829.74, 2, 350))
	end)
	fuchcity.MouseButton1Click:connect(function()
		pcf.CFrame = CFrame.new(Vector3.new(-4008.8, -16.8, -195.2))
	end)
	pokemart.MouseButton1Click:connect(function()
		pcf.CFrame = CFrame.new(Vector3.new(-1991.8, 1.7, 635.2))
	end)
	celcity.MouseButton1Click:connect(function()
		pcf.CFrame = CFrame.new(Vector3.new(-1791.4, 1.98, 354.4))
	end)
	pewcity.MouseButton1Click:connect(function()
		pcf.CFrame = CFrame.new(Vector3.new(-976.8, 13.5, 717.3))
	end)
	mgrotto.MouseButton1Click:connect(function()
		pcf.CFrame = CFrame.new(Vector3.new(-2409.7, 165.6, 4357.48))
	end)
	vircity.MouseButton1Click:connect(function()
		pcf.CFrame= CFrame.new(Vector3.new(-212.43, 12.92, 664.42))
	end)
end
function noCLIP() --lil noclip script
	wait(2)

nam = game.Players.LocalPlayer.Name

coroutine.wrap(function()
while wait() do
for a, b in pairs(workspace[nam]:GetChildren()) do
if b:FindFirstChild('Handle') then
b.Handle.CanCollide = false
end
end
end
end)()

workspace[nam].Humanoid.Changed:connect(function()
workspace[nam].Humanoid.WalkSpeed = 16
end)

game:GetService('Players').LocalPlayer.PlayerGui.ChildAdded:connect(function(asd)
delay(0, function()
if asd.Name ~= 'OutputGUI' then
asd:Destroy()
end
end)
end)

game:GetService('RunService').Stepped:connect(function()
if workspace[nam]:FindFirstChild("Torso") then
	workspace[nam].Torso.CanCollide = false
else
	workspace[nam].UpperTorso.CanCollide = false
	workspace[nam].LowerTorso.CanCollide = false
end
workspace[nam].Head.CanCollide = false
end)
workspace[nam].HumanoidRootPart.Changed:connect(function()
	if workspace[nam].HumanoidRootPart.CanCollide == true then
		workspace[nam].HumanoidRootPart.CanCollide = false
	else
		workspace[nam].HumanoidRootPart.CanCollide =false
	end
end)
if workspace[nam]:FindFirstChild("Torso") then
	workspace[nam].Torso.Changed:connect(function()
		if workspace[nam]:FindFirstChild("Torso") then
			workspace[nam].Torso.CanCollide = false
		else
			workspace[nam].UpperTorso.CanCollide = false
			workspace[nam].LowerTorso.CanCollide = false
		end
		workspace[nam].Head.CanCollide = false
	end)
else
	workspace[nam].UpperTorso.Changed:connect(function()
		if workspace[nam]:FindFirstChild("Torso") then
			workspace[nam].Torso.CanCollide = false
		else
			workspace[nam].UpperTorso.CanCollide = false
			workspace[nam].LowerTorso.CanCollide = false
		end
		workspace[nam].Head.CanCollide = false
	end)
end
end
function nonoCLIP() --lil clip script
	wait(2)

nam = game.Players.LocalPlayer.Name

coroutine.wrap(function()
while wait() do
for a, b in pairs(workspace[nam]:GetChildren()) do
if b:FindFirstChild('Handle') then
b.Handle.CanCollide = true
end
end
end
end)()

workspace[nam].Humanoid.Changed:connect(function()
workspace[nam].Humanoid.WalkSpeed = 16
end)

game:GetService('Players').LocalPlayer.PlayerGui.ChildAdded:connect(function(asd)
delay(0, function()
if asd.Name ~= 'OutputGUI' then
asd:Destroy()
end
end)
end)

game:GetService('RunService').Stepped:connect(function()
if workspace[nam]:FindFirstChild("Torso") then
	workspace[nam].Torso.CanCollide = true
else
	workspace[nam].UpperTorso.CanCollide = true
	workspace[nam].LowerTorso.CanCollide = true
end
workspace[nam].Head.CanCollide = true
end)
workspace[nam].HumanoidRootPart.Changed:connect(function()
	if workspace[nam].HumanoidRootPart.CanCollide == true then
		workspace[nam].HumanoidRootPart.CanCollide = true
	else
		workspace[nam].HumanoidRootPart.CanCollide =true
	end
end)
if workspace[nam]:FindFirstChild("Torso") then
	workspace[nam].Torso.Changed:connect(function()
		if workspace[nam]:FindFirstChild("Torso") then
			workspace[nam].Torso.CanCollide = true
		else
			workspace[nam].UpperTorso.CanCollide = true
			workspace[nam].LowerTorso.CanCollide = true
		end
		workspace[nam].Head.CanCollide = true
	end)
else
	workspace[nam].UpperTorso.Changed:connect(function()
		if workspace[nam]:FindFirstChild("Torso") then
			workspace[nam].Torso.CanCollide = true
		else
			workspace[nam].UpperTorso.CanCollide = true
			workspace[nam].LowerTorso.CanCollide = true
		end
		workspace[nam].Head.CanCollide = true
	end)
end
end

function getitem(item)
	local b = game.Players.LocalPlayer.Bag
	local r = game.ReplicatedStorage.REvents
	local plrgui = game.Players.LocalPlayer.PlayerGui
	local menu = plrgui.HomeGui.fr
	local Amount = menu.Amount
	local object = menu.Object
	if object.Text == "Antidote"or"Awakening"or"Burn Heal"or"Full Restore"or"Hyper Potion"or"Ice Heal"or"Max Elixir"or"Potion"or"Paralyze Heal"or"Revive" and not "Great Ball"or"Nest Ball"or"Net Ball"or"Pokeball"or"Premier Ball"or"Repeat Ball"or"Ultra Ball"or"Master Ball"or"Venusaurite"or"Tyranitarite"or"Scizorite"or"Sceptilite"or"Sablenite"or"Salamencite"or"Swampertite"or"Steelixite"or"Slowbronite"or"Sharpedonite"or"Pinsirite"or"Pidgeotite"or"Mawilite"or"Manectite"or"Metagrossite"or"Medichamite"or"Latiasite"or"Latiosite"or"Lucarionite"or"Lopunnite"or"Houndoominite"or"Heracronite"or"Garchompite"or"Gardevoirite"or"Galladite"or"Gyaradosite"or"Glalitite"or"Gengarite"or"Diancite"or"Cameruptite"or"Charizardite Y"or"Charizardite X"or"Beedrillite"or"Banettite"or"Blazikenite"or"Blastoisinite"or"Aggronite"or"Absolite"or"Audinite"or"Ampharosite"or"Alakazamite"or"Altarianite"or"Aerodactylite"or"Rare Candy"or"Common Candy"or"Dragon Scale"or"Fire Stone"or"Friendship Ribbon"or"Leaf Stone"or"Link Cable Stone"or"Metal Coat"or"Moon Stone"or"Sinnoh Stone"or"Thunder Stone"or"Water Stone"or"Shinifier"or"Calcium"or"Carbos"or"HP Up"or"Iron"or"Mini Stat Reset"or"Nature Stone"or"PokeImprove"or"Protein"or"Stat Reset"or"Zinc" then
		Items = {
			Recover = {object.Text}
		}
		for n,t in next,Items do
			for _,i in next,t do
				if b[n]:FindFirstChild(i)then
					r.Internal.funcItem:InvokeServer(b["Recover"][i],Amount.Text)
				else
					r.Pokemon.ozAxZ:InvokeServer(i,b["Recover"],Amount.Text)
				end
			end
		end
	elseif object.Text == "Great Ball"or"Nest Ball"or"Net Ball"or"Pokeball"or"Premier Ball"or"Repeat Ball"or"Ultra Ball"or"Master Ball" and not "Antidote"or"Awakening"or"Burn Heal"or"Full Restore"or"Hyper Potion"or"Ice Heal"or"Max Elixir"or"Potion"or"Paralyze Heal"or"Revive"or"Venusaurite"or"Tyranitarite"or"Scizorite"or"Sceptilite"or"Sablenite"or"Salamencite"or"Swampertite"or"Steelixite"or"Slowbronite"or"Sharpedonite"or"Pinsirite"or"Pidgeotite"or"Mawilite"or"Manectite"or"Metagrossite"or"Medichamite"or"Latiasite"or"Latiosite"or"Lucarionite"or"Lopunnite"or"Houndoominite"or"Heracronite"or"Garchompite"or"Gardevoirite"or"Galladite"or"Gyaradosite"or"Glalitite"or"Gengarite"or"Diancite"or"Cameruptite"or"Charizardite Y"or"Charizardite X"or"Beedrillite"or"Banettite"or"Blazikenite"or"Blastoisinite"or"Aggronite"or"Absolite"or"Audinite"or"Ampharosite"or"Alakazamite"or"Altarianite"or"Aerodactylite"or"Rare Candy"or"Common Candy"or"Dragon Scale"or"Fire Stone"or"Friendship Ribbon"or"Leaf Stone"or"Link Cable Stone"or"Metal Coat"or"Moon Stone"or"Sinnoh Stone"or"Thunder Stone"or"Water Stone"or"Shinifier"or"Calcium"or"Carbos"or"HP Up"or"Iron"or"Mini Stat Reset"or"Nature Stone"or"PokeImprove"or"Protein"or"Stat Reset"or"Zinc" then
		Items = {
			Pokeball = {object.Text}
		}
		for n,t in next,Items do
			for _,i in next,t do
				if b[n]:FindFirstChild(i)then
					r.Internal.funcItem:InvokeServer(b["Pokeball"][i],Amount.Text)
				else
					r.Pokemon.ozAxZ:InvokeServer(i,b["Pokeball"],Amount.Text)
				end
			end
		end
	elseif object.Text == "Venusaurite"or"Tyranitarite"or"Scizorite"or"Sceptilite"or"Sablenite"or"Salamencite"or"Swampertite"or"Steelixite"or"Slowbronite"or"Sharpedonite"or"Pinsirite"or"Pidgeotite"or"Mawilite"or"Manectite"or"Metagrossite"or"Medichamite"or"Latiasite"or"Latiosite"or"Lucarionite"or"Lopunnite"or"Houndoominite"or"Heracronite"or"Garchompite"or"Gardevoirite"or"Galladite"or"Gyaradosite"or"Glalitite"or"Gengarite"or"Diancite"or"Cameruptite"or"Charizardite Y"or"Charizardite X"or"Beedrillite"or"Banettite"or"Blazikenite"or"Blastoisinite"or"Aggronite"or"Absolite"or"Audinite"or"Ampharosite"or"Alakazamite"or"Altarianite"or"Aerodactylite"or"Rare Candy"or"Common Candy"or"Dragon Scale"or"Fire Stone"or"Friendship Ribbon"or"Leaf Stone"or"Link Cable Stone"or"Metal Coat"or"Moon Stone"or"Sinnoh Stone"or"Thunder Stone"or"Water Stone"or"Shinifier" and not "Great Ball"or"Nest Ball"or"Net Ball"or"Pokeball"or"Premier Ball"or"Repeat Ball"or"Ultra Ball"or"Master Ball"or"Calcium"or"Carbos"or"HP Up"or"Iron"or"Mini Stat Reset"or"Nature Stone"or"PokeImprove"or"Protein"or"Stat Reset"or"Zinc"or"Antidote"or"Awakening"or"Burn Heal"or"Full Restore"or"Hyper Potion"or"Ice Heal"or"Max Elixir"or"Potion"or"Paralyze Heal"or"Revive" then
		Items = {
			Evolution = {object.Text}
		}
		for n,t in next,Items do
			for _,i in next,t do
				if b[n]:FindFirstChild(i)then
					r.Internal.funcItem:InvokeServer(b["Evolution"][i],Amount.Text)
				else
					r.Pokemon.ozAxZ:InvokeServer(i,b["Evolution"],Amount.Text)
				end
			end
		end
	elseif object.Text == "Calcium"or"Carbos"or"HP Up"or"Iron"or"Mini Stat Reset"or"Nature Stone"or"PokeImprove"or"Protein"or"Stat Reset"or"Zinc" and not "Venusaurite"or"Tyranitarite"or"Scizorite"or"Sceptilite"or"Sablenite"or"Salamencite"or"Swampertite"or"Steelixite"or"Slowbronite"or"Sharpedonite"or"Pinsirite"or"Pidgeotite"or"Mawilite"or"Manectite"or"Metagrossite"or"Medichamite"or"Latiasite"or"Latiosite"or"Lucarionite"or"Lopunnite"or"Houndoominite"or"Heracronite"or"Garchompite"or"Gardevoirite"or"Galladite"or"Gyaradosite"or"Glalitite"or"Gengarite"or"Diancite"or"Cameruptite"or"Charizardite Y"or"Charizardite X"or"Beedrillite"or"Banettite"or"Blazikenite"or"Blastoisinite"or"Aggronite"or"Absolite"or"Audinite"or"Ampharosite"or"Alakazamite"or"Altarianite"or"Aerodactylite"or"Rare Candy"or"Common Candy"or"Dragon Scale"or"Fire Stone"or"Friendship Ribbon"or"Leaf Stone"or"Link Cable Stone"or"Metal Coat"or"Moon Stone"or"Sinnoh Stone"or"Thunder Stone"or"Water Stone"or"Shinifier"or"Great Ball"or"Nest Ball"or"Net Ball"or"Pokeball"or"Premier Ball"or"Repeat Ball"or"Ultra Ball"or"Master Ball"or"Antidote"or"Awakening"or"Burn Heal"or"Full Restore"or"Hyper Potion"or"Ice Heal"or"Max Elixir"or"Potion"or"Paralyze Heal"or"Revive" then
		Items = {
			Competitive = {object.Text}
		}
		for n,t in next,Items do
			for _,i in next,t do
				if b[n]:FindFirstChild(i)then
					r.Internal.funcItem:InvokeServer(b["Competitive"][i],Amount.Text)
				else
					r.Pokemon.ozAxZ:InvokeServer(i,b["Competitive"],Amount.Text)
				end
			end
		end
	else
		print("Could not find object(s).")
	end
end
function scanresults() --somewhat simple scanning ;-;
	local plrgui = game.Players.LocalPlayer.PlayerGui
	local b=game.Players.LocalPlayer.Bag
	local r=game.ReplicatedStorage.REvents
	local menu = plrgui.HomeGui.fr
	local Amount = menu.Amount.Text
	local object = menu.Object
	-- used to be a 2000 line argument, cleaned it up nicely.
	local textbox = plrgui:FindFirstChild("HomeGui").fr.Object
	getitem(textbox.Text)
	textbox.Parent.Parent:Remove()
end
function makegivemenu() --make gm
	--just to be nice, i will make this much more complicated for the sake of the user.
	local plr = game.Players.LocalPlayer
	wait(0.1)
	local homegui = Instance.new("ScreenGui",plr.PlayerGui)
	homegui.Name = "HomeGui"
	homegui.ResetOnSpawn = false
	homegui.Enabled = true
	local homeframe = Instance.new("Frame",homegui)
	homeframe.Name = "fr"
	homeframe.Size = UDim2.new(0,0,0,0)
	homeframe.Position = UDim2.new(0,0,0,0)
	homeframe.BackgroundColor3 = Color3.new(255,0,0)
	homeframe.BackgroundTransparency = 0.3
	homeframe:TweenSize(UDim2.new(0.4,0,0.4,0))
	if homeframe.Size == UDim2.new(0.4,0,0.4,0) then
		print(".")
	end
	local childframe1 = Instance.new("TextBox",homeframe)
	childframe1.Name = "Object"
	childframe1.Position = UDim2.new(0.165,0,0.2,0)
	childframe1.Size= UDim2.new(0,200,0,0)
	childframe1.BorderSizePixel = 0
	childframe1:TweenSize(UDim2.new(0,200,0,50))
	childframe1.Text = "Object Name (use grammar)"
	childframe1.TextScaled = true
	childframe1.TextColor3 = Color3.new(255,0,0)
	local childframe2 = Instance.new("TextBox",homeframe)
	childframe2.Name = "Amount"
	childframe2:TweenSize(UDim2.new(0,200,0,50))
	childframe2:TweenPosition(UDim2.new(0.165,0,0.5,0))
	childframe2.Text = "Amount of Object"
	childframe2.TextScaled = false
	childframe1.TextColor3 = Color3.new(255,0,0)
	childframe2.TextSize = 18
	local submit = Instance.new("TextButton",homeframe)
	submit.Name = "Submit"
	submit.BorderSizePixel = 0
	submit.Text = "Submit"
	submit.BackgroundColor3 = Color3.new(0,0,0)
	submit.TextColor3 = Color3.new(255,0,0)
	submit.TextSize = 20
	submit:TweenSize(UDim2.new(0,110,0,30))
	submit:TweenPosition(UDim2.new(0.315,0,0.8,0))
	submit.MouseButton1Click:connect(function()
		scanresults()
	end)
end
function loadstuff()
	--useless but it's here LOL.
	local plrgui = game.Players.LocalPlayer.PlayerGui
	if plrgui:FindFirstChild("Credits") then
		plrgui.Credits.MainFrame.Label.Text = (".gnidaoL"):reverse()
		wait(2)
		plrgui.Credits.MainFrame.Label.Text = ("..gnidaoL"):reverse()
		wait(2)
		plrgui.Credits.MainFrame.Label.Text = ("...gnidaoL"):reverse()
	end
end
--get pokemon settings
function makeeditmenu()
	local plr = game.Players.LocalPlayer
	wait(0.1)
	local homegui = Instance.new("ScreenGui",plr.PlayerGui)
	homegui.Name = "SettingsGui"
	homegui.ResetOnSpawn = false
	homegui.Enabled = true
	local homeframe = Instance.new("Frame",homegui)
	homeframe.Name = "fr"
	homeframe.Size = UDim2.new(0,0,0,0)
	homeframe.Position = UDim2.new(0,0,0,0)
	homeframe.BackgroundColor3 = Color3.new(255,0,0)
	homeframe.BackgroundTransparency = 0.3
	homeframe:TweenSize(UDim2.new(0.4,0,0.4,0))
	homeframe.BorderSizePixel = 0
	homeframe:TweenPosition(UDim2.new(0.275,0,0.275,0),"In","Elastic",1.5)
	local pokemon1 = Instance.new("TextButton",homeframe)
	local pokemon2 = Instance.new("TextButton",homeframe)
	local pokemon3 = Instance.new("TextButton",homeframe)
	local pokemon4 = Instance.new("TextButton",homeframe)
	local pokemon5 = Instance.new("TextButton",homeframe)
	local pokemon6 = Instance.new("TextButton",homeframe)
	local close = Instance.new("TextButton",homeframe)
	pokemon1.Name = "p1"
	pokemon2.Name = "p2"
	pokemon3.Name = "p3"
	pokemon4.Name = "p4"
	pokemon5.Name = "p5"
	pokemon6.Name = "p6"
	close.Name = "Close"
	------------------------button settings-------------------------------
	for i,v in pairs(homeframe:GetChildren())do
		v.Size = UDim2.new(0.35,0,0.25,0)
		v.BackgroundColor3 = Color3.new(0,0,0)
		v.TextColor3 = Color3.new(255,0,0)
		v.BorderSizePixel = 0
		v.TextSize = 17
		v.Font = "SourceSansItalic"
	end
	pokemon1.Position = UDim2.new(0.1,0,0.075,0)
	pokemon2.Position = UDim2.new(0.55,0,0.075,0)
	pokemon3.Position = UDim2.new(0.1,0,0.35,0)
	pokemon4.Position = UDim2.new(0.55,0,0.35,0)
	pokemon5.Position = UDim2.new(0.1,0,0.62,0)
	pokemon6.Position = UDim2.new(0.55,0,0.62,0)
	close.Position = UDim2.new(0.325,0,1,0)
	close.Text = "Close"
	close.MouseButton1Click:connect(function()
		close.Parent.Parent:Remove()
	end)
	----------------------------------------------------
	--local party = plr.PokemonParty

end
--make creds
function makehidden()
	local plrgui = game.Players.LocalPlayer.PlayerGui
	local cg = Instance.new("ScreenGui",plrgui)
	cg.Name = ("stiderC"):reverse()
	cg.ResetOnSpawn = false
	cg.Enabled = true
	local cf = Instance.new("Frame",cg)
	cf.Name = ("emarFniaM"):reverse()
	cf.Size = UDim2.new(0,0,0,0)
	cf.BorderSizePixel = 0
	cf.Position = UDim2.new(0,0,0,0)
	cf.BackgroundColor3 = Color3.new(0,0,0)
	cf:TweenSize(UDim2.new(1,0,1,0))
	wait()
	local ct1 = Instance.new("TextLabel",cf)
	ct1.Name = ("lebaL"):reverse()
	ct1.Text = ""
	ct1.BackgroundTransparency = 1
	ct1.Size = UDim2.new(0.775, 0,0.1, 0)
	ct1.Text = "Loading"
	ct1.TextSize = 60
	ct1.TextColor3 = Color3.new(255,255,255)
	ct1.Position = UDim2.new(0.1, 0,0.45, 0)
	loadstuff()
	wait(2)
	ct1.Text = ""
	wait()
	ct1.Text = "Made by Albino"
	wait(2)
	ct1.Visible = false
	cf:TweenSize(UDim2.new(0,0,0,0))
	wait(2)
	cf.Parent:Destroy()
end
function checkstatus()
	local men = plrgui:FindFirstChild("ModMenu")
	local layout = men.Layout
	local spread = men.spreadsheet
	if layout.Position == UDim2.new(0.1, 0,0.2,0) then
		spread.Toggle.Text = "Open"
		layout:TweenPosition(UDim2.new(0.1,0,1,0))
	else
		spread.Toggle.Text = "Close"
		layout:TweenPosition(UDim2.new(0.1,0,0.2,0))
	end
end
function makemenu()
	--the main menu, not some other shit bro. #robloxisanigger
	local men = Instance.new("ScreenGui",plrgui)
	men.Name = "ModMenu"
	men.ResetOnSpawn = false
	men.Enabled = true
	local menuframe = Instance.new("Frame",men)
	menuframe.Name = "Layout"
	local spreadsheet = Instance.new("Frame",men)
	spreadsheet.Name = "spreadsheet"
	spreadsheet.Size = UDim2.new(1,0,0.2,0)
	spreadsheet.Position = UDim2.new(0,0,0.8,0)
	spreadsheet.BackgroundTransparency = 1
	spreadsheet.BorderSizePixel = 0
	menuframe.Size = UDim2.new(0.7,0,0.5,0)
	menuframe.Position = UDim2.new(0.1,0,0.2,0)
	menuframe.BackgroundColor3 = Color3.new(0,0,0)
	menuframe.ZIndex = 200
	local toggle = Instance.new("TextButton",spreadsheet)
	toggle.Name = "Toggle"
	toggle.Size = UDim2.new(0.075,0,0.5,0)
	toggle.Position = UDim2.new(0,0,0.5,0)
	toggle.Text = "Close"
	toggle.BackgroundColor3 = Color3.new(0,0,0)
	toggle.TextColor3 = Color3.new(255,0,0)
	toggle.BorderSizePixel = 0
	toggle.TextSize = 17
	toggle.MouseButton1Click:connect(checkstatus)
	local titlebar = Instance.new("TextLabel",spreadsheet)
	titlebar.Name = "Title"
	titlebar.Size = UDim2.new(1,0,1,0)
	titlebar.BackgroundTransparency = 1
	titlebar.Text = ("oniblA yb edam IUG rewopekoP"):reverse()
	titlebar.ZIndex = 199
	titlebar.Position = UDim2.new(0,0,0.3,0)
	titlebar.TextColor3 = Color3.new(255,255,255)
	titlebar.TextSize = 18
	titlebar.Font = "SourceSansBold"
	menuframe.Style = "RobloxRound"
	-----------------------------------------------------
	local noclipb = Instance.new("TextButton",menuframe)
	noclipb.Name = "button1"
	noclipb.BackgroundTransparency = 0.3
	noclipb.BackgroundColor3 = Color3.new(255,0,0)
	noclipb.Size = UDim2.new(0.175,0,0.1,0)
	noclipb.Text = "Noclip"
	local changerankb = Instance.new("TextButton",menuframe)
	changerankb.Name = "button2"
	changerankb.BackgroundTransparency = 0.3
	changerankb.BackgroundColor3 = Color3.new(255,0,0)
	changerankb.Size = UDim2.new(0.175,0,0.1,0)
	changerankb.Text = "Change PokeRank"
	changerankb.Position = UDim2.new(0,0,0.2,0)
	changerankb.TextScaled = true
	local givegpb = Instance.new("TextButton",menuframe)
	givegpb.Name = "button3"
	givegpb.BackgroundTransparency = 0.3
	givegpb.BackgroundColor3 = Color3.new(255,0,0)
	givegpb.Size = UDim2.new(0.175,0,0.1,0)
	givegpb.Text = "All Gamepasses"
	givegpb.Position = UDim2.new(0,0,0.4,0)
	local spammoneyb = Instance.new("TextButton",menuframe)
	spammoneyb.Name = "button4"
	spammoneyb.BackgroundTransparency = 0.3
	spammoneyb.BackgroundColor3 = Color3.new(255,0,0)
	spammoneyb.Size = UDim2.new(0.175,0,0.1,0)
	spammoneyb.Text = "Spam Money"
	spammoneyb.Position = UDim2.new(0,0,0.6,0)
	local tpmenub = Instance.new("TextButton",menuframe)
	tpmenub.Name = "button5"
	tpmenub.BackgroundTransparency = 0.3
	tpmenub.BackgroundColor3 = Color3.new(255,0,0)
	tpmenub.Size = UDim2.new(0.175,0,0.1,0)
	tpmenub.Text = "TP Menu"
	tpmenub.Position = UDim2.new(0,0,0.8,0)
	local givepokemon = Instance.new("TextButton",menuframe)
	givepokemon.Name = "button6"
	givepokemon.BackgroundTransparency = 0.3
	givepokemon.BackgroundColor3 = Color3.new(255,0,0)
	givepokemon.Size = UDim2.new(0.175,0,0.1,0)
	givepokemon.Text = "Give Pokemon"
	givepokemon.Position = UDim2.new(0.2,0,0.8,0)
	local pokesettingsb = Instance.new("TextButton",menuframe)
	pokesettingsb.Name = "button7"
	pokesettingsb.BackgroundTransparency = 0.3
	pokesettingsb.BackgroundColor3 = Color3.new(255,0,0)
	pokesettingsb.Size = UDim2.new(0.175,0,0.1,0)
	pokesettingsb.Text = "PokeSettings"
	pokesettingsb.Position = UDim2.new(0.2,0,0.6,0)
	local givestuffb = Instance.new("TextButton",menuframe)
	givestuffb.Name = "button8"
	givestuffb.BackgroundTransparency = 0.3
	givestuffb.BackgroundColor3 = Color3.new(255,0,0)
	givestuffb.Size = UDim2.new(0.175,0,0.1,0)
	givestuffb.Text = "Give Objects"
	givestuffb.Position = UDim2.new(0.2,0,0.4,0)
	local PlayerNameBox = Instance.new("TextBox",menuframe)
	PlayerNameBox.Name = "textbox"
	PlayerNameBox.BackgroundTransparency = 0.3
	PlayerNameBox.BackgroundColor3 = Color3.new(255,0,0)
	PlayerNameBox.Size = UDim2.new(0.175,0,0.1,0)
	PlayerNameBox.Text = "Player Name"
	PlayerNameBox.Position = UDim2.new(0.2,0,0.2,0)
	local tptoplayerb = Instance.new("TextButton",menuframe)
	tptoplayerb.Name = "button9"
	tptoplayerb.BackgroundTransparency = 0.3
	tptoplayerb.BackgroundColor3 = Color3.new(255,0,0)
	tptoplayerb.Size = UDim2.new(0.175,0,0.1,0)
	tptoplayerb.Text = "TP to Player"
	tptoplayerb.Position = UDim2.new(0.2,0,0,0)
	for i,v in pairs(menuframe:GetChildren())do
		v.ZIndex = 10000
	end
	---FINALLY, BUTTON FUNCTIONS :D
	noclipb.MouseButton1Click:connect(function()
		if noclipb.Text == "Noclip" then
			noclipb.Text = "Clip"
			noCLIP()
		else
			noclipb.Text = "Noclip"
			nonoCLIP()
		end
	end)
	changerankb.MouseButton1Click:connect(makerankupmenu)
	givegpb.MouseButton1Click:connect(givegamep)
	spammoneyb.MouseButton1Click:connect(function()
		while true do
   		game.ReplicatedStorage.REvents.Internal.jxbf:InvokeServer()
   		wait()
	end
	end)
	tpmenub.MouseButton1Click:connect(maketpmenu)
	givepokemon.MouseButton1Click:connect(function()
		--not done
	end)
	pokesettingsb.MouseButton1Click:connect(makeeditmenu)
	givestuffb.MouseButton1Click:connect(makegivemenu)
	tptoplayerb.MouseButton1Click:connect(function()
		if plr.Parent:FindFirstChild(PlayerNameBox.Text) then
			plr.Character.HumanoidRootPart.CFrame = CFrame.new(plr.Parent:FindFirstChild(PlayerNameBox.Text).Character.Head.Position)
		else
			print("Invalid Player")
		end
	end)
	--updates frame
	local scroll = Instance.new("ScrollingFrame",menuframe)
	scroll.Name = "Frame"
	scroll.Size = UDim2.new(0.325,0,0.5,0)
	scroll.Position = UDim2.new(0.67,0,0,0)
	scroll.BackgroundTransparency = 0.3
	scroll.ZIndex = 10000
	scroll.BackgroundColor3 = Color3.new(255,0,0)
	local stabletext = Instance.new("TextLabel",scroll)
	stabletext.Size = UDim2.new(0.9,0,0.05,0)
	stabletext.TextColor3 = Color3.new(0,255,0)
	stabletext.Text = ("Stable...")
	stabletext.BackgroundTransparency = 1
	stabletext.ZIndex = 10000
	stabletext.TextSize = 18
	stabletext.Font = "Code"
	local stable = Instance.new("BoolValue",stabletext)
	stable.Name = "stable"
	stable.Changed:connect(function()
		if stable.Value == false then
			stabletext.Text = ("Stable...false")
			stabletext.TextColor3 = Color3.new(255,0,0)
		else
			stabletext.Text = ("Stable...true")
			stabletext.TextColor3 = Color3.new(0,255,0)
		end
	end)
	stable.Value = true
end
wait(1)
if plrgui then
	print("Pokepower GUI: by Albino <3")
	makehidden()
	while plrgui:FindFirstChild("Credits") do
		wait()
	end
	makemenu()
end