=====ESP-description===========================

Tamriel ist ein Ort voller Gefahren. Schtzt Euer Pferd vor Angreifern mit dieser wunderschnen handgefertigten Rstung.


======Cellnames================================

CursedMine03 -> Verfluchte Mine, Versteckte Hhle

ICChestnutHandyStables -> Fuchsstlle


======Sonstiges================================

DLCHorseArmorStableDoor -> Holztr


======Horsenames===============================

HorsePCArmoredElvenBayBravil		-> Feuermhne (in Rstung)
HorsePCArmoredElvenBaySkingrad		-> Rotfuchs (in Rstung)
HorsePCArmoredElvenBlackCheydinhal	-> Schattenfell (in Rstung)
HorsePCArmoredElvenlChestnutChorrol	-> Brauner Blitz (in Rstung)
HorsePCArmoredElvenOldNag		-> Alter Gaul (in Rstung)
HorsePCArmoredElvenPaintBruma		-> Raccoon (in Rstung)
HorsePCArmoredElvenPaintLeyawiin	-> Habibi (in Rstung)
HorsePCArmoredElvenPaintWeynon		-> Prior Maborels Pferd (in Rstung)
HorsePCArmoredElvenShadowmere		-> Schattenstute (in Rstung)
HorsePCArmoredElvenWhiteAnvil		-> Schneeschweif (in Rstung)

HorsePCArmoredSteelBayBravil		-> Feuermhne (in Rstung)
HorsePCArmoredSteelBaySkingrad		-> Rotfuchs (in Rstung)
HorsePCArmoredSteelBlackCheydinhal	-> Schattenfell (in Rstung)
HorsePCArmoredSteellChestnutChorrol	-> Brauner Blitz (in Rstung)
HorsePCArmoredSteelOldNag		-> Alter Gaul (in Rstung)
HorsePCArmoredSteelPaintBruma		-> Raccoon (in Rstung)
HorsePCArmoredSteelPaintLeyawiin	-> Habibi (in Rstung)
HorsePCArmoredSteelPaintWeynon		-> Prior Maborels Pferd (in Rstung)
HorsePCArmoredSteelShadowmere		-> Schattenstute (in Rstung)
HorsePCArmoredSteelWhiteAnvil		-> Schneeschweif (in Rstung)


====== bersetzte PI - skripts =========================================

ScriptName DLCHorseArmorScriptSnakGraBura

Begin OnActivate

set DLCHorseArmor.giveArmor to 0

activate

end

Begin gameMode

;Checks current horse and replaces it with Steel Armored horse

