add sborka

garrysmod/addons/vmanip_ft/lua/autorun/client/cl_vmanip.lua

@@ -0,0 +1,704 @@
+--[[
+More detail on stuff in lua/vmanip/vmanip_baseanims.lua
+
+Please keep in mind that you do not fire events *through vmanip*. Think of it as a fully
+clientside animation system. So instead, you request to play an anim, and if the request
+went through (true return value), you do your thing
+
+You probably don't need to snoop around this file, but feel free
+]]
+
+VManip={}
+VMLegs={}
+local curtime=0
+
+local function LerpC(t,a,b,powa) --Non linear lerping
+
+return a + (b - a) * math.pow(t,powa)
+
+end
+
+local properang = Angle(-79.750,0,-90)
+local leftarmbones={"ValveBiped.Bip01_L_UpperArm",
+"ValveBiped.Bip01_L_Forearm",
+"ValveBiped.Bip01_L_Hand",
+"ValveBiped.Bip01_L_Wrist",
+"ValveBiped.Bip01_L_Ulna",
+"ValveBiped.Bip01_L_Finger4",
+"ValveBiped.Bip01_L_Finger41",
+"ValveBiped.Bip01_L_Finger42",
+"ValveBiped.Bip01_L_Finger3",
+"ValveBiped.Bip01_L_Finger31",
+"ValveBiped.Bip01_L_Finger32",
+"ValveBiped.Bip01_L_Finger2",
+"ValveBiped.Bip01_L_Finger21",
+"ValveBiped.Bip01_L_Finger22",
+"ValveBiped.Bip01_L_Finger1",
+"ValveBiped.Bip01_L_Finger11",
+"ValveBiped.Bip01_L_Finger12",
+"ValveBiped.Bip01_L_Finger0",
+"ValveBiped.Bip01_L_Finger01",
+"ValveBiped.Bip01_L_Finger02"}
+
+local playermodelbonesupper={"ValveBiped.Bip01_L_Forearm",
+"ValveBiped.Bip01_L_UpperArm",
+"ValveBiped.Bip01_L_Clavicle",
+"ValveBiped.Bip01_L_Hand",
+"ValveBiped.Bip01_Spine4",
+"ValveBiped.Bip01_Neck1",
+"ValveBiped.Bip01_Head1",
+"ValveBiped.Bip01_L_Finger4",
+"ValveBiped.Bip01_L_Finger41",
+"ValveBiped.Bip01_L_Finger42",
+"ValveBiped.Bip01_L_Finger3",
+"ValveBiped.Bip01_L_Finger31",
+"ValveBiped.Bip01_L_Finger32",
+"ValveBiped.Bip01_L_Finger2",
+"ValveBiped.Bip01_L_Finger21",
+"ValveBiped.Bip01_L_Finger22",
+"ValveBiped.Bip01_L_Finger1",
+"ValveBiped.Bip01_L_Finger11",
+"ValveBiped.Bip01_L_Finger12",
+"ValveBiped.Bip01_L_Finger0",
+"ValveBiped.Bip01_L_Finger01",
+"ValveBiped.Bip01_L_Finger02",
+"ValveBiped.Bip01_R_Forearm",
+"ValveBiped.Bip01_R_UpperArm",
+"ValveBiped.Bip01_R_Clavicle",
+"ValveBiped.Bip01_R_Hand",
+"ValveBiped.Bip01_R_Finger4",
+"ValveBiped.Bip01_R_Finger41",
+"ValveBiped.Bip01_R_Finger42",
+"ValveBiped.Bip01_R_Finger3",
+"ValveBiped.Bip01_R_Finger31",
+"ValveBiped.Bip01_R_Finger32",
+"ValveBiped.Bip01_R_Finger2",
+"ValveBiped.Bip01_R_Finger21",
+"ValveBiped.Bip01_R_Finger22",
+"ValveBiped.Bip01_R_Finger1",
+"ValveBiped.Bip01_R_Finger11",
+"ValveBiped.Bip01_R_Finger12",
+"ValveBiped.Bip01_R_Finger0",
+"ValveBiped.Bip01_R_Finger01"}
+
+local tableintensity={1,1,1}
+VManip.Reset = function()
+	VManip.Anims={}
+	VManip.VMGesture=nil
+	VManip.AssurePos=false
+	VManip.LockToPly=false
+	VManip.LockZ=0
+	VManip.VMCam=nil
+	VManip.Cam_Ang=properang
+	VManip.Cam_AngInt=nil
+	VManip.StartCycle=0
+	VManip.Cycle=0
+	VManip.CurGesture=nil
+	VManip.CurGestureData=nil
+	VManip.GestureMatrix=nil
+	VManip.Lerp_Peak=nil
+	VManip.Lerp_Speed_In=nil
+	VManip.Lerp_Speed_Out=nil
+	VManip.Lerp_Curve=nil
+	VManip.Duration=0
+	VManip.HoldTime=nil
+	VManip.HoldQuit=false
+	VManip.PreventQuit=false
+	VManip.QueuedAnim=nil
+	VManip.Segmented=false
+	VManip.SegmentFinished=false
+	VManip.CurSegment=nil
+	VManip.LastSegment=false
+	VManip.SegmentCount=0
+	VManip.CurSegmentSequence=nil
+	VManip.GesturePastHold=false
+	VManip.GestureOnHold=false
+	VManip.Attachment=nil
+end
+VManip.Remove = function()
+	if VManip:IsActive() then hook.Run("VManipPreRemove",VManip:GetCurrentAnim()) end
+	if IsValid(VManip.VMGesture) then VManip.VMGesture:Remove() end
+	if IsValid(VManip.VMCam) then VManip.VMCam:Remove() end
+	VManip.VMGesture=nil
+	VManip.AssurePos=false
+	VManip.LockToPly=false
+	VManip.LockZ=0
+	VManip.VMCam=nil
+	VManip.Cam_Ang=properang
+	VManip.Cam_AngInt=nil
+	VManip.Cycle=0
+	VManip.StartCycle=0
+	VManip.Attachment=nil
+	VManip.CurGesture=nil
+	VManip.CurGestureData=nil
+	VManip.GestureMatrix=nil
+	VManip.Lerp_Peak=nil
+	VManip.Lerp_Speed_In=nil
+	VManip.Lerp_Speed_Out=nil
+	VManip.Duration=0
+	VManip.HoldTime=nil
+	VManip.HoldQuit=false
+	VManip.PreventQuit=false
+	VManip.QueuedAnim=nil
+	VManip.Segmented=false
+	VManip.SegmentFinished=false
+	VManip.CurSegment=nil
+	VManip.LastSegment=false
+	VManip.SegmentCount=0
+	VManip.CurSegmentSequence=nil
+	VManip.GesturePastHold=false
+	VManip.GestureOnHold=false
+	hook.Run("VManipRemove")
+end
+VManip:Reset()
+
+VManip.RegisterAnim = function(self,name,tbl) self.Anims[name]=tbl end
+VManip.GetAnim = function(self,name) return self.Anims[name] end
+VManip.IsActive = function(self) return IsValid(self.VMGesture) end
+VManip.GetVMGesture = function(self) return self.VMGesture end
+VManip.GetCurrentAnim = function(self) return self.CurGesture end
+VManip.GetCurrentSegment = function(self) return self.CurSegment end
+VManip.GetCycle = function(self) return self.Cycle end
+VManip.SetCycle = function(self,newcycle) self.Cycle=newcycle end
+VManip.IsSegmented = function(self) return self.Segmented end
+VManip.GetSegmentCount = function(self) return self.SegmentCount end
+	local function PlayVMPSound(ent,sound,anim)
+		if VManip:GetCurrentAnim()==anim and ent:Alive() then
+			ent:EmitSound(sound)
+		end
+	end
+	local function PlaySoundsInTable(tbl,animname)
+	
+		local ply=LocalPlayer()
+		for k,v in pairs(tbl) do
+			timer.Simple(v, function() PlayVMPSound(ply,k,animname) end)
+		end
+	
+	end
+VManip.PlaySegment = function(self,sequence,lastsegment,soundtable)
+	if self:IsActive() and self:IsSegmented() and self.SegmentFinished and !self.LastSegment then
+		if self:GetVMGesture():LookupSequence(sequence)!=-1 then
+			if hook.Run("VManipPrePlaySegment",self:GetCurrentAnim(),sequence,lastsegment)==false then return end
+			self:GetVMGesture():ResetSequence(sequence)
+			VManip.CurSegment=sequence
+			self:SetCycle(0)
+			VManip.SegmentFinished=false
+			self.SegmentCount=self.SegmentCount+1
+			if lastsegment then self.LastSegment=true VManip.Lerp_Peak = curtime + VManip.CurGestureData["lerp_peak"] end
+			if soundtable then PlaySoundsInTable(soundtable,self:GetCurrentAnim()) end
+			hook.Run("VManipPlaySegment",self:GetCurrentAnim(),sequence,lastsegment)
+			return true
+		end
+	end
+	return false
+end
+VManip.IsPreventQuit = function(self) return self.PreventQuit end
+VManip.QuitHolding = function(self,animtostop)
+	if self:IsActive() then
+		if hook.Run("VManipPreHoldQuit",self:GetCurrentAnim(),animtostop)==false then return end
+		if (!animtostop and !VManip:IsPreventQuit()) or self:GetCurrentAnim()==animtostop then
+			self.HoldQuit=true
+			if self:IsSegmented() then self.LastSegment=true end
+			hook.Run("VManipHoldQuit",self:GetCurrentAnim(),animtostop)
+		end
+		if self.QueuedAnim==animtostop then
+			self.QueuedAnim=nil
+		end
+	end
+end
+VManip.QueueAnim = function(self,animtoqueue) if self:GetAnim(animtoqueue) then self.QueuedAnim=animtoqueue end end --For event related animations that you want to make sure will play no matter what
+
+
+VMLegs.Reset = function()
+
+	VMLegs.Anims={}
+	VMLegs.LegParent=nil
+	VMLegs.LegModel=nil
+	VMLegs.Cycle=0
+	VMLegs.StartCycle=0
+	VMLegs.SeqID=nil
+	VMLegs.CurLegs=nil
+
+end
+VMLegs.Remove = function()
+
+	if IsValid(VMLegs.LegParent) then VMLegs.LegParent:Remove() end
+	if IsValid(VMLegs.LegModel) then VMLegs.LegModel:Remove() end
+	
+	VMLegs.LegParent=nil
+	VMLegs.LegModel=nil
+	VMLegs.Cycle=0
+	VMLegs.StartCycle=0
+	VMLegs.SeqID=nil
+	VMLegs.CurLegs=nil
+
+end
+VMLegs:Reset()
+
+VMLegs.RegisterAnim = function(self,name,tbl) self.Anims[name]=tbl end
+VMLegs.GetAnim = function(self,name) return self.Anims[name] end
+VMLegs.IsActive = function(self) return IsValid(self.LegParent) end
+VMLegs.GetCurrentAnim = function(self) return self.CurLegs end
+
+VManip.PlayAnim = function(self,name)
+
+local ply=LocalPlayer()
+if ply:GetViewEntity() != ply and !self:IsActive() then return end
+if IsValid(ply:GetActiveWeapon()) then if ply:GetActiveWeapon():GetHoldType()=="duel" then return false end --doesnt always work
+else return false end
+if ply:InVehicle() or !ply:Alive() then return false end
+if self:IsActive() then return false end
+
+local vm=ply:GetViewModel()
+
+local bypass=hook.Run("VManipPreActCheck",name,vm)
+if !bypass then
+	if type(ply:GetActiveWeapon().GetStatus) == "function" then if ply:GetActiveWeapon():GetStatus() == 5 then return false end end
+	if vm:GetSequenceActivity(vm:GetSequence())==ACT_VM_RELOAD then return false end
+end
+
+local animtoplay=self:GetAnim(name)
+if !animtoplay then print("Invalid anim",name) return false end
+
+if hook.Run("VManipPrePlayAnim",name)==false then return false end
+
+curtime=CurTime()
+
+self.Remove()
+self.GesturePastHold = false
+self.GestureOnHold = false
+self.CurGestureData = animtoplay
+self.CurGesture = name
+self.Lerp_Peak = curtime + animtoplay["lerp_peak"]
+vmatrixpeakinfo = animtoplay["lerp_peak"]
+self.Lerp_Speed_In = animtoplay["lerp_speed_in"] or 1
+self.Lerp_Speed_Out = animtoplay["lerp_speed_out"] or 1
+self.Loop = animtoplay["loop"]
+VManip_modelname = animtoplay["model"]
+vmanipholdtime = animtoplay["holdtime"]
+
+self.VMGesture = ClientsideModel( "models/"..VManip_modelname, RENDERGROUP_BOTH )
+self.VMCam = ClientsideModel( "models/"..VManip_modelname, RENDERGROUP_BOTH ) --Saves me the headache of attachment shit
+
+self.Cam_AngInt=animtoplay["cam_angint"] or tableintensity
+
+self.SeqID = self.VMGesture:LookupSequence(name)
+if animtoplay["assurepos"] then
+	self.VMGesture:SetPos( ply:EyePos() )
+	VManip.AssurePos=true
+elseif !animtoplay["locktoply"] then
+	self.VMGesture:SetPos( vm:GetPos() )
+end
+
+if animtoplay["locktoply"] then
+	self.LockToPly=true
+	local eyepos=ply:EyePos()
+	self.VMGesture:SetAngles( ply:EyeAngles() )
+	self.VMGesture:SetPos( eyepos )
+	self.LockZ=eyepos.z
+else
+	self.VMGesture:SetAngles( vm:GetAngles() )
+	self.VMGesture:SetParent(vm)
+end
+
+self.Cam_Ang=animtoplay["cam_ang"] or properang
+self.VMCam:SetPos(vector_origin)
+self.VMCam:SetAngles( angle_zero )
+
+self.VMGesture:ResetSequenceInfo()
+self.VMGesture:SetPlaybackRate( 1 )
+self.VMGesture:ResetSequence(self.SeqID)
+
+self.VMCam:ResetSequenceInfo()
+self.VMCam:SetPlaybackRate( 1 )
+self.VMCam:ResetSequence(self.SeqID)
+
+self.VMatrixlerp=1
+self.Speed=animtoplay["speed"] or 1
+
+self.Lerp_Curve=animtoplay["lerp_curve"] or 1
+self.StartCycle=animtoplay["startcycle"] or 0
+self.Segmented=animtoplay["segmented"] or false
+self.HoldTime=animtoplay["holdtime"] or nil
+self.HoldTimeData=self.HoldTime
+self.PreventQuit=animtoplay["preventquit"] or false
+if self.HoldTime then self.HoldTime=curtime+self.HoldTime end
+self.Cycle=self.StartCycle
+self.VMGesture:SetNoDraw(true)
+self.VMCam:SetNoDraw(true)
+self.Duration=self.VMGesture:SequenceDuration(self.SeqID)
+if animtoplay["sounds"] and animtoplay["sounds"]!={} then
+	PlaySoundsInTable(animtoplay["sounds"],self.CurGesture)
+end
+
+hook.Run("VManipPostPlayAnim",name)
+return true
+
+end
+
+
+
+VMLegs.PlayAnim = function(self,name)
+
+if self:IsActive() then return false end
+local animtoplay=self:GetAnim(name)
+if !animtoplay then print("Invalid anim",name) return false end
+
+local ply=LocalPlayer()
+if LocalPlayer():ShouldDrawLocalPlayer() then return end
+self.Cycle=0
+self.CurLegs=name
+self.Speed=animtoplay["speed"]
+self.FBoost=animtoplay["forwardboost"]
+self.UBoost=animtoplay["upwardboost"]
+self.UBoostCache=Vector(0,0,self.UBoost)
+local model=animtoplay["model"]
+local vm=ply:GetViewModel()
+local vmang=vm:GetAngles()
+local vmpos=vm:GetPos()
+
+self.LegParent = ClientsideModel( "models/"..model, RENDERGROUP_BOTH )
+self.LegParent:SetPos( vmpos )
+self.LegParent:SetParent( vm )
+local legang=vm:GetAngles()
+legang=Angle(0,legang.y,0)
+VMLegs.LegParent:SetAngles(legang)
+
+self.LegModel = ClientsideModel( string.Replace(ply:GetModel(),"models/models/","models/"), RENDERGROUP_TRANSLUCENT )
+self.LegModel:SetPos( vmpos )
+self.LegModel:SetAngles( vmang )
+
+local plyhands=ply:GetHands()
+if IsValid(plyhands) then
+	self.LegModel.GetPlayerColor=plyhands.GetPlayerColor --yes, this is how you do player color. Fucking lol
+end
+
+self.LegModel:SetParent( self.LegParent )
+self.LegModel:AddEffects(EF_BONEMERGE)
+for i = 0, self.LegModel:GetNumBodyGroups() do
+  local bodyg = ply:GetBodygroup(i)
+  self.LegModel:SetBodygroup(i,bodyg)
+end
+
+for k,v in pairs(playermodelbonesupper) do
+local plybone = self.LegModel:LookupBone(v)
+if plybone!=nil then
+self.LegModel:ManipulateBoneScale( plybone, Vector(0,0,0) )
+end
+end
+
+self.SeqID = self.LegParent:LookupSequence(name)
+self.LegParent:ResetSequenceInfo()
+self.LegParent:SetPlaybackRate( 1 )
+self.LegParent:ResetSequence(self.SeqID)
+
+end
+
+--#########################--
+
+
+local posparentcache
+local curtimecheck=0 --prevents the hook from ever running twice in the same frame
+local scalevec = Vector(1,1,1)
+hook.Add("PostDrawViewModel", "VManip", function(vm,ply,weapon)
+
+if VManip:IsActive() then
+curtime=CurTime()
+if (curtime==curtimecheck and !gui.IsGameUIVisible()) then return end
+curtimecheck=CurTime()
+
+local vment = hook.Run("VManipVMEntity",ply,weapon)
+if IsValid(vment) then
+	vm = vment
+end
+
+if VManip.AssurePos then --Some SWEPs have RIDICULOUS offsets
+	if posparentcache!=weapon then
+		posparentcache=weapon
+		VManip.VMGesture:SetParent(nil)
+		VManip.VMGesture:SetPos( EyePos() )
+		VManip.VMGesture:SetAngles( vm:GetAngles() )
+		VManip.VMGesture:SetParent(vm)
+	end
+end
+
+
+if VManip.LockToPly then --A more cruel version of AssurePos
+	local eyeang=ply:EyeAngles()
+	local eyepos=EyePos()
+	local vmang=vm:GetAngles()
+	local finang=(eyeang-vmang)
+	finang.y=0 --fucks up on 180
+	local newang=eyeang+(finang*0.25)
+	VManip.VMGesture:SetAngles( newang )
+	VManip.VMGesture:SetPos(eyepos)
+end
+
+if !ply:Alive() then VManip:Remove() return end --fun fact, this only runs on respawn for an obvious reason
+--VManip.VMGesture:FrameAdvance(FrameTime()*VManip.Speed) --shit the bed, don't use this
+
+
+if VManip.Loop then
+	if VManip.Cycle>=1 then VManip.Lerp_Peak = curtime + VManip.CurGestureData["lerp_peak"] VManip.Cycle=0 end
+	if VManip.HoldQuit then VManip.Loop=false end
+end
+
+if !VManip.GestureOnHold then VManip.Cycle=VManip.Cycle+FrameTime()*VManip.Speed end
+VManip.VMGesture:SetCycle(VManip.Cycle)
+VManip.VMCam:SetCycle(VManip.Cycle)
+
+if VManip.HoldTime then
+if curtime>=VManip.HoldTime and !VManip.GestureOnHold and !VManip.GesturePastHold and !VManip.HoldQuit then
+	-- local seqdur=VManip.VMGesture:SequenceDuration()
+	-- VManip.Cycle=(VManip.HoldTimeData)/(seqdur) ply:ChatPrint(seqdur)
+	-- VManip.VMGesture:SetCycle(VManip.Cycle)
+	VManip.GestureOnHold=true
+elseif VManip.HoldQuit and VManip.GestureOnHold then
+	VManip.GestureOnHold=false
+	VManip.GesturePastHold=true
+	VManip.Lerp_Peak = curtime + VManip.CurGestureData["lerp_peak"]-VManip.CurGestureData["holdtime"]
+end
+end
+
+
+if (curtime < VManip.Lerp_Peak or (VManip:IsSegmented() and !VManip.LastSegment)) and (!VManip.GestureOnHold or VManip.GesturePastHold) then
+  VManip.VMatrixlerp = math.Clamp(VManip.VMatrixlerp-(FrameTime()*7)*VManip.Lerp_Speed_In,0,1)
+elseif !VManip.Loop and (!VManip.GestureOnHold or VManip.GesturePastHold) then
+  if !VManip:IsSegmented() or VManip.LastSegment then
+	VManip.VMatrixlerp = math.Clamp(VManip.VMatrixlerp+(FrameTime()*7)*VManip.Lerp_Speed_Out,0,1)
+  end
+end
+
+local rigpick2 = leftarmbones
+local rigpick = leftarmbones
+
+VManip.VMGesture:SetupBones()
+VManip.VMGesture:DrawModel()
+
+--[[The actual manipulation part below]]
+
+for k,v in pairs(rigpick) do
+
+if v == "ValveBiped.Bip01_L_Ulna" then
+  local lb=VManip.VMGesture:LookupBone("ValveBiped.Bip01_L_Forearm")
+  if lb then 
+  VManip.GestureMatrix = VManip.VMGesture:GetBoneMatrix(lb)
+  end
+else
+  local lb=VManip.VMGesture:LookupBone(rigpick2[k])
+  if lb then
+	VManip.GestureMatrix = VManip.VMGesture:GetBoneMatrix(lb)
+  end
+end
+
+local VMBone = vm:LookupBone(v)
+if VMBone !=nil and VManip.GestureMatrix != nil then
+  local VMBoneMatrix = vm:GetBoneMatrix(VMBone)
+  if VMBoneMatrix then
+	local VMBoneMatrixCache = VMBoneMatrix:ToTable()
+	local VMGestureMatrixCache = VManip.GestureMatrix:ToTable()
+	for k,v in pairs(VMGestureMatrixCache) do
+		for l,b in pairs(v) do
+		VMGestureMatrixCache[k][l] = LerpC(VManip.VMatrixlerp, b, VMBoneMatrixCache[k][l],VManip.Lerp_Curve)
+		end
+	end
+	local m = Matrix(VMGestureMatrixCache)
+	m:SetScale(scalevec)
+	if type(ply:GetActiveWeapon().GetStatus) == "function" then if ply:GetActiveWeapon():GetStatus() != 5 then
+		vm:SetBoneMatrix(VMBone,m)
+	end
+	else vm:SetBoneMatrix(VMBone,m) end
+  end
+
+end
+end
+
+if VManip.Cycle>=1 and !VManip.Loop then
+	if VManip:IsSegmented() and !VManip.SegmentFinished then
+		VManip.SegmentFinished=true
+		hook.Run("VManipSegmentFinish",VManip:GetCurrentAnim(),VManip:GetCurrentSegment(),VManip.LastSegment,VManip:GetSegmentCount())
+	elseif VManip:IsSegmented() and VManip.LastSegment then
+		if VManip.VMatrixlerp>=1 then VManip:Remove() end
+	elseif !VManip:IsSegmented() then
+	if VManip.CurGestureData["loop"] then
+		if VManip.VMatrixlerp>=1 then VManip:Remove() end
+	else VManip.Remove() return
+	end
+	end
+end
+
+elseif VManip.QueuedAnim then
+
+if VManip:PlayAnim(VManip.QueuedAnim) then VManip.QueuedAnim=nil end
+
+end
+
+end)
+
+local anglef=Angle(0,1,0)
+local curtimelegscheck = 0
+hook.Add("PostDrawViewModel", "VMLegs", function(vm,ply,weapon) --Very basic stuff, you see
+
+if VMLegs:IsActive() then
+	curtime=CurTime()
+	if (curtime==curtimelegscheck and !gui.IsGameUIVisible()) then return end
+	curtimelegscheck=CurTime()
+
+	local vment = hook.Run("VManipLegsVMEntity",ply,weapon)
+	if IsValid(vment) then
+		vm = vment
+	end
+
+	local legang=vm:GetAngles()
+	legang=Angle(0,legang.y,0)
+	VMLegs.LegParent:SetAngles(legang)
+	VMLegs.LegParent:SetPos(vm:GetPos()+(legang:Forward()*VMLegs.FBoost)+VMLegs.UBoostCache)
+	VMLegs.Cycle=VMLegs.Cycle+FrameTime()*VMLegs.Speed
+	VMLegs.LegParent:SetCycle(VMLegs.Cycle)
+	if VMLegs.Cycle>=1 then VMLegs.Remove() return end
+
+end
+
+end)
+
+concommand.Add("VManip_List",function(ply) PrintTable(VManip.Anims) end)
+concommand.Add("VManip_ListSimple",function(ply) for k,v in pairs(VManip.Anims) do print(k," | ",v["model"]) end end)
+
+
+net.Receive("VManip_SimplePlay",function(len)
+
+local anim=net.ReadString()
+VManip:PlayAnim(anim)
+
+end)
+--[[Maybe merge these two in one message, using enums]]
+net.Receive("VManip_StopHold",function(len)
+
+local anim=net.ReadString()
+if anim=="" then VManip:QuitHolding() else VManip:QuitHolding(anim) end
+
+end)
+
+hook.Add("NeedsDepthPass","VManip_RubatPLZ",function() --CalcView attachments need to be retrieved outside of CalcView
+
+--Just gonna slide this in there, yea.
+if VManip.QueuedAnim then
+local ply=LocalPlayer()
+if ply:GetViewEntity()!=ply or ply:ShouldDrawLocalPlayer() then VManip.QueuedAnim=nil end
+end
+--Good.
+
+if !VManip:IsActive() then return end
+
+if !LocalPlayer():Alive() then VManip:Remove() return end
+
+local allatt=VManip.VMCam:GetAttachments()
+if #allatt==0 then return end
+local lookup=allatt[1]["id"]
+local att=VManip.VMCam:GetAttachment(lookup)
+VManip.Attachment=att
+
+end)
+
+local calcang = Angle()
+hook.Add("CalcView","VManip_Cam",function(ply,origin,angles,fov,self)
+
+if self == true then return end
+if !VManip:IsActive() or !VManip.Attachment then return end
+if ply:GetViewEntity()!=ply or ply:ShouldDrawLocalPlayer() then return end
+local view={}
+local camang=VManip.Attachment.Ang-VManip.Cam_Ang
+camang.x = camang.x*VManip.Cam_AngInt[1]
+camang.y = camang.y*VManip.Cam_AngInt[2]
+camang.z = camang.z*VManip.Cam_AngInt[3]
+
+view.angles = angles
+
+local hookv = hook.Run("CalcView", ply, origin, angles, fov, true)
+if hookv.angles then
+	hookv.angles:Add(camang)
+	view.angles:Set(hookv.angles)
+end
+
+view.fov = fov or hookv.fov
+view.origin = hookv.origin
+return view
+
+end)
+
+
+hook.Add( "StartCommand", "VManip_PreventReload", function(ply,ucmd) --prevent reload hook
+if VManip:IsActive() and !ply:ShouldDrawLocalPlayer() then ucmd:RemoveKey(8192) end
+end)
+hook.Add("TFA_PreReload", "VManip_PreventTFAReload", function(wepom,keyreleased) --prevent reload on tfa hook
+if VManip:IsActive() then return "no" end
+end)
+
+
+
+--Time to load everythin'
+local function VManip_FindAndImport()
+
+local path="vmanip/anims/"
+local anims=file.Find(path.."*.lua","lcl")
+
+for k,v in pairs(anims) do
+		include(path..v)
+end
+print("VManip loaded with "..table.Count(VManip.Anims).." animations")
+
+end
+
+
+hook.Add("InitPostEntity","VManip_ImportAnims",function()
+
+VManip_FindAndImport()
+hook.Remove("InitPostEntity","VManip_ImportAnims")
+end)
+
+hook.Add("VManipPreActCheck","VManipArcCWFix",function(name,vm) 
+
+local ply=LocalPlayer()
+local activewep=ply:GetActiveWeapon()
+if activewep.ArcCW then
+	if activewep:ShouldDrawCrosshair() or vm:GetCycle()>0.99 then return true end --crossh check is pretty rudimentary
+end --vm getcycle is fucked for some reason except on some anims, makes me wonder
+
+end)
+hook.Add("VManipPrePlayAnim","VManipArcCWReload",function()
+
+local ply=LocalPlayer()
+local activewep=ply:GetActiveWeapon()
+if activewep.ArcCW then
+	if activewep:GetNWBool("reloading") then return false end
+end
+
+end)
+hook.Add("VManipPrePlayAnim","VManipMWBaseReload",function()
+
+local ply=LocalPlayer()
+local activewep=ply:GetActiveWeapon()
+if activewep.GetIsReloading then
+	if activewep:GetIsReloading() then return false end
+end
+
+end)
+
+hook.Add("VManipVMEntity", "VManipMWBase", function(ply, weapon)
+	local vm = weapon.m_ViewModel
+	if IsValid(vm) then
+		VManip:GetVMGesture():SetPos(vm:GetPos())
+		VManip:GetVMGesture():SetAngles(vm:GetAngles())
+		return vm
+	end
+end)
+
+hook.Add("VManipLegsVMEntity", "VManipMWBase", function(ply, weapon)
+	local vm = weapon.m_ViewModel
+	if IsValid(vm) then
+		return vm
+	end
+end)
+
+concommand.Add("VManip_FindAndImport",VManip_FindAndImport)
+RunConsoleCommand("VManip_FindAndImport") --Runs it again if this file is refreshed

