--time to destroy the character.
function destroy_init(e)

end

function destroy_main(e)
if GetPlayerDistance(e) < 250 then 
Destroy(e)
end
end

--store a starting state for the door (in this case we need to collect items so that's what we'll call it)
state = "collect items"

--number of items player has already collected at level load
currently_collected = 0 

--number of items to collect to activate the door/object
required_to_collect = 3 

function door_with_requirement_init(e)


end 

function door_with_requirement_main(e)

--first check the state of the door is still the original state 
if state == "collect items" then 

--check the player is near the door
if GetPlayerDistance(e) < 150 then 

--now check if the player has collected enough items or not

--checking if not collected enough first
if currently_collected < required_to_collect then 
--if not enough collected then show a prompt
--NOTE*
--the .. allows you to put variables inbetween strings
--use a second set of .. only if you need to continue the string 
-- i.e. Prompt("hello "..name_of_character) or Prompt("hello "..name_of_character..", how are you?") <- where 'name_of_character' would be stored previously
--END NOTE*
Prompt("You still need to collect "..(required_to_collect-currently_collected).." more item(s) to unlock this door")

--else in this case means we have collected more than enough items
else

--remove items from player possesion maybe?
currently_collected = currently_collected - required_to_collect

--add any code from the external script's init(e) or variables
--i.e. any code inside door_init(e) or above (don't include the actual function door_init(e))
door_pressed = 0

--change the state to reflect that the items have been collected 
state = "door is active"

--finished checking item requirements
end 

--finished checking player distance
end 

--if state is no longer "collect items" check if it is our 2nd state (you can set as many states as you like)
elseif state == "door is active" then 

--now we will just copy and paste the entire door_main(e) from door.lua for speed
--again remember we don't need the 'function door_main(e)', just the code inside it
PlayerDist = GetPlayerDistance(e)
 if (PlayerDist < 100 ) and g_PlayerHealth > 0 then
  --GetEntityPlayerVisibility(e)
  if 1 then
   if g_Entity[e]['activated'] == 0 then
    if g_Entity[e]['haskey'] == -1 then
     SetActivated(e,1)
    else
	 --if g_Entity[e]['plrvisible'] == 1 then 
      if g_Entity[e]['haskey'] == 1 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. Find a key to unlock door")
      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

--finished checking our states
end 

--end of main(e)
end

--set a toggle variable for player input 
pressed = 0

function door_requirement_item_init(e)

end 

function door_requirement_item_main(e)

--check player is near object
if GetPlayerDistance(e) < 150 then 

--Prompt to ask player if he wants to pick it up
Prompt("Collect the item?")

--check for key press from player 
if g_KeyPressE == 1 then 

--a toggle to make sure only 1 item is collected at a time if multiple objects are nearby
if pressed == 0 then 
pressed = 1 

--play a sound to signify picking up the item maybe?
PlaySound(e,0)

--update the variable set in the door_with_requirement.lua
currently_collected = currently_collected + 1 

--destroy the entity to stop it getting collected again
Destroy(e)

--finished the input toggle 
end 

--finished checking player input 
end 


--code here to reset the toggle if the player is no longer pressing the 'e' key
if g_KeyPressE == 0 then 
pressed = 0
end 


--finished checking player is nearby
end 


--end of the main(e)
end 

function destroy_init(e)
end

function destroy_main(e)
	if GetPlayerDistance(e) < 200 then 
		Show(e)
	else
		Hide(e)
	end
end

-- Attach this script to each collectable item. 3com

function collectable_door_init(e)

end

function collectable_door_main(e)

	PlayerDist = GetPlayerDistance(e)
	
	if PlayerDist < 100 and g_Entity[e]['collected'] == 0 then
		Prompt("Press E to collect item")
		if g_KeyPressE == 1 then
			item_counter = item_counter + 1
			PromptDuration("You has collected " ..item_counter .." items.",3000)
			PlaySound(e,0)
			Collected(e)
			Destroy(e)
		end
	end	
end

item_counter = 0
function door_collect_init(e)
end
function door_collect_main(e)
 PlayerDist = GetPlayerDistance(e)
 if PlayerDist < 100 and g_PlayerHealth > 0 then
  GetEntityPlayerVisibility(e)
  if g_Entity[e]['plrvisible'] == 1 then
   if g_Entity[e]['activated'] == 0 then
  if item_counter == 3 then  
    SetActivated(e,1)
	SetAnimation(0)
	PlayAnimation(e)
	g_Entity[e]['animating'] = 1
	ActivateIfUsed(e)
    PlaySound(e,0)
	StartTimer(e)
else
       PromptDuration("The door is locked. You has to collect 3 items, to unlock door",3000)
   end
  end
 end
  if g_Entity[e]['activated'] == 1 then
   if GetTimer(e)>1000 then
 	CollisionOff(e)
    SetActivated(e,2)
   end
  end
 else
  if g_Entity[e]['activated'] == 2 then
   SetAnimation(1)
   PlayAnimation(e)
   g_Entity[e]['animating'] = 1
   SetActivated(e,0)
   PlaySound(e,1)
   CollisionOn(e)
  end
 end
end

--Script to show a multi-line series of prompts and advancing to the next line with 
--pressing the E key
   
--using tables for all local variables in case this is ever used on more than one entity
local storyLine = {};
local storyFinished = {};
local timerStarted = {};
   
function story_init(e)
  -- which line of the story are we on
  storyLine[e] = 1;
  storyFinished[e] = 0;
  timerStarted[e] = 0;
end
   
function story_main(e)
  -- if the story is done then just exit. 
  if storyFinished[e] == 1 then
    return;
  end
     
  PlayerDist = GetPlayerDistance(e);
     
  if PlayerDist < 150 and storyFinished[e] ~= 1 then
    if timerStarted[e] == 0 then
      StartTimer(e);
      timerStarted[e] = 1;
    end
   
    -- the timer is to prevent advancing too many lines too fast if the key is held down    
    -- increase from 500 if you want a bigger buffer
    if g_KeyPressE == 1 and GetTimer(e) > 500 then
      storyLine[e] = storyLine[e] + 1;
      if storyLine[e] >= 5 then
        storyFinished[e] = 1;
        --if this is some type of invisible temporary entity just for triggering the story
        --then you can just destroy it here instead of keeping it around  by deleting the -- from the next line      
        --Destroy(e);
      end
      StartTimer(e);
    end
       
    if storyLine[e] == 1 then
      TextCenterOnX(50,50,2,"Hi, you are that scientist that i heard about."); -- change Hello here to line 1 of your text
      --TextCenterOnX(65,50,1,"Press E to continue.");
    elseif storyLine[e] == 2 then
      TextCenterOnX(50,50,2,"if you are here to pick your wife,she live at the end of this road,left side."); -- change Hello here to line 2 of your text
      --TextCenterOnX(95,50,1,"Press E to continue.");
    elseif storyLine[e] == 3 then
      TextCenterOnX(50,50,2,"but some people came here before you do, they look suspicious."); -- change Hello here to line 3 of your text
      --TextCenterOnX(95,50,1,"Press E to continue.");
    end
  end
end

--smallg
--script to read a note/paper found in game
--image must be in folder "scriptbank\images\note" & named "000.png" / "001.png" / "002.png" etc
-- modyfied a bit, by 3com - 05-26-16 

--how far away from note it can be read
local use_range = 120

--key press to read note
local use_key = "e"

--maximum notes to display (use key will cycle through)
local max_page = 1

local pressed = 0
local reading = {}
local first_time = 0 

function note2_init(e)
	LoadImages("note",0)
	reading[e] = 0
	first_time = 0
end
 
function note2_main(e)

if GetPlayerDistance(e) <= use_range then

if reading[e] == 0 then
	Prompt("Press E to collect item")
if g_KeyPressE == 1 and pressed == 0 and first_time == 0 then
	item_counter = item_counter + 1
	pressed = 1
	reading[e] = 1
	SetImageAlignment(0)
	SetImagePosition(50,50)
	ShowImage(0)
	Collected(e)
	first_time = 1
end

elseif reading[e] == 1 and first_time == 1 then
	if g_KeyPressR == 1 and pressed == 1 then
		HideImage(0)
		reading[e] = 2
		first_time = 1
		Destroy(e)	
	end
end
end

if g_KeyPressE == 0 then 
  door_pressed = 0
end 

end -- main
 
function note_exit(e)
end

--smallg
--script to read a note/paper found in game
--image must be in folder "scriptbank\images\note" & named "000.png" / "001.png" / "002.png" etc
 
--how far away from note it can be read
local use_range = 120
--key press to read note
local use_key = "e"
--maximum notes to display (use key will cycle through)
local max_page = 1
 
 
local pressed = 0
local reading = {}
 
function note_init(e)
LoadImages("note",0)
reading[e] = 0
end
 
 
function note_main(e)
if GetPlayerDistance(e) <= use_range then
if reading[e] == 0 then
PromptLocal(e,"Read note?" ..use_key.."*")
if GetInKey(E) == use_key and pressed == 0 then
Hide(e)
pressed = 1
reading[e] = 1
LoadImages("note",0)
SetImageAlignment(0)
SetImagePosition(50,50)
ShowImage(0)
end
elseif reading[e] >= 1 then
if GetInKey() == use_key and pressed == 0 then
pressed = 1
HideImage(reading[e] - 1)
reading[e] = reading[e] + 1 
if reading[e] > max_page then
reading[e] = 0 
Show(e)
else
ShowImage(reading[e] - 1)
end
end
end
 
else
if reading[e] > 0 then
HideImage(reading[e] - 1)
reading[e] = 0 
Show(e)
end
end
if pressed == 1 and GetInKey() == "" then
pressed = 0
end
 
 
end
 
function note_exit(e)
 
end