Oblivion Game Data

ScriptName HorsePCPaintBrumaScript

Short RespawnHorse
Short TellPC
Short Mounted

Begin OnDeath
	Set RespawnHorse to 1
	Set Horses.OwnBrumaPaint to 0
	Set Mounted to 0
	HorseSalePaintBrumaRef.Enable
	ModPCMiscStat 14 -1
End

Begin OnPackageEnd HorsePCBrumaGoHome
	If TellPC == 0 && Mounted == 1
		If GetInCell Bruma == 1
			Message "Your Paint horse has returned to Bruma's stables."
			Set TellPC to 1
		EndIf
	EndIf
End


Begin OnActivate
	if isActionRef player == 1
		If Horses.BrumaHumilisPresent == 1
			Set Horses.BrumaHumilisPresent to 0
			Set Mounted to 1
		endif
	EndIf
	Set TellPC to 0
	Activate
	EvaluatePackage
End