Functions test

--[[ Copy and Paste functions and execute them with correct arguements.
     If a specific function won't work. Tell me so I can fix it.
--]]

function SetWalkSpeedTo(Target,WSNum)
    if WSNum=="inf" or WSNum==math.huge then
        print("Too huge.")
    elseif typeof(WSNum)=="number" then
        if game.Players:FindFirstChild(Target) then
            if Target.Character:FindFirstChildWhichIsA("Humanoid") then
                Target.Character:FindFirstChildWhichIsA("Humanoid").WalkSpeed= WSNum
           else
                print(Target.."'s humanoid is missing.")
            end
        else
            print(Target.." does not exist or is not a string.")
        end
        print(WSNum.." is not a valid arguement. It needs to be a number.")
    end
end

function SetJumpPowerTo(Target,JPNum)
    if JPNum=="inf" or JPNum==math.huge then
        print("JPNum is too huge.")
    elseif typeof(JPNum)=="number" then
        if game.Players:FindFirstChild(Target) then
            if Target.Character:FindFirstChildWhichIsA("Humanoid") then
                Target.Character:FindFirstChildWhichIsA("Humanoid").JumpPower= JPNum
            else
                print(Target.."'s humanoid is missing.")
            end
        else
            print(Target.." does not exist or is not a string.")
        end
        print(JPNum.." is not a valid arguement. It needs to be a number")
    end
end

function SetMaxHealthTo(Target,MHNum,bool_refillHealth)
    if typeof(bool_refillHealth)~="boolean" then
        print(bool_refillHealth.." is not a valid arguement. It needs to be a boolean.")
    else
       if typeof(MHNum)~="number" then
            print(MHNum.." is not a valid arguement. It needs to be a number.")
       else
           if game.Players:FindFirstChild(Target)==nil then
               print(Target.." does not exist.")
            else
                if Target:FindFirstChildWhichIsA("Humanoid")==nil then
                    print(Target.." does not have humanoid.")
                else
                    Target:FindFirstChildWhichIsA("Humanoid").MaxHealth = MHNum
                    if bool_refillHealth==true then
                        Target:FindFirstChildWhichIsA("Humanoid").Health = MHNum
                    end
                end
            end
        end
    end
end

function SetHealthTo(Target,HNum)
    if typeof(HNum)~="number" then
        print(HNum.." is not a valid arguement. It needs to be a number")
    else
        if game.Players:FindFirstChild(Target) == nil then
            print("Can not find"..Target..".")
        else
            local h=Target:FindFirstChildWhichIsA("Humanoid")
            if h==nil then
                print(Target.."'s humanoid does not exist.")
            else
                h.Health=HNum
            end
        end
    end
end

function SetPlatformStand(Target,bool_stun)
    if typeof(bool_stun)~="boolean" the
        print(bool_stun.." is not a valid arguement. It needs to be a boolean")
    else
        if game.Players:FindFirstChild(Target)==nil then
            print(Target.." does not exist.")
        else
            if Target:FindFirstChildWhichIsA("Humanoid") == nil then
                print(Target.."'s humanoid does not exist.")
            else
                Target:FindFirstChildWhichIsA("Humanoid").PlatformStand = bool_stun
            end
        end
    end
end

function SetSitProperty(Target,bool_sit)
    if typeof(bool_sit)~="boolean" the
        print(bool_sit.." is not a valid arguement. It needs to be a boolean")
    else
        if game.Players:FindFirstChild(Target)==nil then
            print(Target.." does not exist.")
        else
            if Target:FindFirstChildWhichIsA("Humanoid") == nil then
                print(Target.."'s humanoid does not exist.")
            else
                Target:FindFirstChildWhichIsA("Humanoid").Sit = bool_sit
            end
        end
    end
end

function WeldifyParts(part1,part2)
    local weldc = Instance.new("WeldConstraint",part1)
    weldc.Part0 = part1
    weldc.Part1 = part2
end

function ChangeShirtTo(person,sId)
        if game.Players:FindFirstChild(person)==nil then
            print(person.."does not exist.")
        else
            local char=game.Players:FindFirstChild(person).Character
            if typeof(sId)~="number" then
                print(sId.." is not a valid arguement. It needs to be a number value from an asset Id.")
            else
                if char:FindFirstChildOfClass("Shirt") then
                    char:FindFirstChildOfClass("Shirt").ShirtTemplate=sId
                else
                    local nsh=Instance.new("Shirt",char)
                    nsh.ShirtTemplate=sId
                end
            end
        end
    end