garrysmod/addons/vmanip_ft/lua/autorun/server/sv_vmanip.lua

@@ -0,0 +1,18 @@
+util.AddNetworkString("VManip_SimplePlay")
+util.AddNetworkString("VManip_StopHold")
+
+--VManip_SimplePlay: WriteString of anim to play on client (not guaranteed to play)
+--VManip_StopHold: WriteString of anim to stop holding on client
+
+local function VManip_FindAndImport()
+
+local path="vmanip/anims/"
+local anims=file.Find(path.."*.lua","lsv")
+
+for k,v in pairs(anims) do
+		AddCSLuaFile(path..v)
+end
+
+end
+
+VManip_FindAndImport()

garrysmod/addons/vmanip_ft/lua/autorun/sh_contextualanims.lua

@@ -0,0 +1,104 @@
+if SERVER then
+util.AddNetworkString("VManip_BarnacleGrip")
+
+hook.Add("PlayerUse","VManip_UseAnim",function(ply,ent)
+
+local usecooldown=ply.usecooldown or 0
+if ent!=nil and ply:KeyPressed(IN_USE) and CurTime()>usecooldown and !ent.LFS then --fix LFS
+	net.Start("VManip_SimplePlay") net.WriteString("use") net.Send(ply) ply.usecooldown=CurTime()+1
+end
+
+end)
+
+hook.Add("PlayerPostThink","VManip_BarnacleCheck",function(ply) --EFlag does not return correct value clientside
+
+local check=ply.barnaclecheck!=2
+local eflag=ply:IsEFlagSet(EFL_IS_BEING_LIFTED_BY_BARNACLE)
+
+if eflag and check then
+	ply.barnaclecheck=1
+elseif !check and !eflag then
+	ply.barnaclecheck=0
+	ply.barnacledelay=CurTime()+1
+	net.Start("VManip_BarnacleGrip") net.WriteBool(false) net.Send(ply)
+end
+
+if ply.barnaclecheck==1 then
+	ply.barnaclecheck=2
+	net.Start("VManip_BarnacleGrip") net.WriteBool(true) net.Send(ply)
+end
+
+end)
+
+hook.Add("EntityTakeDamage","VManip_ShieldExplosion",function(ply,dmg)
+	if !ply:IsPlayer() then return end
+	local dmgtype=dmg:GetDamageType()
+	if dmgtype==DMG_BLAST or dmgtype==134217792 then
+		net.Start("VManip_SimplePlay") net.WriteString("shieldexplosion") net.Send(ply)
+	end
+end)
+
+elseif CLIENT then
+
+local vmp_contextual_voicechat = CreateClientConVar("cl_vmanip_voicechat", 1, true, false,"Toggles the voice chat animation")
+
+
+net.Receive("VManip_BarnacleGrip",function(len)
+
+local choked=net.ReadBool()
+local ply=LocalPlayer()
+
+if choked then
+	VManip:QueueAnim("barnaclechoke")
+	ply.barnaclegrip=true
+else
+	VManip:QuitHolding("barnaclechoke")
+	ply.barnaclegrip=false
+end
+
+end)
+
+hook.Add("CreateMove","VManip_SwimAnims",function(cmd)
+
+local ply=LocalPlayer()
+if ply:WaterLevel()<2 then
+	local vmpcuranim=VManip:GetCurrentAnim()
+	if vmpcuranim=="swimleft" or vmpcuranim=="swimforward" then
+		VManip:QuitHolding()
+	end
+return end
+
+local buttons=cmd:GetButtons()
+local movingleft=bit.band(buttons,IN_MOVELEFT)!=0
+local movingforward=(bit.band(buttons,IN_FORWARD)!=0 or bit.band(buttons,IN_MOVERIGHT)!=0)
+local vmpcuranim=VManip:GetCurrentAnim()
+
+if !VManip:IsActive() then
+	if movingleft then
+		VManip:PlayAnim("swimleft")
+	elseif movingforward then
+		VManip:PlayAnim("swimforward")
+	end
+else
+	if !movingleft and vmpcuranim=="swimleft" then
+		VManip:QuitHolding("swimleft") return
+	elseif !movingforward and vmpcuranim=="swimforward" then
+		VManip:QuitHolding("swimforward") return
+	end
+end
+
+end)
+
+
+hook.Add("PlayerStartVoice","VManip_StartVoiceAnim",function(ply)
+if vmp_contextual_voicechat:GetBool() and ply==LocalPlayer() then
+	VManip:PlayAnim("voicechat")
+end
+end)
+hook.Add("PlayerEndVoice","VManip_EndVoiceAnim",function(ply)
+if vmp_contextual_voicechat:GetBool() and ply==LocalPlayer() then
+	VManip:QuitHolding("voicechat")
+end
+end)
+
+end

