Glider

--[[Glider]]--

--- Made by DoogleFox, Full credit given
local player = game:service("Players").LocalPlayer
local char = player.Character
local cam = workspace.CurrentCamera
local Torsoz = char:findFirstChild("Torso")
local RA = char:findFirstChild("Right Arm")
local LA = char:findFirstChild("Left Arm")
local RL = char:findFirstChild("Right Leg")
local LL = char:findFirstChild("Left Leg")
local H = char:findFirstChild("Head")
local RS = Torsoz:findFirstChild("Right Shoulder")
local LS = Torsoz:findFirstChild("Left Shoulder")
local RH = Torsoz:findFirstChild("Right Hip")
local LH = Torsoz:findFirstChild("Left Hip")
local N = Torsoz:findFirstChild("Neck")
local hu = char:findFirstChild("Humanoid")
local mouse = player:GetMouse()
local Lights = {}
local JetFlames = {}
local LightChangeSpeed = 0.02
local LeftWing
local RightWing
local WingParts = {}
local Flying = false
local JetActive = false
local idle = false
local velo = 0

local bp = Instance.new("BodyPosition")
bp.maxForce = Vector3.new(1/0,1/0,1/0)
bp.D = 100
local bg = Instance.new("BodyGyro")
bg.maxTorque = Vector3.new(1/0,1/0,1/0)
bg.D = 320
local bv = Instance.new("BodyVelocity")
bv.maxForce = Vector3.new(1/0,1/0,1/0)

local P = Instance.new("Part")
P.Anchored = false
P.CanCollide = false
P.Name = "Part"
P.formFactor = "Custom"
P.Size = Vector3.new(0.5,0.5,0.5)
P.Locked = true
P.TopSurface = 0
P.BottomSurface = 0
P.BrickColor = BrickColor.new("Dark stone grey")
P.Transparency = 0

local bp = Instance.new("BodyPosition")
bp.maxForce = Vector3.new(1/0,1/0,1/0)
local bv = Instance.new("BodyVelocity")
bv.maxForce = Vector3.new(1/0,1/0,1/0)
local bg = Instance.new("BodyGyro")
bg.maxTorque = Vector3.new(1/0,1/0,1/0)
bg.D = 300

local wingcolor = "Really black"
local maxvelo = 60
local acceleration = 1

---------------------------------- Design ------------------------------------------
for i, v in pairs(char:children()) do
if v.className == "Model" and v.Name == "Pack" then
v:remove()
end
end
local m = Instance.new("Model", char)
m.Name = "Pack"

local b = P:Clone()
b.Parent = m
local mesh = Instance.new("SpecialMesh", b)
mesh.MeshType = "Head"
mesh.Scale = Vector3.new(2.6,1.2,2.6)
local w = Instance.new("Motor", b)
w.Part0 = Torsoz
w.Part1 = b
w.C0 = CFrame.new(0,0.2,0.35) * CFrame.Angles(math.pi/2,0,0)
local p = P:Clone()
p.Parent = m
local mesh = Instance.new("SpecialMesh", p)
mesh.MeshType = "Head"
mesh.Scale = Vector3.new(2,1.2,2)
local w = Instance.new("Motor", p)
w.Part0 = Torsoz
w.Part1 = p
w.C0 = CFrame.new(0,0.2,0.45) * CFrame.Angles(math.pi/2,0,0)

local p = P:Clone()
p.Parent = m
local mesh = Instance.new("SpecialMesh", p)
mesh.MeshType = "Head"
mesh.Scale = Vector3.new(2.02,1.2,2.02)
local w = Instance.new("Motor", p)
w.Part0 = Torsoz
w.Part1 = p
w.C0 = CFrame.new(0,0.2,0.445) * CFrame.Angles(math.pi/2,0,0)
table.insert(Lights, p)

for i = 1, 3 do
local p = P:Clone()
p.Parent = m
local mesh = Instance.new("CylinderMesh", p)
if i == 2 then
mesh.Scale = Vector3.new(0.4,1.2,0.4)
else
mesh.Scale = Vector3.new(0.35,1,0.35)
end
local w = Instance.new("Motor", p)
w.Part0 = Torsoz
w.Part1 = p
w.C0 = CFrame.new(-0.3+(0.15*i),-0.25,0.55)
if i == 2 then
CenterJet = p
end
local l = P:Clone()
l.Parent = m
local mesh = Instance.new("CylinderMesh", l)
local w = Instance.new("Motor", l)
w.Part0 = p
w.Part1 = l
if i == 2 then
mesh.Scale = Vector3.new(0.405,0.12,0.405)
w.C0 = CFrame.new(0,-0.2,0)
else
mesh.Scale = Vector3.new(0.355,0.12,0.355)
w.C0 = CFrame.new(0,-0.15,0)
end
table.insert(Lights, l)
end

