;Artificial Intelligence Script 
; by xplosys 

;Header 

desc = Wait for Player and Follow Waypoints with no rotation (platform) 

;Triggers 

:state=0,plrdistwithin=20:state=1,norotate=1,PLRASS=1 
:state=1,waypointstate=0:animate=2,waypointstart :state=1,waypointstate=3:animate=2,waypointnext :state=1,waypointstate=4:animate=2,waypointrandom 
:state=1,waypointstate=5:animate=2,waypointreverse 

;End of Script

-- Allows Player To ride a platform (or any entity) that moves from A to B in straight line (and then B to A / optional).
-- Make sure platform entity has the IfUsed properties field the same as its Name field
-- Orientate the entity's forward aspect towards the required direction of travel.
-- Set Static Mode to 'No' 
-- Set Physics On to 'No'
-- Tested with "Floor (Mystery)"

--adjust these two fields for the speed of the platforkm and how far it needs to move to get the playe from A to B
local platformSpeed = 250
local distanceToTravel = 1500
local oneWayTrip = 0 -- set to 1 if Player can move from B to A once at B from A
--

local distanceTravelled = 0
local state = 0
local initialX = 0
local initialZ = 0

function rideplatform_init(e)
end

function rideplatform_main(e)

PlayerDist = GetPlayerDistance(e)
--Prompt(state .. "  " .. distanceTravelled .. "  " .. distanceToTravel)

if PlayerDist < 80 and state == 0 then
	state = 1 -- start moving platform with player associated to it
	GravityOff(e)
	CollisionOff(e)
	initialX = g_Entity[e]['x']
	initialZ = g_Entity[e]['z']
end

if state == 1 then
   TransportToIfUsed(e)
   MoveForward(e,platformSpeed)
   distanceTravelled = g_c2c_distance(initialX,initialZ,g_Entity[e]['x'],g_Entity[e]['z']) 
   if distanceTravelled >= distanceToTravel then
		GravityOn(e)
		CollisionOn(e)
		state = 2
   end
   return
end

if state == 2 and PlayerDist > 250 and oneWayTrip == 0 then
	state = 0
	platformSpeed = platformSpeed * -1
	distanceTravelled = 0
end

end

function g_c2c_distance(x1,z1,x2,z2)
	--get horiz distance from one set of coords to another
	 tPlayerDX = (x2-x1)
	 tPlayerDZ = (z2-z1)
	 return math.sqrt(math.abs(tPlayerDX^2)+math.abs(tPlayerDZ^2));
end