--Telekinesis by flipflop8421
local next=next
local sin=math.sin
local cos=math.cos
local max=math.max
local min=math.min
local tau=2*math.pi
local atan2=math.atan2
local random=math.random
local gp=game:service'Players'
local M=gp.LocalPlayer
script.Parent=nil
local function test(f)
        local a,b=coroutine.resume(coroutine.create(f))
        if not a then
                local h=Instance.new("Hint",workspace)
                h.Name="Error"
                h.Text=b
                wait(12)
                h:Destroy()
        end
        return a
end
local touchable={"Part","WedgePart","SpawnLocation","TrussPart","VehicleSeat","Seat","FlagStand","Platform","SkateboardPlatform","ParallelRampPart","PrismPart","PyramidPart","RightAngleRampPart","BasePart"}
local index={}
local function add(p)
        if test(function() return p.ClassName end) and not index[p] and not (p.Name=="Base" and p.Parent==workspace and p.ClassName=="Part") then
                for i=1,#touchable do
                        if p.ClassName==touchable[i] then
                                index[p]=p:GetMass()
                                break
                        end
                end
        end
end
local function del(p)
        if index[p] then
                index[p]=nil
        end
end
local function find(p)
        add(p)
        local pgc
        test(function() pgc=p:getChildren() end)
        if pgc then
                for _,c in next,pgc do
                        find(c)
                end
        end
end
workspace.DescendantAdded:connect(add)
workspace.DescendantRemoving:connect(del)
find(workspace)
local function getmass(obj)
        local total=0
        for i=1,#touchable do
                if obj.ClassName==touchable[i] then
                        total=index[obj] or obj:GetMass()
                        break
                end
        end
        for _,ch in next,obj:GetChildren() do
                total=total+getmass(ch)
        end
        return total
