Scriptname RenWeepingAngelAdderQuestScript extends Quest

Cell currentplayercell
Cell prevplayercell

Objectreference[] mannequins

Static FemaleMannequin
Static MaleMannequin

ActorBase WeepingMaleTest

Actor[] weepingactors

bool checkedonce = false

Event OnInit()
	FemaleMannequin = Game.GetFormFromFile(0x0003b163, "Fallout4.esm") As Static
	MaleMannequin = Game.GetFormFromFile(0x00036cd5, "Fallout4.esm") As Static	
	WeepingMaleTest = Game.GetFormFromFile(0x05001ecd, "Weeping Angel Test.esp") As ActorBase
	mannequins = new Objectreference[128]
	weepingactors = new Actor[128]
	
	Self.StartTimer(2.0, 10)	
endEvent

Event OnTimer(int timerid)
	currentplayercell = Game.GetPlayer().GetParentCell()

	if (mannequins == none && MaleMannequin != none)
		mannequins = new Objectreference[128]
		weepingactors = new Actor[128]		
		prevplayercell = none		
		checkedonce = false		
		mannequins[0] = none		
	endif
	
	if (currentplayercell != prevplayercell)
		mannequins[0] = none
		checkedonce = false
	endif
	
	if (timerid == 10 && (currentplayercell != prevplayercell || checkedonce == false) && Game.GetPlayer().IsInInterior() == true)
		if (mannequins[0] == none)
			checkedonce = true
			mannequins = Game.GetPlayer().FindAllReferencesOfType(FemaleMannequin, 20000)
			int itrtwo = 0
			Actor newangel			
			if (mannequins.length > 0)
				while (itrtwo < mannequins.length)
					newangel = mannequins[itrtwo].PlaceActorAtMe(WeepingMaleTest, 4, none)
					weepingactors[weepingactors.Find(none)] = newangel
					itrtwo = itrtwo + 1
				endWhile
			endif
			mannequins = Game.GetPlayer().FindAllReferencesOfType(MaleMannequin, 20000)
			itrtwo = 0
			if (mannequins.length > 0)
				while (itrtwo < mannequins.length)
					newangel = mannequins[itrtwo].PlaceActorAtMe(WeepingMaleTest, 4, none)
					weepingactors[weepingactors.Find(none)] = newangel
					itrtwo = itrtwo + 1
				endWhile
			endif			
		endif		
	endif
	
	prevplayercell = Game.GetPlayer().GetParentCell()	
	Self.StartTimer(2.0, 10)	
endEvent