hard dragger

--do not lift in air it flies away
local player = game.Players.LocalPlayer
local Character = player.Character or player.CharacterAdded:wait()
local Humanoid = Character:WaitForChild("Humanoid")
local walkSpeed = Humanoid.WalkSpeed
game.Players.LocalPlayer.PlayerGui.ItemDraggingGUI.Dragger.Disabled = true
_G.dragRangeMin = 5
fivefour = coroutine.wrap(function()
EKey = false
QKey = false
player:GetMouse().KeyDown:connect(function(key)
if string.lower(key) == "e" then
EKey = true
elseif string.lower(key) == "q" then
QKey = true
end
end)
player:GetMouse().KeyUp:connect(function(key)
if string.lower(key) == "e" then
EKey = false
elseif string.lower(key) == "q" then
QKey = false
end
end)
while wait(0.1) do
if EKey then
F = FVal
FVal = FVal + 1000
ChangeForce(F+1000)
print(F)
end
if QKey then
F = FVal
FVal = FVal - 1000
ChangeForce(F-1000)
print(F)
end
end

end)
fivefour()
local dragPart = Instance.new("Part",game.Players.LocalPlayer.PlayerGui)--game.Players.LocalPlayer.PlayerGui.ItemDraggingGUI.Dragger.Dragger
dragPart.Size = Vector3.new(0.2,0.2,0.2)
dragPart.BrickColor = BrickColor.new("Really red")
player.CharacterAdded:connect(function()
Character = player.Character
Humanoid = Character:WaitForChild("Humanoid")
Humanoid.Died:connect(function()
dragPart.Parent = nil
end)
end)

wait(1)
local dragRangeMax = 45
local dragRangeMin = _G.dragRangeMin

local camera = workspace.CurrentCamera
local mouse = player:GetMouse()

local button1Down = false
local dragRange = dragRangeMax
FVal = 80000
local bodyPosition = Instance.new("BodyPosition", dragPart)
bodyPosition.maxForce = Vector3.new(1, 1, 1) * FVal
bodyPosition.D = 1000
bodyPosition.P = 4000
function ChangeForce(F)
if F > 0 then
F = bodyPosition.maxForce.X+F
bodyPosition.maxForce = Vector3.new(1, 1, 1) * F
else
F = bodyPosition.maxForce.X-F
bodyPosition.maxForce = Vector3.new(1, 1, 1) * F
end
end

local bodyGyro = Instance.new("BodyGyro", dragPart)
dragPart.Anchored = false
dragPart:BreakJoints()
bodyGyro.maxTorque = Vector3.new(1, 1, 1) * 200 --4000 -- * 0.000012
bodyGyro.P = 1200
bodyGyro.D = 140 --15

--bodyPosition.P = bodyPosition.P * 1/19
--bodyPosition.D = bodyPosition.D  * 1/19
--bodyGyro.P = bodyGyro.P * 1/19
--bodyGyro.D = bodyGyro.D  * 1/19

local rotateCFrame = CFrame.new()

local weld = Instance.new("Weld", dragPart)

--local interactPermission = require(game.ReplicatedStorage.Interaction.InteractionPermission)
local clientIsDragging = game.ReplicatedStorage.Interaction.ClientIsDragging

local carryAnimationTrack


--------------------------------[[ Drag Main ]]------------------------------------

local draggingPart = false

function click()
button1Down = true

local targetObject = game.Players.LocalPlayer:GetMouse().Target
if not canDrag(targetObject) then
return
end

local mouseHit = game.Players.LocalPlayer:GetMouse().Hit.p
if (mouseHit - Character.Head.Position).magnitude > dragRangeMax then
return
end

initializeDrag(targetObject, mouseHit)
rotateCFrame = CFrame.new()

carryAnimationTrack:Play(0.1, 1, 1)

local dragIsFailing = 0
local dragTime = 0


while button1Down and canDrag(targetObject) do
local desiredPos = Character.Head.Position + (game.Players.LocalPlayer:GetMouse().Hit.p - Character.Head.Position).unit * dragRange

