local CLIENT_PAC_DIR = "artery/client/pacs"
local itm = nrequire("item.lua")
local ball
function finddmgpoint(name)
	local filepath = string.format(CLIENT_PAC_DIR .. "/%s.txt",name)
	local filetext = file.Read(filepath,"DATA")
	local outfit = CompileString(string.format("return {%s}",filetext),name)()
	ball = LocalPlayer():FindPACPart(outfit, "wep_point")
	print("point is",ball,type(ball))
end
function finddmgbox(who,name)
	local filepath = string.format(CLIENT_PAC_DIR .. "/%s.txt",name)
	local filetext = file.Read(filepath,"DATA")
	assert(filetext ~= nil, string.format("Could not find a pac file for name %q (%s)",name,filepath))
	local outfit = CompileString(string.format("return {%s}",filetext),name)()
	assert(outfit ~= nil, string.format("Failed to compile %q",filetext))
	ball = who:FindPACPart(outfit, "wep_box")
	print("box is", ball,type(ball))
	assert(ball ~= pac.NULL, string.format("Could not find a prop called %q on pac %q","web_box",name))
end

local swingtbl = {}
local tracking = false

net.Receive("artery_doanimation",function()
	local animname = net.ReadString()
	local animtime = net.ReadDouble()
	local wepname = net.ReadString()
	local pacname = net.ReadString()
	local animdir = net.ReadString()
	local who = net.ReadEntity()

	swingtbl = {}
	--pac.SetupENT(who)
	finddmgbox(who,pacname)
	tracking = true
	print("Doing animation:",animname,animtime,echoname)
	who:SetLuaAnimation(animname)
	timer.Simple(animtime,function()
		tracking = false
		who:StopLuaAnimation(animname)
		net.Start("artery_notifyserverofswing")
		net.WriteString(wepname)
		net.WriteString(animdir)
		print("Seding swingtbl:")
		PrintTable(swingtbl)
		net.WriteTable(swingtbl)
		net.SendToServer()
	end)
end)

concommand.Add("artery_startanimation",function(ply,cmd,args)
	swingtbl = {}
	ply:SetLuaAnimation(args[1])
	timer.Simple(args[2],function()
		ply:StopLuaAnimation(args[1])
	end)
end)

--[[
local lastpos
hook.Add("Tick","trace_weppos",function()
	if not ball or not ball.Entity then return end
	if lastpos == nil then lastpos = ball.Entity:GetPos() end
	--`print("Distance between ", ball.Entity:GetPos(), "and", lastpos, " is" ,ball.Entity:GetPos():Distance(lastpos))
	if ball.Entity:GetPos():Distance(lastpos) > 2 and tracking then
		swingtbl[#swingtbl + 1] = ball.Entity:GetPos() - LocalPlayer():GetPos()
		print(ball.Entity:GetPos() - LocalPlayer():GetPos())
	end
	lastpos = ball.Entity:GetPos()
end)
]]