Guitar Script

GuitarColour = "Medium blue"
me = game.Players.LocalPlayer
char = me.Character
Modelname = "xGuitar"
Toolname = "Guitar"
Surfaces = {"FrontSurface", "BackSurface", "TopSurface", "BottomSurface", "LeftSurface", "RightSurface"}
necko = CFrame.new(0, 1, 0, -1, -0, -0, 0, 0, 1, 0, 1, 0)
selected = false
Hurt = false
Deb = true
Able = true
Prop = {Damage = 30}
volume = 0.75
ToolIcon = ""
MouseIc = ""
MouseDo = ""
Add = {
        Sphere = function(P)
                local m = Instance.new("SpecialMesh",P)
                m.MeshType = "Sphere"
                return m
        end,
        BF = function(P)
                local bf = Instance.new("BodyForce",P)
                bf.force = Vector3.new(0, P:GetMass()*187, 0)
                return bf
        end,
        BP = function(P)
                local bp = Instance.new("BodyPosition",P)
                bp.maxForce = Vector3.new(math.huge, 0, math.huge)
                bp.P = 14000
                return bp
        end,
        BG = function(P)
                local bg = Instance.new("BodyGyro",P)
                bg.maxTorque = Vector3.new(math.huge, math.huge, math.huge)
                bg.P = 14000
                return bg
        end,
        Mesh = function(P, ID, x, y, z)
                local m = Instance.new("SpecialMesh")
                m.MeshId = ID
                m.Scale = Vector3.new(x, y, z)
                m.Parent = P
                return m
        end,
        Sound = function(P, ID, vol, pitch)
                local s = Instance.new("Sound")
                s.SoundId = ID
                s.Volume = vol
                s.Pitch = pitch
                s.Parent = P
                return s
        end
}
function find(tab, arg)
        local ah = nil
        for i,v in pairs(tab) do
                if v == arg then
                        ah = v
                end
        end
        return ah
end
function getAllParts(from)
        local t = {}
        function getParts(where)
                for i, v in pairs(where:children()) do
                        if v:IsA("BasePart") then
                                if v.Parent ~= char and v.Parent.Parent ~= char then
                                        table.insert(t, v)
                                end
                        end
                        getParts(v)
                end
        end
        getParts(workspace)
        return t
end
function RayCast(pos1, pos2, maxDist, forward)
        local list = getAllParts(workspace)
        local pos0 = pos1
        for dist = 1, maxDist, forward do
                pos0 = (CFrame.new(pos1, pos2) * CFrame.new(0, 0, -dist)).p
                for _, v in pairs(list) do
                        local pos3 = v.CFrame:pointToObjectSpace(pos0)
                        local s = v.Size
                        if pos3.x > -(s.x/2) and pos3.x < (s.x/2) and pos3.y > -(s.y/2) and pos3.y < (s.y/2) and pos3.z > -(s.z/2) and pos3.x < (s.z/2) and v.CanCollide == true then
                                return pos0, v
                        end
                end
        end
        return pos0, nil
end
function Part(Parent, Anchor, Collide, Tran, Ref, Color, X, Y, Z, Break)
        local p = Instance.new("Part")
        p.formFactor = "Custom"
        p.Anchored = Anchor
        p.CanCollide = Collide
        p.Transparency = Tran
        p.Reflectance = Ref
        p.BrickColor = BrickColor.new(Color)
        for _, Surf in pairs(Surfaces) do
                p[Surf] = "Smooth"
        end
        p.Size = Vector3.new(X, Y, Z)
        if Break then
                p:BreakJoints()
        else p:MakeJoints() end
        p.Parent = Parent
        return p
end
function Weld(p0, p1, x, y, z, a, b, c)
        local w = Instance.new("Weld")
        w.Parent = p0
        w.Part0 = p0
        w.Part1 = p1
        w.C1 = CFrame.new(x,y,z) * CFrame.Angles(a,b,c)
        return w
end
function ComputePos(pos1, pos2)
        local pos3 = Vector3.new(pos2.x, pos1.y, pos2.z)
        return CFrame.new(pos1, pos3)
end
function getHumanoid(c)
        local h = nil
        for i,v in pairs(c:children()) do
                if v:IsA("Humanoid") and c ~= char then
                        if v.Health > 0 then
                                h = v
                        end
                end
        end
        return h
end
for i,v in pairs(char:children()) do
        if v.Name == Modelname then
                v:remove()
        end
