Safe Settlements

; SCAVVER MOD BY @THORALDGM | THORALDGM AT GMAIL.COM | SCRIPT UPDATED 20160704

; -----------------------------------------------------------------------------------------------------------
; FUNCTION: END MY TRAVEL PACKAGE
; -----------------------------------------------------------------------------------------------------------

Function EndMyTravelPackage()
	pgvScavverIsRelocating.SetValue(0)                                 ; Scavver is no longer relocating
	pgvScavverRelocated.SetValue(1)                                    ; Scavver finished relocating

	Int CurrentMarker = pgvScavverCurrentMarker.GetValue() as Int
	ObjectReference FoundWorkbench = Game.FindClosestReferenceOfAnyTypeInListFromRef(pScavverWorkbenchList, arScavMarkers[CurrentMarker], 10000)

	Int[] DontLoot = new Int[7]

	If FoundWorkbench
		If pgvScavverStatusSniffer.GetValue() == 1
			Debug.Notification("Scavver destination near workbench.")
		EndIf

		pgvScavverDoNotLootHere.SetValue(1)                            ; just visiting or move along
	EndIf

	DontLoot[0] = 0                                                    ; Vault111Ext
	DontLoot[1] = 1                                                    ; Sanctuary
	DontLoot[2] = 2                                                    ; Minuteman Statue
	DontLoot[3] = 3                                                    ; Concord / Red Rocket
	DontLoot[4] = 5                                                    ; Drumlin / Carla's vendor chest?
	DontLoot[5] = 19                                                   ; Tenpines Bluff
	DontLoot[6] = 22                                                   ; Raider shack near 111

	If DontLoot.Find(CurrentMarker) >= 0
		If pgvScavverStatusSniffer.GetValue() == 1
			Debug.Notification("Scavver is just visiting.")
		EndIf

		pgvScavverDoNotLootHere.SetValue(1)                            ; just visiting or move along
	EndIf

	If pgvScavverDoNotLootHere.GetValue() == 1
		pgvScavverLootedArea.SetValue(1)                               ; Flag destination as already looted
	Else
		pgvScavverLootedArea.SetValue(0)                               ; IMPORTANT! THIS IS THE MAIN SWEEP FLAG!
	EndIf

	If pgvScavverIsHome.GetValue() == 1                                ; If Scavver has arrived home,
		pScavverUtilityScript.BuildScavverSettlement()                 ; build next stage of settlement
	EndIf

	pScavActor.EvaluatePackage(true)                                   ; Forces package to end.

EndFunction