lightning telekinesis testing for FE

--https://github.com/Mokiros/roblox-FE-compatibility
if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
local Player,game,owner = owner,game
local RealPlayer = Player
do
    print("FE Compatibility code V2 by Mokiros")
    local RealPlayer = RealPlayer
    script.Parent = RealPlayer.Character

    --Fake event to make stuff like Mouse.KeyDown work
    local Disconnect_Function = function(this)
        this[1].Functions[this[2]] = nil
    end
    local Disconnect_Metatable = {__index={disconnect=Disconnect_Function,Disconnect=Disconnect_Function}}
    local FakeEvent_Metatable = {__index={
        Connect = function(this,f)
            local i = tostring(math.random(0,10000))
            while this.Functions[i] do
                i = tostring(math.random(0,10000))
            end
            this.Functions[i] = f
            return setmetatable({this,i},Disconnect_Metatable)
        end
    }}
    FakeEvent_Metatable.__index.connect = FakeEvent_Metatable.__index.Connect
    local function fakeEvent()
        return setmetatable({Functions={}},FakeEvent_Metatable)
    end

    --Creating fake input objects with fake variables
    local FakeMouse = {Hit=CFrame.new(),KeyUp=fakeEvent(),KeyDown=fakeEvent(),Button1Up=fakeEvent(),Button1Down=fakeEvent(),Button2Up=fakeEvent(),Button2Down=fakeEvent()}
    FakeMouse.keyUp = FakeMouse.KeyUp
    FakeMouse.keyDown = FakeMouse.KeyDown
    local UIS = {InputBegan=fakeEvent(),InputEnded=fakeEvent()}
    local CAS = {Actions={},BindAction=function(self,name,fun,touch,...)
        CAS.Actions[name] = fun and {Name=name,Function=fun,Keys={...}} or nil
    end}
    --Merged 2 functions into one by checking amount of arguments
    CAS.UnbindAction = CAS.BindAction

    --This function will trigger the events that have been :Connect()'ed
    local function TriggerEvent(self,ev,...)
        for _,f in pairs(self[ev].Functions) do
            f(...)
        end
    end
    FakeMouse.TriggerEvent = TriggerEvent
    UIS.TriggerEvent = TriggerEvent

    --Client communication
    local Event = Instance.new("RemoteEvent")
    Event.Name = "UserInput_Event"
    Event.OnServerEvent:Connect(function(plr,io)
        if plr~=RealPlayer then return end
        FakeMouse.Target = io.Target
        FakeMouse.Hit = io.Hit
        if not io.isMouse then
            local b = io.UserInputState == Enum.UserInputState.Begin
            if io.UserInputType == Enum.UserInputType.MouseButton1 then
                return FakeMouse:TriggerEvent(b and "Button1Down" or "Button1Up")
            end
            if io.UserInputType == Enum.UserInputType.MouseButton2 then
                return FakeMouse:TriggerEvent(b and "Button2Down" or "Button2Up")
            end
            for _,t in pairs(CAS.Actions) do
                for _,k in pairs(t.Keys) do
                    if k==io.KeyCode then
                        t.Function(t.Name,io.UserInputState,io)
                    end
                end
            end
            FakeMouse:TriggerEvent(b and "KeyDown" or "KeyUp",io.KeyCode.Name:lower())
            UIS:TriggerEvent(b and "InputBegan" or "InputEnded",io,false)
        end
    end)
    Event.Parent = NLS([==[local Event = script:WaitForChild("UserInput_Event")
    local Mouse = owner:GetMouse()
    local UIS = game:GetService("UserInputService")
    local input = function(io,RobloxHandled)
        if RobloxHandled then return end
        --Since InputObject is a client-side instance, we create and pass table instead
        Event:FireServer({KeyCode=io.KeyCode,UserInputType=io.UserInputType,UserInputState=io.UserInputState,Hit=Mouse.Hit,Target=Mouse.Target})
    end
    UIS.InputBegan:Connect(input)
    UIS.InputEnded:Connect(input)
    local h,t
    --Give the server mouse data every second frame, but only if the values changed
    --If player is not moving their mouse, client won't fire events
    local HB = game:GetService("RunService").Heartbeat
    while true do
        if h~=Mouse.Hit or t~=Mouse.Target then
            h,t=Mouse.Hit,Mouse.Target
            Event:FireServer({isMouse=true,Target=t,Hit=h})
        end
        --Wait 2 frames
        for i=1,2 do
            HB:Wait()
        end
    end]==],script)

    ----Sandboxed game object that allows the usage of client-side methods and services
    --Real game object
    local RealGame = game

    --Metatable for fake service
    local FakeService_Metatable = {
        __index = function(self,k)
            local s = rawget(self,"_RealService")
            if s then
                return typeof(s[k])=="function"
                and function(_,...)return s[k](s,...)end or s[k]
            end
        end,
        __newindex = function(self,k,v)
            local s = rawget(self,"_RealService")
            if s then s[k]=v end
        end
    }
    local function FakeService(t,RealService)
        t._RealService = typeof(RealService)=="string" and RealGame:GetService(RealService) or RealService
        return setmetatable(t,FakeService_Metatable)
    end

    --Fake game object
    local FakeGame = {
        GetService = function(self,s)
            return rawget(self,s) or RealGame:GetService(s)
        end,
        Players = FakeService({
            LocalPlayer = FakeService({GetMouse=function(self)return FakeMouse end},Player)
        },"Players"),
        UserInputService = FakeService(UIS,"UserInputService"),
        ContextActionService = FakeService(CAS,"ContextActionService"),
        RunService = FakeService({
            _btrs = {},
            RenderStepped = RealGame:GetService("RunService").Heartbeat,
            BindToRenderStep = function(self,name,_,fun)
                self._btrs[name] = self.Heartbeat:Connect(fun)
            end,
            UnbindFromRenderStep = function(self,name)
                self._btrs[name]:Disconnect()
            end,
        },"RunService")
    }
    rawset(FakeGame.Players,"localPlayer",FakeGame.Players.LocalPlayer)
    FakeGame.service = FakeGame.GetService
    FakeService(FakeGame,game)
    --Changing owner to fake player object to support owner:GetMouse()
    game,owner = FakeGame,FakeGame.Players.LocalPlayer
