--********************************************************************************************************************************************************
--CONFIG--
User = game.Players.LocalPlayer.Name
SelectionBoxOn = false;
SelectionBoxColor = "Deep blue"
BaseLocked = true

LassoKill = false
LassoSpeed = 50
DragSpeed = 500
SmoothDragging = false;
--CONFIG--



--CODE--
Player = game.Players:FindFirstChild(User)

local InCam = false
local mc2 = 0
HopperBin = Instance.new("HopperBin",Player.Backpack)
wait()
HopperBin.Name = "Keys"
print("Keys Loaded")
Down = false
wait(2)
Bin = Player.Backpack.Keys




function holdmouse(mouse)
if mouse.Target then
t = mouse.Target
Hold = true
wait(3)
if Hold == true then


if
t.Parent:FindFirstChild("Humanoid") and
game.Players:FindFirstChild(t.Parent.Name) then
print("Getting Player's Properties...")
wait(1)
TargetPlayer = game.Players:FindFirstChild(t.Parent.Name)
Player = game.Players.LocalPlayer
ID = TargetPlayer.userId
wait()
print("")
print("")
print("")
print("")
print("____PLAYER PROPERTIES____")
print("Name: "..(TargetPlayer.Name))
if Player:IsFriendsWith(ID) then
print("__State of Friendship__")
print("Friends")
print("Account age: "..(TargetPlayer.AccountAge))
print("User's Id: "..(TargetPlayer.userId))
print("")
print("")
print("")
else
print("__State of Friendship__")
print("Neutral")
print("Account age: "..(TargetPlayer.AccountAge))
print("User's Id: "..(TargetPlayer.userId))
print("")
print("")
print("")


end
end
end
end
end



function upmouse(mouse)
Hold = false
end


















function click(mouse)
mc2 = mc2 + 1
coroutine.resume(coroutine.create(function()
wait(.5)
mc2 = 0

end))

if mc2 == 3 then mc2 = 0
elseif mc2 == 2 then

if mouse.Target then
t = mouse.Target
if t then
print("")
print("")
print("____PROPERTIES____")

print("Name: "..(t.Name))

print("Parent: "..(t.Parent.Name))
print("Descendent Of "..(t.Parent.Parent.Name))
if t.Anchored == true then
print("Anchored: True")
else  print("Anchored: False")
end
if t.Locked == true then
print("Locked: True")
else print("Locked: False") end
print("__Size__")
print(t.Size)
print("__Position__")
print(t.Position)
print("")
print("")
end
end
end
end


function selected(mouse)
coroutine.resume(coroutine.create(function()
print("")
print("")
print("____COMMANDS____")
wait(.3)
print("X: Destroy Part") wait(.3)
print("P: Punish Player") wait(.3)
print("K: Kick Player") wait(.3)
print("H: Drain Health") wait(.3)
print("U: Unanchor Part") wait(.3)
print("M: Move Player") wait(.3)
print("Q: Hide Self") wait(.3)
print("Ctrl: Control Player") wait(.3)
print("F2: Config Cmds") wait(.3)
print("DoubleClick: Show Properties") wait(.3)
print("Hold mouse: Show Player Properties") wait(.3)
wait(6)
print("")
wait(.3)
print("")
wait(.3)
print("L: Lag Player")
wait(.3)
print("Alt: Drag Player")
print("F3,F4: Lasso Two Players Together")
end))