local dragRay = Ray.new(Character.Head.Position, desiredPos - Character.Head.Position)
local part, pos = workspace:FindPartOnRayWithIgnoreList(dragRay, {Character, dragPart, targetObject.Parent})

if part then
desiredPos = pos
end

if (camera.CoordinateFrame.p - Character.Head.Position).magnitude > 2 then
desiredPos = desiredPos + Vector3.new(0, 1.8, 0)
end

moveDrag(desiredPos)
bodyGyro.cframe = CFrame.new(dragPart.Position, camera.CoordinateFrame.p) * rotateCFrame

local targParent = findHighestParent(targetObject) or targetObject

local attemptingToSurf  = false
for _, check in pairs({{Ray = Ray.new((Character.HumanoidRootPart.CFrame * CFrame.new(0.7, -2.8, 0)).p, Vector3.new(0, -2, 0))},
{Ray = Ray.new((Character.HumanoidRootPart.CFrame * CFrame.new(0.35, -2.8, 0)).p, Vector3.new(0, -2, 0))},
{Ray = Ray.new((Character.HumanoidRootPart.CFrame * CFrame.new(0, -2.8, 0)).p, Vector3.new(0, -2, 0))},
{Ray = Ray.new((Character.HumanoidRootPart.CFrame * CFrame.new(0.35, -2.8, 0)).p, Vector3.new(0, -2, 0))},
{Ray = Ray.new((Character.HumanoidRootPart.CFrame * CFrame.new(-0.7, -2.8, 0)).p, Vector3.new(0, -2, 0))},

{Ray = Ray.new((Character.HumanoidRootPart.CFrame * CFrame.new(0.35, -2.8, 0.6)).p, Vector3.new(0, -2, 0))},
{Ray = Ray.new((Character.HumanoidRootPart.CFrame * CFrame.new(0, -2.8, 0.6)).p, Vector3.new(0, -2, 0))},
{Ray = Ray.new((Character.HumanoidRootPart.CFrame * CFrame.new(0.35, -2.8, 0.6)).p, Vector3.new(0, -2, 0))},

{Ray = Ray.new((Character.HumanoidRootPart.CFrame * CFrame.new(0.35, -2.8, -0.6)).p, Vector3.new(0, -2, 0))},
{Ray = Ray.new((Character.HumanoidRootPart.CFrame * CFrame.new(0, -2.8, -0.6)).p, Vector3.new(0, -2, 0))},
{Ray = Ray.new((Character.HumanoidRootPart.CFrame * CFrame.new(0.35, -2.8, -0.6)).p, Vector3.new(0, -2, 0))},

{Ray = Ray.new((Character.HumanoidRootPart.CFrame * CFrame.new(0.5, -0.8, 0)).p, Character.HumanoidRootPart.CFrame.lookVector), State = Enum.HumanoidStateType.Climbing},
{Ray = Ray.new((Character.HumanoidRootPart.CFrame * CFrame.new(-0.5, -0.8, 0)).p, Character.HumanoidRootPart.CFrame.lookVector), State = Enum.HumanoidStateType.Climbing},
{Ray = Ray.new((Character.HumanoidRootPart.CFrame * CFrame.new(0.5, -1.3, 0)).p, Character.HumanoidRootPart.CFrame.lookVector), State = Enum.HumanoidStateType.Climbing},
{Ray = Ray.new((Character.HumanoidRootPart.CFrame * CFrame.new(-0.5, -1.3, 0)).p, Character.HumanoidRootPart.CFrame.lookVector), State = Enum.HumanoidStateType.Climbing}

}) do

local ray = check.Ray
local part, _ = workspace:FindPartOnRayWithIgnoreList(ray, {Character})
local op = part
part = part and findHighestParent(part)

if part and (not check.State or Humanoid:GetState() == check.State) then
if part == targParent then
attemptingToSurf = true
else
for _, connectedPart in pairs(op:GetConnectedParts(true)) do