end
local isScriptNil = false

local PlrName = "xExplicitCass"
local Plrs = game:GetService("Players")
local RunService = game:GetService("RunService")
local Content = game:GetService("ContentProvider")
local LP = Plrs.LocalPlayer
local Char = LP.Character
local PlrGui = LP.PlayerGui
local Backpack = LP.Backpack
local Mouse = LP:GetMouse()

local Camera = Workspace.CurrentCamera
local LastCamCF = Camera.CoordinateFrame
local AnimJoints = {}
local Cons = {}
local mDown = false
local Multi = false
local Grabbing = false
local Current = {}
local Alpha = 1
local LightNum = 1

Current.Part = nil
Current.BP = nil
Current.BA = nil
Current.Mass = nil

local LastPart = nil

local Head = Char["Head"]
local Torso = Char["Torso"]
local Humanoid = Char["Humanoid"]
local LA = Char["Left Arm"]
local RA = Char["Right Arm"]
local LL = Char["Left Leg"]
local RL = Char["Right Leg"]

local LS, RS;

local OrigLS = Torso["Left Shoulder"]
local OrigRS = Torso["Right Shoulder"]

for _,v in pairs(Char:GetChildren()) do
    if v.Name == ModID then
        v:Destroy()
    end
end

for _,v in pairs(PlrGui:GetChildren()) do
    if v.Name == "PadsGui" then
        v:Destroy()
    end
end

local ModID = "Pads"
local Objects = {}
local Grav = 196.2

local sin=math.sin
local cos=math.cos
local max=math.max
local min=math.min
local atan2=math.atan2
local random=math.random
local tau = 2 * math.pi

local BodyObjects = {
    ["BodyVelocity"] = true;
    ["BodyAngularVelocity"] = true;
    ["BodyForce"] = true;
    ["BodyThrust"] = true;
    ["BodyPosition"] = true;
    ["RocketPropulsion"] = true;
}

if LP.Name == PlrName and isScriptNil then
    script.Parent = nil
end

LP.CameraMode = "Classic"

local Assets = {
}

local LS0, LS1 = OrigLS.C0, OrigLS.C1
local RS0, RS1 = OrigRS.C0, OrigRS.C1

for i,v in pairs(Assets) do
    local ID = tostring(Assets[i])
    Assets[i] = "http://www.roblox.com/asset/?id=" .. ID
    Content:Preload("http://www.roblox.com/asset/?id=" .. ID)
end

function QuaternionFromCFrame(cf)
    local mx, my, mz, m00, m01, m02, m10, m11, m12, m20, m21, m22 = cf:components();
    local trace = m00 + m11 + m22 if trace > 0 then
        local s = math.sqrt(1 + trace);
        local recip = 0.5/s;
        return (m21-m12)*recip, (m02-m20)*recip, (m10-m01)*recip, s*0.5;
    else
        local i = 0;
        if m11 > m00 then
            i = 1;
        end;
        if m22 > (i == 0 and m00 or m11) then
            i = 2 end if i == 0 then
            local s = math.sqrt(m00-m11-m22+1);
            local recip = 0.5/s return 0.5*s, (m10+m01)*recip, (m20+m02)*recip, (m21-m12)*recip;
        elseif i == 1 then
            local s = math.sqrt(m11-m22-m00+1);
            local recip = 0.5/s;
            return (m01+m10)*recip, 0.5*s, (m21+m12)*recip, (m02-m20)*recip ;
        elseif i == 2 then
            local s = math.sqrt(m22-m00-m11+1);
            local recip = 0.5/s;
            return (m02+m20)*recip, (m12+m21)*recip, 0.5*s, (m10-m01)*recip;
        end;
    end;
end;

function QuaternionToCFrame(px, py, pz, x, y, z, w)
    local xs, ys, zs = x + x, y + y, z + z;
    local wx, wy, wz = w*xs, w*ys, w*zs;
    local xx = x*xs;
    local xy = x*ys;
    local xz = x*zs;
    local yy = y*ys;
    local yz = y*zs;
    local zz = z*zs;
    return CFrame.new(px, py, pz,1-(yy+zz), xy - wz, xz + wy,xy + wz, 1-(xx+zz), yz - wx, xz - wy, yz + wx, 1-(xx+yy))
end;

function QuaternionSlerp(a, b, t)
    local cosTheta = a[1]*b[1] + a[2]*b[2] + a[3]*b[3] + a[4]*b[4];
    local startInterp, finishInterp;
    if cosTheta >= 0.0001 then
        if (1 - cosTheta) > 0.0001 then
            local theta = math.acos(cosTheta);
            local invSinTheta = 1/math.sin(theta);
            startInterp = math.sin((1-t)*theta)*invSinTheta;
            finishInterp = math.sin(t*theta)*invSinTheta;
        else
            startInterp = 1-t finishInterp = t;
        end;
    else
        if (1+cosTheta) > 0.0001 then
            local theta = math.acos(-cosTheta);
            local invSinTheta = 1/math.sin(theta);
            startInterp = math.sin((t-1)*theta)*invSinTheta;
            finishInterp = math.sin(t*theta)*invSinTheta;
        else startInterp = t-1 finishInterp = t;
        end;
    end;
    return a[1]*startInterp + b[1]*finishInterp, a[2]*startInterp + b[2]*finishInterp, a[3]*startInterp + b[3]*finishInterp, a[4]*startInterp + b[4]*finishInterp;
end;

function CLerp(a,b,t)
    local qa={QuaternionFromCFrame(a)};
    local qb={QuaternionFromCFrame(b)};
    local ax,ay,az=a.x,a.y,a.z;
    local bx,by,bz=b.x,b.y,b.z;
    local _t=1-t;
    return QuaternionToCFrame(_t*ax+t*bx,_t*ay+t*by,_t*az+t*bz,QuaternionSlerp(qa, qb, t));
