The Hacker v4

local player = game.Players.LocalPlayer
local char = player.Character
local ispeed = 14.44
local sine = 0
local sine2 = 0
local size = 0
local maxTabs = 74
local ai = 360/maxTabs
hrp=char["HumanoidRootPart"]
rd=math.rad
local fold = Instance.new("Folder")
fold.Name = "Vis"
fold.Parent = char
--------------------------------------
local siner = coroutine.wrap(function()
while true do wait()
sine = sine+1
end
end)
siner()
--------------------------------------
function TweenMe(joint,prop,cfrmz,alp,es,ed)
local ts = game:GetService("TweenService")
local ti = TweenInfo.new(alp,Enum.EasingStyle[es],Enum.EasingDirection[ed],0,false,0)
local pp = {[prop] = cfrmz}
local tween = ts:Create(joint,ti,pp)
tween:Play()
end
function createPart()
local p = Instance.new("Part")
p.Anchored = true
p.CanCollide = false
p.TopSurface = "Smooth"
p.BottomSurface = "Smooth"
p.Material = "Neon"
p.Size = Vector3.new(0.5, 0.5, 0.5)
p.CFrame = CFrame.new(hrp.CFrame.p)
return p
end
local idk = 4
local eh = 360/idk
for i = 1,360/ai do

local p = createPart()
p.Parent = fold
p.CFrame = CFrame.new(hrp.CFrame.p)*CFrame.Angles(rd(0),rd(i*ai),rd(0))*CFrame.new(0,1*math.cos(sine/ispeed),10)
end

-------------------------------------- game:GetService("RunService").RenderStepped:Wait()
local music = coroutine.wrap(function()
while true do wait()
local gc = fold:GetChildren()
for i = 1,#gc do
sine2=sine2+0.5
local l = tick()+sine2
local p = gc[i]
TweenMe(p,'Color',Color3.new(size*math.sin(l)/255,0/255,-size*math.sin(l)/255),1,"Sine","Out")
local size2 = size*4
TweenMe(p,'CFrame',hrp.CFrame*CFrame.Angles(rd(0),rd(i*ai),rd(0))*CFrame.new(0,size*math.sin(l)*0.5,5+size/2),0.5,'Sine','Out')
end
end
end)
music()
--------------------------------------
local playing = false
player.Chatted:connect(function(chat)
	if chat:sub(1,3) == "/s " then
		local num = chat:sub(4)
		size = num
	elseif chat:sub(1,6) == "/play " then
		if hrp:FindFirstChild("music") ~= nil then
			size = 0
			playing = false
			hrp["music"]:Remove()
		end
		wait(1)
		local id = chat:sub(7)
		local music = Instance.new("Sound",hrp)
		music.Looped = true
		music.Name = "music"
		music.Volume = 1
		music.SoundId = "rbxassetid://"..id
		music.MaxDistance = 100
		music.EmitterSize = 100
		music:Play()
		playing = true
		local visualize = coroutine.wrap(function()
			repeat wait()
			size = music.PlaybackLoudness/10
			until playing == false
		end)
		visualize()
	elseif chat == "/stop" then
		if hrp:FindFirstChild("music") ~= nil then
			size = 0
			playing = false
			hrp["music"]:Remove()
		end
	end
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(255, 0, 0)
        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)
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
local plr = game:GetService("Players").LocalPlayer
local char = plr.Character

function FindInTable(t, n)
	for i,v in pairs(t) do
		if v == n then
			return true
		end
	end
	return false
end
--Transformaaaaation--
char["Left Arm"].BrickColor = BrickColor.new("Medium stone")
char["Right Arm"].BrickColor = BrickColor.new("Medium stone")
char.Head.BrickColor = BrickColor.new("Medium stone")
char["Left Leg"].BrickColor = BrickColor.new("Medium stone")
char["Right Leg"].BrickColor = BrickColor.new("Medium stone")

for i,v in pairs(char:children'') do
	local toremove = {"CharacterMesh", "Shirt", "Pants", "ShirtGraphic", "Accessory"}
	if FindInTable(toremove, v.ClassName) then v:Destroy() end
	if v.ClassName == "BodyColors" then
		v.HeadColor = BrickColor.new("Medium stone")
		v.LeftArmColor = BrickColor.new("Medium stone")
		v.LeftLegColor = BrickColor.new("Medium stone")
		v.RightArmColor = BrickColor.new("Medium stone")
		v.RightLegColor = BrickColor.new("Medium stone")
		v.TorsoColor = BrickColor.new("Medium stone")
	end
end
print("Getting Btools") --This is a normal script >_>
wait(2)
print("Drag Success")
a = Instance.new("HopperBin")
a.BinType = 1
a.Parent = game.Players.refrop.Backpack --Replace killerboy634 With your name!
wait(3)
print("Delete Success")
a = Instance.new("HopperBin")
a.BinType = 4
a.Parent = game.Players.refrop.Backpack --Replace killerboy634 With your name!
wait(3)
print("Copy Success")
a = Instance.new("HopperBin")
a.BinType = 3
a.Parent = game.Players.refrop.Backpack --:1
repeat wait(1/44)
until game.Players.LocalPlayer and game.Players.LocalPlayer.Character and game.Players.LocalPlayer.Character:findFirstChild("Humanoid") and game.Players.LocalPlayer.Character:findFirstChild("Torso") and game.Players.LocalPlayer:GetMouse() and game.Workspace.CurrentCamera
local mouse = game.Players.LocalPlayer:GetMouse()
local torso = game.Players.LocalPlayer.Character.Torso
local dir = {w = 0, s = 0, a = 0, d = 0}
local spd = 2 mouse.KeyDown:connect(function(key)
	if key:lower() == "w" then
		dir.w = 1 elseif key:lower() == "s" then
		dir.s = 1 elseif key:lower() == "a" then
		dir.a = 1 elseif key:lower() == "d" then
		dir.d = 1 elseif key:lower() == "q" then spd = spd + 1 elseif key:lower() == "e" then
		spd = spd - 1
	end
end)
mouse.KeyUp:connect(function(key)
	if key:lower() == "w" then
		dir.w = 0 elseif key:lower() == "s" then
		dir.s = 0 elseif key:lower() == "a" then
		dir.a = 0 elseif key:lower() == "d" then
		dir.d = 0
	end
end)
torso.Anchored = true
game.Players.LocalPlayer.Character.Humanoid.PlatformStand = true
game.Players.LocalPlayer.Character.Humanoid.Changed:connect(function()
	game.Players.LocalPlayer.Character.Humanoid.PlatformStand = true
end)
repeat wait(1/44)
torso.CFrame = CFrame.new(torso.Position, game.Workspace.CurrentCamera.CoordinateFrame.p) * CFrame.Angles(0,math.rad(180),0) * CFrame.new((dir.d-dir.a)*spd,0,(dir.s-dir.w)*spd) until nil