-- LUA Script - precede every function and global member with lowercase name of script + '_main'
-- Door Prompts 'Closed' can be opened with entity collected specified by 'USE KEY' 

-- state to ensure user must release E key before can open/close again
door_pressed = 0

function door_mission_init(e)
end
	 
function door_mission_main(e)
 PlayerDist = GetPlayerDistance(e)
 if (PlayerDist < 100 ) and g_PlayerHealth > 0 then
  GetEntityPlayerVisibility(e)
  if 1 then
   if g_Entity[e]['activated'] == 0 then
    if process_state == "accomplished" then
     SetActivated(e,1)
    else
	 if g_Entity[e]['plrvisible'] == 1 then 
      if process_state == "accomplished" then 
       Prompt("The door is locked. Press E key to unlock door")
       if g_KeyPressE == 1 then 
        SetActivated(e,1)
       end
      else
       Prompt("The door is locked. Before you've to accomplish the mission")
      end
	 end
    end
   else
    if g_Entity[e]['activated'] == 1 then
     -- door is unlocked and closed
     if g_Entity[e]['plrvisible'] == 1 then 
      Prompt("Press E to open door")
      if g_KeyPressE == 1 and g_Entity[e]['animating'] == 0 and door_pressed == 0 then  
	   SetAnimation(0)
	   PlayAnimation(e)
	   g_Entity[e]['animating'] = 1
       SetActivated(e,2)
	   ActivateIfUsed(e)
       PlaySound(e,0)
	   StartTimer(e)
	   g_Entity[e]['timer'] = g_Time
	   door_pressed = 1
	  end
	 end
    else
     if g_Entity[e]['activated'] == 2 then
	  -- door is open
	  if g_Entity[e]['plrvisible'] == 1 then 
 	   if g_KeyPressE == 1 and g_Entity[e]['animating'] == 0 and door_pressed == 0 then
 	    SetAnimation(1)
	    PlayAnimation(e)
 	    g_Entity[e]['animating'] = 1
        SetActivated(e,1)
        PlaySound(e,1)
        CollisionOn(e)
	    door_pressed = 1
	   end
	  end
	 end
    end
   end
  end
 end
 if g_Entity[e]['activated'] == 2 then
  -- door collision off after 1 second
  if GetTimer(e)>1000 then
   CollisionOff(e)
  end
 end
 if g_KeyPressE == 0 then 
  door_pressed = 0
 end
 --PromptLocal ( e, "activated=" .. g_Entity[e]['activated'] .. "PlayerDist=" .. PlayerDist .. " plrvisible=" .. g_Entity[e]['plrvisible'] ..  " haskey=" .. g_Entity[e]['haskey']  )
end

process_state = "init"
local max_switches = 3

function mission_init(e)	
end

function mission_main(e)
	PlayerDist = GetPlayerDistance(e)
if (PlayerDist < 100 ) and g_PlayerHealth > 0 then
	GetEntityPlayerVisibility(e)
