tDistX = 0
tDistZ = 0
isOpen = 0

function slide_door_init(e)
end

function slide_door_main(e)
	PlayerDist = GetPlayerDistance(e)
if PlayerDist < 100 then	
	if isOpen == 0 then Prompt("Press E to open door") end
 if g_KeyPressE == 1 then
	tDistX = GetEntityPositionX ( 9 )
	tDistY = GetEntityPositionY ( e )
	tDistZ = GetEntityPositionZ ( e )
	
	CollisionOff(e)
    new_y = math.rad(g_Entity[e]['angley'])
    dest_x = tDistX + (math.sin(new_y)) + 110
    dest_z = tDistZ + (math.cos(new_y))
    SetPosition(e,dest_x,tDistY,dest_z)
	isOpen = 1
 end 
end --PlayerDist
end --main

--Created by Mr. Ea King<YT>
--Slide object Animation
--attach to bookcase under classic may work for other objects
local time2 = 0
local time1 = 0
local Timeamount = 0
local checktime = .1 --how long to wait before moving object
local bookcaseoriX = 0
local x = 0
local bookcasemax = 0
local PlayerDist = 0
local open = 0
local animatedoor = 0
local EntObjNo = 0
function bookcasedoor_init(e)
--finds and sets the X of the object
bookcaseoriX = g_Entity[e]['x']
bookcasemax = g_Entity[e]['x'] + 40 -- change the number for how far you want it to move
end

function bookcasedoor_main(e)
 EntObjNo = g_Entity[e]['obj']
 PlayerDist = GetPlayerDistance(e)
 Prompt(bookcaseoriX .. "  x " .. x)
 
--are we close enought to prompt
 if PlayerDist < 100 and animatedoor == 0 then
 --ask to open or close
 if open == 0 then 
 Prompt("Press 'E' to Open")
 else
 Prompt("Press 'E' to Close")
 end
 
 --check to see if you pressed e
	if g_KeyPressE == 1 then

	--sets to animate and resets timer
	 animatedoor = 1
     time1 = g_Time	 

	 --sets to open or close
	 if open == 1 then
	  open = 0
	 else
	  open = 1
	 end
	 --sets x to equal entity's x position change to z for moving along other axis
	 x = g_Entity[e]['x']
    end 
 end
--checks if animation should run
 if animatedoor == 1 then 
 --sets up timer
  time2 = g_Time
  Timeamount = (time2 - time1) * 0.001
 
 --has enough time passed
  if Timeamount > checktime then
 
 --if closed
  if open == 1 then
 
 --increases x # change to move further each interval
   x = x + 1

   --sets entity position to new x coord
   PositionObject(EntObjNo,x,g_Entity[e]['y'],g_Entity[e]['z'])   
   end

   --if new coord are greater then orignal pos + 2000
  if x > bookcasemax and open == 1 then

  --set door to open and stop animating   
   animatedoor = 0 
  end  

 --if open
  if open == 0 then
   --decrease x # change to move further each interval
   x = x - 1

   --set x pos to new coord   
   PositionObject(EntObjNo,x,g_Entity[e]['y'],g_Entity[e]['z'])   
  end

  --if new coord are less then original coord
  if x < bookcaseoriX and open == 0 then

  --set door to closed and stop animating	
	animatedoor = 0 
  end 
  
  --animation has occured and didn't stop animating reset timer.
  time1 = g_Time
 end
 end
end