Files
mmkrp_2026/gamemodes/sandbox/entities/weapons/gmod_tool/stools/elastic.lua
2026-03-15 14:54:49 +03:00

133 lines
3.9 KiB
Lua

TOOL.Category = "Constraints"
TOOL.Name = "#tool.elastic.name"
TOOL.ClientConVar[ "constant" ] = "500"
TOOL.ClientConVar[ "damping" ] = "3"
TOOL.ClientConVar[ "rdamping" ] = "0.01"
TOOL.ClientConVar[ "material" ] = "cable/cable"
TOOL.ClientConVar[ "width" ] = "2"
TOOL.ClientConVar[ "stretch_only" ] = "1"
TOOL.ClientConVar[ "color_r" ] = "255"
TOOL.ClientConVar[ "color_g" ] = "255"
TOOL.ClientConVar[ "color_b" ] = "255"
TOOL.Information = {
{ name = "left", stage = 0 },
{ name = "left_1", stage = 1 },
{ name = "reload" }
}
function TOOL:LeftClick( trace )
if ( IsValid( trace.Entity ) && trace.Entity:IsPlayer() ) then return end
-- If there's no physics object then we can't constraint it!
if ( SERVER && !util.IsValidPhysicsObject( trace.Entity, trace.PhysicsBone ) ) then return false end
local iNum = self:NumObjects()
local Phys = trace.Entity:GetPhysicsObjectNum( trace.PhysicsBone )
self:SetObject( iNum + 1, trace.Entity, trace.HitPos, Phys, trace.PhysicsBone, trace.HitNormal )
if ( iNum > 0 ) then
if ( CLIENT ) then
self:ClearObjects()
return true
end
local ply = self:GetOwner()
if ( !ply:CheckLimit( "ropeconstraints" ) ) then
self:ClearObjects()
return false
end
-- Get client's CVars
local width = self:GetClientNumber( "width" )
local material = self:GetClientInfo( "material" )
local damping = self:GetClientNumber( "damping" )
local rdamping = self:GetClientNumber( "rdamping" )
local constant = self:GetClientNumber( "constant" )
local stretchonly = self:GetClientNumber( "stretch_only" )
local colorR = self:GetClientNumber( "color_r" )
local colorG = self:GetClientNumber( "color_g" )
local colorB = self:GetClientNumber( "color_b" )
-- Get information we're about to use
local Ent1, Ent2 = self:GetEnt( 1 ), self:GetEnt( 2 )
local Bone1, Bone2 = self:GetBone( 1 ), self:GetBone( 2 )
local LPos1, LPos2 = self:GetLocalPos( 1 ), self:GetLocalPos( 2 )
-- Create the constraint
local constr, rope = constraint.Elastic( Ent1, Ent2, Bone1, Bone2, LPos1, LPos2, constant, damping, rdamping, material, width, stretchonly, Color( colorR, colorG, colorB ) )
-- Create an undo if the constraint was created
if ( IsValid( constr ) ) then
undo.Create( "Elastic" )
undo.AddEntity( constr )
if ( IsValid( rope ) ) then undo.AddEntity( rope ) end
undo.SetPlayer( ply )
undo.SetCustomUndoText( "Undone #tool.elastic.name" )
undo.Finish( "#tool.elastic.name" )
ply:AddCount( "ropeconstraints", constr )
ply:AddCleanup( "ropeconstraints", constr )
if ( IsValid( rope ) ) then ply:AddCleanup( "ropeconstraints", rope ) end
end
-- Clear the objects so we're ready to go again
self:ClearObjects()
else
self:SetStage( iNum + 1 )
end
return true
end
function TOOL:Reload( trace )
if ( !IsValid( trace.Entity ) || trace.Entity:IsPlayer() ) then return false end
if ( CLIENT ) then return true end
return constraint.RemoveConstraints( trace.Entity, "Elastic" )
end
function TOOL:Holster()
self:ClearObjects()
end
local ConVarsDefault = TOOL:BuildConVarList()
function TOOL.BuildCPanel( CPanel )
CPanel:Help( "#tool.elastic.help" )
CPanel:ToolPresets( "elastic", ConVarsDefault )
CPanel:NumSlider( "#tool.elastic.constant", "elastic_constant", 0, 4000 )
CPanel:ControlHelp( "#tool.elastic.constant.help" )
CPanel:NumSlider( "#tool.elastic.damping", "elastic_damping", 0, 50 )
CPanel:ControlHelp( "#tool.elastic.damping.help" )
CPanel:NumSlider( "#tool.elastic.rdamping", "elastic_rdamping", 0, 1 )
CPanel:ControlHelp( "#tool.elastic.rdamping.help" )
CPanel:CheckBox( "#tool.elastic.stretchonly", "elastic_stretch_only" )
CPanel:ControlHelp( "#tool.elastic.stretchonly.help" )
CPanel:NumSlider( "#tool.elastic.width", "elastic_width", 0, 20 )
CPanel:RopeSelect( "elastic_material" )
CPanel:ColorPicker( "#tool.elastic.color", "elastic_color_r", "elastic_color_g", "elastic_color_b" )
end