-- 15.0000
function corry_enter()
	if not IsEventDone ( EVEnterCorryOffice )
		then
		PlayIntroMovie("Art\\Movie\\Flyin\\city_produceroffice01a.xmv")
	end	

	if not IsQuestionAsked( Corry, "_TB_Q148" ) and not IsQuestionAsked( Corry, "_TB_Q294" ) then
		ChangeRoom( CorryOfficeEstab )
		SetVisible ( OCorry2, false )
		SetVisible ( OCorry1, true )
		SetActive ( HCorry2, false )
		SetActive ( HCorry1, true )
		SetActive ( HCorryOfficeDoorhandle, false )
		SetActive ( HCorryOfficeWallstainPano, false )
		SetActive( HCorryOfficeLetterEstab, false )
		SetActive( HCorryComputerEstab, false )
	end

	if IsQuestionAsked( Corry, "_TB_Q148" ) and not IsQuestionAsked( Corry, "_TB_Q294" ) then
		ChangeRoom( CorryOfficeEstab )  
	end

	if IsQuestionAsked( Corry, "_TB_Q148" ) and IsQuestionAsked( Corry, "_TB_Q294" ) then
		ChangeRoom( CorryOfficeEstab )
	end
	FadeIn ()
end

AddEvent( EVEnterCorryOffice, true, nil, CorryOffice, nil, "corry_enter" )


function corry_closeup1()

	
	if not DisplayQuestionList( Corry )
		then
		PlayDialog ( Corry, "M1_CORY_1105")
	end
end

AddEvent( nil, true, nil, CorryOfficeCU1, nil, "corry_closeup1" )

function corry_closeup2()
	
	if not DisplayQuestionList( Corry ) 
		then
		PlayDialog ( Corry, "M1_CORY_1105")
	end
end

AddEvent( nil, true, nil, CorryOfficeCU2, nil, "corry_closeup2" )




function corry_questions()
	
	if not DisplayQuestionList( Corry )	
		then
		PlayDialog ( Corry, "M1_CORY_1105")
	end
end

AddEvent( nil, true, nil, Corry, nil, "corry_questions" )




-- 15.8000
function corry_door_prints()

-- Nandu: obiectul se face vizibil prin efectul fingerprint

	SetActive ( OCorryOfficeHandlePrint, false )
	SetActive( HCorryOfficeHandlePrint, false )
	SetActive ( HCorryOfficeDoorhandle, false )
	AddEvidence( ETDoorwayPrints)
	AddEvidenceDescriptionText( ETDoorwayPrints, "_TB_E646" )
end

AddEvent( nil, false, fingerdust, OCorryOfficeHandlePrint, nil, "corry_door_prints" )


-- 15.8500
function corry_wall_stain_dialog()
	PlayDialog( nil, "m1_cat_427" )
end

AddEvent( nil, false, nil, CorryOfficeWallstain, nil, "corry_wall_stain_dialog" )


-- 15.9000
function corry_wall_stain()
	SetActive( HCorryOfficeWallstain, false )
	SetActive ( HCorryOfficeWallstainPano, false )
	AddEvidence( ETDarkStainSample )
	AddEvidenceDescriptionText( ETDarkStainSample, "_TB_E647" )
end

AddEvent( nil, false, swab, HCorryOfficeWallstain, nil, "corry_wall_stain" )


-- 22.3000
-- facut dupa varianta de PC
function enter_corry_email()
	SetActive( HIconEncryptedMail, false )     
	SetActive ( HIconNormalMail1, false )
	SetActive ( HIconNormalMail2, false )
	if HasEvidence ( EDDataDisk )
		then
		SetActive ( HCorryComputerEstab, false )
		SetActive ( HMyInboxIcon, false )
	end
end

AddEvent( nil, true, nil, CorryOfficeMailbox, nil, "enter_corry_email" )  -- Trebuie pus Room-ul coresp.