end

function GetWeld(weld)
    local obj
    for i, v in pairs(AnimJoints) do
        if v[1] == weld then
            obj = v
            break
        end
    end
    if not obj then
        obj = {weld,NV}
        table.insert(AnimJoints,obj)
    end
    return weld.C0.p, obj[2]
end

function SetWeld(weld, i, loops, origpos, origangle, nextpos, nextangle, override, overrideLower, smooth)
    smooth = smooth or 1
    local obj
    for i, v in pairs(AnimJoints) do
        if v[1] == weld then
            obj = v
            break
        end
    end
    if not obj then
        obj = {weld,NV}
        table.insert(AnimJoints,obj)
    end

    local perc = (smooth == 1 and math.sin((math.pi/2)/loops*i)) or i/loops

    local tox,toy,toz = 0,0,0
    tox = math.abs(origangle.x - nextangle.x) *perc
    toy = math.abs(origangle.y - nextangle.y) *perc
    toz = math.abs(origangle.z - nextangle.z) *perc
    tox = ((origangle.x > nextangle.x and -tox) or tox)
    toy = ((origangle.y > nextangle.y and -toy) or toy)
    toz = ((origangle.z > nextangle.z and -toz) or toz)

    local tox2,toy2,toz2 = 0,0,0
    tox2 = math.abs(origpos.x - nextpos.x) *perc
    toy2 = math.abs(origpos.y - nextpos.y) *perc
    toz2 = math.abs(origpos.z - nextpos.z) *perc
    tox2 = (origpos.x > nextpos.x and -tox2) or tox2
    toy2 = (origpos.y > nextpos.y and -toy2) or toy2
    toz2 = (origpos.z > nextpos.z and -toz2) or toz2

    obj[2] = Vector3.new(origangle.x + tox, origangle.y + toy, origangle.z + toz)
    weld.C0 = CFrame.new(origpos.x + tox2,origpos.y + toy2,origpos.z + toz2) * CFrame.Angles(origangle.x + tox,origangle.y + toy,origangle.z + toz)
end

function RotateCamera(x, y)
    Camera.CoordinateFrame = CFrame.new(Camera.Focus.p) * (Camera.CoordinateFrame - Camera.CoordinateFrame.p) * CFrame.Angles(x, y, 0) * CFrame.new(0, 0, (Camera.CoordinateFrame.p - Camera.Focus.p).magnitude)
end

function GetAngles(cf)
    local lv = cf.lookVector
    return -math.asin(lv.y), math.atan2(lv.x, -lv.z)
end

local LastCamCF = Camera.CoordinateFrame

function Look()
    if AlphaOn == true then
        local x, y = GetAngles(LastCamCF:toObjectSpace(Camera.CoordinateFrame))
        Camera.CoordinateFrame = LastCamCF
        RotateCamera(x * -(Alpha), y * -(Alpha))
        LastCamCF = Camera.CoordinateFrame
    end
end

function Cor(Func)
    local Ok, Err = coroutine.resume(coroutine.create(Func))
    if not Ok then
        print(Err)
    end
end

function Cor2(Func)
    local Ok, Err = ypcall(Func)
    if not Ok then
        print(Err)
    end
end

function MakePads()
    -- 1 - VTelekinesis
    P1 = Instance.new("Model")
    P1.Name = ModID

    -- 2 - RBase
    P2 = Instance.new("Part")
    P2.CFrame = CFrame.new(Vector3.new(21.100008, 1.95000589, 11.899971)) * CFrame.Angles(-0, 0, -0)
    P2.FormFactor = Enum.FormFactor.Custom
    P2.Size = Vector3.new(0.799999952, 0.200000003, 0.800000012)
    P2.Anchored = true
    P2.BrickColor = BrickColor.new("White")
    P2.Friction = 0.30000001192093
    P2.Shape = Enum.PartType.Block
    P2.Name = "RBase"
    P2.Parent = P1
    P2.Transparency = 1
    -- 3 - Mesh
    P3 = Instance.new("CylinderMesh")
    P3.Scale = Vector3.new(1, 0.5, 1)
    P3.Parent = P2

    -- 4 - LBase
    P4 = Instance.new("Part")
    P4.CFrame = CFrame.new(Vector3.new(18.100008, 1.95000589, 11.899971)) * CFrame.Angles(-0, 0, -0)
    P4.FormFactor = Enum.FormFactor.Custom
    P4.Size = Vector3.new(0.799999952, 0.200000003, 0.800000012)
    P4.Anchored = true
    P4.BrickColor = BrickColor.new("White")
    P4.Friction = 0.30000001192093
    P4.Shape = Enum.PartType.Block
    P4.Name = "LBase"
    P4.Parent = P1
    P4.Transparency = 1
    -- 5 - Mesh
    P5 = Instance.new("CylinderMesh")
    P5.Scale = Vector3.new(1, 0.5, 1)
    P5.Parent = P4

    -- 7 - Mesh
    P7 = Instance.new("CylinderMesh")
    P7.Scale = Vector3.new(1, 0.5, 1)
    P7.Parent = P6



    -- 9 - Mesh
    P9 = Instance.new("CylinderMesh")
    P9.Scale = Vector3.new(1, 0.5, 1)
    P9.Parent = P8



    -- 11 - Mesh
    P11 = Instance.new("CylinderMesh")
    P11.Scale = Vector3.new(1, 0.5, 1)
    P11.Parent = P10


    -- 13 - Mesh
    P13 = Instance.new("CylinderMesh")
    P13.Scale = Vector3.new(1, 0.5, 1)
    P13.Parent = P12


    -- 15 - Mesh
    P15 = Instance.new("CylinderMesh")
    P15.Scale = Vector3.new(1, 0.5, 1)
    P15.Parent = P14

    -- 17 - Mesh
    P17 = Instance.new("CylinderMesh")
    P17.Scale = Vector3.new(1, 0.5, 1)
    P17.Parent = P16

    P1.Parent = LP.Character
    P1:MakeJoints()
    return P1