if 1 then
   if g_Entity[e]['activated'] == 0 then
		if max_switches >0 and max_switches<=3 then
			SetActivated(e,1)
			max_switches = max_switches -1
			PromptDuration(("Switches left: " .. max_switches,3000)
		end
	end
	
	if max_switches == 0 then 
		Spawn(8) 
		process_state = "accomplished"
	end
	
end -- 1
end -- PlayerDist
end -- mission

g_MultiSwitchDN = {}
g_MultiSwitchDE = {}
MultiSwitchDoorCount = 0

function multi_switch_door_init_name(e, name)
	MultiSwitchDoorCount = #g_MultiSwitchDE
	
	if checkEntries(e) == 0 then
		MultiSwitchDoorCount = MultiSwitchDoorCount + 1
		g_MultiSwitchDN[MultiSwitchDoorCount] = name
		g_MultiSwitchDE[MultiSwitchDoorCount] = e
	end
end

function multi_switch_door_main(e)
end

function checkEntries(e)
	-- Check to see if this has already been put in the array..
    found = 0
    for Index = 1, #g_MultiSwitchDE do
		-- Go through the array..
        if g_MultiSwitchDE[Index] == e then
			-- This means that the entry is already in the array..
            found = 1
            -- Jump out of the loop
            break
        end
    end
     
    return found
end

process_state = "started" -- Activated when done..
g_SwitchE = {}
g_SwitchN = {}
g_SwitchS = {}
g_SwitchesActivated = 1
DoorToActivate = ""
SwitchesToActivate = 0
atEntityPos = 0
local CurrentEntity = 0
local Activated = false
local DoorOpening = 0

function multiple_switches_init_name(e, name)
	SwitchesToActivate = #g_SwitchE
	
	if checkEntries(e) == 0 then
		SwitchesToActivate = SwitchesToActivate + 1
		g_SwitchE[SwitchesToActivate] = e
		g_SwitchN[SwitchesToActivate] = name
		g_SwitchS[SwitchesToActivate] = process_state
	end -- Check Entries
end -- Init
 
function multiple_switches_main(e)
	local currentName = get_name(e)
	local currentNumber = switchNumber(currentName)
	local lastSwitch = just_name(currentName) .. StringNumber(currentNumber - 1)
	local currentArrayPos = name_array_pos(currentName)
	local lastArrayPos = name_array_pos(lastSwitch)
	local lastswitchActivation = - 1
	local PlayerNear = 0 
	
	PlayerNear = PlayerNearCurrent(e)
	-- Check to see if the player is close enough to this entity..
	if PlayerNear ~= 0 and PlayerNear == e then
		DoorToActivate = just_name(currentName)
		lastswitchActivation = other_activations(lastSwitch,currentNumber)
		if lastswitchActivation == 0 then -- IE: Not Activated..
			Prompt("Activate the switches before this ")
		else
			if g_SwitchS[currentArrayPos] ~= "Activated" then
				Prompt("Press E To Activate")
				if g_KeyPressE == 1 then
					g_SwitchS[currentArrayPos] = "Activated"
				end
			else
				Activated = true
				Prompt("Switch Activated, " .. g_SwitchesActivated .. ", " .. SwitchesToActivate)
				
				if g_SwitchesActivated == SwitchesToActivate then
					local DoorEntity = Door_E(DoorToActivate)
					Prompt("Last Switch, Door Opening")
					
					if DoorEntity ~= nil and DoorOpening ~= 1 then
						-----------------------------------------------------------
						-----------------------------------------------------------
						--                                                       --						
						--              Needs more work                          --
						-----------------------------------------------------------
						-----------------------------------------------------------
						-- Animate the door opening..
						SetAnimation(0)
						PlayAnimation(DoorEntity)
						CollisionOff(DoorEntity)
						DoorOpening = 1
					end
				end
			end
		end
	else
		if PlayerNear == 0 and Activated == true then
			if Activated == true then
				g_SwitchesActivated = g_SwitchesActivated + 1
				Activated = false
			end
		end
	end
end

function Door_E(name)
	local e = 0
	
	for a = 1, #g_MultiSwitchDN do
		if g_MultiSwitchDN[a] == name then
			e = g_MultiSwitchDE[a]
		end
	end
	
	return e
end

function PlayerNearCurrent(e)
	-- Check to see when the player is moving away from the curreent entity..
	local PlayerNear = CurrentEntity
	
	-- When the player is near an entity CurrentEntity takes on the entity number..
	if GetPlayerDistance(e) <= 50 and CurrentEntity ~= e then
		PlayerNear = e
		CurrentEntity = e
	elseif GetPlayerDistance(e) >= 51 and CurrentEntity == e then
		-- This will become '0' only if the player moves away from the current enitity..
		CurrentEntity = 0
		PlayerNear = 0
	end
	
	-- Pass out the new value..
	return PlayerNear
end

function just_name(name)
	local CurrentName = ""
	local SstrLen = string.len(name)
	
	CurrentName = string.sub(name, 1, SstrLen - 2)
	
	return CurrentName
end

function StringNumber(number)
	local StringNum = tostring(number) -- Get the string of the number before it..
	
	if string.len(StringNum) >= 1 then
		StringNum = "0" .. StringNum -- Format it correctly..
	end
	
	return StringNum
end

function other_activations(name,number)
	local done = 0
	local position = 0
	
	position = name_array_pos(name) -- Now you can search for the number before the one passed in the array,,
	
	if number >= 2 then
		if g_SwitchS[position] == "Activated" then
			done = 1
		end
	else
		done = 1
	end
	
	return done
end

function name_array_pos(name)
	local pos = 0
	
	for a = 1, #g_SwitchE do
		if g_SwitchN[a] == name then
			pos = a
			break
		end
	end
	
	return pos
end

function switchNumber(name)
	local ThisSwitchNumber = 0
	local stringLen = 0
	
	if name ~= "" and name ~= nil then
		stringLen = string.len(name)
		ThisSwitchNumber = tonumber(string.sub(name, stringLen - 1))
	end
	
	return ThisSwitchNumber
end

function get_name(e)
	local current_name = ""
	
	for a = 1, #g_SwitchE do
		if g_SwitchE[a] == e then
			current_name = g_SwitchN[a]
			break
		end
	end
	
	return current_name
end

function checkEntries(e)
	-- Check to see if this has already been put in the array..
    found = 0
    for Index = 1, #g_SwitchE do
		-- Go through the array..
        if g_SwitchE[Index] == e then
			-- This means that the entry is already in the array..
            found = 1
            -- Jump out of the loop
            break
        end
    end
     
    return found
end