end
torso = char.Torso
neck = torso.Neck
hum = char.Humanoid
Rarm = char["Right Arm"]
Larm = char["Left Arm"]
Rleg = char["Right Leg"]
Lleg = char["Left Leg"]
hc = Instance.new("Humanoid")
hc.Health = 0
hc.MaxHealth = 0
slash = Add.Sound(nil, "rbxasset://sounds//swordslash.wav", 0.9, 0.8)
hitsound = Add.Sound(nil, "http://www.roblox.com/asset/?id=2801263", 0.7, 0.6)
charge = Add.Sound(nil, "http://www.roblox.com/asset/?id=2101137", 0.8, 0.65)
boom = Add.Sound(nil, "http://www.roblox.com/asset/?id=2691586", 0.8, 0.3)
smashsound = Add.Sound(nil, "http://www.roblox.com/asset/?id=2692806", 0.8, 0.35)
boomboom = Add.Sound(nil, "http://www.roblox.com/asset/?id=2760979", 1, 0.18)
GSound = Add.Sound(workspace, "http://www.roblox.com/asset/?id=1089403", 0.75, 1)
Mo = Instance.new("Model")
Mo.Name = Modelname
RABrick = Part(Mo, false, false, 1, 0, "White", 0.1, 0.1, 0.1, true)
LABrick = Part(Mo, false, false, 1, 0, "White", 0.1, 0.1, 0.1, true)
RLBrick = Part(Mo, false, false, 1, 0, "White", 0.1, 0.1, 0.1, true)
LLBrick = Part(Mo, false, false, 1, 0, "White", 0.1, 0.1, 0.1, true)
RABW = Weld(torso, RABrick, -1.5, -0.5, 0, 0, 0, 0)
LABW = Weld(torso, LABrick, 1.5, -0.5, 0, 0, 0, 0)
RLBW = Weld(torso, RLBrick, -0.5, 1.2, 0, 0, 0, 0)
LLBW = Weld(torso, LLBrick, 0.5, 1.2, 0, 0, 0, 0)
RAW = Weld(RABrick, nil, 0, 0.5, 0, 0, 0, 0)
LAW = Weld(LABrick, nil, 0, 0.5, 0, 0, 0, 0)
RLW = Weld(RLBrick, nil, 0, 0.8, 0, 0, 0, 0)
LLW = Weld(LLBrick, nil, 0, 0.8, 0, 0, 0, 0)
HB = Part(Mo, false, false, 1, 0, "White", 0.1, 0.1, 0.1, true)
HBW = Weld(Rarm, HB, 0, 1, 0, 0, 0, 0)
HW = Weld(HB, nil, 0, -1.3, 0, math.pi/2, 0, 0)
TH = Weld(torso, nil, -0.8, 0.4, -0.4, 0, math.pi/2, math.rad(80))
THMain = TH.C1
RAWStand, LAWStand, RLWStand, LLWStand, HWStand = nil
NeckStand = necko * CFrame.Angles(math.rad(17), 0, math.rad(35))
handle = Part(Mo, false, false, 0, 0, GuitarColour, 0.6, 1.5, 1.5, true)
handle.Name = "Handle"
handletip1 = Part(Mo, false, false, 0, 0.2, "Really black", 0.5, 0.5, 0.5, true)
local w1 = Weld(handle, handletip1, 0, 1.12, 0, 0, 0, 0)
w1.C0 = CFrame.Angles(math.rad(-45), 0, 0)
Add.Mesh(handletip1, "http://www.roblox.com/asset/?id=9756362", 0.65, 0.45, 0.65)
handletip2 = Part(Mo, false, false, 0, 0.2, "White", 0.5, 0.5, 0.5, true)
Weld(handletip1, handletip2, 0, 0, 0, 0, math.rad(45), 0)
Add.Mesh(handletip2, "http://www.roblox.com/asset/?id=9756362", 0.65, 0.35, 0.65)
for i = 45, 360+45-90, 90 do
        local p = Part(Mo, false, false, 0, 0, GuitarColour, 0.7, 0.9, 0.6, true)
        local w = Weld(handle, p, 0, 0, 0, 0, 0, 0)
        w.C0 = CFrame.Angles(0, math.pi/2, math.rad(i))
        w.C1 = CFrame.new(-1, 0, 0) * CFrame.Angles(0, 0, math.pi/4)
