Oblivion Game Data

ScriptName HorsePCBaySkingradScript

Short RespawnHorse
Short TellPC
Short Mounted

Begin OnDeath
	Set RespawnHorse to 1
	Set Horses.OwnSkingradBay to 0
	Set Mounted to 0
	HorseSaleBaySkingradRef.Enable
	ModPCMiscStat 14 -1
End

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

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