max_storage = 5

function initArray(v,n)
	local arr = {}
	for i = 1,n do	arr[i] = v end
	return arr
end

player_info = initArray( {positions = {}, xdif = 0, ydif = 0},32)

addhook("move","h_move")
function h_move(id,xn,yn,walk) -- use this to create a history of all movements
	table.insert(player_info[id].positions,{x = xn,y = yn})	
	if(#player_info[id].positions >= 5) then	
		
		local x_dif = player_info[id].positions[5].x - player_info[id].positions[1].x
		local y_dif = player_info[id].positions[5].y - player_info[id].positions[1].y
		
		table.remove(player_info[id].positions,1)
		
		player_info[id].xdif = x_dif
		player_info[id].ydif = y_dif			
	end	
end

addhook("serveraction","h_serveraction")
function h_serveraction(id,action)
	if action == 1 then -- jump :D
		--tween_move(i
		local team = player(id,"team")
		local look = player(id,"look") + 1
		local img_path = "gfx/player/"
		
		if(team == 1) then img_path = img_path.."t" 
		elseif team == 2 then img_path = img_path.."ct"
		else
			return 0
		end
		img_path = img_path..look..".bmp"
		
		
		local x_dif = player_info[id].xdif
		local y_dif = player_info[id].ydif
		
		if(x_dif  == 0 and y_dif == 0) then
			return 0 -- not moving
		end
				
		movement(id.." "..(x_dif / 3).." "..(y_dif / 3).." ".."10")
		
		--im_id = image(img_path,1,1, 200+id)
		--tween_move(im_id,20,player(id,"x") + 100, player(id,"y") + 100)		
	end
end


function movement(s) -- "id  dx dy times"
		
		local id,dx,dy,times = s:match("(.*) (.*) (.*) (.*)") -- okay dis is stupid
		times = tonumber(times)
		if(times >= 0) then
			parse("setpos "..id.." "..dx+player(id,"x").." "..dy+player(id,"y"))
			timer(15,"movement", id.." "..dx.." "..dy.." "..times-1, 1)
		end
end