mouse.KeyDown:connect(function(key)
if key == "l" then
if mouse.Target then
t = mouse.Target
if t.Parent:FindFirstChild("Humanoid") then
t.Parent.Humanoid.WalkSpeed = math.huge
end
end
end
end)
mouse.KeyDown:connect(function(key)
if key == "\50" or key == "\49" then
print("Controlling Player")
if mouse.Target then
t = mouse.Target
if t.Parent:FindFirstChild("Humanoid") then
Player.Character = t.Parent
end
end
end
end)
mouse.KeyDown:connect(function(key)
if key == "q" then
if InCam == false then
m = Instance.new("Hint",Player.PlayerGui)
i = 0
repeat
i = i + 1
wait(.5)
m.Text = "Moving player into Camera."
wait(.5)
m.Text = "Moving player into Camera.."
wait(.5)
m.Text = "Moving player into Camera..."
until i == 3
game.Players.LocalPlayer.Character.Parent = Workspace.CurrentCamera
InCam = true
m.Text = "You are now Invisible"
wait(5)
m:Destroy()
elseif InCam == true then
m = Instance.new("Hint",Player.PlayerGui)
i = 0
repeat
i = i + 1
wait(.5)
m.Text = "Moving player into Workspace."
wait(.5)
m.Text = "Moving player into Workspace.."
wait(.5)
m.Text = "Moving player into Workspace..."
until i == 3
Char = game.Workspace.CurrentCamera:FindFirstChild(game.Players.LocalPlayer.Name)
wait()
Char.Parent = Workspace
wait()
Char:MakeJoints()
InCam = false
m.Text = "You are now Visible!"
wait(5)
m:Destroy()
end
end
end)
mouse.Move:connect(function()
if mouse.Target and SelectionBoxOn == true then
t  = mouse.Target
if t.Parent:isA("Model") and t.Parent.Name ~= "Workspace" and  t.Parent:FindFirstChild("SelectionBox") == nil then
Select = Instance.new("SelectionBox",Workspace)
Select.Color = BrickColor.new(SelectionBoxColor)
Select.Adornee = t.Parent
else for i, v in pairs(Workspace:GetChildren()) do
if v:isA("SelectionBox") then v:Destroy()
end
end
end
end
end)
mouse.KeyDown:connect(function(key)
Moving = true
if key == "m"
then
Char = mouse.Target.Parent
if Char:isA("Model") and Char:FindFirstChild("Humanoid") then
print("Moving")
repeat
wait()
Char.Torso.CFrame = CFrame.new(mouse.hit.X, 5, mouse.hit.Z)
until Moving == false
end
end
end)
mouse.KeyUp:connect(function(key)
if key == "m" then
print("Stopped Moving")
Moving = false;
end
end)
mouse.KeyDown:connect(function(key)
keydeb = false
if key == "x" then
print("Destroying")
wait()
if mouse.Target then
t = mouse.Target
if t.Name == "Base" and BaseLocked == false then
t:Destroy()
elseif t.Name ~= "Base" then  t:Destroy()
wait()
end
end
end
end)
mouse.KeyDown:connect(function(key)
if key == "t" then
print("Teleporting")
if mouse.Target then
t = mouse.Target
if t.Parent:FindFirstChild("Torso") then
Player.Character.Torso.CFrame = CFrame.new(t.Parent.Torso.Position) + Vector3.new(5,0.5,0)
end
end
end
end)
mouse.KeyDown:connect(function(key)
if key == "u" then
print("Unanchoring")
if mouse.Target then
t = mouse.Target
if t.Name == "Base" and BaseLocked == false then
 t.Anchored = false
elseif t.Name ~= "Base" then
 t.Anchored = false
end
end
end
end)
mouse.KeyDown:connect(function(key)
if key == "p" then
print("Punishing")
if mouse.Target then
t = mouse.Target
if game.Players:FindFirstChild(t.Parent.Name)~= nil then
Player = game.Players:FindFirstChild(t.Parent.Name)
wait()
Player.Character.Parent = game.Lighting
end
end
end
end)
 mouse.KeyDown:connect(function(key)
    if key == "r" then
    Down = true
print("Ray On")
    coroutine.resume(coroutine.create(function()
    while wait() do
    if Down == true  then
    local part = Instance.new("Part", workspace)
part.Name = "Ray"
part.BrickColor = BrickColor.new("Really red")
    part.Anchored = true
    part.CFrame = CFrame.new(mouse.hit.X, 1, mouse.hit.Z)
    Instance.new("BlockMesh", part)
function ontouched(hit)
if hit.Parent:FindFirstChild("Humanoid") then
h = hit.Parent.Humanoid
h.Health = h.Health - 1
end
end
part.Touched:connect(ontouched)
    else
    break
    end
    end
    end))
    end
    end)
    mouse.KeyUp:connect(function(key)
    if key == "r" then
    Down = false
print("Ray Off")
    end
    end)
mouse.KeyDown:connect(function(key)
if key == "\32" and InCam == true then
wait(.5)
for i, v in pairs(Player.Character:GetChildren()) do
if v:isA("Part") then v.Anchored = true  end end
elseif key == "\32" and InCam == false then
for i, v in pairs(Player.Character:GetChildren()) do
if v:isA("Part") then v.Anchored = false end end
end
end)

