Pokemon Trainer - Red!

wait(0.001)
plr = game.Players.LocalPlayer
char = plr.Character

--Clothes
Shirt = Instance.new("Shirt", char)
Shirt.ShirtTemplate = "rbxassetid://209814545"
Pants = Instance.new("Pants", char)
Pants.PantsTemplate = "rbxassetid://511514565"

for _, child in pairs(char:GetChildren()) do
    if child.ClassName == 'Accessory' then
        child:Destroy()
    end
end
for _, child in pairs(char:GetChildren()) do
    if child.ClassName == 'ShirtGraphic' then
        child:Destroy()
    end
end
debounce = false
        h = Instance.new("Accessory")
        p = Instance.new("Part")
        h.Name = "Go, Squirtle!"
        p.Parent = h
        p.Position = char:findFirstChild("Head").Position
        p.Name = "Handle"
        p.formFactor = 0
        p.Size = Vector3.new(2, 1, 2)
        p.BottomSurface = 0
        p.TopSurface = 0
        p.Locked = true
        Hat = Instance.new("SpecialMesh", p)
        Hat.MeshId = "http://www.roblox.com/asset/?id=16190497"
        Hat.TextureId = "http://www.roblox.com/asset/?id=45783424"
        h.Parent = char
        h.AttachmentForward = Vector3.new (0, 0, -1)
        h.AttachmentPos = Vector3.new(0, -0.2, -0.002)
        h.AttachmentRight = Vector3.new (1, 0, 0)
        h.AttachmentUp = Vector3.new (0, 1, 0)
        wait(0.01)
        debounce = true

char.Head.face.Texture = "rbxassetid://19398553"

--Pokeball
Tool = Instance.new("Tool", char)
Tool.Name = "Pokeball"
Handle = Instance.new("Part", Tool)
Handle.Name = "Handle"
Handle.Size = Vector3.new(1,1,1)
Mesh = Instance.new("SpecialMesh", Handle)
Mesh.MeshId = "rbxassetid://430219314"
Mesh.TextureId = "rbxassetid://430219325"
Mesh.Scale = Vector3.new(0.2,0.2,0.2)

--Mouse
local mouse = game.Players.LocalPlayer:GetMouse()
mouse.Icon = "http://www.roblox.com/asset?id=273146939"

