function boat_init(e)

end

function boat_main(e)
GravityOff(e)
CollisionOff(e)
MoveUp(e,2)
SetRotation(e,0,90,0)
MoveForward(e,100)
CollisionOn(e)

end

-- https://forum.game-guru.com/thread/213433?page=1#msg2529879
-- 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' (I tested wit "On" and works)
-- Tested with "Floor (Mystery)"

 package.path = "scriptbank/?.lua;" --you can comment this line if use the default scriptbank
aConfig = aConfig or { path = "Larry/" } --you can comment this line if use the default scriptbank
--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 = 100
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 rideboat_init(e)
end
 
function rideboat_main(e)
 
PlayerDist = GetPlayerDistance(e)
--Prompt(state .. "  " .. distanceTravelled .. "  " .. distanceToTravel)
 
if PlayerDist < 250 and state == 0 then
    state = 1 -- start moving platform with player associated to it
    PlaySound(e,0)
    GravityOff(e)
    CollisionOff(e)
    initialX = g_Entity[e]['x']
    initialZ = g_Entity[e]['z']
    --MoveUp(e,2) --this doesn't work !!!
    SetRotation(e,0,270,0)--this compensate my model and you change it by your desidered model
end
 
if state == 1 then
   TransportToIfUsed(e)
   MoveForward(e,platformSpeed)
   PlaySound(e,0)
   distanceTravelled = g_c2c_distance(initialX,initialZ,g_Entity[e]['x'],g_Entity[e]['z']) 
   if distanceTravelled >= distanceToTravel then
        GravityOn(e)
        CollisionOn(e)
        StopSound(e,0)
        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

-- https://forum.game-guru.com/thread/213433?page=1#msg2529879
-- 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' (I tested wit "On" and works)
-- Tested with "Floor (Mystery)"
 
 package.path = "scriptbank/?.lua;" --you can comment this line if use the default scriptbank
aConfig = aConfig or { path = "Larry/" } --you can comment this line if use the default scriptbank
--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 = 100
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
local init_height = {}
 
  
function rideboat_init(e)
end
  
function rideboat_main(e)
  
PlayerDist = GetPlayerDistance(e)
--Prompt(state .. "  " .. distanceTravelled .. "  " .. distanceToTravel)
  
if PlayerDist < 250 and state == 0 then
    state = 1 -- start moving platform with player associated to it
    PlaySound(e,0)
    GravityOff(e)
    CollisionOff(e)
init_height[e] = g_Entity[e]['y']
    initialX = g_Entity[e]['x']
    initialZ = g_Entity[e]['z']
    --MoveUp(e,2) --this doesn't work !!!
    SetRotation(e,0,270,0)--this compensate my model and you change it by your desidered model
end
  
if state == 1 then
   TransportToIfUsed(e)
   MoveForward(e,platformSpeed)
   PlaySound(e,0)
  if GetTimer(e) > 500 then
StartTimer(e)
 SetPosition(e,g_Entity[e]['x'],init_height[e],g_Entity[e]['z'])
end
   distanceTravelled = g_c2c_distance(initialX,initialZ,g_Entity[e]['x'],g_Entity[e]['z']) 
   if distanceTravelled >= distanceToTravel then
        GravityOn(e)
        CollisionOn(e)
        StopSound(e,0)
        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

-- https://forum.game-guru.com/thread/213433?page=1#msg2529879
-- script by Smallg adapted for my game purpose
-- setting in the entity options at "Used = Player", and "if Used = UH-1escape"
-- 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)" and other assets...
planes = planes or {}
SndPlaying = SndPlaying or {}
--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 = 300
local distanceToTravel = 8100
local oneWayTrip = 1 -- 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
--local timer = aTimer:new(e) -- initialize timer (doesn't need in this case, but I'm not sure)
 
function heli_escape_init(e)
end
 
function heli_escape_main(e)
  planes[e] = planes[e] or {} --initialize plane (helicopter) data
  planes[e]['speed'] = planes[e]['speed'] or 150 + math.random(150,151) -- set helicopter speed (100-200)or greater
  planes[e]['takeoffspeed'] = planes[e]['takeoffspeed'] or 150 -- set takeoff speed
  PlayerDist = GetPlayerDistance(e)
        if PlayerDist < 1600 then
         --timer:start() -- start timer(!?!)
         LoopSound(e,0)
         end
--Prompt(state .. "  " .. distanceTravelled .. "  " .. distanceToTravel)
 
if PlayerDist < 250 and state == 0 then
    state = 1 -- start moving platform with player associated to it
    GravityOff(e)
    CollisionOff(e)
    MoveUp(e, planes[e]['takeoffspeed'] - (planes[e]['takeoffspeed'] *3) ) -- first fly height, not sure...
    --this is more fly height
    MoveUp(e, planes[e]['takeoffspeed'] *373) -- go at your desidered flying height 
    -- I've used the same weapon crosshair fly height with a bell of the church,
    -- because in the transport mode can't move up or down any weapon, you can just rotate with your weapon...
    initialX = g_Entity[e]['x']
    initialZ = g_Entity[e]['z']
    --MoveUp(e,1) --this is not neeeded in my case
    SetRotation(e,0,0,0) --the heli flying direction 
    --MoveForward(e,100)--this is not neeeded in my case
end
 
if state == 1 then
   TransportToIfUsed(e)
   MoveForward(e,platformSpeed)
   --PlaySound(e,0)
   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 > 500 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^1)+math.abs(tPlayerDZ^1));
end