mouse.KeyDown:connect(function(key)
if key == "k" then
print("Kicking")
if mouse.Target then
t = mouse.Target
if game.Players:FindFirstChild(t.Parent.Name)~= nil then
Player = game.Players:FindFirstChild(t.Parent.Name)
wait()
print("Kicked: "..(Player.Name))
Player:Destroy()
end
end
end
end)
mouse.KeyDown:connect(function(key)
if key == "\27" then
print("")
print("")
print("")
print("____SETTINGS____")
print("For each of the below,")
print("Chat these to configurate the Hopperbin.")
print("SelectionBoxOn/Off")
print("Color/Color Name")
print("BaseLockedTrue/False")
print("SmoothDraggingTrue/False")

print("LassoKillTrue/False")
print("LassoSpeed/Speed")
print("DragSpeed/Speed")
print("DragKillTrue/False")

print("")
print("")

end
end)

























Player.Chatted:connect(function(msg)
if string.lower(msg) == string.lower("DragKillTrue") then DragKill = true
elseif string.lower(msg) == string.lower("DragKillFalse") then
DragKill = false

end
end)



Player.Chatted:connect(function(msg1)
local msg = msg1:lower()
if string.sub(msg,1,11) == "lassospeed/" then
LassoSpeed = string.sub(msg,12)
print("LassoSpeed now set to: "..(LassoSpeed))
end
end)

Player.Chatted:connect(function(msg)
if string.lower(string.sub(msg,1,10)) == "dragspeed/" then
DragSpeed = string.sub(msg,11)
print("DragSpeed now set to: "..(DragSpeed))
end
end)


Player.Chatted:connect(function(msg)
    local cmd,color = msg:lower():match("(%w+)/(.+)")

    if cmd == "color" then
        color = color:sub(1,1):upper()..color:sub(2):lower()
        SelectionBoxColor = BrickColor.new(color) == BrickColor.new("asd") and SelectionBoxColor or color
wait(1)
print("Selection set to: "..(SelectionBoxColor))
    end

end)



Player.Chatted:connect(function(msg)
if string.lower(msg) == string.lower("LassoKillTrue") then LassoKill = true
elseif string.lower(msg) == string.lower("LassoKillFalse") then
LassoKill = false

end
end)



Player.Chatted:connect(function(msg)
if string.lower(msg) == string.lower("SmoothDraggingTrue") then SmoothDragging = true
elseif string.lower(msg) == string.lower("SmoothDraggingFalse") then
SmoothDragging = false

end
end)



Player.Chatted:connect(function(msg)
if string.lower(msg) == string.lower("BaseLockedTrue") then BaseLocked = true
elseif string.lower(msg) == string.lower("BaseLockedFalse") then
BaseLocked = false

end
end)


Player.Chatted:connect(function(msg)
if string.lower(msg) == string.lower("SelectionBoxOn") then
SelectionBoxOn = true
end
end)


Player.Chatted:connect(function(msg)
if string.lower(msg) == string.lower("SelectionBoxOff") then
SelectionBoxOn = false
end
end)


Player.Chatted:connect(function(msg)
if string.lower(msg) == string.lower("Commands") then
if Player.PlayerGui:FindFirstChild("Cmds") == nil then
m = Instance.new("Hint",Player.PlayerGui)
m.Name = "Cmds"
m.Text = "X: Destroy Part"
wait(3)
m.Text = "P: Punish Player"
wait(3)
m.Text = "K: Kick Player"
wait(3)
m.Text = "H: Drain Player's Health"
wait(3)
m.Text = "U: Unanchor Part"
wait(3)
m.Text = "M: Move Player"
wait(3)
m.Text = "Q: Hide Self"
wait(3)
m.Text = "Ctrl: Control Player"
wait(3)
m.Text = "Alt: Drag Player"
wait(3)
m.Text = "F3,F4: Lasso Start/End"
wait(3)
m.Text = "DoubleClick: Show Properties"
wait(3)
m.Text = "Hold Mouse: Show Player Properties"
wait(3)
m.Text = "L: Lag Player"
wait(3)

m.Text = "If the tool breaks, Unselect and Reselect the Tool."
wait(3)
m:Destroy()
end
end
end)