function ChangePantsTo(person,pId)
        if game.Players:FindFirstChild(person)==nil then
            print(person.."does not exist.")
        else
            local char=game.Players:FindFirstChild(person).Character
            if typeof(pId)~="number" then
                print(pId.." is not a valid arguement. It needs to be a number from an asset Id.")
            else
                if char:FindFirstChildOfClass("Pants") then
                    char:FindFirstChildOfClass("Pants").PantsTemplate =pId
                else
                    local nsh=Instance.new("Pants",char)
                    nsh.PantsTemplate=pId
                end
            end
        end
    end

-- Fix functions. w/ clothing

function ChangeTShirtTo(person,sId)
    if game.Players:FindFirstChild(person)==nil then
        print(person..”does not exist.”)
    else
        local char=game.Players:FindFirstChild(person).Character
        if typeof(sId)~=“number” then
            print(sId..” is not a valid arguement. It needs to be a number from an asset Id.”)
        else
            if char:FindFirstChildOfClass(“ShirtGraphic”) then
                char:FindFirstChildOfClass(“ShirtGraphic”).ShirtTemplate =sId
            else
                local nsh=Instance.new(“ShirtGraphic”,char)
                nsh.ShirtTemplate=sId
            end
        end
    end
end

function TeleportPlayerTo(player,PosV3)
    if game.Players:FindFirstChild(player)==nil then
        print(person..” does not exist”)
    else
        if typeof(PosV3)~=”vector3” then
            print(PosV3.." is not a valid arguement. It needs to be a Vector3 value.")
        else
            local HRP = game.Players:FindFirstChild(player).Character:FindFirstChild("HumanoidRootPart")
            if HRP then
                HRP.CFrame = CFrame.new(PosV3)
            end
        end
    end
end

function InvisibilityTargetPlayer(player,boolVal_IsInvisible)
    local plyr = game.Players:FindFirstChild(player)
    if plyr==nil then
        print(player.." does not exist.")
    else
        local char = plyr.Character
        if typeof(boolVal_IsInvisible)~="boolean" then
            print(boolVal_IsInvisible.." is not a valid arguement. It needs to be a boolean value.")
        else
            charchildren = char:GetDescendants()
            if boolVal_IsInvisible==true then
                for _, v in pairs(charchildren) do
                    if v:IsA("MeshPart") or v:IsA("Part") then
                        if v.Name~="HumanoidRootPart" then
                            v.Transparency = 1
                        end
                    end
                end
            else
                for _, v in pairs(charchildren) do
                    if v:IsA("MeshPart") or v:IsA("Part") then
                        if v.Name~="HumanoidRootPart" then
                            v.Transparency = 0
                        end
                    end
                end
            end
        end
    end
end

function ControlPlayerControl(player,bool_control)
    local plyr = game.Players:FindFirstChild(player)
    if plyr then
        if bool_control==true then
            plyr.DevComputerMovementMode = Enum.DevComputerMovementMode.Scriptable
            plyr.DevTouchMovementMode = Enum.DevTouchMovementMode.Scriptable
        else
            plyr.DevComputerMovementMode = Enum.DevComputerMovementMode.UserChoice
            plyr.DevTouchMovementMode = Enum.DevTouchMovementMode.UserChoice
        end
    end
end

function ChangeFaceInto(PlayerName,FaceId) -- Error
    local TargetPlayer =game.Players:FindFirstChild(PlayerName)
    if TargetPlayer==nil then
        print(PlayerName..” is not a valid argument. PlayerName needs to be a string and needs to exist as a player.”)
    else
        if typeof(FaceId)~=”number” then
            print(FaceId..” is not a valid argument. FaceId needs to be a number value.”)
        else
            local character = TargetPlayer.Character
            character.Head.face.DecalId = FaceId
        end
    end
end

-- Everything below this message is in testing.