end
local maxdis=20
local grav=196.2
local A,B="http://www.roblox.com/asset?id=88251961","http://www.roblox.com/asset?id=88252842"
local tool=Instance.new'HopperBin'
tool.Name="Telekenesis"
tool.TextureId="http://www.roblox.com/asset?id=88241634"
local ev1,ev2,ev3,ev4,ev5
local mindex
local go=function()
        if M.Parent then
                if mindex then
                        for part,i in next,mindex do
                                i.body:Destroy()
                                i.ang:Destroy()
                        end
                        mindex=nil
                end
                if ev1 and ev2 and ev3 and ev4 and ev5 then
                        ev1:disconnect()
                        ev2:disconnect()
                        ev3:disconnect()
                        ev4:disconnect()
                        ev5:disconnect()
                end
                local newtool=tool:Clone()
                newtool.Parent=M.Backpack
                ev1=newtool.Selected:connect(function(m)
                        newtool.Parent=nil
                        m.Icon=A
                        local multi=false
                        local grab=false
                        local props
                        local v,d,pos
                        local lpos
                        local body,ang=Instance.new'BodyPosition',Instance.new'BodyAngularVelocity'
                        local mdown=false
                        local function shoot(part,target)
                                if multi and mindex then
                                        --aim trajectory :D
                                        part.Velocity=(target-part.Position).unit*grav
                                end
                        end
                        local function fire(tgt)
                                local nump=0
                                local cp
                                local d=math.huge
                                for part,i in next,mindex do
                                        nump=nump+1
                                        local thisd=(part.Position-tgt).magnitude
                                        if thisd<d then
                                                d=thisd
                                                cp=part
                                        end
                                end
                                if cp and mindex[cp] then
                                        mindex[cp].ang:Destroy()
                                        mindex[cp].body:Destroy()
                                        mindex[cp]=nil
                                        shoot(cp,tgt)
                                        if nump==1 then
                                                multi=false
                                        end
                                else
                                        multi=false
                                end
                        end
                        ev2=m.Button1Down:connect(function()
                                test(function()
                                mdown=true
                                if not (grab or multi) then
                                        v=m.Target
                                        if v and (v.ClassName=="Part" and v.Name~="Base") then
                                                local mass=v:GetMass()
                                                for _,p in next,workspace:GetChildren() do
                                                        if p:findFirstChild'Humanoid' and p:IsAncestorOf(v) then
                                                                mass=getmass(p)
                                                                break
                                                        end
                                                end
                                                local mg=mass*grav
                                                body.maxForce=Vector3.new(2*mg,3*mg,2*mg)
                                                m.Icon=B
                                                d=m.UnitRay.Direction:Dot(v.Position-m.Origin.p)
                                                pos=m.Origin.p+m.UnitRay.Direction*d
                                                props={Anchored=v.Anchored,CanCollide=v.CanCollide}
                                                v.CanCollide=true
                                                v.Anchored=false
                                                ang.Parent,body.Parent=v,v
                                                grab=true
                                        end
                                        local vel=Vector3.new(0,0,0)
                                        local vlev=random()*math.pi
                                        local rpos=Vector3.new(random()*2-1,cos(vlev),random()*2-1)
                                        while grab do
                                                pos=m.Origin.p+m.UnitRay.Direction*d
                                                ang.angularvelocity=vel
                                                body.position=pos+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
                                                wait()
                                        end
                                elseif multi then
                                        --shoot at target
                                        --test(function()
                                        if m.hit then
                                                fire(m.hit.p)
                                        else
                                                fire(m.Origin.p+m.UnitRay.Direction)
                                        end
                                        for i=1,15 do
                                                if not mdown then
                                                        break
                                                else
                                                        wait()
                                                end
                                        end
                                        while mdown and multi do
                                                if m.hit then
                                                        fire(m.hit.p)
                                                else
                                                        fire(m.Origin.p+m.UnitRay.Direction)
                                                end
                                                wait()
                                        end
                                        --end)
                                end
                                end)
                        end)
                        ev3=m.Move:connect(function()
                                if grab then
                                        pos=m.Origin.p+m.UnitRay.Direction*d
                                end
                        end)
                        local stopgrab=function()
                                if grab then
                                        grab=false
                                        m.Icon=A
                                        wait()
                                        --[[for i,p in next,props do
                                                v[i]=p
                                        end]]
                                        ang.Parent,body.Parent=nil,nil
                                        props,v,d,pos=nil,nil,nil,nil
                                end
                        end
                        ev4=m.Button1Up:connect(function()
                                mdown=false
                                stopgrab()
                        end)
                        ev5=m.KeyDown:connect(function(k)
                                --test(function()
                                if grab then
                                        if k=="f"then
                                                local vic=v
                                                stopgrab()
                                                vic.Velocity=m.UnitRay.Direction*grav
                                        elseif k=="x" then
                                                v:BreakJoints()
                                        end
                                elseif multi then
                                        if k=="f" then
                                                --explod'em
                                                for part,i in next,mindex do
                                                        i.body:Destroy()
                                                        i.ang:Destroy()
                                                        part.Velocity=(part.Position-lpos).unit*(2/3)*grav
                                                end
                                                mindex=nil
                                                multi=false
                                        elseif k=="c" then
                                                --drop 'em
                                                for part,i in next,mindex do
                                                        i.body:Destroy()
                                                        i.ang:Destroy()
                                                end
                                                mindex=nil
                                                multi=false
                                        elseif k=="z" then
                                                --speed up
                                                for _,i in next,mindex do
                                                        i.const=i.const+0.02
                                                end
                                        end
                                else
                                        if k=="c" and M.Character and M.Character:findFirstChild'Torso' then
                                                local t=M.Character.Torso
                                                mindex={}
                                                local num=0
                                                for part,weight in next,index do
                                                        local dis=(part.Position-t.Position).magnitude
                                                        if M.Character and not part:IsDescendantOf(M.Character) and weight<=1000 and dis<=maxdis then
                                                                mindex[part]=dis
                                                                num=num+1
                                                        end
                                                end
                                                local chance=num^-0.01
                                                for part,dis in next,mindex do
                                                        if random()<=chance*(1-(dis/maxdis)^3) then
                                                                local mg=index[part]*grav
                                                                local vlev=random()*math.pi
                                                                local bod,an=body:Clone(),ang:Clone()
                                                                bod.Parent,an.Parent=part,part
                                                                bod.maxForce=Vector3.new(mg,2*mg,mg)
                                                                bod.position=part.Position
                                                                an.angularvelocity=Vector3.new(0,0,0)
                                                                part:BreakJoints()
                                                                local diff=part.Position-t.Position
                                                                local step1=Vector3.new(diff.x,0,diff.z).unit
                                                                local step2=step1*(10+random()*8)
                                                                mindex[part]={
                                                                        angle=math.pi-atan2(step2.x,-step2.z),
                                                                        mag=step2.magnitude,
                                                                        ypos=random()*8,
                                                                        vlev=vlev,
                                                                        vel=Vector3.new(0,0,0),
                                                                        rpos=Vector3.new(random()*2-1,cos(vlev),random()*2-1),
                                                                        body=bod,
                                                                        ang=an,
                                                                        const=random()*0.01+0.01,
                                                                        Anchored=part.Anchored,
                                                                        CanCollide=part.CanCollide
                                                                }
                                                                part.CanCollide=true
                                                                part.Anchored=false
                                                        else
                                                                mindex[part]=nil
                                                        end
                                                end
                                                multi=true
                                                lpos=t.Position
                                                while multi and t and t.Parent and t.Parent.Parent do
                                                        for _,i in next,mindex do
                                                                i.ang.angularvelocity=i.vel
                                                                i.body.position=t.Position+Vector3.new(sin(i.angle)*i.mag,i.ypos,cos(i.angle)*i.mag)+i.rpos
                                                                i.rpos=Vector3.new(max(-1,min(i.rpos.x+random()*0.02-0.01,1)),cos(i.vlev),max(-1,min(i.rpos.z+random()*0.02-0.01,1)))
                                                                i.vel=Vector3.new(max(-1,min(i.vel.x+random()*0.2-0.1,1)),max(-1,min(i.vel.y+random()*0.2-0.1,1)),max(-1,min(i.vel.z+random()*0.2-0.1,1)))
                                                                if mdown then
                                                                        i.angle=(i.angle+i.const*4)%tau
                                                                else
                                                                        i.angle=(i.angle+i.const)%tau
                                                                end
                                                                i.vlev=(i.vlev+0.05)%tau
                                                        end
                                                        lpos=t.Position
                                                        wait()
                                                end
                                        end
                                end
                                --end)
                        end)
                end)
        end
end
M.CharacterAdded:connect(go)
go()