SureAI

scn zzzzzAlternativeLevelingSCRIPT

float fQuestDelayTime

short Button

short LevelUpAttribute
short LevelONCE
short CurrentPlayerLevel
short VarCurrentHealth
float GSfStatsHealthLevelMult
float GSfPCBaseHealthMult
short ValAttributHandling
short BStr
short BInt
short BWil
short BAgi
short BSpe
short BEnd
short BPer
short BLuc
short NStr
short NInt
short NWil
short NAgi
short NSpe
short NEnd
short NPer
short NLuc
short OldAthletik
short OldAkrobatik
short OldAlchemie
short OldVeraenderung
short OldHandwerk
short OldStich
short OldSchlag
short OldBlock
short OldBeschwoerung
short OldSchuetze
short OldHandel
short OldArkan
short OldWiederherstellung
short OldFaust
short OldSchwer
short OldLeicht
short OldIllusion
short OldSicherheit
short OldSchleichen
short OldRedekunst
short OldZerstoerung
short STEP
string_var LevelMSGtext
string_var TotalMSGtext
string_var StrAttHandling
string_var StrAttSetting
string_var SStr
string_var SInt
string_var SWil
string_var SAgi
string_var SSpe
string_var SEnd
string_var SPer
string_var SLuc


Begin MenuMode 1
	Set fQuestDelayTime to 0.01

	if LevelONCE == 0 ;==>Wird einmal zu Beginn der Quest ausgeführt
		Set ValAttributHandling to 1 ;==>Sorgt dafür, dass Attributspunkte am Anfang immer addiert werden
		Set GSfStatsHealthLevelMult to GetGameSetting fStatsHealthLevelMult
		if VarCurrentHealth == 0 && Player.GetLevel != 1 ;==> Wird einmalig ausgeführt, da die Lebensvariable nur zu Beginn des Spiels 0 sein kann.
			Set GSfPCBaseHealthMult to GetGameSetting fPCBaseHealthMult
			Set VarCurrentHealth to (Player.GetBaseAV Health - (Player.GetBaseAV Endurance * GSfPCBaseHealthMult))
		endif ;==> Dieser Block wurde also ausgeführt, wenn der Spieler ein höheres Level als 1 hat und erst jetzt Nehrim Expanded lädt. Die Bonuslebenspunkte werden berechnet indem man die gesamten Komplettlebenspunkte weniger (BasisAusdauer * 2 (Game Setting-Wert)) rechnet. Durch diese Formel werden auch anfangs die Leben des Spielers berechnet (BasisAusdauer (40) * Game Setting (2) = 80 Lebenspunkte). Wenn man die aktuellen Komplettlebenspunkte also weniger der Basislebenspunkte rechnet, sollte der exakte Wert der Bonuslebenspunkte als Ergebnis herauskommen. Dieses Ergebnis wird dann in die Lebenspunktevariable gespeichert, damit sofort richtig mit dem Wert gerechnet werden kann.
		Set CurrentPlayerLevel to (Player.GetLevel + 1) ;==> Der Wert des nächsten Level wird in eine Variable gespeichert.
		let StrAttHandling := "Attributspunkte hinzufügen" ;==> Eine Stringvariable erhält ihre Bezeichnung
		let StrAttSetting := "(-)" ;==> Eine Stringvariable erhält ihre Bezeichnung
		set NStr to 0 ;==> Die Zusatzwerte für die einzelnen Attribute werden zurückgesetzt.
		set NInt to 0
		set NWil to 0
		set NAgi to 0
		set NSpe to 0
		set NEnd to 0
		set NPer to 0
		set NLuc to 0
		let SStr := "" ;==> Die Stringvariablen der Zusatzwerte werden gelöscht.
		let SInt := ""
		let SWil := ""
		let SAgi := ""
		let SSpe := ""
		let SEnd := ""
		let SPer := ""
		let SLuc := ""
		Set BStr to Player.GetBaseAV Strength ;==> Die Basiswerte der Attribute werden in Variablen gespeichert
		Set BInt to Player.GetBaseAV Intelligence
		Set BWil to Player.GetBaseAV Willpower
		Set BAgi to Player.GetBaseAV Agility
		Set BSpe to Player.GetBaseAV Speed
		Set BPer to Player.GetBaseAV Personality
		Set BEnd to Player.GetBaseAV Endurance
		Set BLuc to Player.GetBaseAV Luck
		Set LevelONCE to 1 ;==> Sorgt dafür, dass dieser Block erst wieder beim nächsten Queststart durchgeführt wird.
		Set STEP to -1 ;==> Sorgt dafür, dass der Block mit der Levelaufstiegs-Message ausgeführt wird.
		let LevelMSGtext := "" ;==> Löscht den Leveltext
		If CurrentPlayerLevel == 2
			let LevelMSGtext := "Willkommen auf Level 2!%rEs wird Euch gewahr, dass Ihr Euer gesamtes Leben wie in einem Traum verbracht habt. Plötzlich, angesichts der Prüfungen der letzen paar Tage, erwacht in Euch das Leben."
		ElseIf CurrentPlayerLevel == 3
			let LevelMSGtext := "Willkommen auf Level 3!%rIhr erkennt, dass Ihr dem Geheimnis des Erfolgs auf der Spur seid. Es ist bloß eine Sache der Konzentration."
		ElseIf CurrentPlayerLevel == 4
			let LevelMSGtext := "Willkommen auf Level 4!%rIhr habt immer den schwierigeren Weg gewählt. Aber ohne Risiken, ohne Verantwortung für Niederlagen zu übernehmen... wie hättet Ihr Einsichten erlangen können?"
		ElseIf CurrentPlayerLevel == 5
			let LevelMSGtext := "Willkommen auf Level 5!%rAlles, was Sie tun, läuft einfach ein bisschen leichter, instinktiver, zufrieden stellender. Es ist, als besäßen Sie plötzlich schärfere Sinne und Instinkte."
		ElseIf CurrentPlayerLevel == 6
			let LevelMSGtext := "Willkommen auf Level 6!%rIhr habt viel über Nehrim gelernt... und über Euch selbst. Kaum zu glauben, wie ignorant Ihr wart, aber jetzt habt Ihr noch so viel mehr zu lernen."
		ElseIf CurrentPlayerLevel == 7
			let LevelMSGtext := "Willkommen auf Level 7!%rIhr entscheidet, Euch weiterhin selbst anzutreiben. Vielleicht steckt in euch mehr, als Ihr glaubtet."
		ElseIf CurrentPlayerLevel == 8
			let LevelMSGtext := "Willkommen auf Level 8!%rDas Geheimnis scheint in harter Arbeit zu liegen, das ist wohl wahr, aber auch eine Art blinder Passion, eine Inspiration, spielt mit."
		ElseIf CurrentPlayerLevel == 9
			let LevelMSGtext := "Willkommen auf Level 9!%rSo also funktioniert das. Man schleppt sich vorwärts, setzt einen Fuß vor den anderen, schaut auf, und plötzlich ist man da. Genau dort, wo man die ganze Zeit hin wollte."
		ElseIf CurrentPlayerLevel == 10
			let LevelMSGtext := "Willkommen auf Level 10!%rHeute wachtet Ihr mit einer neuen Einstellung dem Leben gegenüber auf. Nicht länger fürchtet Ihr den Misserfolg. Versagen ist nichts weiter als eine Gelegenheit, Neues zu lernen."
		ElseIf CurrentPlayerLevel == 11
			let LevelMSGtext := "Willkommen auf Level 11!%rIntelligenz kann nie schaden. Und ein bisschen Glück ab und zu ist auch nett. Aber Geduld und harte Arbeit sind das Wichtigste."
		ElseIf CurrentPlayerLevel == 12
			let LevelMSGtext := "Willkommen auf Level 12!%rMan will kaum glauben, wie leicht es ist. Man muss bloß... ein bisschen verrückt sein. Und dann macht plötzlich alles Sinn, und alles, was man tut, gelingt."
		ElseIf CurrentPlayerLevel == 13
			let LevelMSGtext := "Willkommen auf Level 13!%rEs ist wirklich faszinierend. Gestern war es schwierig, und heute ist es simpel. Einfach eine Nacht gut schlafen, und die Hürden von gestern sind die Erfolge von heute."
		ElseIf CurrentPlayerLevel == 14
			let LevelMSGtext := "Willkommen auf Level 14!%rHeute wachen Sie auf, voller Energie und Ideen, und irgendwie wissen Sie, dass sich über Nacht alles geändert hat. Welch einen Unterschied ein einziger Tag machen kann."
		ElseIf CurrentPlayerLevel == 15
			let LevelMSGtext := "Willkommen auf Level 15!%rBleibt nun einfach so lange wie möglich in Topform. Keinen Stärkeren gibt es in Nehrim, aber einen jüngeren gibt es immer ... einen neuen Herausforderer."
		ElseIf CurrentPlayerLevel == 16
			let LevelMSGtext := "Willkommen auf Level 16!%rIhr habt euch zu stark angetrieben und zuviel nachgedacht. Entspannt Euch. Vertraut Euren Instinkten. Seid einfach Ihr selbst. Kümmert Euch um die kleinen Dinge, und die großen erledigen sich von selbst."
		ElseIf CurrentPlayerLevel == 17
			let LevelMSGtext := "Willkommen auf Level 17!%rDas Leben ist noch nicht vorbei. Ihr könnt immer noch weiser, cleverer, erfahrener oder fieser werden... aber Euer Körper und Eure Seele werden nicht mehr jünger."
		ElseIf CurrentPlayerLevel == 18
			let LevelMSGtext := "Willkommen auf Level 18!%rBei Eurer Lebensführung und der Behandlung, die sich Euer Körper gefallen lassen musste... gibt es Grenzen, und vielleicht habt Ihr sie erreicht. So fühlt es sich also an, wenn man altert?"
		ElseIf CurrentPlayerLevel == 19
			let LevelMSGtext := "Willkommen auf Level 19!%rIhr seid richtig gut. Vielleicht der/die Beste. Und genau deshalb ist es so schwierig, noch besser zu werden. Aber Ihr versucht es trotzdem weiter, weil das einfach Eurem Wesen entspricht."
		ElseIf CurrentPlayerLevel == 20
			let LevelMSGtext := "Willkommen auf Level 20!%rMit übermenschlicher Anstrengung kann man eine Weile lang das Abrutschen verhindern. Aber eines Tages macht man einen falschen Schritt, verpasst ein winziges Detail... und dann ist man für immer weg vom Fenster."
		Else
			let LevelMSGtext := "Willkommen auf Level "+$CurrentPlayerLevel+"!%rWenn man den Erfolg seiner Anstrengungen und Mühen genießt, sieht es für andere immer so aus, als habe man nur Glück gehabt. Aber Ihr wisst ja, dass Ihr Euch jedes Stückchen Eures Erfolgs selbst verdient habt."
		EndIf ;==> In diesem Block wurde der entsprechende Leveltext in eine Stringvariable gespeichert. Die Leveltexte findet man in den Game Settings.
			if OldAthletik != 0 ;==> Wird nur ausgeführt wenn es bereits einen Wert gibt. "OldAthletik" wird beim Wechseln zwischen den Levelsystemen wieder auf 0 gesetzt.
				Set OldAthletik to (Player.GetBaseAV Athletics - OldAthletik)
				If OldAthletik >= 10
					Set OldAthletik to 5
				elseif OldAthletik >= 8 
					Set OldAthletik to 4
				elseif OldAthletik >= 5
					Set OldAthletik to 3
				elseif OldAthletik >= 2
					Set OldAthletik to 2
				elseif OldAthletik > 0
					Set OldAthletik to 1
				else
					Set OldAthletik to 0
				endif ;==> Dieser Block wurde ausgeführt, wenn die neue Basisakrobatik weniger der Alten aus der Variable einen bestimmten Wert erreicht. Größer, gleich 10 bedeutet ein Wert von 5. Ab da an geht es abwärts bis 0.

				Set OldAkrobatik to (Player.GetBaseAV Acrobatics - OldAkrobatik)
				If OldAkrobatik >= 10
					Set OldAkrobatik to 5
				elseif OldAkrobatik >= 8 
					Set OldAkrobatik to 4
				elseif OldAkrobatik >= 5
					Set OldAkrobatik to 3
				elseif OldAkrobatik >= 2
					Set OldAkrobatik to 2
				elseif OldAkrobatik > 0
					Set OldAkrobatik to 1
				else
					Set OldAkrobatik to 0
				endif

				Set OldAlchemie to (Player.GetBaseAV Alchemy - OldAlchemie)
				If OldAlchemie >= 10
					Set OldAlchemie to 5
				elseif OldAlchemie >= 8 
					Set OldAlchemie to 4
				elseif OldAlchemie >= 5
					Set OldAlchemie to 3
				elseif OldAlchemie >= 2
					Set OldAlchemie to 2
				elseif OldAlchemie > 0
					Set OldAlchemie to 1
				else
					Set OldAlchemie to 0
				endif

				Set OldVeraenderung to (Player.GetBaseAV Alteration - OldVeraenderung)
				If OldVeraenderung >= 10
					Set OldVeraenderung to 5
				elseif OldVeraenderung >= 8 
					Set OldVeraenderung to 4
				elseif OldVeraenderung >= 5
					Set OldVeraenderung to 3
				elseif OldVeraenderung >= 2
					Set OldVeraenderung to 2
				elseif OldVeraenderung > 0
					Set OldVeraenderung to 1
				else
					Set OldVeraenderung to 0
				endif

				Set OldHandwerk to (Player.GetBaseAV Armorer - OldHandwerk)
				If OldHandwerk >= 10
					Set OldHandwerk to 5
				elseif OldHandwerk >= 8 
					Set OldHandwerk to 4
				elseif OldHandwerk >= 5
					Set OldHandwerk to 3
				elseif OldHandwerk >= 2
					Set OldHandwerk to 2
				elseif OldHandwerk > 0
					Set OldHandwerk to 1
				else
					Set OldHandwerk to 0
				endif

				Set OldStich to (Player.GetBaseAV Blade - OldStich)
				If OldStich >= 10
					Set OldStich to 5
				elseif OldStich >= 8 
					Set OldStich to 4
				elseif OldStich >= 5
					Set OldStich to 3
				elseif OldStich >= 2
					Set OldStich to 2
				elseif OldStich > 0
					Set OldStich to 1
				else
					Set OldStich to 0
				endif

				Set OldSchlag to (Player.GetBaseAV Blunt - OldSchlag)
				If OldSchlag >= 10
					Set OldSchlag to 5
				elseif OldSchlag >= 8 
					Set OldSchlag to 4
				elseif OldSchlag >= 5
					Set OldSchlag to 3
				elseif OldSchlag >= 2
					Set OldSchlag to 2
				elseif OldSchlag > 0
					Set OldSchlag to 1
				else
					Set OldSchlag to 0
				endif

				Set OldBlock to (Player.GetBaseAV Block - OldBlock)
				If OldBlock >= 10
					Set OldBlock to 5
				elseif OldBlock >= 8 
					Set OldBlock to 4
				elseif OldBlock >= 5
					Set OldBlock to 3
				elseif OldBlock >= 2
					Set OldBlock to 2
				elseif OldBlock > 0
					Set OldBlock to 1
				else
					Set OldBlock to 0
				endif

				Set OldBeschwoerung to (Player.GetBaseAV Conjuration - OldBeschwoerung)
				If OldBeschwoerung >= 10
					Set OldBeschwoerung to 5
				elseif OldBeschwoerung >= 8 
					Set OldBeschwoerung to 4
				elseif OldBeschwoerung >= 5
					Set OldBeschwoerung to 3
				elseif OldBeschwoerung >= 2
					Set OldBeschwoerung to 2
				elseif OldBeschwoerung > 0
					Set OldBeschwoerung to 1
				else
					Set OldBeschwoerung to 0
				endif

				Set OldSchuetze to (Player.GetBaseAV Marksman - OldSchuetze)
				If OldSchuetze >= 10
					Set OldSchuetze to 5
				elseif OldSchuetze >= 8 
					Set OldSchuetze to 4
				elseif OldSchuetze >= 5
					Set OldSchuetze to 3
				elseif OldSchuetze >= 2
					Set OldSchuetze to 2
				elseif OldSchuetze > 0
					Set OldSchuetze to 1
				else
					Set OldSchuetze to 0
				endif

				Set OldHandel to (Player.GetBaseAV Mercantile - OldHandel)
				If OldHandel >= 10
					Set OldHandel to 5
				elseif OldHandel >= 8 
					Set OldHandel to 4
				elseif OldHandel >= 5
					Set OldHandel to 3
				elseif OldHandel >= 2
					Set OldHandel to 2
				elseif OldHandel > 0
					Set OldHandel to 1
				else
					Set OldHandel to 0
				endif

				Set OldArkan to (Player.GetBaseAV Mysticism - OldArkan)
				If OldArkan >= 10
					Set OldArkan to 5
				elseif OldArkan >= 8 
					Set OldArkan to 4
				elseif OldArkan >= 5
					Set OldArkan to 3
				elseif OldArkan >= 2
					Set OldArkan to 2
				elseif OldArkan > 0
					Set OldArkan to 1
				else
					Set OldArkan to 0
				endif

				Set OldWiederherstellung to (Player.GetBaseAV Restoration - OldWiederherstellung)
				If OldWiederherstellung >= 10
					Set OldWiederherstellung to 5
				elseif OldWiederherstellung >= 8 
					Set OldWiederherstellung to 4
				elseif OldWiederherstellung >= 5
					Set OldWiederherstellung to 3
				elseif OldWiederherstellung >= 2
					Set OldWiederherstellung to 2
				elseif OldWiederherstellung > 0
					Set OldWiederherstellung to 1
				else
					Set OldWiederherstellung to 0
				endif

				Set OldFaust to (Player.GetBaseAV HandToHand - OldFaust)
				If OldFaust >= 10
					Set OldFaust to 5
				elseif OldFaust >= 8 
					Set OldFaust to 4
				elseif OldFaust >= 5
					Set OldFaust to 3
				elseif OldFaust >= 2
					Set OldFaust to 2
				elseif OldFaust > 0
					Set OldFaust to 1
				else
					Set OldFaust to 0
				endif

				Set OldSchwer to (Player.GetBaseAV HeavyArmor - OldSchwer)
				If OldSchwer >= 10
					Set OldSchwer to 5
				elseif OldSchwer >= 8 
					Set OldSchwer to 4
				elseif OldSchwer >= 5
					Set OldSchwer to 3
				elseif OldSchwer >= 2
					Set OldSchwer to 2
				elseif OldSchwer > 0
					Set OldSchwer to 1
				else
					Set OldSchwer to 0
				endif

				Set OldLeicht to (Player.GetBaseAV LightArmor - OldLeicht)
				If OldLeicht >= 10
					Set OldLeicht to 5
				elseif OldLeicht >= 8 
					Set OldLeicht to 4
				elseif OldLeicht >= 5
					Set OldLeicht to 3
				elseif OldLeicht >= 2
					Set OldLeicht to 2
				elseif OldLeicht > 0
					Set OldLeicht to 1
				else
					Set OldLeicht to 0
				endif

				Set OldIllusion to (Player.GetBaseAV Illusion - OldIllusion)
				If OldIllusion >= 10
					Set OldIllusion to 5
				elseif OldIllusion >= 8 
					Set OldIllusion to 4
				elseif OldIllusion >= 5
					Set OldIllusion to 3
				elseif OldIllusion >= 2
					Set OldIllusion to 2
				elseif OldIllusion > 0
					Set OldIllusion to 1
				else
					Set OldIllusion to 0
				endif

				Set OldSicherheit to (Player.GetBaseAV Security - OldSicherheit)
				If OldSicherheit >= 10
					Set OldSicherheit to 5
				elseif OldSicherheit >= 8 
					Set OldSicherheit to 4
				elseif OldSicherheit >= 5
					Set OldSicherheit to 3
				elseif OldSicherheit >= 2
					Set OldSicherheit to 2
				elseif OldSicherheit > 0
					Set OldSicherheit to 1
				else
					Set OldSicherheit to 0
				endif

				Set OldSchleichen to (Player.GetBaseAV Sneak - OldSchleichen)
				If OldSchleichen >= 10
					Set OldSchleichen to 5
				elseif OldSchleichen >= 8 
					Set OldSchleichen to 4
				elseif OldSchleichen >= 5
					Set OldSchleichen to 3
				elseif OldSchleichen >= 2
					Set OldSchleichen to 2
				elseif OldSchleichen > 0
					Set OldSchleichen to 1
				else
					Set OldSchleichen to 0
				endif

				Set OldRedekunst to (Player.GetBaseAV Speechcraft - OldRedekunst)
				If OldRedekunst >= 10
					Set OldRedekunst to 5
				elseif OldRedekunst >= 8 
					Set OldRedekunst to 4
				elseif OldRedekunst >= 5
					Set OldRedekunst to 3
				elseif OldRedekunst >= 2
					Set OldRedekunst to 2
				elseif OldRedekunst > 0
					Set OldRedekunst to 1
				else
					Set OldRedekunst to 0
				endif

				Set OldZerstoerung to (Player.GetBaseAV Destruction - OldZerstoerung)
				If OldZerstoerung >= 10
					Set OldZerstoerung to 5
				elseif OldZerstoerung >= 8 
					Set OldZerstoerung to 4
				elseif OldZerstoerung >= 5
					Set OldZerstoerung to 3
				elseif OldZerstoerung >= 2
					Set OldZerstoerung to 2
				elseif OldZerstoerung > 0
					Set OldZerstoerung to 1
				else
					Set OldZerstoerung to 0
				endif
				Set LevelUpAttribute to OldAthletik + OldAkrobatik + OldAlchemie + OldVeraenderung + OldHandwerk + OldStich + OldSchlag + OldBlock + OldBeschwoerung + OldSchuetze + OldHandel + OldArkan + OldWiederherstellung + OldFaust + OldSchwer + OldLeicht + OldIllusion + OldSicherheit + OldSchleichen + OldRedekunst + OldZerstoerung
				;==>Hier wurden alle Fertigkeiten, deren Erhöhungen und damit verbundenen Werteänderung als Attributspunkte zusammengerechnet.
				If LevelUpAttribute > 10
					Set LevelUpAttribute to 10
				Elseif LevelUpAttribute < 3
					Set LevelUpAttribute to 3
				Endif ;==> In diesem Block wurden die Attributspunkte nochmals überprüft. Sind sie höher als 10 werden sie auf 10 herabgesetzt. Wenn sie kleiner als 3 sind werden sie auf 3 gesetzt.
			else
				Set LevelUpAttribute to 3 ;==> Wird nur ausgeführt, wenn "OldAthletik" 0 ist.
			endif
			if LevelUpAttribute <= 4
				if Player.GetBaseAV Athletics >= 100 && Player.GetBaseAV Acrobatics >= 100 && Player.GetBaseAV Armorer >= 100 && Player.GetBaseAV Alteration >= 100 && Player.GetBaseAV Alchemy >= 100 && Player.GetBaseAV Blade >= 100 && Player.GetBaseAV Block >= 100 && Player.GetBaseAV Blunt >= 100 && Player.GetBaseAV Conjuration >= 100 && Player.GetBaseAV Marksman >= 100 && Player.GetBaseAV Mercantile >= 100 && Player.GetBaseAV Mysticism >= 100 && Player.GetBaseAV Restoration >= 100 && Player.GetBaseAV HandToHand >= 100
					if Player.GetBaseAV HeavyArmor >= 100 && Player.GetBaseAV LightArmor >= 100 && Player.GetBaseAV Illusion >= 100 && Player.GetBaseAV Security >= 100 && Player.GetBaseAV Sneak >= 100 && Player.GetBaseAV Speechcraft >= 100 && Player.GetBaseAV Destruction >= 100
						Set LevelUPAttribute to 5
					endif  
				endif
			endif ;==> Dieser Block wurde nur ausgeführt wenn die Attributspunkte kleiner als oder gleich 4 sind und alle Fertigkeit auf 100. Dadurch werden die Attributspunkte auf 5 gesetzt.

			Set OldAthletik to (100 - BStr) ;==> Hier wird eine Fertigkeitsvariable als Wert missbraucht, der sich aus 100 weniger der Basisstärke ergibt.
			if OldAthletik < 0
				Set OldAthletik to 0
			elseif OldAthletik > 4
				Set OldAthletik to 4
			endif ;==> Dieser Block überprüfte den Wert der sich aus dieser Rechnung ergibt. Wenn er kleiner als 0 ist (100 - 105 (Basisstärke) = -5) wird er auf 0 gesetzt. Sollte er größer als 4 sein (maximal verteilbare Attributspunkte) wird er auf 4 gesetzt.
			Set OldAkrobatik to (100 - BInt)
			if OldAkrobatik < 0
				Set OldAkrobatik to 0
			elseif OldAkrobatik > 4
				Set OldAkrobatik to 4
			endif
			Set OldAlchemie to (100 - BWil)
			if OldAlchemie < 0
				Set OldAlchemie to 0
			elseif OldAlchemie > 4
				Set OldAlchemie to 4
			endif
			Set OldVeraenderung to (100 - BAgi)
			if OldVeraenderung < 0
				Set OldVeraenderung to 0
			elseif OldVeraenderung > 4
				Set OldVeraenderung to 4
			endif
			Set OldHandwerk to (100 - BSpe)
			if OldHandwerk < 0
				Set OldHandwerk to 0
			elseif OldHandwerk > 4
				Set OldHandwerk to 4
			endif
			Set OldStich to (100 - BEnd)
			if OldStich < 0
				Set OldStich to 0
			elseif OldStich > 4
				Set OldStich to 4
			endif
			Set OldSchlag to (100 - BPer)
			if OldSchlag < 0
				Set OldSchlag to 0
			elseif OldSchlag > 4
				Set OldSchlag to 4
			endif
			Set OldBlock to (100 - BLuc)
			if OldBlock < 0
				Set OldBlock to 0
			elseif OldBlock > 4
				Set OldBlock to 4
			endif

			Set OldAthletik to OldAthletik + OldAkrobatik + OldAlchemie + OldVeraenderung + OldHandwerk + OldStich + OldSchlag + OldBlock
			;==> Hier werden die Attributswerte zusammengezählt.
			if OldAthletik > 0 && OldAthletik < LevelUpAttribute
				Set LevelUpAttribute to OldAthletik
			endif ;==> Dieser Block wurde ausgeführt, wenn die bereits errechneten Attributspunkte größer als der neue (und auch einzig mögliche) Attributswert ist. Trifft das zu, werden die Attributspunkte auf diesen neuen Attributswert gesetzt.

			Set OldAthletik to Player.GetBaseAV Athletics ;==> Die Fertigkeitsvariablen erhalten die derzeitigen Basiswerte der Fertigkeiten.
			Set OldAkrobatik to Player.GetBaseAV Acrobatics
			Set OldAlchemie to Player.GetBaseAV Alchemy
			Set OldVeraenderung to Player.GetBaseAV Alteration
			Set OldHandwerk to Player.GetBaseAV Armorer
			Set OldStich to Player.GetBaseAV Blade
			Set OldSchlag to Player.GetBaseAV Blunt
			Set OldBlock to Player.GetBaseAV Block
			Set OldBeschwoerung to Player.GetBaseAV Conjuration
			Set OldSchuetze to Player.GetBaseAV Marksman
			Set OldHandel to Player.GetBaseAV Mercantile
			Set OldArkan to Player.GetBaseAV Mysticism
			Set OldWiederherstellung to Player.GetBaseAV Restoration
			Set OldFaust to Player.GetBaseAV HandToHand
			Set OldSchwer to Player.GetBaseAV HeavyArmor
			Set OldLeicht to Player.GetBaseAV LightArmor
			Set OldIllusion to Player.GetBaseAV Illusion
			Set OldSicherheit  to Player.GetBaseAV Security
			Set OldSchleichen  to Player.GetBaseAV Sneak
			Set OldRedekunst  to Player.GetBaseAV Speechcraft
			Set OldZerstoerung  to Player.GetBaseAV Destruction
	endif
	
	if STEP == -1 ;==> In diesem Block wird die Level-Up-Message erstellt und angezeigt.
		let TotalMSGtext := LevelMSGtext + (sv_construct "%rVerteilen Sie Ihre Attributspunkte.%rDerzeitige Einstellung: "+$StrAttHandling+"%rVerfügbare Attributspunkte: ")+$LevelUpAttribute+"|Stärke: "+$BStr+$SStr+"|Intelligenz: "+$BInt+$SInt+"|Willenskraft: "+$BWil+$SWil+"|Geschicklichkeit: "+$BAgi+$SAgi+"|Schnelligkeit: "+$BSpe+$SSpe+"|Konstitution: "+$BEnd+$SEnd+"|Charisma: "+$BPer+$SPer+"|Glück: "+$BLuc+$SLuc+"|Einstellung ändern: "+$StrAttSetting+"|Levelaufstieg abschließen"
		Set STEP to 1 ;==> Sorgt dafür, dass der Block ausgeführt wird in dem die Schaltflächen behandelt werden.
		MessageboxEx $TotalMSGtext
		set TotalMSGtext to sv_destruct
	elseif STEP == 1
		Set Button to GetButtonPressed

		If Button == 0
			if ValAttributHandling == 1 ;==> Wird nur ausgeführt, wenn die Einstellung "Attributspunkte hinzufügen" gewählt wurde
				If (BStr + (NStr + 1)) < 101 && NStr < 4 && LevelUpAttribute > 0
					Set LevelUpAttribute to LevelUpAttribute - 1
					Set NStr to NStr + 1
				Elseif (BStr + (NStr + 1)) >= 101
					Message "Dieses Attribut ist bereits auf dem Maximalwert."
				ElseIf NStr >= 4
					Message "Sie können nicht mehr als 4 Punkte in ein Attribut investieren."
				ElseIf LevelUpAttribute == 0
					Message "Sie haben keine Attributspunkte mehr."
				EndIf ;==>Diese Funktion wurde nur ausgeführt wenn Stärke + neue Stärke nicht größer als 100 sind. (Das mit + 1 < 101 stammt noch aus der alten Funktion) Außerdem darf der Wert der neuen Stärke nicht größer als 4 sein und die Attributspunkte dürfen auch nicht auf 0 sein. Ansonsten werden entspechende Fehlermeldungen angezeigt.
			elseif ValAttributHandling == -1 ;==> Wird nur ausgeführt, wenn die Einstellung "Attributspunkte abziehen" gewählt wurde
				if NStr > 0
					Set LevelUpAttribute to LevelUpAttribute + 1
					Set NStr to NStr - 1
				else
					Message "Sie haben keine Attributspunkte in dieses Attribut investiert."
				endif
			endif
			if NStr > 0
				let SStr := " +"+$NStr
			else
				let SStr := ""
			endif ;==> In diesem Block wurde die Stringvariable für den Stärkebonus geändert. Wenn er 0 ist wird nichts angezeigt, ansonsten wird der entsprechende Bonus angezeigt.
			Set STEP to -1 ;==> Sorgt dafür, dass der Block mit der Messagebox wieder angezeigt wird.
		Elseif Button == 1
			if ValAttributHandling == 1
				If (BInt + (NInt + 1)) < 101 && NInt < 4 && LevelUpAttribute > 0
					Set LevelUpAttribute to LevelUpAttribute - 1
					Set NInt to NInt + 1
				Elseif (BInt + (NInt + 1)) >= 101
					Message "Dieses Attribut ist bereits auf dem Maximalwert."
				ElseIf NInt >= 4
					Message "Sie können nicht mehr als 4 Punkte in ein Attribut investieren."
				ElseIf LevelUpAttribute == 0
					Message "Sie haben keine Attributspunkte mehr."
				EndIf
			elseif ValAttributHandling == -1
				if NInt > 0
					Set LevelUpAttribute to LevelUpAttribute + 1
					Set NInt to NInt - 1
				else
					Message "Sie haben keine Attributspunkte in dieses Attribut investiert."
				endif
			endif
			if NInt > 0
				let SInt := " +"+$NInt
			else
				let SInt := ""
			endif
			Set STEP to -1
		Elseif Button == 2
			if ValAttributHandling == 1
				If (BWil + (NWil + 1)) < 101 && NWil < 4 && LevelUpAttribute > 0
					Set LevelUpAttribute to LevelUpAttribute - 1
					Set NWil to NWil + 1
				Elseif (BWil + (NWil + 1)) >= 101
					Message "Dieses Attribut ist bereits auf dem Maximalwert."
				ElseIf NWil >= 4
					Message "Sie können nicht mehr als 4 Punkte in ein Attribut investieren."
				ElseIf LevelUpAttribute == 0
					Message "Sie haben keine Attributspunkte mehr."
				EndIf
			elseif ValAttributHandling == -1
				if NWil > 0
					Set LevelUpAttribute to LevelUpAttribute + 1
					Set NWil to NWil - 1
				else
					Message "Sie haben keine Attributspunkte in dieses Attribut investiert."
				endif
			endif
			if NWil > 0
				let SWil := " +"+$NWil
			else
				let SWil := ""
			endif
			Set STEP to -1
		Elseif Button == 3
			if ValAttributHandling == 1
				If (BAgi + (NAgi + 1)) < 101 && NAgi < 4 && LevelUpAttribute > 0
					Set LevelUpAttribute to LevelUpAttribute - 1
					Set NAgi to NAgi + 1
				Elseif (BAgi + (NAgi + 1)) >= 101
					Message "Dieses Attribut ist bereits auf dem Maximalwert."
				ElseIf NAgi >= 4
					Message "Sie können nicht mehr als 4 Punkte in ein Attribut investieren."
				ElseIf LevelUpAttribute == 0
					Message "Sie haben keine Attributspunkte mehr."
				EndIf
			elseif ValAttributHandling == -1
				if NAgi > 0
					Set LevelUpAttribute to LevelUpAttribute + 1
					Set NAgi to NAgi - 1
				else
					Message "Sie haben keine Attributspunkte in dieses Attribut investiert."
				endif
			endif
			if NAgi > 0
				let SAgi := " +"+$NAgi
			else
				let SAgi := ""
			endif
			Set STEP to -1
		Elseif Button == 4
			if ValAttributHandling == 1
				If (BSpe + (NSpe + 1)) < 101 && NSpe < 4 && LevelUpAttribute > 0
					Set LevelUpAttribute to LevelUpAttribute - 1
					Set NSpe to NSpe + 1
				Elseif (BSpe + (NSpe + 1)) >= 101
					Message "Dieses Attribut ist bereits auf dem Maximalwert."
				ElseIf NSpe >= 4
					Message "Sie können nicht mehr als 4 Punkte in ein Attribut investieren."
				ElseIf LevelUpAttribute == 0
					Message "Sie haben keine Attributspunkte mehr."
				EndIf
			elseif ValAttributHandling == -1
				if NSpe > 0
					Set LevelUpAttribute to LevelUpAttribute + 1
					Set NSpe to NSpe - 1
				else
					Message "Sie haben keine Attributspunkte in dieses Attribut investiert."
				endif
			endif
			if NSpe > 0
				let SSpe := " +"+$NSpe
			else
				let SSpe := ""
			endif
			Set STEP to -1
		Elseif Button == 5
			if ValAttributHandling == 1
				If (BEnd + (NEnd + 1)) < 101 && NEnd < 4 && LevelUpAttribute > 0
					Set LevelUpAttribute to LevelUpAttribute - 1
					Set NEnd to NEnd + 1
				Elseif (BEnd + (NEnd + 1)) >= 101
					Message "Dieses Attribut ist bereits auf dem Maximalwert."
				ElseIf NEnd >= 4
					Message "Sie können nicht mehr als 4 Punkte in ein Attribut investieren."
				ElseIf LevelUpAttribute == 0
					Message "Sie haben keine Attributspunkte mehr."
				EndIf
			elseif ValAttributHandling == -1
				if NEnd > 0
					Set LevelUpAttribute to LevelUpAttribute + 1
					Set NEnd to NEnd - 1
				else
					Message "Sie haben keine Attributspunkte in dieses Attribut investiert."
				endif
			endif
			if NEnd > 0
				let SEnd := " +"+$NEnd
			else
				let SEnd := ""
			endif
			Set STEP to -1
		Elseif Button == 6
			if ValAttributHandling == 1
				If (BPer + (NPer + 1)) < 101 && NPer < 4 && LevelUpAttribute > 0
					Set LevelUpAttribute to LevelUpAttribute - 1
					Set NPer to NPer + 1
				Elseif (BPer + (NPer + 1)) >= 101
					Message "Dieses Attribut ist bereits auf dem Maximalwert."
				ElseIf NPer >= 4
					Message "Sie können nicht mehr als 4 Punkte in ein Attribut investieren."
				ElseIf LevelUpAttribute == 0
					Message "Sie haben keine Attributspunkte mehr."
				EndIf
			elseif ValAttributHandling == -1
				if NPer > 0
					Set LevelUpAttribute to LevelUpAttribute + 1
					Set NPer to NPer - 1
				else
					Message "Sie haben keine Attributspunkte in dieses Attribut investiert."
				endif
			endif
			if NPer > 0
				let SPer := " +"+$NPer
			else
				let SPer := ""
			endif
			Set STEP to -1
		Elseif Button == 7
			if ValAttributHandling == 1
				If (BLuc + (NLuc + 1)) < 101 && NLuc < 4 && LevelUpAttribute > 0
					Set LevelUpAttribute to LevelUpAttribute - 1
					Set NLuc to NLuc + 1
				Elseif (BLuc + (NLuc + 1)) >= 101
					Message "Dieses Attribut ist bereits auf dem Maximalwert."
				ElseIf NLuc >= 4
					Message "Sie können nicht mehr als 4 Punkte in ein Attribut investieren."
				ElseIf LevelUpAttribute == 0
					Message "Sie haben keine Attributspunkte mehr."
				EndIf
			elseif ValAttributHandling == -1
				if NLuc > 0
					Set LevelUpAttribute to LevelUpAttribute + 1
					Set NLuc to NLuc - 1
				else
					Message "Sie haben keine Attributspunkte in dieses Attribut investiert."
				endif
			endif
			if NLuc > 0
				let SLuc := " +"+$NLuc
			else
				let SLuc := ""
			endif
			Set STEP to -1
		Elseif Button == 8
			if ValAttributHandling == 1
				Set ValAttributHandling to -1
				let StrAttHandling := "Attributspunkte abziehen"
				let StrAttSetting := "(+)"				
				Message "Absofort ziehen Sie Attributspunkte von den Attributen ab, um sie neu verteilen zu können."
			elseif ValAttributHandling == -1
				Set ValAttributHandling to 1
				let StrAttHandling := "Attributspunkte hinzufügen"
				let StrAttSetting := "(-)"
				Message "Nun fügen Sie den Attributen die Attributspunkte hinzu."
			endif ;==> In diesem Block wurde die Einstellung für die Attributspunkte geändert. Man kann entweder Attributspunkte hinzufügen oder den Attributen abziehen und neu verteilen, sofern es sich um Punkte dieses Level-Ups handelt.
			Set Step to -1
		Elseif Button == 9
			;==> Hier wird das eigentliche Level-Up durchgeführt.
			if LevelUpAttribute > 0 ;==> Natürlich müssen zuerst alle Attributspunkte verteilt werden.
				Message "Sie müssen zuerst alle Attributspunkte verteilen!"
				Message "Sie müssen zuerst alle Attributspunkte verteilen!"
				Set Step to -1
			else ;==> Trifft das nicht zu werden alle Werte auf die entsprechenden Werte gestellt.
				Player.SetLevel CurrentPlayerLevel ;==> Diese Funktion wird für Oblivion nicht empfohlen, da in Nehrim aber keine mitlevelnden Gegner existieren, sollte es zu keinen Problemen kommen.
				Set BStr to BStr + NStr ;==> Sollten keine Werte verteilt werden ergit die Rechnung beispielsweise BStr = 80 + 0. Was immer noch 80 ergibt.
				Set BInt to BInt + NInt
				Set BWil to BWil + NWil
				Set BAgi to BAgi + NAgi
				Set BSpe to BSpe + NSpe
				Set BEnd to BEnd + NEnd
				Set BPer to BPer + NPer
				Set BLuc to BLuc + NLuc
				Player.Setav Strength BStr ;==> Deshalb kann man hier gefahrlos jedes Attribut neu setzen, da es zu keinerlei Veränderung kommen sollte, wenn nicht gewollt.
				Player.Setav Intelligence BInt
				Player.Setav Willpower BWil
				Player.Setav Agility BAgi
				Player.Setav Speed BSpe
				Player.Setav Endurance BEnd
				Player.Setav Personality BPer
				Player.Setav Luck BLuc
				Set VarCurrentHealth to VarCurrentHealth + (BEnd * GSfStatsHealthLevelMult) ;==> Der Lebenspunktebonus bei einem Level-Up wird errechnet. (BasisAusdauer * 0,1100 (Game Setting))
				Set VarCurrentHealth to floor VarCurrentHealth ;==> Bei einem Kommawert, wird immer nur der niedrigere ganze Wert genommen.
				Player.SetAV Health VarCurrentHealth ;==> Damit werden nur die Bonuslebenspunkte beeinflusst und dementsprechend auf den korrekten Wert angehoben.
				if VarNOLearningByDoing == 1
					if VarDynamicLernpunkte == 1
						Set Step to Player.GetBaseAV Intelligence
						if Step > 100
							Set Step to 100
						endif
						Set Step to (Step / 20)
						Set Step to floor Step
						Set Lernpunkte to Lernpunkte + Step
					elseif VarDynamicLernpunkte == -1
						Set Lernpunkte to Lernpunkte + 5
					endif
				endif ;==> Dieser Block wurde ausgeführt, wenn das Learning-by-doing ausgeschalten ist. Dadurch werden die Bonus-Lernpunkte hinzugefügt.
				Set LevelONCE to 0 ;==> Die Anfangsvariable wird wieder auf 0 gesetzt.
				Set STEP to 0 ;==> Die Menüvariable wird wieder auf 0 gesetzt.
				StopQuest zzzzzAlternativeLeveling ;==> Die komplette Level-Up-Quest wird beendet.
				EnableControl 15 ;==> Die Menü-Taste wird wieder freigegeben.
				EnableControl 5 ;==> Die Aktions-Taste wird wieder freigegeben.
				Return ;==> Das Skript wird beendet.
			endif
		Endif
	endif
End