end

weldModel = function(model, unanchor, rooty)
    local parts = {}
    local function recurse(object)
        if object:IsA("BasePart") then
            table.insert(parts, object)
        end
        for _,child in pairs(object:GetChildren()) do
            recurse(child)
        end
    end
    recurse(model)

    local rootPart = rooty or parts[1]
    for _, part in pairs(parts) do
        local cframe = rootPart.CFrame:toObjectSpace(part.CFrame)
        local weld = Instance.new("Weld")
        weld.Part0 = rootPart
        weld.Part1 = part
        weld.C0 = cframe
        weld.Parent = rootPart
    end

    if unanchor then
        for _, part in pairs(parts) do
            part.Anchored = false
            part.CanCollide = false
        end
    end
end

weldItem = function(rootPart, Item, TheC0, unanchor, ParentItem)
    local cframe = TheC0 or rootPart.CFrame:toObjectSpace(Item.CFrame)
    local weld = Instance.new("Weld")
    weld.Name = "Weld"
    weld.Part0 = rootPart
    weld.Part1 = Item
    weld.C0 = cframe
    weld.Parent = ParentItem and Item or rootPart

    if unanchor then
        Item.Anchored = false
    end
    return weld, cframe
end

scaleModel = function(model, scale)
    local parts = {}
    local function recurse(object)
        if object:IsA("BasePart") then
            table.insert(parts, object)
        end
        for _,child in pairs(object:GetChildren()) do
            recurse(child)
        end
    end
    recurse(model)

    local top, bottom, left, right, back, front
    for _, part in pairs(parts) do
        if top == nil or top < part.Position.y then         top = part.Position.y end
        if bottom == nil or bottom > part.Position.y then   bottom = part.Position.y end
        if left == nil or left > part.Position.x then       left = part.Position.x end
        if right == nil or right < part.Position.x then     right = part.Position.x end
        if back == nil or back > part.Position.z then       back = part.Position.z end
        if front == nil or front < part.Position.z then     front = part.Position.z end
    end

    local middle = Vector3.new( left+right, top+bottom, back+front )/2
    local minSize = Vector3.new(0.2, 0.2, 0.2)

    for _, part in pairs(parts) do
        local foo = part.CFrame.p - middle
        local rotation = part.CFrame - part.CFrame.p
        local newSize = part.Size*scale
        part.FormFactor = "Custom"
        part.Size = newSize
        part.CFrame = CFrame.new( middle + foo*scale ) * rotation

        if newSize.x < minSize.x or newSize.y < minSize.y or newSize.z < minSize.z then
            local mesh
            for _, child in pairs(part:GetChildren()) do
                if child:IsA("DataModelMesh") then
                    mesh = child
                    break
                end
            end

            if mesh == nil then
                mesh = Instance.new("BlockMesh", part)
            end

            local oScale = mesh.Scale
            local newScale = newSize/minSize * oScale
            if 0.2 < newSize.x then newScale = Vector3.new(1 * oScale.x, newScale.y, newScale.z) end
            if 0.2 < newSize.y then newScale = Vector3.new(newScale.x, 1 * oScale.y, newScale.z) end
            if 0.2 < newSize.z then newScale = Vector3.new(newScale.x, newScale.y, 1 * oScale.z) end

            mesh.Scale = newScale
        end
    end
end

function getMass(Obj, Total)
    local newTotal = Total
    local returnTotal = 0

    if Obj:IsA("BasePart") then
        newTotal = newTotal + Objects[Obj]
    elseif BodyObjects[Obj.ClassName] then
        Obj:Destroy()
    end

    if Obj:GetChildren() and #Obj:GetChildren() > 0 then
        for _,v in pairs(Obj:GetChildren()) do
            returnTotal = returnTotal + getMass(v, newTotal)
        end
    else
        returnTotal = newTotal
    end

    return returnTotal
end

function getTargFromCurrent()
    local Current = Current.Part
    if Current:IsA("BasePart") then
        return Current
    elseif Current:findFirstChild("Torso") then
        return Current.Torso
    else
        for _,v in pairs(Current:GetChildren()) do
            if v:IsA("BasePart") then
                return v
            end
        end
    end
end

function Fire(Part, Vec, Inv)
    pcall(function()
        Current.BP:Destroy()
        Current.BP = nil
    end)
    pcall(function()
        Current.BA:Destroy()
        Current.BA = nil
    end)
    pcall(function()
        if Inv then
            Part.Velocity = -((Vec - Torso.Position).unit * Grav * 1.1)
        else
            Part.Velocity = ((Vec - Camera.CoordinateFrame.p).unit * Grav * 1.1)
        end
        Current.Mass = nil
    end)
    Reset()
end

function Reset()
    LS.Parent = nil
    RS.Parent = nil

    OrigLS.Parent = Torso
    OrigRS.Parent = Torso

    OrigLS.C0 = LS0
    OrigRS.C0 = RS0
end

