pain engine v0.9.2
local studspermeters = 20
local fatal_vel = studspermeters*15
local terminal_vel = studspermeters*16
local fallstates = {
Enum.HumanoidStateType.Freefall,
Enum.HumanoidStateType.FallingDown,
Enum.HumanoidStateType.Flying,
Enum.HumanoidStateType.Jumping,
}
local bleeding = {}
local falling = {}
local ragdolled = {}
local gores1 = {3739335394,3737268126,3929462189,3739335007}
local gores2 = {3847883680,3847884467,3847885772,3929462677}
local gores3 = {4953187368,4953187704}
local pg = {1489922915,1489934368}
local stuns = {
5169623605,
5169624072,
5169626214,
5169624072,
5169623821,
5169626595
}
local impacts = {
3848124871,
3848125583,
3848126035,
3929466751
}
if not _G['ignore pain engine'] then
_G['ignore pain engine'] = {}
end
function check_fatal(hum,dmg)
if 0 >= (hum.Health - dmg) then
return true
end
return false
end
function check_godded(hum,lasthp)
if lasthp then
if lasthp > hum.Health then
return true
end
elseif hum.MaxHealth >= math.huge or hum.MaxHealth >= 1/0 then
return true
elseif hum.Parent:FindFirstChildOfClass("ForceField") then
return true
end
end
function is_enabled(plr)
if _G['ignore pain engine'][plr.UserId] then
return true
elseif _G['ignore pain engine'][plr.UserId] == nil then
return true
else
return false
end
end
function toggle_enable(plr,bool)
_G['ignore pain engine'][plr.UserId] = bool
end
local junk = Instance.new("Folder",script)
function bleed2(plr,frick,targhum,can_hurt,t,splat,dir)
coroutine.resume(coroutine.create(function()
if frick and targhum then else return end
local rig = targhum.RigType
local limbs = {'Head','Left Arm','Right Arm','Left Leg','Right Leg','RightUpperLeg','LeftUpperLeg','RightUpperArm','LeftUpperArm','RightLowerLeg','LeftLowerLeg','RightLowerArm','LeftLowerArm','RightFoot','LeftFoot','RightHand','LeftHand'}
local interval_bleed = 0.1
if not bleeding[frick] or 0 >= bleeding[frick] then
bleeding[frick] = 0
bleeding[frick] = bleeding[frick] + t
elseif bleeding[frick] > 0 then
bleeding[frick] = bleeding[frick] + t
return
else
return
end
while bleeding[frick] > 0 do
if (not frick or not frick.Parent or not frick.Parent.Parent or not targhum or not targhum.Parent) then
break
end
local max_limbs = 0
local current_limbs = 0
local gone_limbs = 0
local targchar = targhum.Parent
if rig == Enum.HumanoidRigType.R6 then
max_limbs = 5
elseif rig == Enum.HumanoidRigType.R15 then
max_limbs = 13
end
for i,v in pairs(targchar:GetChildren()) do
local found = false
for i,n in pairs(limbs) do if n == v.Name then found = true; end; end;
if found and not v:FindFirstChild("Dismembered") then
current_limbs = current_limbs + 1
end
end
gone_limbs = (max_limbs-current_limbs)
if targhum and can_hurt then
local bdmg = 0.3
local multi = 3
if 0 >= gone_limbs then
gone_limbs = 1
else
gone_limbs = gone_limbs*multi
end
if 0 >= (targhum.Health - bdmg*gone_limbs) then
targhum.BreakJointsOnDeath = false
--[[
pcall(function()
kill(plr,targchar,dir,5)
end)
]]
end
targhum:TakeDamage(bdmg*gone_limbs)
end
local vel = (dir*0.5)+Vector3.new(math.random(-5, 5)/40,math.random(-5, 5)/30,math.random(-5, 5)/40)
local thing = Instance.new('Part')
thing.Name = "blood_drop"
thing.Size = Vector3.new(0.1,0.1,0.1)
thing.CFrame = frick.CFrame*CFrame.new(0,frick.Size.Y/2,0)
if splat then
thing.Transparency = 0
elseif not splat then
thing.Transparency = 1
end
thing.Color = Color3.fromRGB(75, 0, 0)
thing.Material = Enum.Material.SmoothPlastic
thing.CanCollide = false
thing.Velocity = vel
thing.Parent = junk
thing:SetNetworkOwner(plr)
local mesh = Instance.new('SpecialMesh')
mesh.MeshType = Enum.MeshType.Sphere
mesh.Parent = thing
game:GetService("Debris"):AddItem(thing,10)
local att1,att2 = Instance.new("Attachment"),Instance.new("Attachment")
att1.Parent = thing
att1.Position = Vector3.new(0,-(thing.Size.Y/2),0)
att2.Parent = thing
att2.Position = Vector3.new(0,(thing.Size.Y/2),0)
if splat then
local trail_drop = Instance.new("Trail")
trail_drop.Parent = thing
trail_drop.Attachment0 = att1
trail_drop.Attachment1 = att2
trail_drop.Color = ColorSequence.new(Color3.new(0.5, 0, 0),Color3.new(0.7, 0, 0))
trail_drop.FaceCamera = true
trail_drop.LightInfluence = 1
trail_drop.WidthScale = NumberSequence.new(1,0)
trail_drop.Transparency = NumberSequence.new(0,1)
trail_drop.Lifetime = 0.1
trail_drop.MinLength = 0
end
local rawrxd = Instance.new('BodyForce')
rawrxd.Parent = thing
rawrxd.Force = vel
game:GetService("Debris"):AddItem(rawrxd,0.01)
thing.Touched:connect(function(tou)
if tou and tou.Parent and not tou:IsDescendantOf(targchar) and not tou:IsDescendantOf(junk) and not tou.Parent:FindFirstChildOfClass("Humanoid") and not tou.Parent.Parent:FindFirstChildOfClass("Humanoid") and not tou.Parent:IsA("Accessory") and tou.Name ~= 'Handle' and tou.Parent.Name ~= 'Handle' and not tou.Parent:IsA("Tool") and not string.match(tou.Name:lower(),'blood_drop') and not string.match(tou.Name:lower(),'bullet') and not string.match(tou.Name:lower(),'bone') and not string.match(tou.Name:lower(),'gun mag') and not string.match(tou.Name:lower(),'limb') then
local pos = Vector3.new(thing.Position.X,(tou.Position.Y+(tou.Size.Y/2))+(0.02/2),thing.Position.Z)
local Point1 = pos-Vector3.new(0.01,0.01,0.01)
local Point2 = pos+Vector3.new(0.01,0.01,0.01)
local Region = Region3.new(Point1,Point2)
for _,Part in pairs(game.Workspace:FindPartsInRegion3(Region,nil,math.huge)) do
if Part.Name == "blood" then
tou = Part
end
end
thing:Destroy()
if tou.Name == "blood" then
local reee = tou.CFrame
if tou.Transparency > -0.2 then
tou.Transparency = tou.Transparency - 0.1
end
local s = 0.025
local smax = 0.1
if tou.Color.R > 0 then
local nc = tou.Color.R*1.012
if nc > 1 then
nc = 1
end
tou.Color = Color3.new(nc, 0, 0)
end
s = smax*math.clamp(t/10,0,1)
if tou.Size.X < 5 then
tou.Size = tou.Size+Vector3.new(s*4,0,s*4)
elseif tou.Size.X < 7.5 then
tou.Size = tou.Size+Vector3.new(s*3,0,s*3)
elseif tou.Size.X < 10 then
tou.Size = tou.Size+Vector3.new(s*2,0,s*2)
end
tou.CFrame = reee
local tween = game:GetService("TweenService"):Create(tou,TweenInfo.new(4),{Transparency = 1})
tween:Play()
tween.Completed:Connect(function()
if tou.Transparency >= 0.9 then
tou:Destroy()
end
end)
local splash = Instance.new("Sound",tou)
splash.SoundId = 'rbxassetid://5157825454' --685857471
splash.Volume = 0.025
splash.PlayOnRemove = true
splash:Destroy()
elseif tou.CanCollide == true then
local bloodsplat = Instance.new('Part')
local s = math.random(5,10)/10
if gone_limbs >= 1 then
bloodsplat.Size = Vector3.new(s*gone_limbs,0.2,s*gone_limbs)
else
bloodsplat.Size = Vector3.new(s,0.2,s)
end
bloodsplat.Name = "blood"
bloodsplat.Anchored = true
bloodsplat.CanCollide = false
bloodsplat.Material = Enum.Material.Glass
bloodsplat.Color = Color3.fromRGB(75, 0, 0)
bloodsplat.Transparency = -0.2
bloodsplat.Parent = junk
bloodsplat.CFrame = CFrame.new(pos)
local mesh = Instance.new('SpecialMesh')
mesh.MeshType = Enum.MeshType.Sphere
mesh.Parent = bloodsplat
local tween = game:GetService("TweenService"):Create(bloodsplat,TweenInfo.new(4),{Transparency = 1})
tween:Play()
tween.Completed:Connect(function()
if bloodsplat.Transparency >= 0.9 then
bloodsplat:Destroy()
end
end)
local splash = Instance.new("Sound",bloodsplat)
splash.SoundId = 'rbxassetid://5157825454'
splash.Volume = 0.025
splash.PlayOnRemove = true
splash:Destroy()
end
end
end)
bleeding[frick] = bleeding[frick] - interval_bleed
wait(interval_bleed)
end
end))
end
function blood_splat(obj)
local ParticleEmitter1 = Instance.new("ParticleEmitter")
local ParticleEmitter2 = Instance.new("ParticleEmitter")
local ParticleEmitter3 = Instance.new("ParticleEmitter")
ParticleEmitter1.Name = "Blood3"
ParticleEmitter1.Parent = obj
ParticleEmitter1.Speed = NumberRange.new(3, 7)
ParticleEmitter1.Rotation = NumberRange.new(-360, 360)
ParticleEmitter1.Color = ColorSequence.new(Color3.new(0.486275, 0, 0),Color3.new(0.258824, 0, 0))
ParticleEmitter1.Enabled = false
ParticleEmitter1.LightEmission = 0.20000000298023
ParticleEmitter1.LightInfluence = 1
ParticleEmitter1.Texture = "rbxassetid://241779220"
ParticleEmitter1.Transparency = NumberSequence.new(1,0.48750001192093,0.75625002384186,1)
ParticleEmitter1.ZOffset = 0.5
ParticleEmitter1.Size = NumberSequence.new(0,2.8749995231628)
ParticleEmitter1.Acceleration = Vector3.new(0, -5, 0)
ParticleEmitter1.EmissionDirection = Enum.NormalId.Front
ParticleEmitter1.Lifetime = NumberRange.new(0.40000000596046, 1)
ParticleEmitter1.Rate = 3000
ParticleEmitter1.RotSpeed = NumberRange.new(-40, 270)
ParticleEmitter1.SpreadAngle = Vector2.new(360, 360)
ParticleEmitter1.VelocitySpread = 360
ParticleEmitter2.Name = "Blood"
ParticleEmitter2.Parent = obj
ParticleEmitter2.Speed = NumberRange.new(5, 10)
ParticleEmitter2.Rotation = NumberRange.new(-360, 360)
ParticleEmitter2.Color = ColorSequence.new(Color3.new(0.666667, 0, 0),Color3.new(0.423529, 0, 0))
ParticleEmitter2.Enabled = false
ParticleEmitter2.LightEmission = 0.40000000596046
ParticleEmitter2.LightInfluence = 1
ParticleEmitter2.Texture = "rbxassetid://73547327"
ParticleEmitter2.Transparency = NumberSequence.new(0.10000000149012,0.14375001192093,0.49374997615814,1)
ParticleEmitter2.Size = NumberSequence.new(0,2.8749995231628)
ParticleEmitter2.Acceleration = Vector3.new(0, -5, 0)
ParticleEmitter2.EmissionDirection = Enum.NormalId.Front
ParticleEmitter2.Lifetime = NumberRange.new(0.30000001192093, 0.5)
ParticleEmitter2.Rate = 10000000
ParticleEmitter2.RotSpeed = NumberRange.new(-40, 270)
ParticleEmitter2.SpreadAngle = Vector2.new(360, 360)
ParticleEmitter2.VelocitySpread = 360
ParticleEmitter3.Name = "Blood2"
ParticleEmitter3.Parent = obj
ParticleEmitter3.Speed = NumberRange.new(5, 14)
ParticleEmitter3.Color = ColorSequence.new(Color3.new(0.45098, 0, 0),Color3.new(0.45098, 0, 0))
ParticleEmitter3.Enabled = false
ParticleEmitter3.LightEmission = 0.20000000298023
ParticleEmitter3.LightInfluence = 1
ParticleEmitter3.Texture = "http://www.roblox.com/asset/?id=134531274"
ParticleEmitter3.Transparency = NumberSequence.new(0.30000001192093,0.30000001192093)
ParticleEmitter3.ZOffset = 1
ParticleEmitter3.Size = NumberSequence.new(0.12499988079071,0)
ParticleEmitter3.Acceleration = Vector3.new(0, -20, 0)
ParticleEmitter3.EmissionDirection = Enum.NormalId.Front
ParticleEmitter3.Lifetime = NumberRange.new(0.5, 1.5)
ParticleEmitter3.Rate = 100000
ParticleEmitter3.SpreadAngle = Vector2.new(360, 360)
ParticleEmitter3.VelocitySpread = 360
--
ParticleEmitter1:Emit(20)
ParticleEmitter2:Emit(20)
ParticleEmitter3:Emit(20)
--
game:GetService("Debris"):AddItem(ParticleEmitter1,2)
game:GetService("Debris"):AddItem(ParticleEmitter2,2)
game:GetService("Debris"):AddItem(ParticleEmitter3,2)
--
end
function limb_collide(obj,mode,d)
if (obj:IsA("UnionOperation") or obj:IsA("BasePart")) and not obj:FindFirstChild('limb') then else return end
local exists = pcall(game:GetService("PhysicsService").GetCollisionGroupId, game:GetService("PhysicsService"), 'Limb Collide')
if not exists then
game:GetService("PhysicsService"):CreateCollisionGroup('Limb Collide')
end
game:GetService("PhysicsService"):CollisionGroupSetCollidable('Limb Collide','Limb Collide',false)
--
local t = {}
--
local cb = Instance.new("Part")
cb.Name = 'limb'
cb.Transparency = 1
cb.CanCollide = true
cb.Anchored = false
cb.CFrame = obj.CFrame
cb.Size = obj.Size*0.9
cb.Massless = true
cb.Locked = true
game:GetService("PhysicsService"):SetPartCollisionGroup(cb,'Limb Collide')
game:GetService("PhysicsService"):SetPartCollisionGroup(obj,'Limb Collide')
local weld = Instance.new("Weld")
weld.Part0 = cb
weld.Part1 = obj
weld.Parent = cb
--obj.Massless = true
obj.Anchored = false
if mode or obj:FindFirstChild("Dismembered") then
cb.Parent = junk -- .Parent
else
cb.Parent = junk
table.insert(t,1,cb)
end
if d then
game:GetService("Debris"):AddItem(cb,d)
end
--
if not string.match(obj.Name:lower(),'torso') and not string.match(obj.Name:lower(),'rootpart') and not string.match(obj.Name:lower(),'head') then
local lv = Vector3.new() -- Vector3.new(cb.Size.X,0,cb.Size.Z)
local cb2 = Instance.new("Part")
cb2.Name = 'limb'
cb2.Transparency = 1
cb2.CanCollide = true
cb2.Anchored = false
cb2.CFrame = obj.CFrame
cb2.Size = lv
cb2.Massless = true
cb2.Locked = true
--game:GetService("PhysicsService"):SetPartCollisionGroup(cb2,'Limb Collide')
local weld2 = Instance.new("Weld")
weld2.Part0 = cb
weld2.Part1 = cb2
weld2.C1 = CFrame.new(0,(cb.Size.Y/2),0)
weld2.Parent = cb2
if mode or obj:FindFirstChild("Dismembered") then
cb2.Parent = junk -- .Parent
else
cb2.Parent = junk
table.insert(t,1,cb2)
end
if d then
game:GetService("Debris"):AddItem(cb2,d)
end
end
--
return t
end
function recurse(root,callback,i)
i= i or 0
for _,v in pairs(root:GetChildren()) do
i = i + 1
callback(i,v)
if #v:GetChildren() > 0 then
i = recurse(v,callback,i)
end
end
return i
end
function ragdollJoint(character, part0, part1, attachmentName, className, properties)
attachmentName = attachmentName.."RigAttachment"
local constraint = Instance.new(className.."Constraint")
constraint.Attachment0 = part0:FindFirstChild(attachmentName)
constraint.Attachment1 = part1:FindFirstChild(attachmentName)
constraint.Name = "RagdollConstraint"..part1.Name
for _,propertyData in next,properties or {} do
constraint[propertyData[1]] = propertyData[2]
end
constraint.Parent = character
end
function getAttachment0(character, attachmentName)
for _,child in next,character:GetChildren() do
local attachment = child:FindFirstChild(attachmentName)
if attachment then
return attachment
end
end
end
function ragdoll(targchar,kill,remove)
if targchar then else return end
local targplr
pcall(function()
targplr = game:GetService("Players"):GetPlayerFromCharacter(targchar)
end)
local pc = targchar
local targhum = pc:FindFirstChildOfClass("Humanoid")
local js,js2 = {},{}
local lc = {}
targhum.PlatformStand = true
--if kill then
local old_pc
if remove then
pc.Archivable = true
old_pc = pc
pc = pc:Clone()
end
for i,v in pairs(pc:GetDescendants()) do
if v.Name ~= 'HumanoidRootPart' and v.Name ~= 'Torso' and v:IsA("BasePart") then
if remove or not kill then
local t = limb_collide(v,false,10)
table.insert(lc,1,t)
end
end
if kill then
if v:IsA("ParticleEmitter") then
v.Enabled = false
end
if v:IsA("SelectionBox") or v:IsA("BodyVelocity") or v:IsA("BodyPosition") or v:IsA("BodyAngularVelocity") or v:IsA("BodyForce") or v:IsA("BodyGyro") or v:IsA("BodyThrust") or v:IsA("BodyMover") then
if v:IsA("BodyVelocity") then
game:GetService("Debris"):AddItem(v,0.15)
else
v:Destroy()
end
end
if (v:IsA("Script") and v.Name == 'Health') or (v:IsA("LocalScript") and v.Name == 'Animate') then
v:Destroy()
end
if v:IsA("Humanoid") then
v.HealthDisplayType = Enum.HumanoidHealthDisplayType.AlwaysOff
v.PlatformStand = true
end
end
end
if remove then
for i,v in pairs(old_pc:GetDescendants()) do
if v:IsA("BasePart") or v:IsA("UnionOperation") or v:IsA("ForceField") or v:IsA("Accessory") or v:IsA("Decal") or v:IsA("Texture") or v:IsA("SurfaceGui") then
v:destroy()
end
if v:IsA("Humanoid") then
v.BreakJointsOnDeath = true
v.Health = 0
v.HealthDisplayType = Enum.HumanoidHealthDisplayType.AlwaysOff
v.PlatformStand = true
end
end
pc.Parent = junk
game:GetService("Debris"):AddItem(pc,10)
end
--end
--if kill and targhum:FindFirstChild("Ragdolled") then return; end;
coroutine.resume(coroutine.create(function()
if targplr then
for i,v in pairs(pc:GetChildren()) do
if v:IsA("BasePart") then
--v.Massless = true
if v:CanSetNetworkOwnership() then
v:SetNetworkOwner(targplr)
end
end
end
end
end))
local kb = 15
local root = pc:FindFirstChild("HumanoidRootPart")
local targtorso = pc:FindFirstChild("Torso") or pc:FindFirstChild("UpperTorso") or pc:FindFirstChild("Head") or pc:FindFirstChild("HumanoidRootPart")
if targtorso then else return end
local dir = targtorso.CFrame.lookVector*-1
local bv = Instance.new("BodyVelocity")
bv.MaxForce = Vector3.new(math.huge,math.huge,math.huge)
bv.Velocity = --[[dir*kb+]]Vector3.new(0,kb,0)
bv.Parent = targtorso
game:GetService("Debris"):AddItem(bv,0.1)
if kill then
local ragval = Instance.new("ObjectValue")
ragval.Name = 'Ragdolled'
ragval.Parent = targhum
end
coroutine.resume(coroutine.create(function()
if (targhum.RigType == Enum.HumanoidRigType.R6 or (targhum.RigType == Enum.HumanoidRigType.R15 and not kill)) then
for _,m in pairs(pc:GetChildren()) do
for _,v in pairs(m:GetChildren()) do
if (v:IsA("Snap") --[[or v:IsA('Weld')]] or v:IsA("BallSocketConstraint")) and kill then
v:Destroy()
end
if (v:IsA('Motor6D') or v:IsA('Motor') or v:IsA("Weld")) and (v.Parent:IsA("BasePart") or v.Parent:IsA("UnionOperation")) then
if not kill then
table.insert(js2,1,{obj = v,par = v.Parent})
end
local a0, a1 = Instance.new("Attachment"), Instance.new("Attachment")
a0.CFrame = v.C0
a1.CFrame = v.C1
a0.Parent = v.Part0
a1.Parent = v.Part1
local b = Instance.new("BallSocketConstraint")
b.Attachment0 = a0
b.Attachment1 = a1
b.Parent = v.Part0
v.Parent = nil
table.insert(js,1,b)
end
end
end
elseif targhum.RigType == Enum.HumanoidRigType.R15 and kill then
local character = targchar
recurse(character, function(_,v)
if v:IsA("Attachment") then
v.Axis = Vector3.new(0, 1, 0)
v.SecondaryAxis = Vector3.new(0, 0, 1)
v.Rotation = Vector3.new(0, 0, 0)
end
end)
--Re-attach hats
for _,child in next,character:GetChildren() do
if child:IsA("Accoutrement") then
--Loop through all parts instead of only checking for one to be forwards-compatible in the event
--ROBLOX implements multi-part accessories
for _,part in next,child:GetChildren() do
if part:IsA("BasePart") then
local attachment1 = part:FindFirstChildOfClass("Attachment")
local attachment0 = getAttachment0(character, attachment1.Name)
if attachment0 and attachment1 then
--Shouldn't use constraints for this, but have to because of a ROBLOX idiosyncrasy where
--joints connecting a character are perpetually deleted while the character is dead
local constraint = Instance.new("HingeConstraint")
constraint.Attachment0 = attachment0
constraint.Attachment1 = attachment1
constraint.LimitsEnabled = true
constraint.UpperAngle = 0 --Simulate weld by making it difficult for constraint to move
constraint.LowerAngle = 0
constraint.Parent = character
end
end
end
end
end
ragdollJoint(character, character.LowerTorso, character.UpperTorso, "Waist", "BallSocket", {
{"LimitsEnabled",true};
{"UpperAngle",5};
})
ragdollJoint(character, character.UpperTorso, character.Head, "Neck", "BallSocket", {
{"LimitsEnabled",true};
{"UpperAngle",15};
})
local handProperties = {
{"LimitsEnabled", true};
{"UpperAngle",0};
{"LowerAngle",0};
}
ragdollJoint(character, character.LeftLowerArm, character.LeftHand, "LeftWrist", "Hinge", handProperties)
ragdollJoint(character, character.RightLowerArm, character.RightHand, "RightWrist", "Hinge", handProperties)
local shinProperties = {
{"LimitsEnabled", true};
{"UpperAngle", 0};
{"LowerAngle", -75};
}
ragdollJoint(character, character.LeftUpperLeg, character.LeftLowerLeg, "LeftKnee", "Hinge", shinProperties)
ragdollJoint(character, character.RightUpperLeg, character.RightLowerLeg, "RightKnee", "Hinge", shinProperties)
local footProperties = {
{"LimitsEnabled", true};
{"UpperAngle", 15};
{"LowerAngle", -45};
}
ragdollJoint(character, character.LeftLowerLeg, character.LeftFoot, "LeftAnkle", "Hinge", footProperties)
ragdollJoint(character, character.RightLowerLeg, character.RightFoot, "RightAnkle", "Hinge", footProperties)
--TODO fix ability for socket to turn backwards whenn ConeConstraints are shipped
ragdollJoint(character, character.UpperTorso, character.LeftUpperArm, "LeftShoulder", "BallSocket")
ragdollJoint(character, character.LeftUpperArm, character.LeftLowerArm, "LeftElbow", "BallSocket")
ragdollJoint(character, character.UpperTorso, character.RightUpperArm, "RightShoulder", "BallSocket")
ragdollJoint(character, character.RightUpperArm, character.RightLowerArm, "RightElbow", "BallSocket")
ragdollJoint(character, character.LowerTorso, character.LeftUpperLeg, "LeftHip", "BallSocket")
ragdollJoint(character, character.LowerTorso, character.RightUpperLeg, "RightHip", "BallSocket")
end
end))
if root then
root.CanCollide = false
end
local c
if root then
c = root.Touched:Connect(function(obj)
if obj and not obj:IsDescendantOf(junk) and (root.Velocity.Magnitude >= 3) then
local impact = Instance.new("Sound",root)
impact.Name = 'impact'
impact.SoundId = 'rbxassetid://' .. impacts[math.random(1,#impacts)]
impact.Volume = 0.1
impact.PlayOnRemove = true
impact:Destroy()
end
end)
end
local function restore()
if c then
c:Disconnect()
end
if root then
root.CFrame = root.CFrame*CFrame.new(0,4,0)
end
for i,v in pairs(js) do
v:Destroy()
end
for i,v in pairs(lc) do
for i,v in pairs(v) do
v:Destroy()
end
end
if targhum then
targhum.PlatformStand = false
end
for i,v in pairs(js2) do
v.obj.Parent = v.par
end
if root then
root.CanCollide = true
end
end
return restore
end
function connectfall(plr,torso,hum)
local dmg = 0
local saved_vel = 0
while falling[hum] do
if not falling[hum] then
break
end
saved_vel = torso.Velocity.Magnitude
wait(0)
end
if saved_vel >= 75 then
dmg = 100*(saved_vel/fatal_vel)
if saved_vel >= fatal_vel*1.2 and torso and plr.Character then
local p = Instance.new("Part")
p.CanCollide = false
p.Anchored = true
p.Size = Vector3.new()
p.Position = torso.Position
p.Transparency = 1
p.Parent = junk
local impact = Instance.new("Sound",p)
impact.Name = 'impact'
impact.SoundId = 'rbxassetid://' .. impacts[math.random(1,#impacts)]
impact.Volume = 0.1
impact.PlayOnRemove = true
impact:Destroy()
local explode2 = Instance.new("Sound",p)
explode2.Name = 'expode'
explode2.SoundId = 'rbxassetid://' .. impacts[math.random(1,#impacts)]
explode2.Volume = 0.15
explode2.PlayOnRemove = true
explode2:Destroy()
local exp_gore = Instance.new("Sound")
exp_gore.SoundId = "rbxassetid://" .. gores3[math.random(1,#gores3)]
exp_gore.Volume = 4
exp_gore.Parent = p
exp_gore:Play()
local pe = Instance.new("ParticleEmitter")
pe.Speed = NumberRange.new(15, 15)
pe.Color = ColorSequence.new({
ColorSequenceKeypoint.new(0,Color3.new(1, 0, 0)),
ColorSequenceKeypoint.new(0.5,Color3.new(1, 0.33333, 0)),
ColorSequenceKeypoint.new(1,Color3.new(1, 1, 1)),
})
pe.LightEmission = 0.80000001192093
pe.Texture = "rbxassetid://162359401"
pe.Size = NumberSequence.new({
NumberSequenceKeypoint.new(0,0),
NumberSequenceKeypoint.new(0.0264,1),
NumberSequenceKeypoint.new(0.3,1),
NumberSequenceKeypoint.new(0.5,1.5),
NumberSequenceKeypoint.new(1,2),
})
--pe.Drag = 0.60000002384186
pe.Transparency = NumberSequence.new({
NumberSequenceKeypoint.new(0,0),
NumberSequenceKeypoint.new(0.5,0),
NumberSequenceKeypoint.new(1,1),
})
pe.Lifetime = NumberRange.new(1,2)
pe.Rate = 100
pe.SpreadAngle = Vector2.new(180, 180)
pe.Parent = p
pe.Enabled = false
pe:Emit(75)
blood_splat(p)
for _,v in pairs(plr.Character:GetChildren()) do
if v:IsA("BasePart") or v:IsA("UnionOperation") then
explode_limb(plr,v,plr.Character,v.CFrame.upVector*-1,dmg)
end
end
game:GetService("Debris"):AddItem(p,5)
end
if check_godded(hum) then
return
end
if not check_fatal(hum,dmg) then
if not torso:FindFirstChild("pain groan") then
local groan = Instance.new("Sound")
groan.Name = 'pain groan'
groan.SoundId = 'rbxassetid://' .. stuns[math.random(1,#stuns)]
groan.Volume = 1
groan.Parent = torso
groan.PlayOnRemove = true
groan:Destroy()
end
coroutine.resume(coroutine.create(function()
ragdolled[plr] = true
local restore = ragdoll(torso.Parent,false)
hum:SetStateEnabled(Enum.HumanoidStateType.Freefall,true)
hum:SetStateEnabled(Enum.HumanoidStateType.Landed,true)
wait(10*(saved_vel/fatal_vel))
if plr and ragdolled[plr] then
ragdolled[plr] = false
end
if restore then
restore()
end
end))
end
blood_splat(torso,torso.Position,Vector3.new())
--[[
if check_fatal(hum,dmg) then
bleed2(plr,torso,hum,false,game:GetService("Players").RespawnTime,false,torso.CFrame.upVector*-1)
elseif dmg >= 25 then
bleed2(plr,torso,hum,false,3,false,torso.CFrame.upVector*-1)
end
]]
local smash_s = Instance.new("Sound")
smash_s.Parent = torso
smash_s.PlayOnRemove = true
local dmg_s = Instance.new("Sound")
dmg_s.Parent = torso
dmg_s.PlayOnRemove = true
if check_fatal(hum,dmg) then
--smash_s.SoundId = 'rbxassetid://' .. gores2[math.random(1,#gores2)]
smash_s.Volume = 0.7
dmg_s.SoundId = 'rbxassetid://704141469'
dmg_s.Volume = 1.5
elseif dmg >= 50 then
--smash_s.SoundId = 'rbxassetid://' .. gores1[math.random(1,#gores1)]
smash_s.Volume = 0.7
dmg_s.SoundId = 'rbxassetid://535681058'
dmg_s.Volume = 1
elseif dmg >= 25 then
dmg_s.SoundId = 'rbxassetid://4057626616'
dmg_s.Volume = 1.5
end
smash_s:Destroy()
dmg_s:Destroy()
hum:TakeDamage(dmg)
end
end
function burn_up(obj,mode)
if mode == 1 then
local particle = obj:FindFirstChild("flame")
local light = obj:FindFirstChild("flame light")
local flame_sound = obj:FindFirstChild('burn up')
local scream_sound = obj:FindFirstChild('flame scream')
if not obj:FindFirstChild("burn up") then
local start_flame = Instance.new("Sound")
start_flame.SoundId = 'rbxassetid://5868574236'
start_flame.Parent = obj
start_flame.Volume = 2.5
start_flame.PlayOnRemove = true
start_flame:Destroy()
flame_sound = Instance.new("Sound")
flame_sound.Name = 'burn up'
flame_sound.SoundId = 'rbxassetid://443980606'
flame_sound.Volume = 1.5
flame_sound.Parent = obj
flame_sound.Looped = true
flame_sound:Play()
scream_sound = Instance.new("Sound")
scream_sound.Name = 'flame scream'
scream_sound.SoundId = 'rbxassetid://147758618'
scream_sound.Parent = obj
scream_sound.Looped = true
scream_sound:Play()
local PointLight1 = Instance.new("PointLight")
PointLight1.Name = 'flame light'
PointLight1.Parent = obj
PointLight1.Color = Color3.new(1, 0.803922, 0.341176)
PointLight1.Range = 21
PointLight1.Brightness = 0.47499999403954
PointLight1.Shadows = true
light = PointLight1
particle = Instance.new("Fire")
particle.Name = 'flame'
particle.Size = 10
particle.Parent = obj
end
elseif mode == 2 then
local particle = obj:FindFirstChild("flame")
local light = obj:FindFirstChild("flame light")
local flame_sound = obj:FindFirstChild('burn up')
local scream_sound = obj:FindFirstChild('flame scream')
if particle and particle.Enabled then
particle.Enabled = false
game:GetService("Debris"):AddItem(particle,1.5)
end
if light and light.Enabled then
light.Enabled = false
game:GetService("Debris"):AddItem(light,1)
end
if flame_sound then
flame_sound:Destroy()
end
if scream_sound then
scream_sound:Destroy()
end
end
end
function explode_limb(plr,obj,targchar,dir,dmg)
local targhum = targchar:FindFirstChildOfClass("Humanoid")
local targtorso = targchar:FindFirstChild("Torso") or targchar:FindFirstChild("UpperTorso") or targchar:FindFirstChild("HumanoidRootPart")
if dmg > 0 and not obj:FindFirstChild('Dismembered') --[[and obj.Name ~= 'Torso' and obj.Name ~= 'HumanoidRootPart' and obj.Name ~= 'UpperTorso' and obj.Name ~= 'LowerTorso']] then else return end
local d = 10
local t = dmg/d
local t2 = dmg/20/d
bleed2(plr,targtorso,targhum,true,t,true,Vector3.new(0,-1,0).Unit)
local gs = Instance.new("Sound")
gs.SoundId = 'rbxassetid://206082273' -- 'rbxassetid://' .. gores2[math.random(1,#gores2)]
gs.Volume = 0.3
gs.PlayOnRemove = true
gs.Parent = obj
gs:Destroy()
for i = 1,d do
local p = Vector3.new(obj.Size.X/math.random(d/3,d/2),obj.Size.Y/math.random(d/3,d/2),obj.Size.Z/math.random(d/3,d/2))
local blood_chunk = Instance.new("Part")
blood_chunk.Size = p
blood_chunk.CanCollide = true
blood_chunk.Anchored = false
if math.random(1,2) == 1 then
blood_chunk.Color = Color3.fromRGB(math.random(90,170),0,0)
else
blood_chunk.Color = obj.Color
end
blood_chunk.Position = obj.Position+Vector3.new(math.random(-obj.Size.X*10,obj.Size.X*10)/10/2,math.random(-obj.Size.Y*10,obj.Size.Y*10)/10/2,math.random(-obj.Size.Z*10,obj.Size.Z*10)/10/2)
blood_chunk.Material = Enum.Material.Slate
blood_chunk.Parent = junk
local kb = 25
local ka = 90
local bav = Instance.new("BodyAngularVelocity")
bav.MaxTorque = Vector3.new(math.huge,math.huge,math.huge)
bav.AngularVelocity = Vector3.new(math.random(-ka,ka),math.random(-ka,ka),math.random(-ka,ka))
bav.Parent = blood_chunk
local bv = Instance.new("BodyVelocity")
bv.MaxForce = Vector3.new(math.huge,math.huge,math.huge)
local ud = (obj.Position-blood_chunk.Position).Unit
if kb*3 >= ud.Magnitude then
bv.Velocity = (ud*kb)+Vector3.new(0,kb,0)
--bleed2(plr,targtorso,targhum,true,3,false,ud)
else
bv.Velocity = Vector3.new(0,kb,0)
--bleed2(plr,targtorso,targhum,true,3,false,dir)
end
bv.Parent = blood_chunk
game:GetService("Debris"):AddItem(bv,0.1)
game:GetService("Debris"):AddItem(bav,0.1)
game:GetService("Debris"):AddItem(blood_chunk,10)
end
obj:Destroy()
end
function bind(plr,char,new)
pcall(function()
if char then else return end
if is_enabled(plr) then
local ff = Instance.new("ForceField",char)
game:GetService("Debris"):AddItem(ff,1)
end
local torso = char:FindFirstChild("Torso") or char:FindFirstChild("UpperTorso") or char:FindFirstChild("HumanoidRootPart")
local hum = char:FindFirstChildOfClass("Humanoid")
local base = workspace:FindFirstChild('Base') or workspace:FindFirstChild('Baseplate')
if new then
wait(0.1)
if base then
--torso.CFrame = base.CFrame*CFrame.new(0,base.Size.Y/2+4,0)
else
--torso.CFrame = CFrame.new(0,base.Size.Y/2+4,0)
end
end
hum.StateChanged:Connect(function(oldstate,newstate)
local foundstate = false
for i,v in pairs(fallstates) do
if v == newstate then
foundstate = true
break
end
end
if foundstate and not check_godded(hum) and is_enabled(plr) then
if not falling[hum] then
falling[hum] = true
connectfall(plr,torso,hum)
end
else
falling[hum] = false
end
end)
local cv
if is_enabled(plr) then
cv = game:GetService("RunService").Stepped:Connect(function()
if not char or not char.Parent or not torso or not torso.Parent or not hum then
cv:Disconnect()
end
local vel = torso.Velocity.Magnitude
if vel >= terminal_vel and not check_godded(hum) then
local dmg = (vel/terminal_vel)/5
hum:TakeDamage(dmg)
burn_up(torso,1)
else
burn_up(torso,2)
end
end)
end
if hum.RigType == Enum.HumanoidRigType.R6 then
hum.BreakJointsOnDeath = false
hum:SetStateEnabled(Enum.HumanoidStateType.Dead,true)
end
local bid = 0
local did_break = {}
local can_break = false
local dmged = false
for _,limb in pairs(char:GetChildren()) do
if (limb:IsA("BasePart") or limb:IsA("UnionOperation")) and limb.Name ~= 'HumanoidRootPart' and limb.Name ~= 'Torso' and limb.Name ~= 'UpperTorso' and limb.Name ~= 'LowerTorso' then
limb.Touched:Connect(function(obj)
local saved_vel = limb.Velocity.Magnitude
local saved_vel2 = obj.Velocity.Magnitude*(obj.Mass/5)
local dmg = (saved_vel/fatal_vel)*hum.MaxHealth
local dmg2 = (saved_vel2/fatal_vel)*hum.MaxHealth
if obj and obj.Parent and not obj.Parent:FindFirstChildOfClass("Humanoid") and obj.CanCollide then else
saved_vel2 = 0
end
if limb and not dmged and (can_break or ragdolled[plr]) and not check_godded(hum) and (saved_vel >= fatal_vel or saved_vel2 >= fatal_vel) then
dmged = true
did_break[bid] = true
local p = Instance.new("Part")
p.CanCollide = false
p.Anchored = true
p.Size = Vector3.new()
p.Position = limb.Position
p.Transparency = 1
p.Parent = junk
local impact = Instance.new("Sound",p)
impact.Name = 'impact'
impact.SoundId = 'rbxassetid://' .. impacts[math.random(1,#impacts)]
impact.Volume = 0.1
impact.PlayOnRemove = true
impact:Destroy()
local explode2 = Instance.new("Sound",p)
explode2.Name = 'expode'
explode2.SoundId = 'rbxassetid://' .. impacts[math.random(1,#impacts)]
explode2.Volume = 0.15
explode2.PlayOnRemove = true
explode2:Destroy()
local exp_gore = Instance.new("Sound")
exp_gore.SoundId = "rbxassetid://" .. gores3[math.random(1,#gores3)]
exp_gore.Volume = 4
exp_gore.Parent = p
exp_gore:Play()
local pe = Instance.new("ParticleEmitter")
pe.Speed = NumberRange.new(15, 15)
pe.Color = ColorSequence.new({
ColorSequenceKeypoint.new(0,Color3.new(1, 0, 0)),
ColorSequenceKeypoint.new(0.5,Color3.new(1, 0.33333, 0)),
ColorSequenceKeypoint.new(1,Color3.new(1, 1, 1)),
})
pe.LightEmission = 0.80000001192093
pe.Texture = "rbxassetid://162359401"
pe.Size = NumberSequence.new({
NumberSequenceKeypoint.new(0,0),
NumberSequenceKeypoint.new(0.0264,1),
NumberSequenceKeypoint.new(0.3,1),
NumberSequenceKeypoint.new(0.5,1.5),
NumberSequenceKeypoint.new(1,2),
})
--pe.Drag = 0.60000002384186
pe.Transparency = NumberSequence.new({
NumberSequenceKeypoint.new(0,0),
NumberSequenceKeypoint.new(0.5,0),
NumberSequenceKeypoint.new(1,1),
})
pe.Lifetime = NumberRange.new(1,2)
pe.Rate = 100
pe.SpreadAngle = Vector2.new(180, 180)
pe.Parent = p
pe.Enabled = false
pe:Emit(75)
blood_splat(p)
for _,v in pairs(char:GetChildren()) do
if v:IsA("BasePart") or v:IsA("UnionOperation") then
explode_limb(plr,v,char,v.CFrame.upVector*-1,dmg)
end
end
game:GetService("Debris"):AddItem(p,5)
wait(0.2)
dmged = false
elseif limb and not dmged and (can_break or ragdolled[plr]) and (dmg >= 40 or dmg2 >= 40) then
dmged = true
did_break[bid] = true
local d = dmg
if dmg2 > dmg then
d = dmg2
end
local p = Instance.new("Part")
p.CanCollide = false
p.Anchored = true
p.Size = Vector3.new()
p.Position = limb.Position
p.Transparency = 1
p.Parent = junk
local impact = Instance.new("Sound",p)
impact.Name = 'impact'
impact.SoundId = 'rbxassetid://' .. impacts[math.random(1,#impacts)]
impact.Volume = 0.1
impact.PlayOnRemove = true
impact:Destroy()
local explode = Instance.new("Sound",p)
explode.Name = 'expode'
explode.SoundId = 'rbxassetid://' .. gores2[math.random(1,#gores2)]
explode.Volume = 0.1
explode.PlayOnRemove = true
explode:Destroy()
blood_splat(p)
explode_limb(plr,limb,char,limb.CFrame.upVector*-1,d)
game:GetService("Debris"):AddItem(p,2)
wait(0.2)
dmged = false
end
end)
end
end
local curhealth = hum.Health
hum.HealthChanged:Connect(function(newhealth)
if check_godded(hum) then return end
local dmg = (curhealth-newhealth)
if curhealth > newhealth and torso --[[and hum.Health > 0]] then
if dmg >= 30 or 0 >= newhealth then
bid = bid + 1
can_break = true
wait(0.4)
can_break = false
end
if dmg > 0 then
if not did_break[bid] then
bleed2(plr,torso,hum,false,(dmg/hum.MaxHealth)*10,false,torso.CFrame.upVector*-1)
end
end
end
curhealth = hum.Health
end)
hum.Died:Connect(function()
ragdoll(char,true)
end)
end)
end
function chat(plr)
plr.Chatted:Connect(function(msg)
if msg:lower():sub(1,6) == 'tfall/' then
local bool = msg:lower():sub(7)
if bool == 'true' then
toggle_enable(plr,true)
elseif bool == 'false' then
toggle_enable(plr,false)
end
end
end)
end
for _,plr in pairs(game:GetService("Players"):GetPlayers()) do
chat(plr)
bind(plr,plr.Character)
plr.CharacterAdded:Connect(function(char)
bind(plr,char,true)
end)
end
game:GetService("Players").PlayerAdded:Connect(function(plr)
chat(plr)
plr.CharacterAdded:Connect(function(char)
bind(plr,char,true)
end)
end)
while wait(1) do
if not junk then
junk = Instance.new("Folder",script)
end
endINFO