local CLIENT_PAC_DIR = "artery/client/pacs"
local itm = nrequire("item.lua")
local stt = nrequire("cl_state.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")
	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
local animent

local swingtodraw = nil
net.Receive("artery_setswingdebug",function()
	swingtodraw = net.ReadTable()
end)

hook.Add("PreDrawTranslucentRenderables","draw_wepswing",function()
	local lpp = LocalPlayer():GetPos()
	if swingtodraw ~= nil then
		for i = 2, #swingtodraw do
			render.DrawLine( lpp + swingtodraw[i], lpp + swingtodraw[i-1], Color(255,0,0,255), false )
			render.DrawLine( lpp + swingtodraw[i], lpp + swingtodraw[i-1] + Vector(0,0,10), Color(0,255,0,255), false )
		end
	end
end)

net.Receive("artery_weaponswing",function()
	local animname = net.ReadString()
	local who = net.ReadEntity()
	local duration = net.ReadDouble()
	who:SetLuaAnimation(animname)
	timer.Simple(duration,function()
		who:StopLuaAnimation(animname)
	end)

end)

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()
	local waittime = net.ReadDouble()

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

concommand.Add("artery_startanimation",function(ply,cmd,args)
	if not ply:IsAdmin() then return end
	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 IsValid(ball) or not IsValid(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) > 0.5 and]] tracking then
		swingtbl[#swingtbl + 1] = ball.Entity:GetPos() - animent:GetPos()
		--print(ball.Entity:GetPos() - animent:GetPos())
		lastpos = ball.Entity:GetPos()
	end
end)