-- Distance Traveled Script By: Mr. EA King
g_dist_traveled = 0

local Time1 = 0
local Time2 = 0
local TimePassed = 0

local ismoving = 0
local checktime = 1
local oldTime = 0

local x = 0
local y = 0
local z = 0

local tPlayerDX = 0
local tPlayerDY = 0
local tPlayerDZ = 0

local playerDist = 0
local getnewpos = 0
function dist_traveled_init(e)

end

function dist_traveled_main(e)
Prompt("Distance Traveled: " .. g_dist_traveled)

--if player stopped moving record time traveled
if GetGamePlayerControlMovement() == 0 and ismoving == 0 then
 oldTime = Time2 - Time1 
end
-- if player stops moving set flag
if GetGamePlayerControlMovement() == 0 then
 ismoving = 0
end
-- first time moving? set up variables
if GetGamePlayerControlMovement() == 1 and ismoving == 0 then  
 ismoving = 1
 getnewpos = 1
end
--sets up old player pos
if ismoving == 1 and getnewpos == 1 then
 x = GetPlrObjectPositionX()
 y = GetPlrObjectPositionY()
 z = GetPlrObjectPositionZ()
 getnewpos = 0  
end
--walk or run? increase the check time to have distance traveled go up slower or decrease it to increase how fast distance traveled goes up
if ismoving == 1 and GetGamePlayerControlIsRunning() == 1 then
 checktime = .4 
elseif ismoving == 1 and GetGamePlayerControlIsRunning() == 0 then
 checktime = .8
end 
 
 --player moving?
 if ismoving == 1 then 
  --get time passed
  Time2 = g_Time
  TimePassed = (Time2 - Time1) * 0.001   
  --get playr dist_traveled
  tPlayerDX = (x - g_PlayerPosX)
  tPlayerDY = (y - g_PlayerPosY)
  tPlayerDZ = (z - g_PlayerPosZ)
  if math.abs(tPlayerDY) > 100 then 
   tPlayerDY = tPlayerDY * 4
  end  
  playerDist = math.sqrt(math.abs(tPlayerDX*tPlayerDX)+math.abs(tPlayerDY*tPlayerDY)+math.abs(tPlayerDZ*tPlayerDZ));
 end
 
 --check if time has passed and dist > 120 and you are still moving.
 if  TimePassed >= checktime and ismoving == 1 and playerDist > 120 then   
 --set meters to meters + 1
 g_dist_traveled = g_dist_traveled + 1  
 --resets some of the variables and tells it to getnewpos
  oldTime = 0 
  playerDist = 0
  getnewpos = 1
  Time1 = g_Time - oldTime
  TimePassed = 0
 end
 end
 
 

-- Distance Traveled Script By: Mr. EA King
g_dist_traveled = 0

local ismoving = 0
local oldDist = 0
local x = 0
local y = 0
local z = 0
local tPlayerDX = 0
local tPlayerDY = 0
local tPlayerDZ = 0
local playerDist = 0
local getnewpos = 0
function dist_traveled2_init(e)

end

function dist_traveled2_main(e)
Prompt("Distance Traveled: " .. g_dist_traveled .. " M")
-- first time moving? set up variables
if GetGamePlayerControlMovement() == 1 and ismoving == 0 then  
 ismoving = 1
 getnewpos = 1 
end
--sets up old player pos
if ismoving == 1 and getnewpos == 1 then
 x = GetPlrObjectPositionX()
 y = GetPlrObjectPositionY()
 z = GetPlrObjectPositionZ()
 getnewpos = 0  
end
 --player moving?
 if ismoving == 1 then 
  --get playr dist_traveled
  tPlayerDX = (x - g_PlayerPosX)
  tPlayerDY = (y - g_PlayerPosY)
  tPlayerDZ = (z - g_PlayerPosZ)
  if math.abs(tPlayerDY) > 100 then 
   tPlayerDY = tPlayerDY * 4
  end  
  --figures out distance
  playerDist = math.sqrt(math.abs(tPlayerDX*tPlayerDX)+math.abs(tPlayerDY*tPlayerDY)+math.abs(tPlayerDZ*tPlayerDZ)) + oldDist;
 end
 
 --check if time has passed and dist > 120 and you are still moving.
 if  playerDist > 100 then   
 --set meters to meters + 1
  g_dist_traveled = g_dist_traveled + 1   
  playerDist = 0
  oldDist = 0
  getnewpos = 1  
 end

--if player stopped moving record time traveled
if GetGamePlayerControlMovement() == 0 and ismoving == 0 then
 oldDist = playerDist
end
-- if player stops moving set flag
if GetGamePlayerControlMovement() == 0 then
 ismoving = 0
end
 end
 
 

local newPx, newPz = 0, 0
local distanceTravelled = 0
local startUpTimer = 0

local sqrt = math.sqrt

function distance_travelled_init(e)
	startUpTimer = 0
end

function distance_travelled_main(e)

	if startUpTimer == 0 then
		startUpTimer = g_Time + 1000
		return
	end
	
	if g_Time > startUpTimer then
		distanceTravelled = 0
		newPx, newPz = g_PlayerPosX, g_PlayerPosZ
		startUpTimer = math.huge
		return
	end
	
	local Px, Pz = g_PlayerPosX, g_PlayerPosZ
	
	if Px ~= newPx or Pz ~= newPz then
	
		local dx, dz = Px - newPx, Pz - newPz

		distanceTravelled = distanceTravelled + sqrt(dx*dx + dz*dz)
		
	end
	
	Prompt("Distance Travelled = " .. math.modf(distanceTravelled))
	
	newPx, newPz = Px, Pz
end

local oldplrPos = 0
local newplrPos = 0
local dis_traveled = 0

local tPlayerDX = 0
local tPlayerDY = 0
local tPlayerDZ = 0
local x,y,z = 0,0,0

function distance_traveled_init(e)
	x = GetPlrObjectPositionX()
	y = GetPlrObjectPositionY()
	z = GetPlrObjectPositionZ()
	oldplrPos = math.sqrt(math.abs(x^2)+math.abs(y^2)+math.abs(z^2))
end

function distance_traveled_main(e)
	
if GetGamePlayerControlMovement() then
	tPlayerDX = (GetPlrObjectPositionX())
	tPlayerDY = (GetPlrObjectPositionY())
	tPlayerDZ = (GetPlrObjectPositionZ())
	newplrPos = math.sqrt(math.abs(tPlayerDX^2)+math.abs(tPlayerDY^2)+math.abs(tPlayerDZ^2))
	
	--Prompt(GetGamePlayerControlMovement() .. " x: " ..round(x,1) .. " y: " ..round(y,1) .. " z: " ..round(z,1))
	--Prompt(GetGamePlayerControlMovement() .. " tPlayerDX: " ..round(tPlayerDX,1) .. " tPlayerDY: " ..round(tPlayerDY,1) .. " tPlayerDZ: " ..round(tPlayerDZ,1))
	
	dis_traveled = newplrPos-oldplrPos
	
	--Prompt(dis_traveled)
	
	if dis_traveled>1000 then Prompt("1000k reached") end -- for testing purpose
	
end
end --main

function round(num, idp)
  local mult = 10^(idp or 0)
  return math.floor(num * mult + 0.5) / mult
end