end
for i = 0, 40, 40 do
        local p = Part(Mo, false, false, 0, 0, "Really black", 0.2, 0.2, 0.2, true)
        Add.Mesh(p, "http://www.roblox.com/asset/?id=1033714", 0.14, 0.12, 0.14)
        local w = Weld(handle, p, 0, -0.35, -0.7, 0, 0, math.pi/2)
        w.C0 = CFrame.Angles(math.rad(i+130), 0, 0)
        local p2 = Part(Mo, false, false, 0, 0, "Really black", 0.2, 0.2, 0.2, true)
        Instance.new("CylinderMesh",p2).Scale = Vector3.new(1, 0.7, 1)
        Weld(p, p2, 0, -0.04, 0, 0, 0, 0)
end
fretboard = Part(Mo, false, false, 0, 0, "Really black", 0.45, 2.6, 0.6, true)
Weld(handle, fretboard, -0.1, -1.95, 0, math.pi/4, 0, 0)
for i = 0, 2.48, 2.48/10 do
        local asd = (1*i)
        local p = Part(Mo, false, false, 0, 0, "Really black", 0.2, 0.55, 0.2, true)
        Instance.new("CylinderMesh",p).Scale = Vector3.new(0.3, 1, 0.3)
        Weld(fretboard, p, -0.21, 0, -1.1+asd, math.pi/2, 0, 0)
end
Strings = {}
for i = -0.24, 0.24, 0.48/6 do
        local p = Part(Mo, false, false, 0, 0, "White", 0.2, 3.7, 0.2, true)
        Instance.new("CylinderMesh",p).Scale = Vector3.new(0.06, 1, 0.06)
        local w = Weld(fretboard, p, -0.25, 0.75, i+0.04, 0, 0, 0)
        table.insert(Strings, {p, w})
end
for i = -20, 20, 20 do
        local asd = (20+i)/60
        local p = Part(Mo, false, false, 0, 0, "White", 0.2, 0.3, 0.6, true)
        Instance.new("BlockMesh",p).Scale = Vector3.new(1, 0.5, 1)
        local w = Weld(fretboard, p, 0, 0, 0, 0, 0, 0)
        w.C0 = CFrame.new(0.11, -1.5-asd, 0)
        w.C1 = CFrame.Angles(math.rad(i), 0, 0)
        for x = -0.18, 0.18, 0.18 do
                local p2 = Part(Mo, false, false, 0, 0, "Really black", 0.2, 0.2, 0.2, true)
                Instance.new("CylinderMesh",p2).Scale = Vector3.new(0.5, 0.3, 0.5)
                Weld(p, p2, 0, -0.08, x, 0, 0, math.pi/2)
        end
end
stringattach = Part(Mo, false, false, 0, 0, "Really black", 0.2, 0.2, 0.8, true)
Instance.new("BlockMesh",stringattach)
Weld(fretboard, stringattach, -0.13, 2.55, 0, 0, 0, 0)
vibra = Part(Mo, false, false, 0, 0, "Really black", 0.2, 0.32, 0.2, true)
Instance.new("SpecialMesh",vibra).Scale = Vector3.new(0.35, 1, 0.35)
VW = Weld(stringattach, vibra, 0, -0.15, 0, 0, 0, 0)
VW.C0 = CFrame.new(0, 0, -0.36) * CFrame.Angles(0, 0, math.rad(-75))
vibra2 = Part(Mo, false, false, 0, 0, "Really black", 0.2, 0.62, 0.2, true)
Instance.new("SpecialMesh",vibra2).Scale = Vector3.new(0.35, 1, 0.35)
vwz = Weld(vibra, vibra2, 0, -0.29, 0, 0, 0, 0)
vwz.C0 = CFrame.new(0, 0.15, 0) * CFrame.Angles(0, 0, math.rad(70))
vibra3 = Part(Mo, false, false, 0, 0, GuitarColour, 0.2, 0.3, 0.2, true)
Add.Sphere(vibra3).Scale = Vector3.new(0.55, 1, 0.55)
Weld(vibra2, vibra3, 0, -0.25, 0, 0, 0, 0)
stringat2 = Part(Mo, false, false, 0, 0, "White", 0.2, 0.2, 0.7, true)
Instance.new("BlockMesh",stringat2).Scale = Vector3.new(1, 0.3, 1)
Weld(stringattach, stringat2, -0.02, 0, 0, 0, 0, 0)
for i = -0.2, 0.21, 0.4/5 do
        local p = Part(Mo, false, false, 0, 0, "White", 0.2, 0.2, 0.2, true)
        Instance.new("BlockMesh",p).Scale = Vector3.new(1, 0.8, 0.2)
        Weld(stringat2, p, -0.01, 0, i, 0, 0, 0)