function Start()
    Cor(function()
        repeat wait(1/30) until LP.Character and LP.Character.Parent == Workspace and LP.Character:findFirstChild("Torso")
        Char = LP.Character
        PlrGui = LP.PlayerGui
        Backpack = LP.Backpack
        Mouse = LP:GetMouse()

        for _,v in pairs(Cons) do
            v:disconnect()
        end
        Cons = {}

        Camera = Workspace.CurrentCamera
        LastCamCF = Camera.CoordinateFrame
        AnimJoints = {}
        mDown = false
        Multi = false
        Grabbing = false
        Current = {}
        Alpha = 1

        Head = Char["Head"]
        Torso = Char["Torso"]
        Humanoid = Char["Humanoid"]
        LA = Char["Left Arm"]
        RA = Char["Right Arm"]
        LL = Char["Left Leg"]
        RL = Char["Right Leg"]

        OrigLS = Torso["Left Shoulder"]
        OrigRS = Torso["Right Shoulder"]

        for _,v in pairs(Char:GetChildren()) do
            if v.Name == ModID then
                v:Destroy()
            end
        end

        for _,v in pairs(PlrGui:GetChildren()) do
            if v.Name == "PadsGui" then
                v:Destroy()
            end
        end

        LS = Instance.new("Weld")
        RS = Instance.new("Weld")

        LS.Name = OrigLS.Name
        LS.Part0 = Torso
        LS.Part1 = LA
        LS.C0 = LS0
        LS.C1 = CFrame.new(0, 0.5, 0,  1, 0, 0,  0, 0, 1,  0, -1, 0)

        RS.Name = OrigRS.Name
        RS.Part0 = Torso
        RS.Part1 = RA
        RS.C0 = RS0
        RS.C1 = CFrame.new(0, 0.5, 0,  1, 0, 0,  0, 0, 1,  0, -1, 0)

        local Pads = MakePads()
        local LPad = Pads.LBase
        local RPad = Pads.RBase

        weldModel(LPad, true, LPad)
        weldModel(RPad, true, RPad)

        local GripWeldL = Instance.new("Weld")
        GripWeldL.Name = "GripWeldL"
        GripWeldL.Part0 = LA
        GripWeldL.Part1 = LPad
        GripWeldL.C0 = CFrame.new(0, -1.05, 0) * CFrame.Angles(0, math.rad(180), 0)
        GripWeldL.Parent = LA

        local GripWeldR = Instance.new("Weld")
        GripWeldR.Name = "GripWeldR"
        GripWeldR.Part0 = RA
        GripWeldR.Part1 = RPad
        GripWeldR.C0 = CFrame.new(0, -1.05, 0) * CFrame.Angles(0, math.rad(180), 0)
        GripWeldR.Parent = RA

        local isParts = false

        table.insert(Cons, Mouse.KeyDown:connect(function(Key)
            Key = Key:lower()
            if Key == "z" then
                --Stuff
            elseif Key == "f" then
                local Current = Current.Part
                if Current and Current.Parent ~= nil and not Multi then
                    Current:BreakJoints()
                end
            elseif Key == "q" then
                if isParts then
                    isParts = false
                    for _,v in pairs(Workspace:GetChildren()) do
                        if v.Name == "MyPartV" and v:IsA("BasePart") then
                            v:Destroy()
                        end
                    end
                else
                    isParts = true
                    for i = 1, 50 do
                        local Part = Instance.new("Part")
                        Part.Color = Color3.new(math.random(), math.random(), math.random())
                        Part.Transparency = 0
                        Part.Size = Vector3.new(math.random(1, 3), math.random(1, 3), math.random(1, 3))
                        Part.Archivable = true
                        Part.CanCollide = false
                        Part.Material = "Neon"
                        Part.Locked = false
                        Part.CFrame = Torso.CFrame * CFrame.new(math.random(-15, 15), -1, math.random(-15, 15))
                        Part.Anchored = true
                        Part.Name = "MyPartV"
                        Part.TopSurface = "Smooth"
                        Part.BottomSurface = "Smooth"
                        Part.Parent = Workspace
                    end
                end
            elseif Key == "e" then
                local Targ;
                if Current.Part and Current.Part ~= nil then
                    Targ = getTargFromCurrent()
                else
                    Targ = LastPart
                end
                if Targ and Targ.Parent ~= nil and not Multi then
                    local Ex = Instance.new("Explosion", Workspace)
                    Ex.Position = Targ.CFrame.p
                    Ex.BlastRadius = 16
                    Ex.DestroyJointRadiusPercent = 0.5
                end
            elseif Key == "c" then
                if Current.Part and Current.Part.Parent ~= nil and not Multi then
                    local Part = getTargFromCurrent()
                    if Part then
                        Grabbing = false
                        if Mouse.Hit then
                            local TargPos = CFrame.new(Camera.CoordinateFrame.p, Mouse.Hit.p) * CFrame.new(0, 0, -1000)
                            Fire(Part, TargPos.p)
                        else
                            Fire(Part, Mouse.Origin.p + Mouse.UnitRay.Direction, true)
                        end
                    end
                end
            end
        end))

        table.insert(Cons, Mouse.Button1Up:connect(function()
            mDown = false
            if Grabbing == true and Multi == false then
                Grabbing = false
                Reset()
            end
            if Current.Part ~= nil then
                LastPart = getTargFromCurrent()
                Current = {}
            end
        end))

        local function makeLightning(Par, Start, End, Width, Length, RandomScale, ArcScale, Num1)
            local oldParts = {}
            for _,v in pairs(Par:GetChildren()) do
                v.CFrame = CFrame.new(5e5, 5e5, 5e5)
                table.insert(oldParts, v)
            end
            local Distance = (Start-End).Magnitude
            local ArcScale = ArcScale or 1
            local RandomScale = RandomScale or 0
            local Last = Start
            local IterNum = 0

            while Par.Parent do
                IterNum = IterNum + 1
                local New = nil
                if (Last-End).Magnitude < Length then
                    New = CFrame.new(End)
                else
                    if (End-Last).Magnitude < Length*2 then
                        RandomScale = RandomScale*0.5
                        ArcScale = ArcScale*0.5
                    end
                    local Direct = CFrame.new(Last,End)
                    New = Direct*CFrame.Angles(math.rad(math.random(-RandomScale/4,RandomScale*ArcScale)),math.rad(math.random(-RandomScale,RandomScale)),math.rad(math.random(-RandomScale,RandomScale)))
                    New = New*CFrame.new(0,0,-Length)
                end
                local Trail = nil
                if oldParts[IterNum] then
                    Trail = oldParts[IterNum]
                    Trail.BrickColor = ((Num1 % 2 == 0) and BrickColor.new("White")) or BrickColor.new("Cyan")
                    Trail.Size = Vector3.new(Width, (Last-New.p).Magnitude, Width)
                    Trail.CFrame = CFrame.new(New.p, Last)*CFrame.Angles(math.rad(90),0,0)*CFrame.new(0, -(Last-New.p).Magnitude/2, 0)
                    oldParts[IterNum] = nil
                else
                    Trail = Instance.new("Part")
                    Trail.Name = "Part"
                    Trail.FormFactor = "Custom"
                    Trail.BrickColor = ((Num1 % 2 == 0) and BrickColor.new("White")) or BrickColor.new("White")
                    Trail.Transparency = 0
                    Trail.Anchored = true
                    Trail.CanCollide = false
                    Trail.Locked = true
                    Trail.BackSurface = "SmoothNoOutlines"
                    Trail.BottomSurface = "SmoothNoOutlines"
                    Trail.FrontSurface = "SmoothNoOutlines"
                    Trail.LeftSurface = "SmoothNoOutlines"
                    Trail.RightSurface = "SmoothNoOutlines"
                    Trail.TopSurface = "SmoothNoOutlines"
                    Trail.Material = "Neon"
                    Trail.Size = Vector3.new(Width, (Last-New.p).Magnitude, Width)
                    Trail.CFrame = CFrame.new(New.p, Last)*CFrame.Angles(math.rad(90),0,0)*CFrame.new(0, -(Last-New.p).Magnitude/2, 0)
                    Trail.Parent = Par
                end
                Last = New.p
                if (Last-End).Magnitude < 1 then
                    break
                end
            end
            for _,v in pairs(oldParts) do
                v:Destroy()
            end
        end

        table.insert(Cons, Mouse.Button1Down:connect(function()
            mDown = true
            local Targ = Mouse.Target
            Cor(function()
                if Targ and Objects[Targ] and not Multi then
                    Grabbing = true
                    Current.Part = Targ
                    local Mass = Objects[Targ]
                    local ForceNum = 0
                    local Hum = nil

                    for _,v in pairs(Targ:GetChildren()) do
                        if BodyObjects[v.ClassName] then
                            v:Destroy()
                        end
                    end

                    for _,v in pairs(Workspace:GetChildren()) do
                        if v:findFirstChild("Humanoid") and v:IsAncestorOf(Targ) then
                            Hum = v.Humanoid
                            Mass = getMass(v, 0)
                            Current.Part = v
                            break
                        end
                    end

                    Current.Mass = Mass

                    if not Hum then
                        Targ:BreakJoints()
                    end

                    ForceNum = Mass * Grav
                    Targ.CanCollide = true
                    Targ.Anchored = false

                    local BP = Instance.new("BodyPosition")
                    BP.maxForce = Vector3.new(3 * ForceNum, 3 * ForceNum, 3 * ForceNum)
                    BP.Parent = Targ

                    local Ang = Instance.new("BodyAngularVelocity")
                    Ang.Parent = Targ

                    Current.BP = BP
                    Current.BA = Ang

                    OrigLS.Parent = nil
                    OrigRS.Parent = nil

                    LS.Parent = Torso
                    RS.Parent = Torso

                    LS.C0 = LS0
                    RS.C0 = RS0

                    local DirDot = Mouse.UnitRay.Direction:Dot(Targ.Position - Mouse.Origin.p)
                    local BPPos = Vector3.new(0, 0, 0)
                    local Vel = Vector3.new(0, 0, 0)
                    local Vlev = random() * math.pi
                    local RPos = Vector3.new(random() * 2 - 1, cos(Vlev), random() * 2 - 1)

                    local Ball = Instance.new("Part")
                    Ball.Name = "Ball"
                    Ball.FormFactor = "Custom"
                    Ball.Color = Color3.new(0, 1, 1)
                    Ball.Transparency = 0.3
                    Ball.Anchored = true
                    Ball.CanCollide = false
                    Ball.Locked = true
                    Ball.BottomSurface, Ball.TopSurface = "Smooth", "Smooth"
                    Ball.Size = Vector3.new(0.5, 0.5, 0.5)
                    Ball.CFrame = Torso.CFrame * CFrame.new(0, 1, -3)
                    Ball.Parent = Char

                    if Targ.Name == "MyPartV" then
                        Targ.Name = "MyPartF"
                    end

                    local LightMod = Instance.new("Model", Char)

                    local Mesh = Instance.new("SpecialMesh")
                    Mesh.MeshType = "Sphere"
                    Mesh.Parent = Ball

                    local Size = 0.5
                    local Rise = true

                    while Grabbing and BP and Ang and Targ.Parent ~= nil do
                        local BPPos = Mouse.Origin.p + Mouse.UnitRay.Direction * DirDot
                        Ang.angularvelocity = Vel
                        BP.position = BPPos + RPos
                        RPos = Vector3.new(max(-1, min(RPos.x + random() * 0.02 - 0.01, 1)), cos(Vlev), max(-1, min(RPos.z + random() * 0.02 - 0.01, 1)))
                        Vel = Vector3.new(max(-1, min(Vel.x + random() * 0.2 - 0.1, 1)), max(-1, min(Vel.y + random() * 0.2 - 0.1, 1)), max(-1, min(Vel.z + random() * 0.2 - 0.1, 1)))
                        Vlev = (Vlev + 0.05) % tau

                        if Hum then
                            Hum.Sit = true
                        end

                        if LA.Parent ~= nil and RA.Parent ~= nil then
                            local LPos = (LA.CFrame * CFrame.new(0, -1, 0)).p
                            local RPos = (RA.CFrame * CFrame.new(0, -1, 0)).p
                            if Rise == true then
                                if Size < 0.6 then
                                    Size = Size + 0.05
                                else
                                    Size = Size + 0.1
                                end
                                if Size >= 2.2 then
                                    Rise = false
                                end
                            else
                                if Size > 2.1 then
                                    Size = Size - 0.05
                                else
                                    Size = Size - 0.1
                                end
                                if Size <= 0.5 then
                                    Rise = true
                                end
                            end
                            Ball.Size = Vector3.new(Size, Size, Size)
                            Ball.CFrame = CFrame.new(LPos:Lerp(RPos, 0.5), Targ.Position) * CFrame.new(0, 0, -2.2)
                            LightNum = LightNum + 1
                            makeLightning(LightMod, Ball.Position, Targ.Position, 0.2, 4, 50, 1, LightNum)
                        elseif Ball.Parent ~= nil then
                            Ball:Destroy()
                        end

                        if LS and LS.Parent == Torso then
                            LS.C0 = CFrame.new(Vector3.new(-1.5, 0.5, 0), Torso.CFrame:pointToObjectSpace((Targ.CFrame or Torso.CFrame * CFrame.new(-1.5, 0.5, 1)).p))
                        end
                        if RS and RS.Parent == Torso then
                            RS.C0 = CFrame.new(Vector3.new(1.5, 0.5, 0), Torso.CFrame:pointToObjectSpace((Targ.CFrame or Torso.CFrame * CFrame.new(1.5, 0.5, 1)).p))
                        end
                        RunService.Heartbeat:wait()
                    end

                    coroutine.resume(coroutine.create(function()
                        for i = 0.5, 1, 0.1 do
                            for i2,v in pairs(LightMod:GetChildren()) do
                                --v.Light.Range = 6-(i*5)
                                v.Transparency = i
                            end
                            wait(1/30)
                        end
                        LightMod:Destroy()
                    end))

                    if BP and BP.Parent ~= nil then
                        BP:Destroy()
                    end

                    if Ang and Ang.Parent ~= nil then
                        Ang:Destroy()
                    end

                    pcall(function() Ball:Destroy() end)
                end
            end)
        end))
    end)
