-- Simple automatic lift ???
------------------------------------
-- written by RatAll

-- Objective
--  to attach to a entity and have the play carried up/down on entity 

-- NOTES:
-- attempted to use MoveUp(e,v) had no effect ?
-- does not lift character ??
-- some times causes game guru to go very very slow 

-- needs in entity
--  statc mode = no
--  ismobile = yes

lift1_bot=0 -- bottom limit of movement
lift1_top=0 -- top limit of movement

function lift1_init(e)
end

function lift1_main(e)
 
	--GravityOff(e) -- appears to make no difference
	PlayerDist = GetPlayerDistance(e)     -- get current player distance
	lifty = g_Entity[e]['y'] 							-- get current entity y position
	
	if PlayerDist <= 150 then								--If the player is within range 
		Prompt(' start    Active=' .. g_Entity[e]['activated'] .. ' Y=' .. lifty )
		if g_Entity[e]['activated'] == 0 then -- If Not Activated  Set the range of movement and activate 
			lift1_bot= g_Entity[e]['y']					--  Set bottom limit
			lift1_top=lift1_bot + 100						--  Set top limit
    	SetActivated(e,1)										-- 	Activate going up
		end
	
		if g_Entity[e]['activated'] == 1 then -- Going up?
			if lifty < lift1_top then						-- if not at top
				liftyup=lifty+0.1									-- 	set to move entity up
			Prompt(' move UP Active=' .. g_Entity[e]['activated'] .. ' Y=' .. lifty .. ' new y=' .. liftyup )
			else
				SetActivated(e,2)									-- Active going down
			end

		else

			if g_Entity[e]['activated'] == 2 then -- Going down
				if lifty > lift1_bot then						-- if not at bottom
					liftyup=lifty-0.1									-- 	set to move entity down
				Prompt(' move DN Active=' .. g_Entity[e]['activated'] .. ' Y=' .. lifty .. ' new y=' .. liftyup )
				else
					SetActivated(e,1)									-- Activate going up
				end
			end
		end
		Prompt(' move    Active=' .. g_Entity[e]['activated'] .. ' Y=' .. lifty .. ' new y=' .. liftyup )
		--SetPosition(e,g_Entity[e]['x'],liftyup,g_Entity[e]['z'])	-- appears to make no difference
		ResetPosition(e,g_Entity[e]['x'],liftyup,g_Entity[e]['z']) -- Move the object
		PlaySound(e,0)												-- make noise	
	end
end

--lift script by smallg

local low_height = {}
local high_height = {}
local use_range = {}
local lift_speed = {}
local pressed = 0
local state = {}
local up = {}
function lift2_init(e)
state[e] = "wait"
up[e] = 0
use_range[e] = 100
lift_speed[e] = 100
low_height[e] = 610
high_height[e] = 800


--high_height[6] = 1000
--lift_speed[6] = 200
--lift_speed[7] = 400
--high_height[7] = 2000


CollisionOff(e)
Scale(e,175)
end

function lift2_main(e)

if state[e] == "wait" then
if g_Entity[e]['y'] > low_height[e] and up[e] == 0 then
CollisionOff(e)
MoveUp(e,-10)
SetRotation(e,0,0,0)
elseif g_Entity[e]['y'] < high_height[e] and up[e] == 1 then
CollisionOff(e)
MoveUp(e,20)
SetRotation(e,0,0,0)
end
if GetPlayerDistance(e) <= use_range[e] then
if g_KeyPressE == 1 and pressed == 0 then
pressed = 1
if g_Entity[e]['y'] <= low_height[e] then
state[e] = "going up"
up[e] = 1
elseif g_Entity[e]['y'] >= high_height[e] - 10 then
state[e] = "going down"
MoveUp(e,-lift_speed[e]/2)
up[e] = 0
end
end
end
elseif state[e] == "going up" and g_Entity[e]['y'] < high_height[e] then
CollisionOff(e)
MoveUp(e,lift_speed[e])
SetRotation(e,0,0,0)
elseif state[e] == "going down" and g_Entity[e]['y'] > low_height[e] then
CollisionOff(e)
MoveUp(e,-lift_speed[e]/4)
SetRotation(e,0,0,0)
else
state[e] = "wait"
end

CollisionOn(e)
if GetPlayerDistance(e) <= use_range[e] then
Prompt(state[e])
end
if g_KeyPressE == 0 and pressed == 1 then
pressed = 0
end
end