if DLCHorseArmor.giveArmor == 1
	if ( HorsePCBayBravilRef.IsPlayersLastRiddenHorse == 1 ) || ( HorsePCArmoredElvenBayBravilRef.IsPlayersLastRiddenHorse == 1 )
		if ( Horses.OwnBravilBay == 1 )
			if ( HorsePCBayBravilRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCBayBravilRef.FakeDeath to 1
				HorsePCBayBravilRef.kill
				HorsePCBayBravilRef.disable
				HorsePCBayBravilRef.resurrect
			endif
				
			if ( HorsePCArmoredElvenBayBravilRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCArmoredElvenBayBravilRef.FakeDeath to 1
				HorsePCArmoredElvenBayBravilRef.kill
				HorsePCArmoredElvenBayBravilRef.disable
				HorsePCArmoredElvenBayBravilRef.resurrect
			endif

			HorsePCArmoredSteelBayBravilRef.enable
			HorsePCArmoredSteelBayBravilRef.moveto DLCHorseArmorMarker
			Message "Euer Pferd Feuermhne wurde ausgerstet und wartet draussen."
			set DLCHorseArmor.giveArmor to 0
			if ( getStage DLCHorseArmor >= 40 )
				player.RemoveItem Gold001 500
			endif
			if ( getStage DLCHorseArmor == 30 )
				setstage DLCHorseArmor 40
			endif			

		endif
				
		if ( Horses.OwnBravilBay == 0 ) 
			message "Euer Pferd ist zu weit entfernt um ausgerstet zu werden."
			set DLCHorseArmor.giveArmor to 0	
		endif

	endif

	if ( HorsePCBaySkingradRef.IsPlayersLastRiddenHorse == 1 ) || ( HorsePCArmoredElvenBaySkingradRef.IsPlayersLastRiddenHorse == 1 ) 
		if ( Horses.OwnSkingradBay == 1 )
			if ( HorsePCBaySkingradRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCBaySkingradRef.FakeDeath to 1
				HorsePCBaySkingradRef.kill
				HorsePCBaySkingradRef.disable
				HorsePCBaySkingradRef.resurrect
			endif

			if ( HorsePCArmoredElvenBaySkingradRef.IsPlayersLastRiddenHorse == 1 ) 
				set HorsePCArmoredElvenBaySkingradRef.FakeDeath to 1
				HorsePCArmoredElvenBaySkingradRef.kill
				HorsePCArmoredElvenBaySkingradRef.disable
				HorsePCArmoredElvenBaySkingradRef.resurrect
			endif

			HorsePCArmoredSteelBaySkingradRef.enable
			HorsePCArmoredSteelBaySkingradRef.moveto DLCHorseArmorMarker
			Message "Euer Pferd Rotfuchs wurde ausgerstet und wartet draussen."
			set DLCHorseArmor.giveArmor to 0
			if ( getStage DLCHorseArmor >= 40 )
				player.RemoveItem Gold001 500
			endif
			if ( getStage DLCHorseArmor == 30 )
				setstage DLCHorseArmor 40
			endif	
			
		endif

		if ( Horses.OwnSkingradBay == 0 ) 
			message "Euer Pferd ist zu weit entfernt um ausgerstet zu werden."
			set DLCHorseArmor.giveArmor to 0	
		endif

	endif

	if ( HorsePCBlackCheydinhalRef.IsPlayersLastRiddenHorse == 1 ) || ( HorsePCArmoredElvenBlackCheydinhalRef.IsPlayersLastRiddenHorse == 1 )
		if ( Horses.OwnCheydinhalBlack == 1 ) 
			if ( HorsePCBlackCheydinhalRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCBlackCheydinhalRef.FakeDeath to 1
				HorsePCBlackCheydinhalRef.kill
				HorsePCBlackCheydinhalRef.disable
				HorsePCBlackCheydinhalRef.resurrect
			endif

			if ( HorsePCArmoredElvenBlackCheydinhalRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCArmoredElvenBlackCheydinhalRef.FakeDeath to 1
				HorsePCArmoredElvenBlackCheydinhalRef.kill
				HorsePCArmoredElvenBlackCheydinhalRef.disable
				HorsePCArmoredElvenBlackCheydinhalRef.resurrect
			endif
	
			HorsePCArmoredSteelBlackCheydinhalRef.enable
			HorsePCArmoredSteelBlackCheydinhalRef.moveto DLCHorseArmorMarker
			Message "Euer Pferd Schattenfell wurde ausgerstet und wartet draussen."
			set DLCHorseArmor.giveArmor to 0
			if ( getStage DLCHorseArmor >= 40 )
				player.RemoveItem Gold001 500
			endif
			if ( getStage DLCHorseArmor == 30 )
				setstage DLCHorseArmor 40
			endif	
	
		endif

		if ( Horses.OwnCheydinhalBlack == 0 ) 
			message "Euer Pferd ist zu weit entfernt um ausgerstet zu werden."
			set DLCHorseArmor.giveArmor to 0	
		endif

	endif

	if ( HorsePCChestnutChorrolRef.IsPlayersLastRiddenHorse == 1 ) || ( HorsePCArmoredElvenChestnutChorrolRef.IsPlayersLastRiddenHorse == 1 )
		if ( Horses.OwnChorrolChestnut == 1 )
			if	( HorsePCChestnutChorrolRef.IsPlayersLastRiddenHorse == 1 ) 
				set HorsePCChestnutChorrolRef.FakeDeath to 1
				HorsePCChestnutChorrolRef.kill
				HorsePCChestnutChorrolRef.disable
				HorsePCChestnutChorrolRef.resurrect
			endif

			if ( HorsePCArmoredElvenChestnutChorrolRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCArmoredElvenChestnutChorrolRef.FakeDeath to 1
				HorsePCArmoredElvenChestnutChorrolRef.kill
				HorsePCArmoredElvenChestnutChorrolRef.disable
				HorsePCArmoredElvenChestnutChorrolRef.resurrect
			endif
	
			HorsePCArmoredSteelChestnutChorrolRef.enable
			HorsePCArmoredSteelChestnutChorrolRef.moveto DLCHorseArmorMarker
			Message "Euer Pferd Brauner Blitz wurde ausgerstet und wartet draussen."
			set DLCHorseArmor.giveArmor to 0
			if ( getStage DLCHorseArmor >= 40 )
				player.RemoveItem Gold001 500
			endif
			if ( getStage DLCHorseArmor == 30 )
				setstage DLCHorseArmor 40
			endif	
	
		endif

		if ( Horses.OwnChorrolChestnut == 0 ) 
			message "Euer Pferd ist zu weit entfernt um ausgerstet zu werden."
			set DLCHorseArmor.giveArmor to 0	
		endif

	endif

	if ( HorsePCPaintBrumaRef.IsPlayersLastRiddenHorse == 1 ) || ( HorsePCArmoredElvenPaintBrumaRef.IsPlayersLastRiddenHorse == 1 )
		if ( Horses.OwnBrumaPaint == 1 ) 
			if ( HorsePCPaintBrumaRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCPaintBrumaRef.FakeDeath to 1
				HorsePCPaintBrumaRef.kill
				HorsePCPaintBrumaRef.disable
				HorsePCPaintBrumaRef.resurrect
			endif
				
			if	( HorsePCArmoredElvenPaintBrumaRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCArmoredElvenPaintBrumaRef.FakeDeath to 1
				HorsePCArmoredElvenPaintBrumaRef.kill
				HorsePCArmoredElvenPaintBrumaRef.disable
				HorsePCArmoredElvenPaintBrumaRef.resurrect
 			endif
 
			HorsePCArmoredSteelPaintBrumaRef.enable
			HorsePCArmoredSteelPaintBrumaRef.moveto DLCHorseArmorMarker
			Message "Euer Pferd Raccoon wurde ausgerstet und wartet draussen."
			set DLCHorseArmor.giveArmor to 0
			if ( getStage DLCHorseArmor >= 40 )
				player.RemoveItem Gold001 500
			endif
			if ( getStage DLCHorseArmor == 30 )
				setstage DLCHorseArmor 40
			endif	
	
		endif

		if ( Horses.OwnBrumaPaint == 0 ) 
			message "Euer Pferd ist zu weit entfernt um ausgerstet zu werden."
			set DLCHorseArmor.giveArmor to 0	
		endif

	endif

	if ( HorsePCPaintLeyawiinRef.IsPlayersLastRiddenHorse == 1 ) || ( HorsePCArmoredElvenPaintLeyawiinRef.IsPlayersLastRiddenHorse == 1 )
		if ( Horses.OwnLeyawiinPaint == 1 )
			if ( HorsePCPaintLeyawiinRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCPaintLeyawiinRef.FakeDeath to 1
				HorsePCPaintLeyawiinRef.kill
				HorsePCPaintLeyawiinRef.disable
				HorsePCPaintLeyawiinRef.resurrect
			endif

			if ( HorsePCArmoredElvenPaintLeyawiinRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCArmoredElvenPaintLeyawiinRef.FakeDeath to 1
				HorsePCArmoredElvenPaintLeyawiinRef.kill
				HorsePCArmoredElvenPaintLeyawiinRef.disable
				HorsePCArmoredElvenPaintLeyawiinRef.resurrect
 			endif
 
			HorsePCArmoredSteelPaintLeyawiinRef.enable
			HorsePCArmoredSteelPaintLeyawiinRef.moveto DLCHorseArmorMarker
			Message "Euer Pferd Habibi wurde ausgerstet und wartet draussen."
			set DLCHorseArmor.giveArmor to 0
			if ( getStage DLCHorseArmor >= 40 )
				player.RemoveItem Gold001 500
			endif
			if ( getStage DLCHorseArmor == 30 )
				setstage DLCHorseArmor 40
			endif	
	
		endif

		if ( Horses.OwnLeyawiinPaint == 0 ) 
			message "Euer Pferd ist zu weit entfernt um ausgerstet zu werden."
			set DLCHorseArmor.giveArmor to 0	
		endif

	endif

	if ( HorsePCWhiteAnvilRef.IsPlayersLastRiddenHorse == 1 ) || ( HorsePCArmoredElvenWhiteAnvilRef.IsPlayersLastRiddenHorse == 1 )
		if (Horses.OwnAnvilWhite == 1) 
			if ( HorsePCWhiteAnvilRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCWhiteAnvilRef.FakeDeath to 1
				HorsePCWhiteAnvilRef.kill
				HorsePCWhiteAnvilRef.disable
				HorsePCWhiteAnvilRef.resurrect
			endif

			if ( HorsePCArmoredElvenWhiteAnvilRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCArmoredElvenWhiteAnvilRef.FakeDeath to 1
				HorsePCArmoredElvenWhiteAnvilRef.kill
				HorsePCArmoredElvenWhiteAnvilRef.disable
				HorsePCArmoredElvenWhiteAnvilRef.resurrect
			endif

			HorsePCArmoredSteelWhiteAnvilRef.enable
			HorsePCArmoredSteelWhiteAnvilRef.moveto DLCHorseArmorMarker
			Message "Euer Pferd Schneeschweif wurde ausgerstet und wartet draussen."
			set DLCHorseArmor.giveArmor to 0
			if ( getStage DLCHorseArmor >= 40 )
				player.RemoveItem Gold001 500
			endif
			if ( getStage DLCHorseArmor == 30 )
				setstage DLCHorseArmor 40
			endif	
	
		endif 

		if (Horses.OwnAnvilWhite == 0) 
			message "Euer Pferd ist zu weit entfernt um ausgerstet zu werden."	
			set DLCHorseArmor.giveArmor to 0
		endif

	endif

	if ( WeynonHorsePlayer.IsPlayersLastRiddenHorse == 1 ) || ( HorsePCArmoredElvenPaintWeynonRef.IsPlayersLastRiddenHorse == 1 )
		if ( Horses.OwnPriorMaborelsHorse == 1 ) 
			if ( WeynonHorsePlayer.IsPlayersLastRiddenHorse == 1 )
				set WeynonHorsePlayer.FakeDeath to 1
				WeynonHorsePlayer.kill
				WeynonHorsePlayer.disable
				WeynonHorsePlayer.resurrect
			endif

			if ( HorsePCArmoredElvenPaintWeynonRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCArmoredElvenPaintWeynonRef.FakeDeath to 1
				HorsePCArmoredElvenPaintWeynonRef.kill
				HorsePCArmoredElvenPaintWeynonRef.disable
				HorsePCArmoredElvenPaintWeynonRef.resurrect
			endif

			HorsePCArmoredSteelPaintWeynonRef.enable
			HorsePCArmoredSteelPaintWeynonRef.moveto DLCHorseArmorMarker
			Message "Prior Maborels Pferd wurde ausgerstet und wartet draussen."
			set DLCHorseArmor.giveArmor to 0
			if ( getStage DLCHorseArmor >= 40 )
				player.RemoveItem Gold001 500
			endif
			if ( getStage DLCHorseArmor == 30 )
				setstage DLCHorseArmor 40
			endif	
	
		endif

		if ( Horses.OwnPriorMaborelsHorse == 0 ) 
			message "Euer Pferd ist zu weit entfernt um ausgerstet zu werden."
			set DLCHorseArmor.giveArmor to 0	
		endif

	endif
	if ( ShadowmereRef.IsPlayersLastRiddenHorse == 1 ) || ( HorsePCArmoredElvenShadowmereRef.IsPlayersLastRiddenHorse == 1 )
		if ( Horses.OwnShadowmere == 1 )
			if ( ShadowmereRef.IsPlayersLastRiddenHorse == 1 )
				set ShadowmereRef.FakeDeath to 1
				SetEssential Dark10Horse 0
				ShadowmereRef.kill
				ShadowmereRef.disable
				ShadowmereRef.resurrect
			endif

			if ( HorsePCArmoredElvenShadowmereRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCArmoredElvenShadowmereRef.FakeDeath to 1
				SetEssential HorsePCArmoredElvenShadowmere 0
				HorsePCArmoredElvenShadowmereRef.kill
				HorsePCArmoredElvenShadowmereRef.disable
				HorsePCArmoredElvenShadowmereRef.resurrect
				SetEssential HorsePCArmoredElvenShadowmere 1
			endif

			HorsePCArmoredSteelShadowmereRef.enable
			HorsePCArmoredSteelShadowmereRef.moveto DLCHorseArmorMarker
			Message "Euer Pferd Schattenstute wurde ausgerstet und wartet draussen."
			set DLCHorseArmor.giveArmor to 0
			if ( getStage DLCHorseArmor >= 40 )
				player.RemoveItem Gold001 500
			endif
			if ( getStage DLCHorseArmor == 30 )
				setstage DLCHorseArmor 40
			endif	

		endif

		if ( Horses.OwnShadowmere == 0 ) 
			message "Euer Pferd ist zu weit entfernt um ausgerstet zu werden."
			set DLCHorseArmor.giveArmor to 0	
		endif

	endif

	if ( HorsePCArmoredElvenOldNagRef.IsPlayersLastRiddenHorse == 1 ) 
		if ( Horses.OwnOldNag == 1 )
			if ( HorsePCArmoredElvenOldNagRef.IsPlayersLastRiddenHorse == 1 ) 
				set HorsePCArmoredElvenOldNagRef.FakeDeath to 1
				HorsePCArmoredElvenOldNagRef.kill
				HorsePCArmoredElvenOldNagRef.disable
			endif
			
			HorsePCArmoredSteelOldNagRef.enable
			HorsePCArmoredSteelOldNagRef.moveto DLCHorseArmorMarker
			Message "Euer alter Gaul wurde ausgerstet und wartet draussen."
			set DLCHorseArmor.giveArmor to 0
			if ( getStage DLCHorseArmor >= 40 )
				player.RemoveItem Gold001 500
			endif
			if ( getStage DLCHorseArmor == 30 )
				setstage DLCHorseArmor 40
			endif	
	
		endif

		if ( Horses.OwnOldNag == 0 ) 
			message "Euer Pferd ist zu weit entfernt um ausgerstet zu werden."
			set DLCHorseArmor.giveArmor to 0	
		endif

	endif

endif


;Checks current horse and replaces it with Elven Armored horse

if ( DLCHorseArmor.giveArmor == 2 )
	if ( HorsePCBayBravilRef.IsPlayersLastRiddenHorse == 1 ) || ( HorsePCArmoredSteelBayBravilRef.IsPlayersLastRiddenHorse == 1 )
		if ( Horses.OwnBravilBay == 1 ) 
			if ( HorsePCBayBravilRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCBayBravilRef.FakeDeath to 1
				HorsePCBayBravilRef.kill
				HorsePCBayBravilRef.disable
				HorsePCBayBravilRef.resurrect
			endif

			if ( HorsePCArmoredSteelBayBravilRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCArmoredSteelBayBravilRef.FakeDeath to 1
				HorsePCArmoredSteelBayBravilRef.kill
				HorsePCArmoredSteelBayBravilRef.disable
				HorsePCArmoredSteelBayBravilRef.resurrect
			endif

			HorsePCArmoredElvenBayBravilRef.enable
			HorsePCArmoredElvenBayBravilRef.moveto DLCHorseArmorMarker
			Message "Euer Pferd Feuermhne wurde ausgerstet und wartet draussen."
			set DLCHorseArmor.giveArmor to 0
			if ( getStage DLCHorseArmor >= 40 )
				player.RemoveItem Gold001 500
			endif
			if ( getStage DLCHorseArmor == 30 )
				setstage DLCHorseArmor 40
			endif	
	
		endif

		if ( Horses.OwnBravilBay == 0 ) 
			message "Euer Pferd ist zu weit entfernt um ausgerstet zu werden."
			set DLCHorseArmor.giveArmor to 0	
		endif

	endif

	if ( HorsePCBaySkingradRef.IsPlayersLastRiddenHorse == 1 ) || ( HorsePCArmoredSteelBaySkingradRef.IsPlayersLastRiddenHorse == 1 )
		if ( Horses.OwnSkingradBay == 1 )
			if ( HorsePCBaySkingradRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCBaySkingradRef.FakeDeath to 1
				HorsePCBaySkingradRef.kill
				HorsePCBaySkingradRef.disable
				HorsePCBaySkingradRef.resurrect
			endif

			if ( HorsePCArmoredSteelBaySkingradRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCArmoredSteelBaySkingradRef.FakeDeath to 1
				HorsePCArmoredSteelBaySkingradRef.kill
				HorsePCArmoredSteelBaySkingradRef.disable
				HorsePCArmoredSteelBaySkingradRef.resurrect
			endif

			HorsePCArmoredElvenBaySkingradRef.enable
			HorsePCArmoredElvenBaySkingradRef.moveto DLCHorseArmorMarker
			Message "Euer Pferd Rotfuchs wurde ausgerstet und wartet draussen."
			set DLCHorseArmor.giveArmor to 0
			if ( getStage DLCHorseArmor >= 40 )
				player.RemoveItem Gold001 500
			endif
			if ( getStage DLCHorseArmor == 30 )
				setstage DLCHorseArmor 40
			endif	
	
		endif

		if ( Horses.OwnSkingradBay == 0 ) 
			message "Euer Pferd ist zu weit entfernt um ausgerstet zu werden."
			set DLCHorseArmor.giveArmor to 0	
		endif

	endif

	if ( HorsePCBlackCheydinhalRef.IsPlayersLastRiddenHorse == 1 ) || ( HorsePCArmoredSteelBlackCheydinhalRef.IsPlayersLastRiddenHorse == 1 )
		if ( Horses.OwnCheydinhalBlack == 1 ) 
			if ( HorsePCBlackCheydinhalRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCBlackCheydinhalRef.FakeDeath to 1
				HorsePCBlackCheydinhalRef.kill
				HorsePCBlackCheydinhalRef.disable
				HorsePCBlackCheydinhalRef.resurrect
			endif

			if ( HorsePCArmoredSteelBlackCheydinhalRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCArmoredSteelBlackCheydinhalRef.FakeDeath to 1
				HorsePCArmoredSteelBlackCheydinhalRef.kill
				HorsePCArmoredSteelBlackCheydinhalRef.disable
				HorsePCArmoredSteelBlackCheydinhalRef.resurrect
			endif

			HorsePCArmoredElvenBlackCheydinhalRef.enable
			HorsePCArmoredElvenBlackCheydinhalRef.moveto DLCHorseArmorMarker
			Message "Euer Pferd Schattenfell wurde ausgerstet und wartet draussen."
			set DLCHorseArmor.giveArmor to 0
			if ( getStage DLCHorseArmor >= 40 )
				player.RemoveItem Gold001 500
			endif
			if ( getStage DLCHorseArmor == 30 )
				setstage DLCHorseArmor 40
			endif	
	
		endif

		if ( Horses.OwnCheydinhalBlack == 0 ) 
			message "Euer Pferd ist zu weit entfernt um ausgerstet zu werden."
			set DLCHorseArmor.giveArmor to 0	
		endif

	endif

	if ( HorsePCChestnutChorrolRef.IsPlayersLastRiddenHorse == 1 ) || ( HorsePCArmoredSteelChestnutChorrolRef.IsPlayersLastRiddenHorse == 1 )
		if ( Horses.OwnChorrolChestnut == 1 )	
			if ( HorsePCChestnutChorrolRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCChestnutChorrolRef.FakeDeath to 1
				HorsePCChestnutChorrolRef.kill
				HorsePCChestnutChorrolRef.disable
				HorsePCChestnutChorrolRef.resurrect
			endif

			if ( HorsePCArmoredSteelChestnutChorrolRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCArmoredSteelChestnutChorrolRef.FakeDeath to 1
				HorsePCArmoredSteelChestnutChorrolRef.kill
				HorsePCArmoredSteelChestnutChorrolRef.disable
				HorsePCArmoredSteelChestnutChorrolRef.resurrect
			endif

			HorsePCArmoredElvenChestnutChorrolRef.enable
			HorsePCArmoredElvenChestnutChorrolRef.moveto DLCHorseArmorMarker
			Message "Euer Pferd Brauner Blitz wurde ausgerstet und wartet draussen."
			set DLCHorseArmor.giveArmor to 0
			if ( getStage DLCHorseArmor >= 40 )
				player.RemoveItem Gold001 500
			endif
			if ( getStage DLCHorseArmor == 30 )
				setstage DLCHorseArmor 40
			endif	
	
		endif

		if ( Horses.OwnChorrolChestnut == 0 ) 
			message "Euer Pferd ist zu weit entfernt um ausgerstet zu werden."
			set DLCHorseArmor.giveArmor to 0	
		endif

	endif

	if ( HorsePCPaintBrumaRef.IsPlayersLastRiddenHorse == 1 ) || ( HorsePCArmoredSteelPaintBrumaRef.IsPlayersLastRiddenHorse == 1 )	
		if ( Horses.OwnBrumaPaint == 1 )
			if ( HorsePCPaintBrumaRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCPaintBrumaRef.FakeDeath to 1
				HorsePCPaintBrumaRef.kill
				HorsePCPaintBrumaRef.disable
				HorsePCPaintBrumaRef.resurrect
			endif

			if ( HorsePCArmoredSteelPaintBrumaRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCArmoredSteelPaintBrumaRef.FakeDeath to 1
				HorsePCArmoredSteelPaintBrumaRef.kill
				HorsePCArmoredSteelPaintBrumaRef.disable
				HorsePCArmoredSteelPaintBrumaRef.resurrect
			endif
	
			HorsePCArmoredElvenPaintBrumaRef.enable
			HorsePCArmoredElvenPaintBrumaRef.moveto DLCHorseArmorMarker
			Message "Euer Pferd Raccoon wurde ausgerstet und wartet draussen."
			set DLCHorseArmor.giveArmor to 0
			if ( getStage DLCHorseArmor >= 40 )
				player.RemoveItem Gold001 500
			endif
			if ( getStage DLCHorseArmor == 30 )
				setstage DLCHorseArmor 40
			endif	
	
		endif

		if ( Horses.OwnBrumaPaint == 0 ) 
			message "Euer Pferd ist zu weit entfernt um ausgerstet zu werden."
			set DLCHorseArmor.giveArmor to 0	
		endif

	endif

	if ( HorsePCPaintLeyawiinRef.IsPlayersLastRiddenHorse == 1 ) || ( HorsePCArmoredSteelPaintLeyawiinRef.IsPlayersLastRiddenHorse == 1 )
		if ( Horses.OwnLeyawiinPaint == 1 ) 
			if ( HorsePCPaintLeyawiinRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCPaintLeyawiinRef.FakeDeath to 1
				HorsePCPaintLeyawiinRef.kill
				HorsePCPaintLeyawiinRef.disable
				HorsePCPaintLeyawiinRef.resurrect
			endif

			if ( HorsePCArmoredSteelPaintLeyawiinRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCArmoredSteelPaintLeyawiinRef.FakeDeath to 1
				HorsePCArmoredSteelPaintLeyawiinRef.kill
				HorsePCArmoredSteelPaintLeyawiinRef.disable
				HorsePCArmoredSteelPaintLeyawiinRef.resurrect
			endif

			HorsePCArmoredElvenPaintLeyawiinRef.enable
			HorsePCArmoredElvenPaintLeyawiinRef.moveto DLCHorseArmorMarker
			Message "Euer Pferd Habibi wurde ausgerstet und wartet draussen."
			set DLCHorseArmor.giveArmor to 0
			if ( getStage DLCHorseArmor >= 40 )
				player.RemoveItem Gold001 500
			endif
			if ( getStage DLCHorseArmor == 30 )
				setstage DLCHorseArmor 40
			endif	
	
		endif

		if ( Horses.OwnLeyawiinPaint == 0 ) 
			message "Euer Pferd ist zu weit entfernt um ausgerstet zu werden."
			set DLCHorseArmor.giveArmor to 0	
		endif

	endif

	if ( HorsePCWhiteAnvilRef.IsPlayersLastRiddenHorse == 1 ) || ( HorsePCArmoredSteelWhiteAnvilRef.IsPlayersLastRiddenHorse == 1 )
		if (Horses.OwnAnvilWhite == 1) 
			if ( HorsePCWhiteAnvilRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCWhiteAnvilRef.FakeDeath to 1
				HorsePCWhiteAnvilRef.kill
				HorsePCWhiteAnvilRef.disable
				HorsePCWhiteAnvilRef.resurrect
			endif

			if ( HorsePCArmoredSteelWhiteAnvilRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCArmoredSteelWhiteAnvilRef.FakeDeath to 1
				HorsePCArmoredSteelWhiteAnvilRef.kill
				HorsePCArmoredSteelWhiteAnvilRef.disable
				HorsePCArmoredSteelWhiteAnvilRef.resurrect
			endif

			HorsePCArmoredElvenWhiteAnvilRef.enable
			HorsePCArmoredElvenWhiteAnvilRef.moveto DLCHorseArmorMarker
			Message "Euer Pferd Schneeschweif wurde ausgerstet und wartet draussen."
			set DLCHorseArmor.giveArmor to 0.
			if ( getStage DLCHorseArmor >= 40 )
				player.RemoveItem Gold001 500
			endif
			if ( getStage DLCHorseArmor == 30 )
				setstage DLCHorseArmor 40
			endif	
	
		endif

		if (Horses.OwnAnvilWhite == 0) 
			message "Euer Pferd ist zu weit entfernt um ausgerstet zu werden."	
			set DLCHorseArmor.giveArmor to 0
		endif

	endif

	if ( WeynonHorsePlayer.IsPlayersLastRiddenHorse == 1 ) ||  ( HorsePCArmoredSteelPaintWeynonRef.IsPlayersLastRiddenHorse == 1 )
		if ( Horses.OwnPriorMaborelsHorse == 1 )
			if ( WeynonHorsePlayer.IsPlayersLastRiddenHorse == 1 )
				set WeynonHorsePlayer.FakeDeath to 1
				WeynonHorsePlayer.kill
				WeynonHorsePlayer.disable
				WeynonHorsePlayer.resurrect
			endif

			if ( HorsePCArmoredSteelPaintWeynonRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCArmoredSteelPaintWeynonRef.FakeDeath to 1
				HorsePCArmoredSteelPaintWeynonRef.kill
				HorsePCArmoredSteelPaintWeynonRef.disable
				HorsePCArmoredSteelPaintWeynonRef.resurrect
			endif

			HorsePCArmoredElvenPaintWeynonRef.enable
			HorsePCArmoredElvenPaintWeynonRef.moveto DLCHorseArmorMarker
			Message "Prior Maborels Pferd wurde ausgerstet und wartet draussen."
			set DLCHorseArmor.giveArmor to 0

			if ( getStage DLCHorseArmor >= 40 )
				player.RemoveItem Gold001 500
			endif

			if ( getStage DLCHorseArmor == 30 )
				setstage DLCHorseArmor 40
			endif	
	
		endif

		if ( Horses.OwnPriorMaborelsHorse == 0 ) 
			message "Euer Pferd ist zu weit entfernt um ausgerstet zu werden."
			set DLCHorseArmor.giveArmor to 0	
		endif

	endif

	if ( ShadowmereRef.IsPlayersLastRiddenHorse == 1 ) || ( HorsePCArmoredSteelShadowmereRef.IsPlayersLastRiddenHorse == 1 )
		if ( Horses.OwnShadowmere == 1 )
			if ( ShadowmereRef.IsPlayersLastRiddenHorse == 1 )
			 set ShadowmereRef.FakeDeath to 1
			 SetEssential Dark10Horse 0
			 ShadowmereRef.kill
			 ShadowmereRef.disable
			 ShadowmereRef.resurrect
			endif

			if ( HorsePCArmoredSteelShadowmereRef.IsPlayersLastRiddenHorse == 1 )
			 set HorsePCArmoredSteelShadowmereRef.FakeDeath to 1
			 SetEssential HorsePCArmoredSteelShadowmere 0
			 HorsePCArmoredSteelShadowmereRef.kill
			 HorsePCArmoredSteelShadowmereRef.disable
			 HorsePCArmoredSteelShadowmereRef.resurrect
			 SetEssential HorsePCArmoredSteelShadowmere 1
			endif

			SetEssential HorsePCArmoredElvenShadowmere 1
			HorsePCArmoredElvenShadowmereRef.enable
			HorsePCArmoredElvenShadowmereRef.moveto DLCHorseArmorMarker
			Message "Euer Pferd Schattenstute wurde ausgerstet und wartet draussen."
			set DLCHorseArmor.giveArmor to 0

			if ( getStage DLCHorseArmor >= 40 )
				player.RemoveItem Gold001 500
			endif

			if ( getStage DLCHorseArmor == 30 )
				setstage DLCHorseArmor 40
			endif	
	
		endif

		if ( Horses.OwnShadowmere == 0 ) 
			message "Euer Pferd ist zu weit entfernt um ausgerstet zu werden."
			set DLCHorseArmor.giveArmor to 0	
		endif

	endif

	if ( HorsePCArmoredSteelOldNagRef.IsPlayersLastRiddenHorse == 1 ) 
		if ( Horses.OwnOldNag == 1 )
			if ( HorsePCArmoredSteelOldNagRef.IsPlayersLastRiddenHorse == 1 )
				set HorsePCArmoredSteelOldNagRef.FakeDeath to 1
				HorsePCArmoredSteelOldNagRef.kill
				HorsePCArmoredSteelOldNagRef.disable
				HorsePCArmoredSteelOldNagRef.resurrect
			endif

			HorsePCArmoredElvenOldNagRef.enable
			HorsePCArmoredElvenOldNagRef.moveto DLCHorseArmorMarker
			Message "Euer alter Gaul wurde ausgerstet und wartet draussen."
			set DLCHorseArmor.giveArmor to 0

			if ( getStage DLCHorseArmor >= 40 )
				player.RemoveItem Gold001 500
			endif

			if ( getStage DLCHorseArmor == 30 )
				setstage DLCHorseArmor 40
			endif	
	
		endif

		if ( Horses.OwnOldNag == 0 ) 
			message "Euer Pferd ist zu weit entfernt um ausgerstet zu werden."
			set DLCHorseArmor.giveArmor to 0	
		endif

	endif

endif


;Gives player Old Nag if a horse is not already owned

if ( DLCHorseArmor.giveArmor == 3 )
	HorsePCArmoredSteelOldNagRef.enable
	HorsePCArmoredSteelOldNagRef.moveto DLCHorseArmorMarker
	set DLCHorseArmor.giveArmor to 0
	setstage DLCHorseArmor 41
endif

;Checks to see if player owns a horse and sets variable

set DLCHorseArmor.NoHorse to 0

if ( Horses.OwnAnvilWhite == 0 ) && ( Horses.OwnBravilBay == 0 ) && ( Horses.OwnBrumaPaint == 0 ) && ( Horses.OwnCheydinhalBlack == 0 ) && ( Horses.OwnChorrolChestnut == 0 ) && ( Horses.OwnLeyawiinPaint == 0 ) && ( Horses.OwnSkingradBay == 0 ) && ( Horses.OwnShadowmere == 0 ) && ( Horses.OwnPriorMaborelsHorse == 0 ) && ( Horses.OwnOldNag == 0 )     
	set DLCHorseArmor.NoHorse to 1
endif

end

Begin OnActivate

Activate

end



======genderte Originalskripts (bersetzt) =======================

ScriptName HorsePCBayBravilScript

Short RespawnHorse
Short TellPC
Short Mounted
short FakeDeath

Begin OnDeath

if ( FakeDeath == 0 )
	Set RespawnHorse to 1
	Set Horses.OwnBravilBay to 0
	Set Mounted to 0
	HorseSaleBayBravilRef.Enable
	ModPCMiscStat 14 -1
	else
		set FakeDeath to 0
endif

End

Begin OnPackageEnd HorsePCBravilGoHome
	If TellPC == 0 && Mounted == 1
		If GetInCell Bravil == 1
			Message "Feurmhne ist in die Bravil-Stlle zurckgekehrt."
			Set TellPC to 1
		EndIf
	EndIf
End

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

====================================================================

ScriptName HorsePCBaySkingradScript

Short RespawnHorse
Short TellPC
Short Mounted
short FakeDeath

Begin OnDeath

if ( FakeDeath == 0 )
	
	Set RespawnHorse to 1
	Set Horses.OwnSkingradBay to 0
	Set Mounted to 0
	HorseSaleBaySkingradRef.Enable
	ModPCMiscStat 14 -1
	else
		set FakeDeath to 0
endif

End

Begin OnPackageEnd HorsePCSkingradGoHome
	If TellPC == 0 && Mounted == 1
		If GetInCell Skingrad == 1
			Message "Euer Rotfuchs ist in die Skingrad-Stlle zurckgekehrt."
			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

====================================================================

ScriptName HorsePCBlackCheydinhalScript

Short RespawnHorse
Short TellPC
Short Mounted
short FakeDeath

Begin OnDeath

if ( FakeDeath == 0 )
	Set RespawnHorse to 1
	Set Horses.OwnCheydinhalBlack to 0
	Set Mounted to 0
	HorseSaleBlackCheydinhalRef.Enable
	ModPCMiscStat 14 -1
	else
		set FakeDeath to 0
endif

End

Begin OnPackageEnd HorsePCCheydinhalGoHome
	If TellPC == 0 && Mounted == 1
		If GetInCell Cheydinhal == 1
			MessageBox "Schattenfell ist in die Cheydinhal-Stlle zurckgekehrt."
			Set TellPC to 1
		EndIf
	EndIf
End

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


====================================================================

ScriptName HorsePCChestnutChorrolScript

Short RespawnHorse
Short TellPC
Short Mounted
short FakeDeath

Begin OnDeath

if ( FakeDeath == 0 )
	Set RespawnHorse to 1
	Set Horses.OwnChorrolChestnut to 0
	Set Mounted to 0
	HorseSaleChestnutChorrolRef.Enable
	ModPCMiscStat 14 -1
	else
		set FakeDeath to 0
endif

End

Begin OnPackageEnd HorsePCChorrolGoHome
	If TellPC == 0
		If GetInCell Chorrol == 1
			Message "Brauner Blitz ist in die Chorrol-Stlle zurckgekehrt."
			Set TellPC to 1
		EndIf
	EndIf
End

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

====================================================================

ScriptName HorsePCPaintBrumaScript

Short RespawnHorse
Short TellPC
Short Mounted
short FakeDeath

Begin OnDeath

if ( FakeDeath == 0 )
	Set RespawnHorse to 1
	Set Horses.OwnBrumaPaint to 0
	Set Mounted to 0
	HorseSalePaintBrumaRef.Enable
	ModPCMiscStat 14 -1
	else
		set FakeDeath to 0
endif

End

Begin OnPackageEnd HorsePCBrumaGoHome
	If TellPC == 0 && Mounted == 1
		If GetInCell Bruma == 1
			Message "Raccoon ist in die Bruma-Stlle zurckgekehrt."
			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

====================================================================

ScriptName HorsePCPaintLeyawiinScript

Short RespawnHorse
Short TellPC
Short Mounted
short FakeDeath

Begin OnDeath

if ( FakeDeath == 0 )
	Set RespawnHorse to 1
	Set Horses.OwnLeyawiinPaint to 0
	Set Mounted to 0
	HorseSalePaintLeyawiinRef.Enable
	ModPCMiscStat 14 -1
	else
		set FakeDeath to 0
endif

End

Begin OnPackageEnd HorsePCLeyawiinGoHome
	If TellPC == 0 && Mounted == 1
		If GetInCell Leyawiin == 1
			Message "Habibi ist in die Leyawiin-Stlle zurckgekehrt."
			Set TellPC to 1
		EndIf
	EndIf
End

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

====================================================================

ScriptName HorsePCPriorMaborelsHorseScript

Short TellPC
Short Mounted
short FakeDeath

Begin OnDeath

if ( FakeDeath == 0 )
	Set Horses.OwnPriorMaborelsHorse to 0
	else
		set FakeDeath to 0
endif

End

Begin OnPackageEnd HorsePCWeynonGoHome
	If TellPC == 0 && Mounted == 1
		If GetInCell WeynonPriory == 1
			Message "Prior Maborels Pferd ist zur Weynon-Priorei zurckgekehrt."
			Set TellPC to 1
		EndIf
	EndIf
End

Begin OnActivate
	if PriorMaborelRef.OfferHorse == 1
		Set Mounted to 1
		Set TellPC to 0
	EndIf
	Activate
	EvaluatePackage
End


====================================================================

ScriptName HorsePCShadowmereScript

Short TellPC
Short Mounted
short FakeDeath

Begin OnDeath

if ( FakeDeath == 0 )
	Set Horses.OwnShadowmere to 0
	else
		set FakeDeath to 0
endif

End

Begin OnPackageEnd HorsePCFarragutGoHome
	If TellPC == 0 && Mounted == 1
		If GetInCell FortFarragut == 1
			Message "Schattenstute ist zur Festung Farragut zurckgekehrt."
			Set TellPC to 1
		EndIf
	EndIf
End

Begin OnActivate
	Set TellPC to 0
	Set Mounted to 1
	Activate
	EvaluatePackage
End


======================Books===========================

------------Flugblatt - Pferderstungen---------------

<font face="5">Lieber Leser,
<br>
<br>
Im Rahmen der Feierlichkeiten zur Erffnung unseres neuen Rstungsdienstes bieten wir dem berbringer dieses Schreibens einen kostenlosen Pferde-Rstungssatz.<br>
Um Eure Belohnung entgegenzunehmen bringt Euer bevorzugtes Pferd, zusammen mit diesem Schriftstck zu den Fuchshand-Stallungen vor der Kaiserstadt. Helft uns, die Kunde von unserem neuen Pferderstungs-Dienst zu verbreiten.
<br>
<br>
Fuchshand-Stlle -- Denn Ihr knnt es Euch nicht leisten Euer Pferd nicht zu schtzen.
<br>
<br>
Unterzeichnet,
<br>
<br>
Snak gra-Bura
<br>
Besitzerin der Fuchshand-Stlle.


--------------Plne fr Pfederstung-------------------

Ich bin eine Sammlung von Plnen. Sucht die Fuchshand-Stlle auf.


========Quest Name: Rstungen fr Pferde=========

===Quest Stages==================================

30:

Ich fand eine Notiz von Snak gra-Bura von den Fuchshand-Stllen. Sie bietet an, jeden, der im besitz dieser Notiz ist mit einer kostenlosen Pferde-Rstung auszustatten. Ich sollte mein Pferd zu ihr bringen um dieses Angebot zu nutzen.

40:

Snak gra-Bura hat mein Pferd unentgeltlich mit einer Rstung ausgestattet. Von nun an wird sie mir jedes Pferd, das ich ehrlich erworben habe und zu ihr bringe zum Preis von 500 Septimen mit einer Stahl- oder Elfenrstung ausstatten.

41:

Obwohl ich kein Pferd besa, rstete Snak gra-Bura ihren alten Gaul mit einer Stahlrstung aus und machte ihn mir zum Geschenk. Von nun an wird sie mir jedes Pferd, das ich ehrlich erworben habe und zu ihr bringe zum Preis von 500 Septimen mit einer Stahl- oder Elfenrstung ausstatten.

====Topics=======================================

1:

Ich wnsche Rstung und Pferd.

Ihr macht wohl Witze.


2:

Ich bin nicht whlerisch.

Lat mich sehen, ob ich etwas fr Euch habe.


3:

Ich sagte: Ich will ein Pferd! Klar?

Ihr seid ein zher Geschftmann.


4:

Ich komm mit meinem Pferd wieder her.

[Result] Damit Snak gra-Bura Euch eine Rstung geben kann, mt Ihr ein ehrlich erworbenes Pferd zu den Fuchshand-Stllen bringen.


5:

Ich bin wegen der Pferderstung hier.

An was hattet Ihr gedacht?


6:

Rstet mein Pferd aus (500 GP)

An was hattet Ihr gedacht?


7:

Ich suche eine Elfen-Rstung.

Hier nehmt - ganz wie versprochen! Und habt nochmals Dank fr Eure Hilfe!
Ich schtze Eure Kundschaft.
Ihr macht wohl Scherze? [Result] Euer derzeitiges Pferd kann nicht mit einer Elfen-Rstung ausgestattet werden.


8:

Pferd? Habt Ihr vielleicht eines?

Ihr beliebt zu scherzen? [Result] Ihr mt Euer derzeitiges Pferd ehrlich erworben haben, bevor Snak gra-Bura Euch eine Rstung verkaufen kann.


9:

Ich suche eine Stahl-Rstung.

Hier nehmt - ganz wie versprochen! Und habt nochmals Dank fr Eure Hilfe!
Ich schtze Eure Kundschaft.
Ihr macht wohl Scherze? [Result] Euer derzeitiges Pferd kann nicht mit einer Stahl-Rstung ausgestattet werden.


10:

500 sind zuviel. Lat uns handeln?

Das kann ich mir nicht leisten.