--Entire Battle Scenario!!!
local runDummyScript = function(f,scri)
local oldenv = getfenv(f)
local newenv = setmetatable({}, {
__index = function(_, k)
if k:lower() == 'script' then
return scri
else
return oldenv[k]
end
end
})
setfenv(f, newenv)
ypcall(function() f() end)
end
cors = {}
mas = Instance.new("Model",game:GetService("Lighting"))
mas.Name = "CompiledModel"
o1 = Instance.new("Model")
o2 = Instance.new("Part")
o3 = Instance.new("Part")
o4 = Instance.new("Decal")
o5 = Instance.new("Decal")
o6 = Instance.new("Part")
o7 = Instance.new("Sound")
o8 = Instance.new("Script")
o9 = Instance.new("Part")
o10 = Instance.new("SurfaceGui")
o11 = Instance.new("TextButton")
o12 = Instance.new("ClickDetector")
o13 = Instance.new("Script")
o14 = Instance.new("Sound")
o15 = Instance.new("Part")
o16 = Instance.new("Decal")
o17 = Instance.new("Decal")
o1.Parent = mas
o2.Parent = o1
o2.Material = Enum.Material.Grass
o2.BrickColor = BrickColor.new("Laurel green")
o2.Position = Vector3.new(8.25000191, 3.9935112e-006, -39.25)
o2.Rotation = Vector3.new(-0, 0, -90)
o2.Anchored = true
o2.Shape = Enum.PartType.Cylinder
o2.Size = Vector3.new(0.5, 20, 19.5)
o2.CFrame = CFrame.new(8.25000191, 3.9935112e-006, -39.25, 0, 1.00000024, 0, -1.00000024, 0, 0, 0, 0, 1)
o2.BackSurface = Enum.SurfaceType.SmoothNoOutlines
o2.BottomSurface = Enum.SurfaceType.SmoothNoOutlines
o2.FrontSurface = Enum.SurfaceType.SmoothNoOutlines
o2.LeftSurface = Enum.SurfaceType.SmoothNoOutlines
o2.RightSurface = Enum.SurfaceType.SmoothNoOutlines
o2.TopSurface = Enum.SurfaceType.SmoothNoOutlines
o2.Color = Color3.new(0.658824, 0.741176, 0.6)
o2.Position = Vector3.new(8.25000191, 3.9935112e-006, -39.25)
o3.Name = "Pokemon"
o3.Parent = o1
o3.Transparency = 1
o3.Position = Vector3.new(8.5, 1.84000468, -39.25)
o3.Anchored = true
o3.CanCollide = false
o3.Size = Vector3.new(8, 8, 0.5)
o3.CFrame = CFrame.new(8.5, 1.84000468, -39.25, 1, 0, 0, 0, 1, 0, 0, 0, 1)
o3.Position = Vector3.new(8.5, 1.84000468, -39.25)
o4.Name = "a"
o4.Parent = o3
o4.Texture = "rbxassetid://57487220"
o5.Name = "b"
o5.Parent = o3
o5.Texture = "rbxassetid://57487220"
o5.Face = Enum.NormalId.Back
o6.Parent = o1
o6.Material = Enum.Material.Grass
o6.BrickColor = BrickColor.new("Laurel green")
o6.Position = Vector3.new(-17.7499981, 3.9935112e-006, 1.75)
o6.Rotation = Vector3.new(-0, 0, -90)
o6.Anchored = true
o6.Shape = Enum.PartType.Cylinder
o6.Size = Vector3.new(0.5, 20, 19.5)
o6.CFrame = CFrame.new(-17.7499981, 3.9935112e-006, 1.75, 0, 1.00000024, 0, -1.00000024, 0, 0, 0, 0, 1)
o6.BackSurface = Enum.SurfaceType.SmoothNoOutlines
o6.BottomSurface = Enum.SurfaceType.SmoothNoOutlines
o6.FrontSurface = Enum.SurfaceType.SmoothNoOutlines
o6.LeftSurface = Enum.SurfaceType.SmoothNoOutlines
o6.RightSurface = Enum.SurfaceType.SmoothNoOutlines
o6.TopSurface = Enum.SurfaceType.SmoothNoOutlines
o6.Color = Color3.new(0.658824, 0.741176, 0.6)
o6.Position = Vector3.new(-17.7499981, 3.9935112e-006, 1.75)
o7.Parent = o6
o7.SoundId = "rbxassetid://155973042"
o7.Volume = 1
o7.Looped = true
o8.Parent = o7
table.insert(cors,coroutine.create(function()
wait()
runDummyScript(function()
script.Parent : play()
end,o8)
end))
o9.Parent = o1
o9.Transparency = 1
o9.Position = Vector3.new(3.5, -8.24998856, 3)
o9.Rotation = Vector3.new(-180, 0, -180)
o9.Anchored = true
o9.CanCollide = false
o9.Size = Vector3.new(27, 21, 2)
o9.CFrame = CFrame.new(3.5, -8.24998856, 3, -1.00000262, 0, 0, 0, 1, 0, 0, 0, -1.00000262)
o9.Position = Vector3.new(3.5, -8.24998856, 3)
o10.Parent = o9
o11.Parent = o10
o11.Size = UDim2.new(0,200,0,50)
o11.Text = "Fight"
o11.BackgroundColor3 = Color3.new(0.203922, 0.203922, 0.203922)
o11.BorderSizePixel = 3
o11.Font = Enum.Font.SourceSans
o11.FontSize = Enum.FontSize.Size36
o11.TextColor3 = Color3.new(1, 1, 1)
o12.Parent = o11
o13.Parent = o11
table.insert(cors,coroutine.create(function()
wait()
runDummyScript(function()
Pokemon = {37583280,699093421,57487220}

script.Parent.MouseButton1Down : connect(function()
    script.Parent.Sound : play()
    game.Workspace.Model.Pokemon.a.Texture = "rbxassetid://" .. Pokemon[math.random(1,3)]
    game.Workspace.Model.Pokemon.b.Texture = game.Workspace.Model.Pokemon.a.Texture
end)
end,o13)
end))
o14.Parent = o11
o14.SoundId = "rbxassetid://296102734"
o14.Volume = 1
o15.Name = "b"
o15.Parent = o1
o15.Transparency = 1
o15.Position = Vector3.new(-18.5, 4.84000492, 2.75)
o15.Anchored = true
o15.CanCollide = false
o15.Size = Vector3.new(8, 8, 0.5)
o15.CFrame = CFrame.new(-18.5, 4.84000492, 2.75, 1, 0, 0, 0, 1, 0, 0, 0, 1)
o15.Position = Vector3.new(-18.5, 4.84000492, 2.75)
o16.Name = "a"
o16.Parent = o15
o16.Texture = "rbxassetid://121101746"
o17.Name = "b"
o17.Parent = o15
o17.Texture = "rbxassetid://121101746"
o17.Face = Enum.NormalId.Back
mas.Parent = workspace
mas:MakeJoints()
local mas1 = mas:GetChildren()
for i=1,#mas1 do
    mas1[i].Parent = workspace
    ypcall(function() mas1[i]:MakeJoints() end)
end
mas:Destroy()
for i=1,#cors do
coroutine.resume(cors[i])
end