for i = 1, 3 do
local l = P:Clone()
l.Parent = m
local mesh = Instance.new("CylinderMesh", l)
mesh.Scale = Vector3.new(0.12,0.1,0.12)
local w = Instance.new("Motor", l)
w.Part0 = Torsoz
w.Part1 = l
w.C0 = CFrame.new(0.3-(0.15*i),0.3,0.73) * CFrame.Angles(math.pi/2,0,0)
table.insert(Lights, l)
end

------- wings ------
for i = 0, 1 do
local p = P:Clone()
p.Parent = m
local mesh = Instance.new("SpecialMesh", p)
mesh.MeshType = "Sphere"
mesh.Scale = Vector3.new(1,1,1)
local w = Instance.new("Motor", p)
w.Part0 = Torsoz
w.Part1 = p
w.C0 = CFrame.new(0,0.55,0.55) * CFrame.Angles(0,math.pi*i,0)
w.C1 = CFrame.new(0.425,0,0)

local c = P:Clone()
c.Parent = m
c.BrickColor = BrickColor.new(wingcolor)
c.Name = "WingSpine"..i+1
local mesh = Instance.new("BlockMesh", c)
mesh.Scale = Vector3.new(0.26,6,0.2)
local w = Instance.new("Motor", c)
w.Part0 = p
w.Part1 = c
w.C0 = CFrame.Angles(0,0,-math.pi/7)
w.C1 = CFrame.new(0,1.5,0)
w.MaxVelocity = 0.15
if i == 0 then
LeftWing = w
else
RightWing = w
end
table.insert(WingParts, c)
local p = P:Clone()
p.Parent = m
p.BrickColor = BrickColor.new(wingcolor)
local mesh = Instance.new("SpecialMesh", p)
mesh.MeshType = "Wedge"
mesh.Scale = Vector3.new(0.2,4,2.2)
local w = Instance.new("Motor", p)
w.Part0 = c
w.Part1 = p
w.C0 = CFrame.new(0.485,-0.85,0) * CFrame.Angles(math.pi,-math.pi/2,0)
table.insert(WingParts, p)
local p = P:Clone()
p.Parent = m
p.BrickColor = BrickColor.new(wingcolor)
local mesh = Instance.new("BlockMesh", p)
mesh.Scale = Vector3.new(2,0.5,0.2)
local w = Instance.new("Motor", p)
w.Part0 = c
w.Part1 = p
w.C0 = CFrame.new(0.535,0.275,0)
table.insert(WingParts, p)
local p = P:Clone()
p.Parent = m
p.BrickColor = BrickColor.new(wingcolor)
local mesh = Instance.new("SpecialMesh", p)
mesh.MeshType = "Wedge"
mesh.Scale = Vector3.new(0.2,1.5,1)
local w = Instance.new("Motor", p)
w.Part0 = c
w.Part1 = p
w.C0 = CFrame.new(0.785,0.77,0) * CFrame.Angles(0,-math.pi/2,0)
table.insert(WingParts, p)
local p = P:Clone()
p.Parent = m
p.BrickColor = BrickColor.new(wingcolor)
local mesh = Instance.new("BlockMesh", p)
mesh.Scale = Vector3.new(0.94,1.5,0.2)
local w = Instance.new("Motor", p)
w.Part0 = c
w.Part1 = p
w.C0 = CFrame.new(0.3,0.77,0)
table.insert(WingParts, p)
local p = P:Clone()
p.Parent = m
p.BrickColor = BrickColor.new(wingcolor)
local mesh = Instance.new("SpecialMesh", p)
mesh.MeshType = "Wedge"
mesh.Scale = Vector3.new(0.2,1,0.977)
local w = Instance.new("Motor", p)
w.Part0 = c
w.Part1 = p
w.C0 = CFrame.new(0.3,1.385,0) * CFrame.Angles(0,-math.pi/2,0)
table.insert(WingParts, p)

end