end

function Add(Obj)
    if Obj:IsA("BasePart") and not Objects[Obj] and not (Obj.Name == "Base" and Obj.ClassName == "Part") then
        Objects[Obj] = Obj:GetMass()
        Obj.Changed:connect(function(P)
            if P:lower() == "size" and Objects[Obj] and Obj.Parent ~= nil then
                Objects[Obj] = Obj:GetMass()
            end
        end)
    end
end

function Rem(Obj)
    if Objects[Obj] then
        Objects[Obj] = nil
    end
end

function Recursion(Obj)
    ypcall(function()
        Add(Obj)
        if #Obj:GetChildren() > 0 then
            for _,v in pairs(Obj:GetChildren()) do
                Recursion(v)
            end
        end
    end)
end

Workspace.DescendantAdded:connect(function(Obj)
    Add(Obj)
end)

Workspace.DescendantRemoving:connect(function(Obj)
    Rem(Obj)
end)

for _,v in pairs(Workspace:GetChildren()) do
    Recursion(v)
end

Start()

if LP.Name == PlrName then
    LP.CharacterAdded:connect(Start)
end

local verlet = {}
verlet.step_time = 1 / 50
verlet.gravity = Vector3.new(0, -10, 0)

local char = game.Players.LocalPlayer.Character
local torso = char:WaitForChild("Torso")
local parts = {}
local render = game:GetService("RunService").RenderStepped