end
stringattach2 = Part(Mo, false, false, 0, 0, GuitarColour, 0.45, 1.2, 0.62, true)
local wdz = Weld(fretboard, stringattach2, 0, 0, 0, 0, 0, math.rad(8))
wdz.C0 = CFrame.new(0.1, 1.7, 0)
for i = 0, 180, 180 do
        local p = Part(Mo, false, false, 0, 0, GuitarColour, 0.45, 1.2, 0.62, true)
        Instance.new("SpecialMesh",p).MeshType = "Wedge"
        local w = Weld(stringattach2, p, 0, 0, -0.21, math.rad(20), 0, math.pi)
        w.C0 = CFrame.new(0, 0.4, 0) * CFrame.Angles(0, math.rad(i), 0)
        for x = -0.4, 0.2, 0.3 do
                local asd = -0.15 + (i/600)
                local p2 = Part(Mo, false, false, 0, 0, "White", 0.2, 0.2, 0.2, true)
                local w2 = Weld(p, p2, 0, 0, 0, 0, 0, math.pi/2)
                w2.C0 = CFrame.new(asd, x, 0.15)
                Instance.new("CylinderMesh",p2)
                local p3 = Part(Mo, false, false, 0, 0, "Really black", 0.2, 0.3, 0.2, true)
                Instance.new("CylinderMesh",p3).Scale = Vector3.new(0.8, 1, 0.8)
                Weld(p2, p3, 0, 0, 0, 0, 0, 0)
        end
end
for i = -0.6, 0.61, 1.2 do
        local p = Part(Mo, false, false, 0, 0, "Really black", 0.5, 2.8, 0.2, true)
        Weld(torso, p, 0, 0, i, 0, 0, math.rad(-40))
        local p2 = Part(Mo, false, false, 0, 0, "Really black", 0.5, 0.2, 1.1, true)
        Weld(torso, p2, -i*1.4, i*1.75, 0, 0, 0, 0)

end
Mo.Parent = char
TH.Part1 = handle
if script.Parent.className ~= "HopperBin" then
        h = Instance.new("HopperBin",me.Backpack)
        h.Name = Toolname
        h.TextureId = ToolIcon
        script.Parent = h
end
bin = script.Parent
function detach(bool)
        LLW.C0 = CFrame.new(0, 0, 0)
        RLW.C0 = CFrame.new(0, 0, 0)
        LAW.C0 = CFrame.new(0,0,0)
        RAW.C0 = CFrame.new(0, 0, 0)
        if bool then
                LLW.Part1 = nil
                RLW.Part1 = nil
                RAW.Part1 = nil
                LAW.Part1 = nil
        end
end
function attach()
        RAW.Part1 = Rarm
        LAW.Part1 = Larm
        RLW.Part1 = Rleg
        LLW.Part1 = Lleg
end
function normal()
        neck.C0 = NeckStand
        RAW.C0 = RAWStand
        LAW.C0 = LAWStand
        RLW.C0 = RLWStand
        LLW.C0 = LLWStand
        RAW.C1 = CFrame.new(0, 0.5, 0)
        LAW.C1 = CFrame.new(0, 0.5, 0)
        RLW.C1 = CFrame.new(0, 0.8, 0)
        LLW.C1 = CFrame.new(0, 0.8, 0)
        HW.C0 = HWStand
end
function selectanim()
        RAW.Part1 = Rarm
        for i = 0.09, 1, 0.09 do
                TH.C0 = CFrame.Angles(0, math.rad(90*i), 0)
                TH.C1 = THMain * CFrame.Angles(0, 0, math.rad(-30*i)) * CFrame.new(0, 0.3*i, -0.1*i)
                RAW.C0 = CFrame.Angles(math.rad(110*i), 0, math.rad(10*i)) * CFrame.new(0, 0, -0.3*i)
                neck.C0 = necko * CFrame.Angles(math.rad(5*i), 0, math.rad(-35*i))
                wait()
        end
        LAW.Part1 = Larm
        for i = 0.1, 1, 0.1 do
                TH.C0 = CFrame.Angles(0, math.rad(90+90*i), 0)
                TH.C1 = THMain * CFrame.Angles(math.rad(15*i), 0, math.rad(-30-30*i)) * CFrame.new(0, 0.3+0.2*i, -0.1)
                RAW.C0 = CFrame.Angles(math.rad(110-65*i), 0, math.rad(10-30*i)) * CFrame.new(0, -0.5*i, -0.3-0.2*i)
                LAW.C0 = CFrame.Angles(math.rad(75*i), math.rad(-15*i), math.rad(-10*i)) * CFrame.new(0, -0.2*i, 0)
                neck.C0 = necko * CFrame.Angles(math.rad(5+12*i), 0, math.rad(-35+70*i))
                wait()
        end
        if RAWStand == nil then
                RAWStand = RAW.C0
                LAWStand = LAW.C0
                RLWStand = RLW.C0
                LLWStand = LLW.C0
                HWStand = HW.C0
        end
        normal()