function GiveSweaterTo(PlayerName,BrickColorName)
    if game.Players:FindFirstChild(PlayerName)==nil then
        print(PlayerName..” is not a valid argument. PlayerName needs to be a string and needs to exist as a player.”)
    else
        if typeof(BrickColorName)~= string then
            print(BrickColorName..” is not a valid argument. BrickColorName needs to be a string and a valid BrickColor name.”)
        else
            local char = game.Players:FindFirstChild(PlayerName).Character
            local bcolor = BrickColorName
            function weldi(part1,part2)
                local weld0 =   Instance.new("WeldConstraint",part1)
                weld0.Part0 = part1
                weld0.Part1 = part2
            end
            if char then
                wait(1)
                local CCC = char:GetChildren()
                TorsoIsTrue = "Part"
                TorsoID = nil
                for _, v in pairs(CCC) do
                    if v:IsA("CharacterMesh") then
                        if v.MeshId==48112070 then
                            TorsoIsTrue = "FE"
                            TorsoID = v.MeshId
                        end
                    end
                end
                if TorsoIsTrue=="FE" then
                    local part_1 = Instance.new("Part",char)
                    part_1.CFrame = char.Torso.CFrame* CFrame.new(0,.75,0)
                    part_1.CanCollide = false
                    weldi(char.Torso,part_1)
                    part_1.BrickColor = BrickColor.new(bcolor)
                    part_1.Material = Enum.Material.Fabric
                    part_1.Size = Vector3.new(2.05,.55,1.05)

                    local part_2 = Instance.new("WedgePart",char)
                    part_2.CFrame = char.Torso.CFrame* CFrame.new(-.771,-.25,0)
                    part_2.Orientation =char.Torso.Orientation + Vector3.new(90,0,90)
                    part_2.CanCollide = false
                    weldi(char.Torso,part_2)
                    part_2.BrickColor = BrickColor.new(bcolor)
                    part_2.Material = Enum.Material.Fabric
                    part_2.Size = Vector3.new(1, 0.55, 1.65)

                    local part_3 = Instance.new("WedgePart",char)
                    part_3.CFrame = char.Torso.CFrame* CFrame.new(-.75,-.25,0)
                    part_3.Orientation =char.Torso.Orientation + Vector3.new(-90,0,90)
                    part_3.CanCollide = false
                    weldi(char.Torso,part_3)
                    part_3.BrickColor = BrickColor.new(bcolor)
                    part_3.Material = Enum.Material.Fabric
                    part_3.Size = Vector3.new(1, 0.55, 1.65)

                    local part_4 = Instance.new("WedgePart",char)
                    part_4.CFrame = char.Torso.CFrame* CFrame.new(.75,-.25,0)
                    part_4.Orientation =char.Torso.Orientation + Vector3.new(-90,180,90)
                    part_4.CanCollide = false
                    weldi(char.Torso,part_4)
                    part_4.BrickColor = BrickColor.new(bcolor)
                    part_4.Material = Enum.Material.Fabric
                    part_4.Size = Vector3.new(1, 0.55, 1.65)

                    local part_5 = Instance.new("WedgePart",char)
                    part_5.CFrame = char.Torso.CFrame* CFrame.new(.77,-.25,0)
                    part_5.Orientation =char.Torso.Orientation + Vector3.new(90,180,90)
                    part_5.CanCollide = false
                    weldi(char.Torso,part_5)
                    part_5.BrickColor = BrickColor.new(bcolor )
                    part_5.Material = Enum.Material.Fabric
                    part_5.Size = Vector3.new(1, 0.55, 1.65)

                    local part_6 = Instance.new("Part",char)
                    part_6.CFrame = char.Torso.CFrame* CFrame.new(0,-.25,0)
                    part_6.CanCollide = false
                    weldi(char.Torso,part_6)
                    part_6.BrickColor = BrickColor.new(bcolor )
                    part_6.Material = Enum.Material.Fabric
                    part_6.Size = Vector3.new(1, 1.6, 1)
                else
                    local part1 = Instance.new("Part",char)
                    part1.CFrame = char.Torso.CFrame
                    part1.CanCollide = false
                    weldi(char.Torso,part1)
                    part1.BrickColor = BrickColor.new(bcolor )
                    part1.Material = Enum.Material.Fabric
                    part1.Size = Vector3.new(char.Torso.Size.X*1.05,char.Torso.Size.Y*1.05,char.Torso.Size.Z*1.05)
                end

                part2 = Instance.new("Part",char)
                part2.CFrame = char["Left Arm"].CFrame *CFrame.new(0,.1,0)
                part2.CanCollide = false
                weldi(char["Left Arm"],part2)
                part2.BrickColor = BrickColor.new(bcolor )
                part2.Material = Enum.Material.Fabric
                part2.Size = Vector3.new(char["Left Arm"].Size.X*1.05,char["Left Arm"].Size.Y*.95,char["Left Arm"].Size.Z*1.05)

                local bi = Instance.new("SurfaceGui",part2)
                bi.Face = "Back"
                local TL = Instance.new("TextLabel",bi)
                TL.Size = UDim2.new(1,0,.25,0)
                TL.Text = "CHL was here"
                TL.Font = Enum.Font.Code
                TL.BackgroundTransparency = 1
                TL.TextColor3 = Color3.fromRGB(255, 255, 255)
                TL.TextSize = 50

                part3 = Instance.new("Part",char)
                part3.CFrame = char["Right Arm"].CFrame*CFrame.new(0,.1,0)
                part3.CanCollide = false
                weldi(char["Right Arm"],part3)
                part3.BrickColor = BrickColor.new(bcolor )
                part3.Material = Enum.Material.Fabric
                part3.Size = Vector3.new(char["Right Arm"].Size.X*1.05,char["Right Arm"].Size.Y*.95,char["Right Arm"].Size.Z*1.05)
            end
        end
    end
end