wait(2)

local point = {}
local link = {}
local rope = {}

local function ccw(A,B,C)
    return (C.y-A.y) * (B.x-A.x) > (B.y-A.y) * (C.x-A.x)
end

local function intersect(A,B,C,D)
    return ccw(A,C,D) ~= ccw(B,C,D) and ccw(A,B,C) ~= ccw(A,B,D)
end

local function vec2(v)
    return Vector2.new(v.x, v.z)
end

function point:step()
    if not self.fixed then
        local derivative = (self.position - self.last_position) * 0.95
        self.last_position = self.position
        self.position = self.position + derivative + (self.velocity * verlet.step_time ^ 2)
        --[[local torsoP = torso.CFrame * CFrame.new(-1, 0, 0.5)
        local torsoE = torso.CFrame * CFrame.new(1, 0, 0.5)
        local pointE = self.position + torso.CFrame.lookVector * 100
        local doIntersect = intersect(vec2(torsoP.p), vec2(torsoE.p), vec2(self.position), vec2(pointE))
        if not doIntersect then
            self.postition = self.position - torso.CFrame.lookVector * 10
        end]]
    end
end

function link:step()
    for i = 1, 1 do
        local distance = self.point1.position - self.point2.position
        local magnitude = distance.magnitude
        local differance = (self.length - magnitude) / magnitude
        local translation = ((self.point1.fixed or self.point2.fixed) and 1 or 0.6) * distance * differance
        if not self.point1.fixed then
            self.point1.position = self.point1.position + translation
        end
        if not self.point2.fixed then
            self.point2.position = self.point2.position - translation
        end
    end
end

function verlet.new(class, a, b, c)
    if class == "Point" then
        local new = {}
        setmetatable(new, {__index = point})
        new.class = class
        new.position = a or Vector3.new()
        new.last_position = new.position
        new.velocity = verlet.gravity
        new.fixed = false
        return new
    elseif class == "Link" then
        local new = {}
        setmetatable(new, {__index = link})
        new.class = class
        new.point1 = a
        new.point2 = b
        new.length = c or (a.position - b.position).magnitude
        return new
    elseif class == "Rope" then
        local new = {}
        setmetatable(new, {__index = link})
        new.class = class
        new.start_point = a
        new.finish_point = b
        new.points = {}
        new.links = {}
        local inc = (b - a) / 10
        for i = 0, 10 do
            table.insert(new.points, verlet.new("Point", a + (i * inc)))
        end
        for i = 2, #new.points do
            table.insert(new.links, verlet.new("Link", new.points[i - 1], new.points[i]))
        end
        return new
    end
end

local tris = {}
local triParts = {}

local function GetDiscoColor(hue)
 local section = hue % 1 * 3
 local secondary = 0.5 * math.pi * (section % 1)
 if section < 1 then
  return Color3.new(0, 0, 0)
 elseif section < 2 then
  return Color3.new(0, 0, 0)
 else
  return Color3.new(0, 0, 0)
 end
end

