Fallout Automatic Door Script

scn PTVaultAutomaticDoorSCRIPT
float fTimer
int iChange
ref rLinked
ref rActor

BEGIN OnTriggerEnter
	set rLinked to GetLinkedRef
	set rActor to GetActionRef
	if (rLinked.GetOpenState == 4)			;Door is closing, set timer
		set fTimer to 1
		set iChange to 1
	elseif (rLinked.GetOpenState <= 2)		;Door is open or opening, do nothing
	else
		rLinked.Activate rActor
	endif
END

BEGIN OnTriggerLeave
	if (rLinked.GetOpenState == 2)			;Door is opening, set timer
		set fTimer to 1
		set iChange to 1
	elseif (rLinked.GetOpenState >=3)		;Door is closed or closing, do nothing
	else
		rLinked.Activate rActor
	endif
END

BEGIN GameMode
	if (iChange)
		if (fTimer > 0)
			set fTimer to fTimer - GetSecondsPassed
		elseif (fTimer <= 0)
			set iChange to 0
			rLinked.Activate rActor
		endif
	endif
END