end
function deselanim()
        for i = 0.9, 0, -0.1 do
                TH.C0 = CFrame.Angles(0, math.rad(90+90*i), 0)
                TH.C1 = THMain * CFrame.Angles(math.rad(15*i), 0, math.rad(-30-30*i)) * CFrame.new(0, 0.3+0.2*i, -0.1)
                RAW.C0 = CFrame.Angles(math.rad(110-65*i), 0, math.rad(10-30*i)) * CFrame.new(0, -0.5*i, -0.3-0.2*i)
                LAW.C0 = CFrame.Angles(math.rad(75*i), math.rad(-15*i), math.rad(-10*i)) * CFrame.new(0, -0.2*i, 0)
                neck.C0 = necko * CFrame.Angles(math.rad(5+12*i), 0, math.rad(-35+70*i))
                wait()
        end
        LAW.Part1 = nil
        for i = 0.91, 0, -0.09 do
                TH.C0 = CFrame.Angles(0, math.rad(90*i), 0)
                TH.C1 = THMain * CFrame.Angles(0, 0, math.rad(-30*i)) * CFrame.new(0, 0.3*i, -0.1*i)
                RAW.C0 = CFrame.Angles(math.rad(110*i), 0, math.rad(10*i)) * CFrame.new(0, 0, -0.3*i)
                neck.C0 = necko * CFrame.Angles(math.rad(5*i), 0, math.rad(-35*i))
                wait()
        end
        neck.C0 = necko
        detach(true)
end
keys = {"r", "t", "y", "u", "f", "g", "h", "j", "k", "l", "z", "x", "c", "v", "b", "n", "m"}
function PlayString(pitch, vol)
        LAW.C0 = LAWStand * CFrame.new(pitch/7, 0, 0) * CFrame.Angles(0, 0, math.rad(pitch*18))
        neck.C0 = NeckStand * CFrame.Angles(0, 0, math.rad(-pitch*13))
        for i = 0, 1, 0.5 do
                RAW.C0 = RAWStand * CFrame.Angles(math.rad(-5*i), 0, math.rad(-15*i)) * CFrame.new(0, 0.3*i, 0)
                wait()
        end
                GSound.Pitch=pitch
                GSound.Volume=vol
                GSound:Play()
        for i = 0, 1, 0.33 do
                RAW.C0 = RAWStand * CFrame.Angles(math.rad(-5-10*i), 0, math.rad(-15+35*i)) * CFrame.new(0, 0.3-0.8*i, 0)
                wait()
        end
        local lol = math.floor(pitch*2.5)
        if lol < 1 then lol = 1 elseif lol > #keys then lol = #keys end
        coroutine.resume(coroutine.create(function()
                local vollol = vol*40
                for i = 1, math.random(vollol/1.8, vollol) do
                        Strings[lol][2].C0 = CFrame.new(0, 0, math.random(-vollol, vollol)/1000)
                        wait()
                end
                Strings[lol][2].C0 = CFrame.new()
        end))
        for i = 0, 1, 0.25 do
                RAW.C0 = RAWStand * CFrame.Angles(math.rad(-5-10+15*i), 0, math.rad(20-20*i)) * CFrame.new(0, 0.3-0.8+0.5*i, 0)
                wait()
        end
        RAW.C0 = RAWStand
end
function select(mouse)
        selectanim()
        selected = true
        mouse.KeyDown:connect(function(key)
                key = key:lower()
                for i, v in pairs(keys) do
                        if key == v then
                                local pitch = 0.3 + (i/7.5)
                                PlayString(pitch, volume)
                        end
                end
        end)
end
function deselect(mouse)
        selected = false
        deselanim()
end
bin.Selected:connect(select)
bin.Deselected:connect(deselect)