function GetTargetPantsId(TargetModel)
    if TargetModel:FindFirstChildWhichIsA(“Pants”)==nil then
        print(“No pants on model.”)
    else
        print(TargetModel:FindFirstChildWhichIsA(“Pants”).PantsTemplate)
    end
end

function GetTargetShirtId(TargetModel)
    if TargetModel:FindFirstChildWhichIsA(“Shirt”)==nil then
        print(“No shirt on model.”)
    else
        print(TargetModel:FindFirstChildWhichIsA(“Shirt”).ShirtTemplate)
    end
end

function ClearModules()
    wait(1)
    local GC = game:GetDescendants()
    for _, v in pairs(GC) do
        if v:IsA(“ModuleScript”) then
            v:Destroy()
        end
    end
end

function DeathEffect_Anchored1(TargetPlayer)
    if game.Players:FindFirstChild(TargetPlayer)==nil then
        print(TargetPlayer..” is not a valid argument. TargetPlayer needs to be a string and needs to exist as a player.”)
    else
        local character = game.Players:FindFirstChild(TargetPlayer).Character
        if character.Health>=0 then
            print(TargetPlayer..” is not dead. No death effect executed.”)
        else
            local CCC = character:GetDescendants()
            for _, v in pairs(CCC) do
                if v:IsA(“MeshPart”) or v:IsA(“Part”) then
                    v.Anchored = true
                end
            end
        end
    end
end

function DeathEffect_BrickColor1(TargetPlayer,BrickColorValue)
    if game.Players:FindFirstChild(TargetPlayer)==nil then
        print(TargetPlayer..” is not a valid argument. TargetPlayer needs to be a string and needs to exist as a player.”)
    else
        if typeof(BrickColorValue)~=”string” then
            print(BrickColorValue..” is not a valid argument. BrickColorValue needs to be a string and a valid brickcolor value.”)
        else
            local character = game.Players:FindFirstChild(TargetPlayer).Character
            if character.Health>=0 then
                print(TargetPlayer..” is not dead. No death effect executed.”)
            else
                local CCC = character:GetDescendants()
                for _, v in pairs(CCC) do
                    if v:IsA(“MeshPart”) or v:IsA(“Part”) then
                        v.BrickColor = BrickColor.new(BrickColorValue)
                    end
                end
            end
        end
    end
end

function DeathEffect_DestroyAvatar(TargetPlayer)
if game.Players:FindFirstChild(TargetPlayer)==nil then
        print(TargetPlayer..” is not a valid argument. TargetPlayer needs to be a string and needs to exist as a player.”)
    else
        local CCC = game.Players:FindFirstChild(TargetPlayer).Character:GetDescendants()
        if game.Players:FindFirstChild(TargetPlayer).Character.Humanoid.Health>=0 then
        print(“Player is not dead.”)
        else
            for _, v in pairs(CCC) do
                if v:IsA(“MeshPart”) or v:IsA(“Part”) then
                    v:Destroy()
                end
            end
        end
    end
end

function DeathEffect_Noobify(TargetPlayer)
    if game.Players:FindFirstChild(TargetPlayer)==nil then
        print(TargetPlayer..” is not a valid argument. TargetPlayer needs to be a string and needs to exist as a player.”)
    else
        local TargetAvat = game.Players:FindFirstChild(TargetPlayer).Character
        local boC = TargetAvat:FindFirstChildWhichIsA(“BodyColors”)
        local hum=TargetAvat:FindFirstChildWhichIsA(“Humanoid”)
        if boC==nil then
            print(“Can not find body colors.”)
        else
            if hum==nil then
                print(“Can not find humanoid.”)
            else
                if hum.Health>=0 then
                    print(“Player is not dead.”)
                else
                    boC.HeadColor = BrickColor.new(“New Yeller”)
                    boC.TorsoColor = BrickColor.new(“Really blue”)
                    boC.LeftArmColor = BrickColor.new(“New Yeller”)
                    boC.RightArmColor = BrickColor.new(“New Yeller”)
                    boC.LeftLegColor = BrickColor.new(“Bright green”)
                    boC.RightLegColor = BrickColor.new(“Bright green”)
                end
            end
        end
    end
end

function LoadAccessory(person,AssetID)
    local accessory = game:GetService("InsertService"):LoadAsset(AssetID):GetChildren()[1]
    accessory.Parent = game:GetService("Players"):FindFirstChild(person).Character
end

function SC_ChatBarDisabled(bool_EnableChatBat) -- LocalScript
    local StarterGui = game:GetService("StarterGui")
    if StarterGui then
        StarterGui:SetCore("ChatBarDisabled",bool_EnableChatBat)
    end
end

function SC_SendNotification(table_NotificationProperties) -- LocalScript
    local StarterGui = game:GetService("StarterGui")
    if StarterGui then
        StarterGui:SetCore("SendNotification",table_NotificationProperties)
    end
end