function click_encrypted_mail_first ()
	SetBackRoom( CoryMailEncrypted, CoryMailSent )
	SetActive ( HIconEncryptedMail, false )
	PlayDialog( nil, "m1_cat_324" )
	AddEvidence( EDDataDisk )
	AddEvidenceDescriptionText( EDDataDisk, "_TB_E2315" )
end
AddEvent ( EVClickedEncryptedMailFirst, false, nil, CoryMailEncrypted, nil, "click_encrypted_mail_first" )

function click_encrypted_mail_multiple_cond ()
	return IsEventDone ( EVClickedEncryptedMailFirst )
end
function click_encrypted_mail_multiple ()
	SetActive ( HIconEncryptedMail, false )
	SetBackRoom( CoryMailEncrypted, CoryMailSent )
end
AddEvent ( nil, true, nil, CoryMailEncrypted, "click_encrypted_mail_multiple_cond", "click_encrypted_mail_multiple" )

function has_disk_evidence ()
	if HasEvidence ( EDDataDisk )
		then
		SetActive ( HCorryComputerEstab, false )
		SetActive ( HMyInboxIcon, false )
	end
end
AddEvent ( nil, true, nil, CorryOfficeEstab, nil, "has_disk_evidence" )
AddEvent ( nil, true, nil, CorryOfficeComputer, nil, "has_disk_evidence" )
---------------------------------------------------------------------------

function press_close_button ()
	ChangeRoom ( CorryOfficeComputer )
	if HasEvidence ( EDDataDisk )
		then
		SetActive ( HCorryComputerEstab, false )
		SetActive ( HMyInboxIcon, false )
	end
	SetBackRoom ( CorryOfficeComputer, CorryOfficeEstab )
end
AddEvent ( nil, true, nil, HCloseMailbox, nil, "press_close_button" )

function enter_sent()
	SetActive ( HIconEncryptedMail, true )
	SetActive ( HIconNormalMail1, false )
	SetActive ( HIconNormalMail2, false )
	SetBackRoom( CoryMailSent, CorryOfficeMailbox )
end
AddEvent ( nil, true, nil, CoryMailSent, nil, "enter_sent" )

function enter_received()
	SetActive ( HIconEncryptedMail, false )
	SetActive ( HIconNormalMail1, true )
	SetActive ( HIconNormalMail2, true )
	SetBackRoom( CoryMailReceived, CorryOfficeMailbox )
end
AddEvent ( nil, true, nil, CoryMailReceived, nil, "enter_received" )

function enter_received1()
	SetActive ( HIconNormalMail1, false )
	SetActive ( HIconNormalMail2, true )
	SetBackRoom( CoryMailAirfare, CoryMailReceived )
end
AddEvent ( nil, true, nil, CoryMailAirfare, nil, "enter_received1" )

function enter_received2()
	SetActive ( HIconNormalMail1, true )
	SetActive ( HIconNormalMail2, false )
	SetBackRoom( CoryMailBooster, CoryMailReceived )
end
AddEvent ( nil, true, nil, CoryMailBooster, nil, "enter_received2" )


-- 22.4000
function corry_letter_desk_dialog()
	PlayDialog( nil, "m1_cat_325" )
end

AddEvent( nil, false, nil, CorryOfficeLetter, nil, "corry_letter_desk_dialog" )


-- 22.5000
function corry_letter_desk()
	SetVisible( OCorryLetterCU, false )
	SetVisible( OCorryOfficeLetterEstab, false )
	SetActive( HCorryLetterCU, false )
	SetActive ( HCorryOfficeLetterEstab, false )
	AddEvidence( EDThreatLetter)
	AddEvidenceDescriptionText( EDThreatLetter, "_TB_E664" )
end

AddEvent( nil, false, gloves, HCorryLetterCU, nil, "corry_letter_desk" )


IncludeFile( "Script\\Gamelogic\\CorryQuestions.lua" )