garrysmod/addons/vmanip_ft/lua/autorun/sh_vmanipvaulting.lua

@@ -0,0 +1,232 @@
+local chestvec = Vector(0,0,32)
+local thoraxvec = Vector(0,0,48)
+local eyevec = Vector(0,0,64)
+local mantlevec = Vector(0,0,16)
+local vault1vec = Vector(0,0,24)
+
+local vpunch1 = Angle(0,0,-1)
+local vpunch2 = Angle(-1,0,0)
+
+//DT vars
+local meta = FindMetaTable("Player")
+function meta:GetMantle()
+	return self:GetDTInt(13)
+end
+function meta:SetMantle(value)
+	return self:SetDTInt(13, value)
+end
+
+function meta:GetMantleLerp()
+	return self:GetDTFloat(13)
+end
+function meta:SetMantleLerp(value)
+	return self:SetDTFloat(13, value)
+end
+
+function meta:GetMantleStartPos()
+	return self:GetDTVector(13)
+end
+function meta:SetMantleStartPos(value)
+	return self:SetDTVector(13, value)
+end
+
+function meta:GetMantleEndPos()
+	return self:GetDTVector(14)
+end
+function meta:SetMantleEndPos(value)
+	return self:SetDTVector(14, value)
+end
+
+local pkweps = { --these already have their own climbing
+["parkourmod"] = true,
+["m_sprinting"] = true
+}
+
+local function PlayVaultAnim(ply, legs)
+	if game.SinglePlayer() and SERVER then
+		ply:SendLua('if VManip then VManip:PlayAnim("vault") end')
+		if legs then
+			ply:SendLua('if VMLegs then VMLegs:PlayAnim("test") end')
+		end
+		return
+	end
+	if CLIENT and VManip then
+		VManip:PlayAnim("vault")
+		if legs then
+			VMLegs:PlayAnim("test")
+		end
+	end
+end
+
+local function Vault1(ply, mv, ang, t, h)
+	t.start = mv:GetOrigin() + eyevec + ang:Forward()* 50
+	t.endpos = t.start - (chestvec)
+	t.filter = ply
+	t.mask = MASK_PLAYERSOLID
+	t = util.TraceLine(t)
+	if (t.Entity and t.Entity.IsNPC) and (t.Entity:IsNPC() or t.Entity:IsPlayer()) then
+		return false
+	end
+	if t.Hit and t.Fraction > 0.5 then
+		local tsafety = {}
+		tsafety.start = t.StartPos - ang:Forward() * 50
+		tsafety.endpos = t.StartPos
+		tsafety.filter = ply
+		tsafety.mask = MASK_PLAYERSOLID
+		tsafety = util.TraceLine(tsafety)
+		
+		if tsafety.Hit then return false end
+		
+		h.start = t.HitPos + mantlevec
+		h.endpos = h.start
+		h.filter = ply
+		h.mask = MASK_PLAYERSOLID
+		h.mins, h.maxs = ply:GetCollisionBounds()
+		local hulltr = util.TraceHull(h)
+		if !hulltr.Hit then
+			if t.HitNormal.x != 0 then t.HitPos.z = t.HitPos.z + 12 end
+			ply:SetMantleStartPos(mv:GetOrigin())
+			ply:SetMantleEndPos(t.HitPos + mantlevec)
+			ply:SetMantleLerp(0)
+			ply:SetMantle(1)
+			PlayVaultAnim(ply)
+			ply:ViewPunch(vpunch1)
+			if SERVER then ply:PlayStepSound(1) end
+			return true
+		end
+	end
+	return false
+end
+
+local function Vault2(ply, mv, ang, t, h)
+	t.start = mv:GetOrigin() + chestvec
+	t.endpos = t.start + ang:Forward() * 20
+	t.filter = ply
+	t.mask = MASK_PLAYERSOLID
+
+	local vaultpos = t.endpos + ang:Forward() * 50
+	t = util.TraceLine(t)
+	if (t.Entity and t.Entity.IsNPC) and (t.Entity:IsNPC() or t.Entity:IsPlayer()) then
+		return false
+	end
+	
+	if t.Hit and t.Fraction > 0.5 then
+		local tsafety = {}
+		tsafety.start = mv:GetOrigin() + eyevec
+		tsafety.endpos = tsafety.start + ang:Forward() * 50
+		tsafety.filter = ply
+		tsafety.mask = MASK_PLAYERSOLID
+		tsafety = util.TraceLine(tsafety)
+		
+		if tsafety.Hit then return false end
+		
+		local tsafety = {}
+		tsafety.start = mv:GetOrigin() + eyevec + ang:Forward() * 50
+		tsafety.endpos = tsafety.start - thoraxvec
+		tsafety.filter = ply
+		tsafety.mask = MASK_PLAYERSOLID
+		tsafety = util.TraceLine(tsafety)
+		
+		if tsafety.Hit then return false end
+		h.start = t.StartPos + ang:Forward() * 50
+		h.endpos = h.start
+		h.filter = ply
+		h.mask = MASK_PLAYERSOLID
+		h.mins, h.maxs = ply:GetCollisionBounds()
+		local hulltr = util.TraceHull(h)
+		if !hulltr.Hit then
+			ply:SetMantleStartPos(mv:GetOrigin())
+			ply:SetMantleEndPos(vaultpos)
+			ply:SetMantleLerp(0)
+			ply:SetMantle(2)
+			PlayVaultAnim(ply, true)
+			ply:ViewPunch(vpunch2)
+			if SERVER then ply:EmitSound("vmanip/goprone_0"..math.random(1,3)..".wav") end
+			return true
+		end
+	end
+	return false
+end
+
+hook.Add("SetupMove", "vmanip_vault", function(ply, mv, cmd)
+
+	if ply.MantleDisabled then
+		return
+	end
+	
+	if !ply:Alive() then
+		if ply:GetMantle() != 0 then 
+			ply:SetMantle(0)
+		end
+		return
+	end
+	
+	if ply:GetMantle() == 0 then
+		local mvtype = ply:GetMoveType()
+		if (ply:OnGround() or mv:GetVelocity().z < -600 or mvtype == MOVETYPE_NOCLIP or mvtype == MOVETYPE_LADDER) then
+			return
+		end
+	end
+	
+	local activewep = ply:GetActiveWeapon()
+	if IsValid(activewep) and activewep.GetClass then
+		if pkweps[activewep:GetClass()] then
+			return
+		end
+	end
+	
+	ply.mantletr = ply.mantletr or {}
+	ply.mantlehull = ply.mantlehull or {}
+	local t = ply.mantletr
+	local h = ply.mantlehull
+	
+	if ply:GetMantle() == 0 and !ply:OnGround() and mv:KeyDown(IN_FORWARD) and !mv:KeyDown(IN_DUCK) and !ply:Crouching() then
+		local ang = mv:GetAngles()
+		ang.x = 0 ang.z = 0
+		if !Vault1(ply, mv, ang, t, h) then
+			Vault2(ply, mv, ang, t, h)
+		end
+	end
+	
+	if ply:GetMantle() != 0 then
+		mv:SetButtons(0)
+		mv:SetMaxClientSpeed(0)
+		mv:SetSideSpeed(0) mv:SetUpSpeed(0) mv:SetForwardSpeed(0)
+		mv:SetVelocity(vector_origin)
+		ply:SetMoveType(MOVETYPE_NOCLIP)
+		
+		local mantletype = ply:GetMantle()
+		local mlerp = ply:GetMantleLerp()
+		local FT = FrameTime()
+		local TargetTick = (1/FT)/66.66
+		local mlerpend = ((mantletype == 1 and 0.8) or 0.75)
+		local mlerprate = ((mantletype == 1 and 0.075) or 0.1)/TargetTick
+
+		ply:SetMantleLerp(Lerp(mlerprate, mlerp, 1))
+		local mvec = LerpVector(ply:GetMantleLerp(), ply:GetMantleStartPos(), ply:GetMantleEndPos())
+		mv:SetOrigin(mvec)
+
+		if mlerp >= mlerpend or mvec:DistToSqr(ply:GetMantleEndPos()) < 280 then
+			if ply:GetMantle() == 2 then
+				local ang = mv:GetAngles()
+				ang.x = 0 ang.z = 0
+				mv:SetVelocity(ang:Forward() * 200)
+			end
+			ply:SetMantle(0)
+			ply:SetMoveType(MOVETYPE_WALK)
+			if SERVER and !ply:IsInWorld() then
+				mv:SetOrigin(ply:GetMantleStartPos())
+			end
+			h.start = mv:GetOrigin()
+			h.endpos = h.start
+			h.filter = ply
+			h.mask = MASK_PLAYERSOLID
+			h.mins, h.maxs = ply:GetCollisionBounds()
+			local hulltr = util.TraceHull(h)
+			if hulltr.Hit then
+				mv:SetOrigin(ply:GetMantleEndPos())
+			end
+		end
+	end
+
+end)