if connectedPart == targetObject--[[targParent]] then
attemptingToSurf = true
break
end
end
end

if attemptingToSurf then
break
end
end
end





local falling = Humanoid:GetState() == Enum.HumanoidStateType.Freefall or Humanoid:GetState() == Enum.HumanoidStateType.FallingDown--not part1 and not part2


if attemptingToSurf then
dragIsFailing = 0
elseif falling then
dragIsFailing = 0
elseif (dragPart.Position - desiredPos).magnitude > 5 then
dragIsFailing = 0
else
dragIsFailing = 0
end
if dragIsFailing > 16 then
break
end


if dragTime % 10 == 0 and targParent.Parent:FindFirstChild("BedInfo") and targParent.Parent:FindFirstChild("Main") then
game.Players.LocalPlayer.PlayerGui.ItemDraggingGUI.Parent.Scripts.VehicleControl.SetVehicleOwnership:Fire(targParent.Parent.Main)
end

clientIsDragging:FireServer(targParent.Parent)

wait()
dragTime = 0
end

carryAnimationTrack:Stop()

endDrag()
end


function findHighestParent(child)
if not child or not child.Parent or child.Parent == workspace then
return nil
end

local ret = child.Parent:FindFirstChild("Owner") and child
return findHighestParent(child.Parent) or ret
end



function clickEnded()
button1Down = false
end

function holdDistanceChanged()
dragRange = dragRangeMax--[[_G.dragRangeMin + (1 - dist) * (dragRangeMax - _G.dragRangeMin)]]
end


function canDrag(targetObject)


if not (targetObject and not targetObject.Anchored and targetObject.Parent and Humanoid.Health > 0) then -- General conditions
return false
end

if targetObject.Name == "LeafPart" then
return false
end

local originTargetObject = targetObject
targetObject = findHighestParent(targetObject) or targetObject

bodyGyro.Parent = dragPart


--[[if not (targetObject.Parent:FindFirstChild("Owner") or targetObject.Parent.Parent:FindFirstChild("Owner")) then
return otherDraggable(targetObject, originTargetObject)
end]]

if targetObject.Parent:FindFirstChild("Owner") or targetObject.Parent.Parent:FindFirstChild("Owner") then
return true
end

if targetObject.Parent:FindFirstChild("TreeClass") then -- Wood class
return true
end
if targetObject.Parent:FindFirstChild("BoxItemName") then -- Shop items
return true
end
if targetObject.Parent:FindFirstChild("PurchasedBoxItemName") then -- Purchased box items
return true
end
if targetObject.Parent:FindFirstChild("Handle") then -- Tool items
return true
end

return otherDraggable(targetObject, originTargetObject)
end

function otherDraggable(targetObject, originTargetObject)
local draggable = targetObject and targetObject.Parent and targetObject.Parent:FindFirstChild("DraggableItem") or originTargetObject and originTargetObject.Parent and originTargetObject.Parent:FindFirstChild("DraggableItem")
if draggable then -- Other stuff
if draggable:FindFirstChild("NoRotate") then
bodyGyro.Parent  = nil
end
return true
end
end

function initializeDrag(targetObject,mouseHit)
draggingPart = true
mouse.TargetFilter = targetObject and findHighestParent(targetObject) and findHighestParent(targetObject).Parent or targetObject

dragPart.CFrame = CFrame.new(mouseHit, camera.CoordinateFrame.p)

weld.Part0 = dragPart
weld.Part1 = targetObject
weld.C0 =  CFrame.new(mouseHit,camera.CoordinateFrame.p):inverse() * targetObject.CFrame
weld.Parent = dragPart

dragPart.Parent = workspace
end

function endDrag()
mouse.TargetFilter = nil
dragPart.Parent = nil
draggingPart = false
end

--------------------------------[[ Do Prompt ]]------------------------------------


local dragGuiState = ""
function interactLoop()
while true do
wait()

local newState = ""

local mouseHit = game.Players.LocalPlayer:GetMouse().Hit.p
local targetObject = game.Players.LocalPlayer:GetMouse().Target


