diff options
Diffstat (limited to 'entities/weapons/gmod_tool/stools/gms_rope.lua')
| -rw-r--r-- | entities/weapons/gmod_tool/stools/gms_rope.lua | 170 |
1 files changed, 170 insertions, 0 deletions
diff --git a/entities/weapons/gmod_tool/stools/gms_rope.lua b/entities/weapons/gmod_tool/stools/gms_rope.lua new file mode 100644 index 0000000..b7cac72 --- /dev/null +++ b/entities/weapons/gmod_tool/stools/gms_rope.lua @@ -0,0 +1,170 @@ + +if ( !GMS ) then TOOL.AddToMenu = false end + +TOOL.Category = "Constraints" +TOOL.Name = "#tool.rope.name" +TOOL.Command = nil +TOOL.ConfigName = nil + +TOOL.ClientConVar[ "forcelimit" ] = "0" +TOOL.ClientConVar[ "addlength" ] = "0" +TOOL.ClientConVar[ "material" ] = "cable/rope" +TOOL.ClientConVar[ "width" ] = "2" +TOOL.ClientConVar[ "rigid" ] = "0" + +function TOOL:LeftClick( trace ) + + if ( trace.Entity:IsValid() && 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 + + -- Get client's CVars + local forcelimit = self:GetClientNumber( "forcelimit" ) + local addlength = self:GetClientNumber( "addlength" ) + local material = self:GetClientInfo( "material" ) + local width = self:GetClientNumber( "width" ) + local rigid = self:GetClientNumber( "rigid" ) == 1 + + -- 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 WPos1, WPos2 = self:GetPos(1), self:GetPos(2) + local LPos1, LPos2 = self:GetLocalPos(1),self:GetLocalPos(2) + local length = ( WPos1 - WPos2):Length() + + local constraint, rope = constraint.Rope( Ent1, Ent2, Bone1, Bone2, LPos1, LPos2, length, addlength, forcelimit, width, material, rigid ) + + -- Clear the objects so we're ready to go again + self:ClearObjects() + + -- Add The constraint to the players undo table + + undo.Create("Rope") + undo.AddEntity( constraint ) + undo.AddEntity( rope ) + undo.SetPlayer( self:GetOwner() ) + undo.Finish() + + self:GetOwner():AddCleanup( "ropeconstraints", constraint ) + self:GetOwner():AddCleanup( "ropeconstraints", rope ) + if ( GMS ) then self:GetOwner():DecResource( "Rope", 1 ) end + else + + self:SetStage( iNum+1 ) + + end + + return true + +end + +function TOOL:RightClick( trace ) + + if ( trace.Entity:IsValid() && trace.Entity:IsPlayer() ) then return 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 + + -- Get client's CVars + local forcelimit = self:GetClientNumber( "forcelimit" ) + local addlength = self:GetClientNumber( "addlength" ) + local material = self:GetClientInfo( "material" ) + local width = self:GetClientNumber( "width" ) + local rigid = self:GetClientNumber( "rigid" ) == 1 + + -- 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 WPos1, WPos2 = self:GetPos(1),self:GetPos(2) + local LPos1, LPos2 = self:GetLocalPos(1),self:GetLocalPos(2) + local length = ( WPos1 - WPos2 ):Length() + + local constraint, rope = constraint.Rope( Ent1, Ent2, Bone1, Bone2, LPos1, LPos2, length, addlength, forcelimit, width, material, rigid ) + + -- Clear the objects and set the last object as object 1 + self:ClearObjects() + iNum = self:NumObjects() + self:SetObject( iNum + 1, Ent2, trace.HitPos, Phys, Bone2, trace.HitNormal ) + self:SetStage( iNum+1 ) + + -- Add The constraint to the players undo table + + undo.Create("Rope") + undo.AddEntity( constraint ) + if rope then undo.AddEntity( rope ) end + undo.SetPlayer( self:GetOwner() ) + undo.Finish() + + self:GetOwner():AddCleanup( "ropeconstraints", constraint ) + self:GetOwner():AddCleanup( "ropeconstraints", rope ) + + if ( GMS ) then self:GetOwner():DecResource( "Rope", 1 ) end + else + + self:SetStage( iNum+1 ) + + end + + return true + +end + +function TOOL:Reload( trace ) + + if (!trace.Entity:IsValid() || trace.Entity:IsPlayer() ) then return false end + if ( CLIENT ) then return true end + + local bool = constraint.RemoveConstraints( trace.Entity, "Rope" ) + return bool + + +end + +function TOOL.BuildCPanel( CPanel ) + + CPanel:AddControl( "Header", { Text = "#tool.rope.name", Description = "#tool.rope.help" } ) + + CPanel:AddControl( "ComboBox", + { + Label = "#tool.presets", + MenuButton = 1, + Folder = "rope", + Options = { Default = { rope_forcelimit = '0', rope_addlength='0', rope_width='1', rope_material='cable/rope', rope_rigid='0' } }, + CVars = { "rope_forcelimit", "rope_addlength", "rope_width", "rope_material", "rope_rigid" } + }) + + CPanel:AddControl( "Slider", { Label = "#tool.forcelimit", Type = "Float", Command = "rope_forcelimit", Min = "0", Max = "1000", Help=true } ) + CPanel:AddControl( "Slider", { Label = "#tool.rope.addlength", Type = "Float", Command = "rope_addlength", Min = "-500", Max = "500", Help=true } ) + + CPanel:AddControl( "CheckBox", { Label = "#tool.rope.rigid", Command = "rope_rigid", Help=true } ) + + CPanel:AddControl( "Slider", { Label = "#tool.rope.width", Type = "Float", Command = "rope_width", Min = "0", Max = "10" } ) + CPanel:AddControl( "RopeMaterial", { Label = "#tool.rope.material", convar = "rope_material" } ) + +end
\ No newline at end of file |