Player.Chatted:connect(function(msg)
if string.lower(msg) == string.lower("Settings") then
if Player.PlayerGui:FindFirstChild("Settings") == nil then
m = Instance.new("Hint",Player.PlayerGui)
m.Name = "Settings"
m.Text = "Chat these to configurate the hopperbin."
wait(3)
m.Text = "SelectionBoxOn/Off"
wait(3)
m.Text = "Color/Color Name"
wait(3)
m.Text = "BaseLockedTrue/False"
wait(3)
m.Text = "SmoothDraggingTrue/False"
wait(3)
m.Text = "LassoKillTrue/False"
wait(3)
m.Text = "LassoSpeed/Speed"
wait(3)
m.Text = "DragSpeed/Speed"
wait(3)
m.Text = "DragKillTrue/False"
wait(3)

m.Text = "If the tool breaks, Unselect and Reselect the Tool."
wait(3)
m:Destroy()
end
end
end)











mouse.KeyDown:connect(function(key)
if key == "\52" then
alt = true
if mouse.Target then
t = mouse.Target
if t.Parent:FindFirstChild("Humanoid") then
print("Dragging")
p = Instance.new("Part",Workspace)
p.Anchored = true
p.Transparency = 1;
p.CFrame = CFrame.new(mouse.hit.X, 6, mouse.hit.Z)
r = Instance.new("RocketPropulsion")
r.Parent = t.Parent.Torso
r.Target = p
r.MaxThrust = 6000000
r.MaxSpeed = DragSpeed
r.CartoonFactor = 1



t.Parent.Torso.Touched:connect(function(hit)
if hit.Parent:FindFirstChild("Humanoid") and
DragKill == true
and
alt == true then
hit.Parent:BreakJoints()
end
end)


r:Fire()
repeat
wait()
if SmoothDragging == false then
p.CFrame = CFrame.new(mouse.hit.p)
r.Target = p
r:Fire()
else
p.CFrame = CFrame.new(mouse.hit.X, 5, mouse.hit.Z)
r.Target = p
r:Fire() end



until alt == false
r:Destroy()
p:Destroy()

end
end
end
end)

mouse.KeyDown:connect(function(key)
if key == "\28" then
if mouse.Target then
t = mouse.Target
if t.Parent:FindFirstChild("Humanoid") then
print("LassoStart")
Lasso = Instance.new("SelectionPartLasso",Workspace)
Player1 = t.Parent
Lasso.Humanoid = Player1.Humanoid

end
end
end
end)


mouse.KeyDown:connect(function(key)
if key == "\29" then
if mouse.Target then
t = mouse.Target
if t.Parent:FindFirstChild("Humanoid") then
print("LassoEnd")

Player2 = t.Parent
Lasso.Part = t.Parent.Torso
Player1.Humanoid.Sit = true
Player2.Humanoid.Sit = true
r1 = Instance.new("RocketPropulsion",Player1.Torso)
r2 = Instance.new("RocketPropulsion",Player2.Torso)
r1.MaxThrust = 6000000
r2.MaxThrust = 6000000
r1.CartoonFactor = 1
r2.CartoonFactor = 1
r1.Target = Player2.Torso
r2.Target = Player1.Torso
r1:Fire()
r2:Fire()
r1.MaxSpeed = LassoSpeed
r2.MaxSpeed = LassoSpeed
r1.ReachedTarget:connect(function()

Player1.Humanoid.Sit = true
Player2.Humanoid.Sit = true
if LassoKill == true then
Player1.Humanoid.Health = 0
Player2.Humanoid.Health = 0
end
Lasso:Destroy()
r1:Destroy()
r2:Destroy()


end)
end
end
end
end)


mouse.KeyUp:connect(function(key)
if key == "\52" then
alt = false
print("Stopped Dragging")
end
end)
mouse.KeyDown:connect(function(key)
if key == "h" then
print("Down")
Down = true
if mouse.Target then
t = mouse.Target

if t.Parent:FindFirstChild("Humanoid") then
h = t.Parent:FindFirstChild("Humanoid")
repeat
wait()
h.Health = h.Health - 1
print("Targets Health: "..(h.Health) )
until h.Health < 1 or Down == false
end
end
end
end)
mouse.KeyDown:connect(function()

end)
mouse.KeyUp:connect(function(key)
if key == "h" then
print("Up")
Down = false
end
end)
mouse.Button1Down:connect(function()click(mouse) end)
mouse.Button1Down:connect(function()holdmouse(mouse) end)
mouse.Button1Up:connect(function()upmouse(mouse) end)
end
Bin.Selected:connect(selected)