if draggingPart then
newState = "Dragging"
elseif canDrag(targetObject) and not button1Down and (mouseHit - Character.Head.Position).magnitude < dragRangeMax then
newState = "Mouseover"
end

if true then-- not (newState == dragGuiState) then
dragGuiState = newState
setPlatformControls()

if dragGuiState == "" then
game.Players.LocalPlayer.PlayerGui.ItemDraggingGUI.CanDrag.Visible = false
game.Players.LocalPlayer.PlayerGui.ItemDraggingGUI.CanRotate.Visible = false
elseif dragGuiState ==  "Mouseover" then
game.Players.LocalPlayer.PlayerGui.ItemDraggingGUI.CanDrag.Visible = true
game.Players.LocalPlayer.PlayerGui.ItemDraggingGUI.CanRotate.Visible = false
elseif dragGuiState ==  "Dragging" then
game.Players.LocalPlayer.PlayerGui.ItemDraggingGUI.CanDrag.Visible = false
game.Players.LocalPlayer.PlayerGui.ItemDraggingGUI.CanRotate.Visible = not (bodyGyro.Parent == nil) and (not player:FindFirstChild("IsChatting") or player.IsChatting.Value < 1)
end
end

end
end


--------------------------------[[ Drag Moving ]]------------------------------------


function moveDrag(pos)
bodyPosition.position = pos
end
local rotateSpeedReduce = 0.036

local lastRotateTick
function crotate(amount, speed)

if not draggingPart then
if not player:FindFirstChild("IsChatting") or player.IsChatting.Value < 2 then
Humanoid.WalkSpeed = walkSpeed
end
return
end

if Humanoid.WalkSpeed > 1 then
walkSpeed = Humanoid.WalkSpeed
Humanoid.WalkSpeed = 0
end

lastRotateTick = tick()
local thisRotateTick = lastRotateTick

while draggingPart and amount.magnitude > 0 and lastRotateTick == thisRotateTick do
rotateCFrame = CFrame.Angles(0, -amount.X * rotateSpeedReduce, 0) * CFrame.Angles(amount.Y * rotateSpeedReduce, 0, 0) * rotateCFrame
wait()
end

if amount.magnitude == 0 then
if not player:FindFirstChild("IsChatting") or  player.IsChatting.Value < 2 then
Humanoid.WalkSpeed = walkSpeed
end
end
end

--------------------------------[[ User Input ]]------------------------------------

wait(1)

carryAnimationTrack = Humanoid:LoadAnimation(game.Players.LocalPlayer.PlayerGui.ItemDraggingGUI.Dragger:WaitForChild("CarryItem"))

--input = require(game.Players.LocalPlayer.PlayerGui.ItemDraggingGUI.Parent:WaitForChild("Scripts"):WaitForChild("UserInput"))

game.Players.LocalPlayer:GetMouse().Button1Down:connect(function()
click()
holdDistanceChanged()
end)
game.Players.LocalPlayer:GetMouse().Button1Up:connect(function()
clickEnded()
end)
--input.ClickBegan(click, holdDistanceChanged)
--input.ClickEnded(clickEnded)

--input.Rotate(crotate)


function setPlatformControls()
game.Players.LocalPlayer.PlayerGui.ItemDraggingGUI.CanDrag.PlatformButton.Image = game.Players.LocalPlayer.PlayerGui.ItemDraggingGUI.CanDrag.PlatformButton.PC.Value
game.Players.LocalPlayer.PlayerGui.ItemDraggingGUI.CanDrag.PlatformButton.KeyLabel.Text = "CLICK"
game.Players.LocalPlayer.PlayerGui.ItemDraggingGUI.CanRotate.PlatformButton.Image = game.Players.LocalPlayer.PlayerGui.ItemDraggingGUI.CanRotate.PlatformButton.PC.Value
game.Players.LocalPlayer.PlayerGui.ItemDraggingGUI.CanRotate.PlatformButton.KeyLabel.Text = "SHIFT + WASD"
end


interactLoop()