local spacedet = 0
local KEYS = {false, false, false, false}
mouse.KeyDown:connect(function(key)
if key == string.char(32) then
if (tick() - spacedet) < 0.3 then
Flying = not Flying
end
spacedet = tick()
end
if key == "w" then
KEYS[1] = true
end
if key == "a" then
KEYS[2] = true
end
if key == "s" then
KEYS[3] = true
end
if key == "d" then
KEYS[4] = true
end
end)

mouse.KeyUp:connect(function(key)
if key == "w" then
KEYS[1] = false
end
if key == "a" then
KEYS[2] = false
end
if key == "s" then
KEYS[3] = false
end
if key == "d" then
KEYS[4] = false
end
end)

local LTrailParts = {}
for i = 1, 21 do
local p = P:Clone()
p.Name = "TrailLine"
p.Anchored = true
p.BrickColor = BrickColor.new(wingcolor)
local mesh = Instance.new("CylinderMesh", p)
mesh.Name = "Mesh"
table.insert(LTrailParts, p)
end
local RTrailParts = {}
for i = 1, 21 do
local p = P:Clone()
p.Name = "TrailLine"
p.Anchored = true
p.BrickColor = BrickColor.new(wingcolor)
local mesh = Instance.new("CylinderMesh", p)
mesh.Name = "Mesh"
table.insert(RTrailParts, p)
end
local Loldpos
local Roldpos

local lightval = {0.1, true}
local refval = 0.1
local firecolors = {"Bright red", "Bright orange"}
local firespeed = 2
local trailnum = 0
local num = 0
local lastflyaction = false
local lastidleaction = false
local idlebp = {0, 0, Torsoz.Position, true}

while true do
num = num + 1
trailnum = trailnum + 1

local unitz = (Torsoz.Position - cam.CoordinateFrame.p).unit
local camsight = Torsoz.Position + (unitz*90)
local diff = camsight.y - Torsoz.Position.y

---------------------- Velocity Changes ----------------------------

----------- W key --------------
if KEYS[1] == true then
velo = velo + acceleration
else
if velo > 0 then
local UP = velo - (acceleration/1.5)
if velo > 0 and UP < 0 then
velo = velo + UP
end
velo = velo - (acceleration/1.5)
end
end
------------ S key -------------
if KEYS[3] == true then
if velo > 0 then
velo = velo - acceleration*1.2
else
velo = velo - (acceleration/1.5)
end
else
if velo < 0 then
local DOWN = velo + acceleration
if velo < 0 and DOWN > 0 then
velo = velo - DOWN
end
velo = velo + acceleration
end
end

local maxvelocalc = maxvelo
if diff < -35 then
if velo > 0 then
maxvelocalc = maxvelo + (maxvelo * -(((diff+35)/110)))
end
elseif diff > 35 then
if velo < 0 then
maxvelocalc = maxvelo + (maxvelo * -((((-diff)+35)/110)))
end
end

if velo >= maxvelocalc then
velo = maxvelocalc
elseif velo <= -maxvelocalc/2 then
velo = -maxvelocalc/2
end

------------------------- Lights ----------------------
if lightval[1] < 0.15 then
lightval[2] = true
elseif lightval[1] > 0.76 then
lightval[2] = false
end
if lightval[2] == true then
lightval[1] = lightval[1] + LightChangeSpeed
else
lightval[1] = lightval[1] - LightChangeSpeed
end
for i, v in pairs(Lights) do
v.Transparency = lightval[1]
if LightChangeSpeed > 0.15 then
v.BrickColor = BrickColor.new("Bright red")
elseif LightChangeSpeed > 0.08 then
v.BrickColor = BrickColor.new("Bright orange")
else
v.BrickColor = BrickColor.new("Bright green")
end
end
--------------------------------------------------------

--------------------- Wing Shines -------------------------
for i, v in pairs(WingParts) do
if Flying == true then
if v.Reflectance > 0.19 then
v.Reflectance = v.Reflectance - 0.035
else
v.Reflectance = 0.19
end
else
if v.Reflectance < 0.43 then
v.Reflectance = v.Reflectance + 0.035
else
v.Reflectance = 0.43
end
end
end
----------------------------------------------------