local function setupPart(part)
    part.Anchored = true
    part.FormFactor = 3
    part.CanCollide = false
    part.TopSurface = 10
    part.BottomSurface = 10
    part.LeftSurface = 10
    part.RightSurface = 10
    part.FrontSurface = 10
    part.BackSurface = 10
    part.Material = "Neon"
    local m = Instance.new("SpecialMesh", part)
    m.MeshType = "Wedge"
    m.Scale = Vector3.new(0.2, 1, 1)
    return part
end

local function CFrameFromTopBack(at, top, back)
    local right = top:Cross(back)
    return CFrame.new(at.x, at.y, at.z, right.x, top.x, back.x,  right.y, top.y, back.y, right.z, top.z, back.z)
end

local function drawTri(parent, a, b, c)
    local this = {}
    local mPart1 = table.remove(triParts, 1) or setupPart(Instance.new("Part"))
    local mPart2 = table.remove(triParts, 1) or setupPart(Instance.new("Part"))
    function this:Set(a, b, c)
        local ab, bc, ca = b-a, c-b, a-c
        local abm, bcm, cam = ab.magnitude, bc.magnitude, ca.magnitude
        local edg1 = math.abs(0.5 + ca:Dot(ab)/(abm*abm))
        local edg2 = math.abs(0.5 + ab:Dot(bc)/(bcm*bcm))
        local edg3 = math.abs(0.5 + bc:Dot(ca)/(cam*cam))
        if edg1 < edg2 then
            if edg1 >= edg3 then
                a, b, c = c, a, b
                ab, bc, ca = ca, ab, bc
                abm = cam
            end
        else
            if edg2 < edg3 then
                a, b, c = b, c, a
                ab, bc, ca = bc, ca, ab
                abm = bcm
            else
                a, b, c = c, a, b
                ab, bc, ca = ca, ab, bc
                abm = cam
            end
        end

        local len1 = -ca:Dot(ab)/abm
        local len2 = abm - len1
        local width = (ca + ab.unit*len1).magnitude

        local maincf = CFrameFromTopBack(a, ab:Cross(bc).unit, -ab.unit)

        if len1 > 0.2 then
            mPart1.Parent = parent
            mPart1.Size = Vector3.new(0.2, width, len1)
            mPart1.CFrame = maincf*CFrame.Angles(math.pi,0,math.pi/2)*CFrame.new(0,width/2,len1/2)
        else
            mPart1.Parent = nil
        end

        if len2 > 0.2 then
            mPart2.Parent = parent
            mPart2.Size = Vector3.new(0.2, width, len2)
            mPart2.CFrame = maincf*CFrame.Angles(math.pi,math.pi,-math.pi/2)*CFrame.new(0,width/2,-len1 - len2/2)
        else
            mPart2.Parent = nil
        end
    end
    function this:SetProperty(prop, value)
        mPart1[prop] = value
        mPart2[prop] = value
    end
    this:Set(a, b, c)
    function this:Destroy()
        mPart1:Destroy()
        mPart2:Destroy()
    end
    this.p1 = mPart1
    this.p2 = mPart2
    this.p1.BrickColor = BrickColor.new(GetDiscoColor(math.noise(0.5, 0.5, this.p1.CFrame.Y * 0.5 + time())))
    this.p2.BrickColor = BrickColor.new(GetDiscoColor(math.noise(0.5, 0.5, this.p2.CFrame.Y * 0.5 + time())))
    return this
end

function verlet.draw(object, id)
    if object.class == "Point" then
        local part = parts[id]
        part.BrickColor = BrickColor.new(107, 0, 107)
        part.Transparency = 0
        part.formFactor = 3
        part.Anchored = true
        part.CanCollide = false
        part.TopSurface = 0
        part.BottomSurface = 0
        part.Size = Vector3.new(0.35, 0.35, 0.35)
        part.Material = "Neon"
        part.CFrame = CFrame.new(object.position)
        part.Parent = torso
        return part
    elseif object.class == "Link" then
        local part = parts[id]
        local dist = (object.point1.position - object.point2.position).magnitude
        part.Size = Vector3.new(0.2, 0.2, dist)
        part.CFrame = CFrame.new(object.point1.position, object.point2.position) * CFrame.new(0, 0, dist * -0.5)
        part.Parent = torso
        return part
    end
end

function verlet.clear()
    for _, v in pairs(workspace:GetChildren()) do
        if v.Name == "Part" then
            v:Destroy()
        end
    end
end

local points = {}
local links = {}

for x = 0, 2 do
    points[x] = {}
    for y = 0, 3 do
        points[x][y] = verlet.new("Point", torso.Position + Vector3.new(x * 0.8 - 2, 2 - y * 0.8, 5 + y * 0.4))
        points[x][y].fixed = y == 0
    end
end

for x = 1, 2 do
    for y = 0, 3 do
        links[#links + 1] = verlet.new("Link", points[x][y], points[x - 1][y], 1 + y * 0.08)
    end
end

for x = 0, 2 do
    for y = 1, 3 do
        links[#links + 1] = verlet.new("Link", points[x][y], points[x][y - 1], 1.2 + y * 0.03)
    end
end

render:connect(function()
    for x = 0, 2 do
        for y = 0, 3 do
            if y == 0 then
                points[x][y].position = (torso.CFrame * CFrame.new(x * 1 - 1, 1, 0.5)).p
            else
                points[x][y]:step()
            end
        end
    end
    for i = 1, #links do
        links[i]:step()
    end
    for i = 1, #tris do
        triParts[#triParts + 1] = tris[i].p1
        triParts[#triParts + 1] = tris[i].p2
    end
    tris = {}
    for x = 1, 2 do
        for y = 1, 3 do
            tris[#tris + 1] = drawTri(torso, points[x - 1][y - 1].position, points[x - 1][y].position, points[x][y - 1].position)
            tris[#tris + 1] = drawTri(torso, points[x][y].position, points[x - 1][y].position, points[x][y - 1].position)
        end
    end
end)