------------------------ Jet Boost Flames --------------------------------
if num%firespeed == 0 and JetActive == true then
local f = P:Clone()
f.Parent = m
f.Name = "JetFire"
f.BrickColor = BrickColor.new(firecolors[math.random(1, #firecolors)])
f.Transparency = 0.15
f.Anchored = true
f.CFrame = CenterJet.CFrame * CFrame.new(0,-0.3,0)
local mesh = Instance.new("BlockMesh", f)
mesh.Scale = Vector3.new(0.6,0.6,0.6)
table.insert(JetFlames, {mesh, (f.Position - CenterJet.Position).unit})
end

for i, v in pairs(JetFlames) do
if v[1].Parent.Transparency < 0.9 then
v[1].Parent.Transparency = v[1].Parent.Transparency + 0.03
v[1].Scale = v[1].Scale + Vector3.new(0.08,0.08,0.08)
v[1].Parent.CFrame = v[1].Parent.CFrame * CFrame.Angles(math.random(-180,180)/360,math.random(-180,180)/360,math.random(-180,180)/360)
if idle == false then
v[1].Parent.CFrame = v[1].Parent.CFrame + (v[2]*0.1)
else
v[1].Parent.CFrame = v[1].Parent.CFrame + (v[2]*0.24)
end
else
v[1].Parent:remove()
table.remove(JetFlames, i)
end
end
--------------------------------------------------

------------------------------ Flying --------------------------------

if Flying == true then

if lastflyaction == false then
bg = Instance.new("BodyGyro", Torsoz)
bg.maxTorque = Vector3.new(1/0,1/0,1/0)
bg.D = 350
end


--------- idle checker --------
if (velo > -0.5 and velo < 0.5) and (KEYS[1] == false and KEYS[3] == false) then
idle = true
if lastidleaction == false then
idlebp[3] = Torsoz.Position
end
else
idle = false
end

--------- idle float anim -----------
if idle == true then
if lastidleaction == false then
idlebp = {0, 0, Torsoz.Position, true}
end
if idlebp[2] >= 0.3 then
idlebp[4] = false
elseif idlebp[2] <= -0.3 then
idlebp[4] = true
end
if idlebp[4] == false then
idlebp[2] = idlebp[2] - 0.02
elseif idlebp[4] == true then
idlebp[2] = idlebp[2] + 0.02
end
idlebp[1] = idlebp[1] + idlebp[2]
end

---------------- Body Objects ----------------------

if idle == true then
if lastidleaction == false then
bv:remove()
bp:remove()
bp = Instance.new("BodyPosition")
end
hu.PlatformStand = true
bp.Parent = Torsoz
bp.maxForce = Vector3.new(1/0,1/0,1/0)
bp.D = 100
bp.position = idlebp[3] + Vector3.new(0,idlebp[1],0)
bg.cframe = CFrame.new(Torsoz.Position, Torsoz.Position + cam.CoordinateFrame.lookVector)
else
if lastidleaction == true then
bp:remove()
bv:remove()
bv = Instance.new("BodyVelocity")
end
hu.PlatformStand = true
bv.Parent = Torsoz
bv.maxForce = Vector3.new(1/0,1/0,1/0)
local torpos = Torsoz.Position + (cam.CoordinateFrame.lookVector * 10)
bv.velocity = CFrame.new(Torsoz.Position+Vector3.new(0,-2,0), torpos).lookVector*velo
local cvelo = velo
if velo > maxvelo then
cvelo = maxvelo
end
bg.cframe = CFrame.new(Torsoz.Position, Torsoz.Position + cam.CoordinateFrame.lookVector) * CFrame.Angles((-math.pi/2.3)*(cvelo/maxvelo),0,0)

end

elseif Flying == false then
if lastflyaction == true then
hu.PlatformStand = false
bp.Parent = nil
bg.Parent = nil
bv.Parent = nil
idle = false
end

end --- if flying == true

-----------------------------------------

----------------------- Auto Anims -----------------------
if Flying == true then
if diff > 40 then
LeftWing.DesiredAngle = -0.3
RightWing.DesiredAngle = -0.3
LightChangeSpeed = 0.24
JetActive = true
ActiveTrails = true
firespeed = 1
elseif diff > -22 and diff < 40 then
LeftWing.DesiredAngle = -math.pi/2.5
RightWing.DesiredAngle = -math.pi/2.5
LightChangeSpeed = 0.09
JetActive = true
ActiveTrails = true
firespeed = 2
elseif diff > -60 and diff < -22 then
LeftWing.DesiredAngle = -math.pi/2.5
RightWing.DesiredAngle = -math.pi/2.5
LightChangeSpeed = 0.04
JetActive = false
ActiveTrails = true
elseif diff < -60 then
LeftWing.DesiredAngle = -0.1
RightWing.DesiredAngle = -0.1
LightChangeSpeed = 0.04
JetActive = false
ActiveTrails = true
end
if idle == true then
LeftWing.DesiredAngle = -math.pi/2.2
RightWing.DesiredAngle = -math.pi/2.2
LightChangeSpeed = 0.09
JetActive = true
ActiveTrails = false
firespeed = 1
end
if diff < -40 and velo < 0 then
LeftWing.DesiredAngle = -0.3
RightWing.DesiredAngle = -0.3
LightChangeSpeed = 0.24
JetActive = true
ActiveTrails = true
firespeed = 1
elseif (diff < -22 and diff > -40) and velo < 0 then
LeftWing.DesiredAngle = -math.pi/2.5
RightWing.DesiredAngle = -math.pi/2.5
LightChangeSpeed = 0.09
JetActive = true
ActiveTrails = true
firespeed = 2
end
else
LeftWing.DesiredAngle = 0
RightWing.DesiredAngle = 0
JetActive = false
ActiveTrails = false
LightChangeSpeed = 0.02
end
-----------------------------------------

------------------------ Trail lines ------------------------------
if num%2 == 0 then

if Flying == true and ActiveTrails == true then
if velo > 0 then
if velo < acceleration*7 then
Loldpos = nil
Roldpos = nil
end
elseif velo < 0 then
if velo > -acceleration*7 then
Loldpos = nil
Roldpos = nil
end
end

if Loldpos ~= nil then
local newpos = (LeftWing.Parent.CFrame * CFrame.new(0,-1.7,0)).p
local t = LTrailParts[trailnum]
t.Parent = m
t.Anchored = true
t.BrickColor = BrickColor.new(wingcolor)
t.CFrame = CFrame.new((Loldpos+newpos)/2,Loldpos) * CFrame.Angles(math.pi/2,0,0)
local mesh = Instance.new("CylinderMesh", t)
mesh.Name = "Mesh"
mesh.Scale = Vector3.new(0.2,(Loldpos - newpos).magnitude*2,0.2)
end
if Roldpos ~= nil then
local newpos = (RightWing.Parent.CFrame * CFrame.new(0,-1.7,0)).p
local t = RTrailParts[trailnum]
t.Parent = m
t.Anchored = true
t.BrickColor = BrickColor.new(wingcolor)
t.CFrame = CFrame.new((Roldpos+newpos)/2,Roldpos) * CFrame.Angles(math.pi/2,0,0)
local mesh = Instance.new("CylinderMesh", t)
mesh.Name = "Mesh"
mesh.Scale = Vector3.new(0.2,(Roldpos - newpos).magnitude*2,0.2)
end
Loldpos = (LeftWing.Parent.CFrame * CFrame.new(0,-1.7,0)).p
Roldpos = (RightWing.Parent.CFrame * CFrame.new(0,-1.7,0)).p

else
LTrailParts[trailnum].Parent = nil
RTrailParts[trailnum].Parent = nil
Loldpos = (LeftWing.Parent.CFrame * CFrame.new(0,-1.7,0)).p
Roldpos = (RightWing.Parent.CFrame * CFrame.new(0,-1.7,0)).p
end

end

if trailnum == #LTrailParts-1 then
trailnum = 0
end

if num%800 == 0 then
for i, v in pairs(LTrailParts) do
game:service("Debris"):AddItem(v, 0.7)
end
for i, v in pairs(RTrailParts) do
game:service("Debris"):AddItem(v, 0.7)
end
LTrailParts = {}
for i = 1, 21 do
local p = P:Clone()
p.Name = "LTrailLine"
p.Anchored = true
p.BrickColor = BrickColor.new(wingcolor)
local mesh = Instance.new("CylinderMesh", p)
mesh.Name = "Mesh"
table.insert(LTrailParts, p)
end
RTrailParts = {}
for i = 1, 21 do
local p = P:Clone()
p.Name = "RTrailLine"
p.Anchored = true
p.BrickColor = BrickColor.new(wingcolor)
local mesh = Instance.new("CylinderMesh", p)
mesh.Name = "Mesh"
table.insert(RTrailParts, p)
end
end

----------------------------------------------

lastflyaction = Flying
lastidleaction = idle
wait(0.03)
end