SureAI Forums covering SureAI game titles.

[Tealor Arantheal]

Update

Ich habe das Skript des Tagebuchs doch nochmal angerührt und überarbeitet.
Nun ist "Einfacheres Trainieren" keine Eigenschaft, sondern ein eigenes Untermenü:

Neues Menü: Einfacheres Trainieren
Im Tagebuch unter den Einstellungen, findet man nun eine neues Untermenü, das sich "Einfacheres Trainieren" nennt. In diesem Untermenü kann man einstellen, ob man einen Attributsbonus durch das Trainieren bei Lehrern erhalten möchte. Außerdem kann man die dynamischen Lernpunkte einschalten.
Dadurch werden die Lernpunkte auf der Basis der Intelligenz berechnet (Lernpunkte = Lernpunkte + (BasisIntelligenz / 10)).
Wobei ein Intelligenzwert über 100 NICHT berücksichtigt wird!
Standardmäßig sind die Optionen ausgeschalten und das normale Nehrim Balancing ist aktiv.

Da das Skript dadurch kürzer wurde, gibt es in den Bluteinstellungen nun ebenfalls mehrere Optionen für eine genauere Einstellung des Werts.

ACHTUNG!
Es ist nun ein neuer Patch für die XP Progress-Bar vorhanden! Dieser MUSS verwendet werden, wenn diese Interface-Mod benutzt werden möchte, da ansonsten die dynamischen Lernpunkte NICHT funktionieren.

[Tealor Arantheal]

Update

Wieder eine Änderung am Balancing. Da Nehrim Expanded eigentlich nicht das Balancing ändern sollte, habe ich eine weitere Option in das "Einfachere Trainieren" gesteckt.
Dort kann man jetzt auch einstellen ob Athletik Schnelligkeit anstatt von Geschicklichkeit als Hauptattribut haben soll.

Somit ist diese subjektive Balancingänderung nicht weiter zwingend wie zuvor.

Auch diese Option ist anfangs deaktiviert.

[Tealor Arantheal]

Man hatte bei jedem Stufenaufstieg eine feste Anzahl (6 waren es glaube ich) an Attributspunkten zu Verfügung, welche man beliebig verteilen konnte. Attribute und Fähigkeiten wurden also voneinander getrennt.
Ich denke es wäre durchaus möglich dieses System auch jetzt noch für Nehrim zu übernehmen, allerdings mit kleinen Änderungen. Es würde auch nicht dem alternativen Levelsystem, mit EP, von Nehrim in die Quere kommen.

Meh... Update!

Das mit dem Levelsystem hat mich irgendwie motiviert. Immerhin habe ich ja schon was Ähnliches mit dem Abenteuertagebuch eingebaut...
Deshalb hab ich mich gestern hingesetzt und mir das ausgedacht und dazu noch das Abenteuertagebuch überarbeitet:

Neues Menü: Alternatives Trainieren
Im Tagebuch unter den Einstellungen, findet man nun ein neues Untermenü, das sich "Alternatives Trainieren" nennt. In diesem Untermenü kann man einstellen, ob man einen Attributsbonus durch das Trainieren bei Lehrern erhalten möchte.
Athletik hat im normalen Nehrim-Balancing Geschicklichkeit als Hauptattribut. Nun kann man einstellen, ob man stattdessen Schnelligkeit als Hauptattribut haben möchte, um eine weitere Fähigkeit zu erhalten mit der man dieses Attribut steigern kann.
Außerdem kann man die dynamischen Lernpunkte einschalten.
Dadurch werden die Lernpunkte auf der Basis der Intelligenz berechnet (Lernpunkte = Lernpunkte + (BasisIntelligenz / 10)).
Wobei ein Intelligenzwert über 100 NICHT berücksichtigt wird!
Die letzte Option ist das alternative Levelsystem. Von den anderen Optionen wirken sich nur die dynamischen Lernpunkte auf das alternative System aus. Die ersten beiden Optionen sind ausschließlich interessant für das normale Levelsystem von Nehrim.
Sobald man das alternative System aktiviert, kann man beim nächsten Level-Up 3 Attributspunkte auf beliebige Attribute verteilen (was einem Level-Up im normalen System ohne Attributsmultiplikator gleichkommt).
Hat man diese erste Hürde geschafft, werden von nun an die Fertigkeitswerte miteinander verglichen. Steigert man eine Fertigkeit 10mal vom letzten Level-Up weg, bekommt man ebenso einen +5-Wert.
Jede Fertigkeit berechnet einen von diesen 21 Werten und zum Schluss werden alle zusammengezählt.
Ist das Ergebnis größer als 10 so wird der Wert auf 10 gesetzt und man bekommt für das Level-Up 10 Attributspunkte. Im normalen Levelsystem kann man zwar 3 +5-Multiplikatoren erhalten und somit theoretisch 15 Punkte verteilen, da im alternativen System aber die Verteilung frei gewählt werden kann, wurde dieses Maximum eingesetzt.
Hat man keine einzige Fertigkeit erhöht bekommt man ein Minimum von 3 Attributspunkten.
Hierzu sei noch zu sagen, dass dieser Standardwert auf 5 angehoben wird, sollten alle Grundwerte der Fertigkeiten auf 100 sein.
Beschränkung:
Wechselt man vom Alternativen auf das Normale und dann wieder vom Normalen auf das alternative Levelsystem, wird es neu initialisiert und man muss beim nächsten Level-Up mit nur 3 Attributspunkten rechnen.
Dadurch wird verhindert das alternative Levelsystem zu verwenden, um sich 10 Attributspunkte zu ergaunern. Schließlich wäre es ein Leichtes 2x 10 Fertigkeitserhöhungen zu berechnen wenn man eine Zeit lang ohne das alternative System spielt.
Ansonsten kann zwischen den Systemen ohne Gefahr gewechselt werden. Selbst in einem späteren Spiel kann man noch auf das alternative System wechseln, sofern man die 3 Attributspunkte beim nächsten Level-Up in Kauf nehmen möchte.
Wie im normalen Levelsystem wird auch im Alternativen der entsprechende Leveltext angezeigt. Eine Steigerung der Attribute über 100 ist hier ebenfalls nicht möglich, dafür wurde das Abenteuertagebuch überarbeitet.
Die Lebenspunkte und deren Steigerung wird mit der selben Formel berechnet wie im normalen Levelsystem.
Hinweis: Da sich beim erstmaligen Aktivieren die Quest bei einem Level-Up erst initialisieren muss, dauert das Erscheinen des Menüs ein paar Sekunden!
Standardmäßig sind die Optionen ausgeschalten und das normale Nehrim Balancing ist aktiv.

[+]

Das Abenteuertagebuch:
Nach der Eroberung von Burg Darlan wartet ein Abenteuertagebuch auf einem Bücherstand.
Es lässt sich zum Erweitern der Attribute verwenden, die damit auch über 100 gesteigert werden können.
Attribute wie Stärke, Intelligenz, Willenskraft, Geschicklichkeit, Schnelligkeit und Konstitution haben durchaus sinnvolle Auswirkungen, wenn sie über das Maximum gesteigert werden.
Für jedes inzwischen aufgestiegene Level (und jedes darauf folgende) erhält man je einen Reflexionspunkt, den man in ein beliebiges Attribut investieren kann.
Eine Attributssteigerung kostet 5 Lernpunkte und einen Reflexionspunkt oder wenn man keinen Reflexionspunkt hat muss man schon 10 Lernpunkte einsetzen.
Somit ist dieses Buch eine gute Möglichkeit Lernpunkte auch noch später im Spiel zu investieren.
Vorschau:

[+]

Kompiliert und bereits getestet.
Wer trotzdem Fehler findet, kann sie gerne melden.

[Tealor Arantheal]

Kleine Vorführung:



Für Skriptinteressierte (alternatives Levelsystem):

[+]

Code Select all

scn zzzzzAlternativeLevelingSCRIPT


float fQuestDelayTime

short Button

short LevelUpAttribute
short LevelONCE
short CurrentPlayerLevel
short PerfectCharTrue
short VarCurrentHealth
float GSfStatsHealthLevelMult
float GSfPCBaseHealthMult
short BStr
short BInt
short BWil
short BAgi
short BSpe
short BEnd
short BPer
short BLuc
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


Begin MenuMode 1
	Set fQuestDelayTime to 0.01

	if PerfectCharTrue ;==>Diese Variable wird im Tagebuchskript gesetzt.
		Messagebox "Perfektion lässt sich nicht mehr verbessern. Eure Attribute haben das Maximum erreicht."
		StopQuest zzzzzAlternativeLeveling
		EnableControl 15 ;==>Die Menü- und Aktionstaste werden in einem anderen Skript gesperrt, damit der Spieler während den paar Sekunden des ersten Level-Ups,
		EnableControl 5  ;==>nicht in der Lage ist das Inventar zu schließen bis das Menü erscheint.
;==> In selben Skript wird auch einmalig dafür gesorgt, dass die Tasten wieder freigegeben werden sofern ein Spielstand geladen wird.
;==> Damit wird sichergestellt, dass es nicht zu endlos gesperrten Tasten kommt.
		Return
	endif

	if LevelUPAttribute == 0 && LevelONCE == 0
		Set GSfStatsHealthLevelMult to GetGameSetting fStatsHealthLevelMult
		if VarCurrentHealth == 0 && Player.GetLevel != 1
			Set GSfPCBaseHealthMult to GetGameSetting fPCBaseHealthMult
			Set VarCurrentHealth to (Player.GetBaseAV Health - (Player.GetBaseAV Endurance * GSfPCBaseHealthMult))
		endif
		Set CurrentPlayerLevel to (Player.GetLevel + 1)
		Set LevelONCE to 1
		Set STEP to -1
		let LevelMSGtext := ""
		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
			if OldAthletik != 0
				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

				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

				If LevelUpAttribute > 10
					Set LevelUpAttribute to 10
				Elseif LevelUpAttribute < 3
					Set LevelUpAttribute to 3
				Endif
			else
				Set LevelUpAttribute to 3
			endif
			if LevelUpAttribute == 3
				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

			Set OldAthletik to Player.GetBaseAV Athletics
			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
	elseif LevelUPAttribute == 0 && LevelONCE == 1
		Player.SetLevel CurrentPlayerLevel
		Set VarCurrentHealth to VarCurrentHealth + (BEnd * GSfStatsHealthLevelMult)
		Set VarCurrentHealth to floor VarCurrentHealth
		Player.SetAV Health VarCurrentHealth
		Set LevelONCE to 0
		Set STEP to 0
		StopQuest zzzzzAlternativeLeveling
		EnableControl 15
		EnableControl 5
		Return
	endif
	
	if STEP == -1
		Set BStr to Player.GetBaseAV Strength
		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
		let TotalMSGtext := LevelMSGtext + (sv_construct "%rVerteilen Sie Ihre Attributspunkte.%rVerfügbare Attributspunkte: ")+$LevelUpAttribute+"|Stärke: "+$BStr+"|Intelligenz: "+$BInt+"|Willenskraft: "+$BWil+"|Geschicklichkeit: "+$BAgi+"|Schnelligkeit: "+$BSpe+"|Konstitution: "+$BEnd+"|Charisma: "+$BPer+"|Glück: "+$BLuc
		If BStr >= 100 && BInt >= 100 && BWil >= 100 && BAgi >= 100 && BSpe >= 100 && BPer >= 100 && BEnd >= 100 && BLuc >= 100
			Set LevelUPAttribute to 0
			Messagebox "Glückwunsch! All Ihre Attribute haben das Maximum erreicht. Ihr werdet nun kein weiteres Level mehr aufsteigen können."
		Else
			Set STEP to 1
			MessageboxEx $TotalMSGtext
			set TotalMSGtext to sv_destruct
		EndIf
	elseif STEP == 1
		Set Button to GetButtonPressed

		If Button == 0
			If (BStr + 1) < 101
				Set LevelUpAttribute to LevelUpAttribute - 1
				Set BStr to BStr + 1
				Player.SetAV Strength BStr
			EndIf	
			Set STEP to -1
		Elseif Button == 1
			If (BInt + 1) < 101
				Set LevelUpAttribute to LevelUpAttribute - 1
				Set BInt to BInt + 1
				Player.SetAV Intelligence BInt
			Endif
			Set STEP to -1
		Elseif Button == 2
			If (BWil + 1) < 101
				Set LevelUpAttribute to LevelUpAttribute - 1
				Set BWil to BWil + 1
				Player.SetAV Willpower BWil
			Endif
			Set STEP to -1
		Elseif Button == 3
			If (BAgi + 1) < 101
				Set LevelUpAttribute to LevelUpAttribute - 1
				Set BAgi to BAgi + 1
				Player.SetAV Agility BAgi
			Endif
			Set STEP to -1
		Elseif Button == 4
			If (BSpe + 1) < 101
				Set LevelUpAttribute to LevelUpAttribute - 1
				Set BSpe to BSpe + 1
				Player.SetAV Speed BSpe
			Endif
			Set STEP to -1
		Elseif Button == 5
			If (BEnd + 1) < 101
				Set LevelUpAttribute to LevelUpAttribute - 1
				Set BEnd to BEnd + 1
				Player.SetAV Endurance BEnd
			Endif
			Set STEP to -1
		Elseif Button == 6
			If (BPer + 1) < 101
				Set LevelUpAttribute to LevelUpAttribute - 1
				Set BPer to BPer + 1
				Player.SetAV Personality BPer
			Endif
			Set STEP to -1
		Elseif Button == 7
			If (BLuc + 1) < 101
				Set LevelUpAttribute to LevelUpAttribute - 1
				Set BLuc to BLuc + 1
				Player.SetAV Luck BLuc
			Endif
			Set STEP to -1
		Endif
	endif
	
End

[Tealor Arantheal]

Schon wieder... UPDATE

Schade, dass am diesem "Learnig-by-doing-System" immer noch nichts gemacht wurde. Allein dieses "Feature" hat mich dazu gebracht Nehrim ab Level 8 (glaub ich) nicht mehr weiter zu spielen. Diese "Cheat-Option" verdirbt mir persönlich jeglichen Spaß - sorry. Meiner Meinung nach sollte es eine Möglichkeit geben (optional, evtl. abhängig vom Schwierigkeitsgrad) dieses komplett zu deaktivieren! Spieler die Lust haben sich 5 Stunden in die Ecke zu stellen, um ihren Charakter hochzuchaeten (sorry meiner Meinug nach ist das nichts anderes) könnten gerne die Option haben - und bitte keine Argumente von wegen: "Du musst ja nicht" & "Das leveln geht doch nur langsam".

Du musst ja nicht und leveln ist echt langsam eingestellt!
Ne, aber mich hat das doch irgendwie interessiert.
SureAI hat ohne Zweifel JEDE Möglichkeit die ohne einem Skriptextender in Oblivion möglich ist ausgeschöpft, ohne dabei zu waghalsige Workarounds einzusetzen.

Da Nehrim Expanded aber nur mit dem Zauberkasten OBSE läuft hab ich mir das mal angesehen...
Tatsächlich stellt OBSE Funktionen bereit, mit denen man im Spiel das Learning-by-doing komplett ausschalten könnte.

[...]
Zuletzt ist man noch in der Lage eine DAUERHAFTE Änderung vorzunehmen.
Und zwar kann man das "Learning-by-doing"-System komplett ausschalten. Diese Änderung ist entgültig, da dadurch auch ein kleiner Bonus entsteht:
Nach jedem Level-Up bekommt der Spieler noch 10 weitere Lernpunkte geschenkt, neben denen die er bereits durch Sammeln aller Erfahrungspunkte für das nächste Level-Up erhalten hat.
Insgesamt kommt der Spieler also auf 17 (20 mit dynamischen Lernpunkten) Lernpunkte pro Level-Up.
Allerdings erhält man die 10 Bonuspunkte NUR, wenn man den Levelaufstieg im Tagebuch druchführt.
Dieser Bonus ist sinnvoll, da absofort ein Trainieren nur noch bei Lehrern möglich ist. Dementsprechend können Lehrer bei deaktivertem "Learning-by-doing" die angebotenen Fertigkeiten bis 100 lehren.
Aber Achtung! Sollte man einen perfekten Charakter erreichen (Alle Attribute 100), so erlischt der Lernpunktebonus wieder.
Da diese Änderung dauerhaft ist, wird der Spieler beim Deaktivieren des ursprünglichen System nochmals sicherheitshalber darauf hingewiesen

Standardmäßig sind die Optionen ausgeschalten (bzw. das "Learning-by-doing" eingeschalten) und das normale Nehrim Balancing ist aktiv.

[+]

Auch diese Option wurde bereits getestet.
Sollte es dennoch zu irgendwelchen Problemen kommen, bitte melden

Tja, bei der Gelegenheit werd ich gleich mal die Versionnummer erhöhen

[Tealor Arantheal]

Ich hab gerade noch eine überarbeitete Version von NE und dem Nehrim XP Progressbar-Patch bekommen.

Die dynamischen Lernpunkte sind Dank einer ziemlich simplen Formel nun wirklich dynamisch ^^

[+]

Code Select all

If VarDynamicLernpunkte == 1
	Set BasisIntelligenz to Player.GetBaseAV Intelligence
	If BasisIntelligenz > 100
		Set BasisIntelligenz to 100
	endif
	Set Lernpunkte to Lernpunkte + (BasisIntelligenz / 10)	
ElseIf VarDynamicLernpunkte == -1
	Set Lernpunkte to Lernpunkte + 7
Endif

Der Maximalwert von 10 (20, durch die 10 Bonuspunkte, ohne Learning-by-doing) bleibt gleich, allerdings dürfte der Anfang etwas schwierigier sein, da eben bei niedrigerer Intelligenz auch die Lernpunkte niedrig ausfallen.

[Tealor Arantheal]

Um Larthana und ihre neue Questbeschreibung mit ein bisschen immersionstechnischen Hintergedanken zu ünterstützen, gibt es in ihrem Haus einen speziellen Schrein...

ACHTUNG!
Eine neue Mesh ist hinzugekommen, also auch den Ordner "Meshes" nochmals in den Data-Ordner verschieben.

[Tealor Arantheal]

Die Bonus-Lernpunkte bei deaktivieren "Learning-by-doing" wurden reduziert.
Nun kann der Spieler insgesamt 12 oder maximal 15 (mit dynamischen Lernpunkten) pro Level-Up erhalten.
20 Stück waren doch etwas übertrieben, schließlich gibt es 4 Fertigkeiten die sich um 10 Punkte bei Trainern steigern lassen (für 5 LP) und dadurch kann man auch gut den Attributsmultiplikator oder die Attributspunkte beeinflussen.

Die dynamischen Lernpunkte haben nun ebenfalls Einfluss auf die Bonus-Lernpunkte:
Bonus-Lernpunkte = Bonus-Lernpunkte + (BasisIntelligenz / 20)
Wobei bei Kommawerten immer der niedrigere Wert genommen wird: (BasisIntelligenz 90 / 20) = 4,5. Bonus-Lernpunkte = 4

[Tealor Arantheal]

Update, für alternatives Levelsystem

Das alternative System wurde etwas verschärft, weil man 10 Attributspunkte in nur ein Attribut stecken und damit leicht seine Lieblingsattribute viel zu schnell steigern konnte.

Jetzt kann man pro Level-Up nur noch 4 Attributspunkte in ein Attribut stecken. Sollte man mehr Attributspunkte erhalten (durch erhöhen der Fertigkeiten), als man eigentlich verteilen kann, werden sie dementsprechend angepasst.

Hat man also alle Attribute auf 100 aber Glück auf 95, bekommt man beim nächsten Levelaufstieg nur 4 Attributspunkte ganz gleich ob man 10 bekommen würde, weil man fleißig trainiert hat.
Beim nächsten Level-Up erhält man dann nur einen Punkt, um das Glück zu maximieren.

Test-Video:


(nicht schrecken wegen der "Ode to Joy" von Beethoven.
Ich hab den Sound diesmal angelassen, damit das Video nicht ganz so öde wird.
Nur hab ich meinen Level-Up-Sound geändert, also wird man da pausenlos von einem Orchestra niedergegrölt...
Ist ja nicht so als würde man normalerweise andauernd Levels aufsteigen
Die Soundänderung ist nicht in Nehrim Expanded einbezogen, sondern rein privat!)

Sieht gut aus und sollte funktionieren.
Wie immer melden, wenn irgendwelche Probleme auftreten.

[Tealor Arantheal]

Exploit fix, alternatives Levelsystem

Im alternativen Levelsystem bekam man immer Bonus-Lernpunkte, ganz gleich ob "Learning-by-doing" aktiviert ist oder nicht.
Das ist nun behoben.

[Tealor Arantheal]

Für Skriptinteressierte gibts noch das überarbeitete Levelaufstiegs-Skipt:

[+]

Code Select all

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

[Tealor Arantheal]

So...
Inzwischen hab ich Nehrim zum zweiten Mal durch
Bei dem Durchlauf konnte ich auch die Änderungen von NE testen und ein paar Kleinigkeiten kamen noch dazu:

- Ruf-Zauber für Kim und Hauptmann Dratis in entsprechenden Quests (wird nach Ende des Folgens entfernt).

Ist sinnvoll, wenn einem Kim folgt, da sie oft mal nicht gerne durch Türen in andere Bereiche geht. Nun kann man Kim schnell herbeirufen. Wie die anderen Rufzauber beginnt dieser mit "0_" und wird daher ganz oben im Zauberbuch eingeordnet.

Bezüglich Hauptmann Dratis, ist er in einer Quest ebenfalls sinnvoll. Und zwar wenn man die verschollenen Soldaten finden muss. Natürlich kann man einen einfachen Weg in das verlassene Lager wählen. Sollte man allerdings quer durch die Pampa über Stock und Stein klettern, kann einem Dratis leicht abhanden kommen. Dementsprechend braucht man ihn dann einfach nur zu sich rufen.

- Teleportzauber zu Callisto, wenn man nach Ostian aufbricht (wird bei der Ankunft entfernt).

Wenn man mit Callisto und Kim nach Ostian aufbricht, ist teleportieren erlaubt. Wenn man also stattdessen lieber nebenbei die Ruinen an denen man zweifelsohne vorbeikommt durchwandert kann man das tun, ohne großartig nach Callisto und Kim suchen zu müssen. Da Kim Callisto folgt ist man allerdings auf sich selbst gestellt und die beiden werden einem nur gegen Gegner helfen, die sich direkt am Weg nach Ostian befindet.
Es handelt sich um einen normalen Teleportzauber, der auch eine Teleportrune benötigt!
Die Rufzauber hingegen, benötigen keinerlei Zusatz.

- Entsprechende Änderungen an Questeinträgen, in denen ein paar Worte über die neuen Ruf- und Teleportzauber verloren werden.

Wenn man den Rufzauber für Kim, Dratis oder den Teleportzauber zu Callisto bekommt, wird deshalb ein kleine Erwähnung im Questlog stattfinden.

- Man erhält nun den korrekten Questeintrag, wenn man in Ostian nach Niccis Tod Kim bittet einem zu folgen.

Nachdem die Soldaten Nicci getötet haben und Callisto in arroganter Weise zum Haus ging, fragt Kim, was sie jetzt tun soll. Man kann sie zu ihm ins Haus schicken oder ihr sagen, dass sie dem Spieler folgen soll.
Letztere Option führte zu keinem Questlog-Eintrag, wohingegen bei der ersten Option der richtige Eintrag vermerkt wurde. Dies ist nun behoben.

- Feuerfunken erhöhen nun den Basiswert des Glücks, da Glück über 100 keinerlei Vorteile bringt. Dadurch wird schneller ein Maximalchar erreicht und somit das Level etwas schneller begrenzt (ein Maximalchar kann nicht mehr aufsteigen).

Eine etwas delikate Änderung, die allerdings durchaus Sinn ergibt. Feuerfunken erhöhen das Glück als grünen Wert. Warum ist das schlecht?
Nun das ist zwar ein vollwertiger Punkt für Glück, allerdings hat er keinerlei Auswirkungen auf das Levelsystem.
Man müsste also dennoch um die 74 Level-Ups im normalen Levelsystem haben und dabei eben immer einen Punkt Glück vergeben, um einen Maximalchar zu erreichen.
Was ist so besonderes an einem Maximalchar?
Ganz einfach: Sobald man alle Attribute auf 100 hat, wird man mit einer "Ihr seid perfekt"-Meldung vertröset, kann aber kein Level mehr aufsteigen und erhält keinen Gesundheitsbonus. Nur Lernpunkte und die für Nehrim programmierte Magieerhöhung werden vergeben.

Aus diesem Grund geben Feuerfunken nun einen Punkt auf das Basisglück und haben somit auch Auswirkungen auf das Leveling. Sobald sich Glück auf 100 befindet haben Feuerfunken keinen Effekt mehr und es erscheint, die Meldung, dass die Pflanzen besser verkauft werden sollten.

Glück ist neben Charisma eines der zwei Attribute die keinen nennenswerten Effekt über 100 haben.
Im normalen Spiel würde man also auf 100 Glück durch Leveln + (rund) 84 Bonuspunkte durch Feuerfunken kommen, was nicht wirklich sinnvoll ist.
Aus diesem Grund fügen Feuerfunken nun einen Basispunkt an Glück hinzu.
Dieser Effekt ist NICHT rückwirkend. Alle Feuerfunken die man bereits als grünen Punkt erhalten hat, bleiben so.

Das dürfte auch der finale Schliff an NE sein, aus diesem Grund werde ich mal V4.0 angeben.

Wer dennoch irgendwelche Fehler findet, kann sich gerne melden.

[Tealor Arantheal]

Bekannte Exploits:

- Alternatives Levelsystem:
Man kann durch Set-Gegenstände leicht einen maximalen Multiplikator herausschlagen.
Trägt man beispielsweise das komplette Set "Alter Mann" erhält man durch den magischen Komplettbonus Eigenschaften die Schwertkampf und Zerstörung um 10 Punkte erhöhen.
Wenn man bevor man einen Levelaufstieg im Tagebuch durchführt die Rüstung anzieht, sollte man sofort 10 Attributspunkte erhalten, durch den Unterschied im Zerstörungs- und Schwertkampfwert.
Da es sich bei den Fertigkeitserhöhungen um eine magische Eigenschaft und keine Verzauberung handelt, zählt der Werteunterschied.

Beim nächsten Levelaufstieg zieht man das Set "Alter Mann" aus und stattdessen das komplette Set "Apokalypse" an. Dadurch erhält man eine magische Eigenschaft, welche die Fertigkeiten stumpfe Waffen und schwere Rüstungen jeweils um 10 erhöht. Was wiederum 10 Attributspunkte einbringen sollte.

Wird vorläufig nicht ausgebessert. Wer ihn gezielt verwendet ist selber Schuld

[Tealor Arantheal]

Da weitere Updates aufgrund von Faulheit nur sehr schwer von statten gehen, muss ich nun immer 5 relativ sinnvolle Punkte bringen.
Offenbar hab ich es aber innerhalb von kürzester Zeit beim Herumtollen mit meinem Endchar geschafft:

Bugfix:
- Set-Zauber verschwinden wieder, sobald man die entsprechenden Sets auszieht.

Ist mir bisher nicht wirklich aufgefallen, aber leider gab es einen Denkfehler in den Skripts der Sets. Zuvor wurden nur die Fertigkeiten des Spielers berücksichtigt, aber nicht ob er auch die Sets an hat.
Wenn man also einen Set-Zauber einsetzt, das Set auszieht und es aber im Inventar behält, wird der Set-Zauber dennoch wieder aktiv, sobald die Wartezeit um ist, obwohl er das Set nicht mehr an hat. Allerdings nur, wenn die Fertigkeiten zutreffen, wie in meinem Fall.
Nun sind die Set-Zauber nicht nur an die Fertigkeiten sondern auch wirklich an die Sets gebunden.

Neuerung:
- Im Easteregg-Dungeon "Geheime SureAI-Einrichtung" wurde der Pfeilaktivator überarbeitet.

Auch dieser Aktivator wurde mit der Mesh des Feuerstellen-Aktivators belegt. Außerdem bekam das drehende Bild den Namen "Gemälde: Graf D.", wobei das "D." für den Entwickler welcher namentlich in der EditorID genannt wurde steht

- Bei den Überresten des Klosters von Pandorn wurden im Weinkeller einige statische Objekte ausgeblendet und Container sowie Items verschoben, damit man nicht mehr TCL eingeben muss, um sie zu erreichen.

In einem Kellergewolbe standen soviele Weinfässer und Spinnenkokons, dass man unmöglich daran vorbei und zur Schatztruhe dahinter konnte. Außerdem lagen noch ein Seelenstein und eine Seelenfalle-Spruchrolle in einem eingestürzten Abgang, den ich mit meinem männlichen Aeterna nicht betreten konnte (offenbar zu groß). Diese 2 Gegenstände wurden aus dem Abgang herausgenommen und oberhalb auf eine Kiste gelegt.

- Bienenstöcke sind nun etwas tückischer, dafür bekommt man für das erfolgreiche Ernten einen Erfahrungspunkt.

Bienenstöcke verursachen bei einem Fehlschlag kurzzeitig etwas Schaden. Sollte man erfolgreich sein, bekommt man aber immerhin einen Erfahrungspunkt neben dem Honig.
Wenn der Stock leer ist, kann man weder ernten noch erleidet man Schaden.

- Die Lava am Berghang der Lavaströme verursacht nun Feuerschaden.

Bisher hat es mich etwas gestört, dass man zwar kurz verschwommen gesehen hat, wenn man die Lava bei den Lavaströmen überquert hat, aber keinen Schaden bekam. Nun erhält man 4 Sekunden lang schwerste Verbrennungen. Der Effekt wirkt kontinuierlich, sofern man im Lavastrom stehen bleibt bis zum Tod!

- Es befindet sich nun ebenfalls eine optinale "TeleportExpansionPack.esp" in den Patches-Ordner. Sie ist NICHT von NE abhängig, wurde aber gesäubert und etwas angepasst.

Diese ESP ist identisch mit der Originalen, allerdings ist sie kleiner, da viele unnötige Einträge entfernt wurden. Darüber hinaus wurde das Skelett mit der Teleportrune im Dunklen Wald als Quest-Kreatur gekennzeichnet, so wie alle anderen Träger von Teleportrunen.
Ich hatte in diesem Durchlauf das Problem, dass dieses Klappergestelle einfach nicht erscheinen wollte, was durchaus auf die fehlende Quest-Einstellung zurückzuführen ist.

[Tealor Arantheal]

Wieder kleines Update.

Diesmal sind es etwas mehr als nur 5 Änderungen an NE, allerdings handelt es sich hier nur um Ergänzungen und finalen Spielereien:

- In Onakat ist in der Schlucht nun eine Killbox, da der Player in einen Bereich fallen würde, aus dem er nicht mehr entkommt.

Außer TCL gäbe es keine Möglichkeit aus der Schlucht zu entkommen, also wurde ganz unten eine Killbox eingefügt. Dementsprechend stirbt der Spieler, wenn er da runter fällt

- Stachelfallen mit bewegenden Steinböden sind nun absolut tödlich, sofern man in die Nähe der Stacheln kommt.

Vielleicht nicht jedermanns Sache, aber die Stachelfallen mit den bewegenden Steinböden sind nun mit einer Killbox versehen. Wer also an die Decke geschleudert bzw. in die Fallgrube fällt stirbt. Ansonsten hätten diese Fallen kaum Schaden verursacht und nicht wirklich einen Reiz.
Außerdem gibt es ohnehin nicht viele davon.

- "Rückkehr" wirft nun ebenfalls die selbe Hinweisnachricht wie alle anderen Teleportzauber.

"Sie benötigen eine Teleportrune", wird nun ebenfalls von diesem Zauber gemeldet.

- Markieren und Rückkehr heißen nun "Teleport: Markieren" und "Teleport: Rückkehr", damit sie mit den anderen Teleportzauber sortiert werden.

Damit sind die Zauber dort wo sie hingehören. Unterschied ist, dass die Zauber für die Ortschaften "Teleportieren:" und diese nur "Teleport:" als Rufzeichen haben.

- Oger hinterlassen Oger-Zähne nur, wenn der Spieler "Zähne ziehen" erlernt hat.
- Trolle hinterlassen Trollfett (gilt nicht für die Trolle aus der Schattenrufmine).
- Ahnenlichter, Lichtfunken und Magielichtern hinterlassen nun Glühstaub.
- Fische hinterlassen nun Schuppen.

Weitere Spielereien mit selten genutzten Zutaten.

- Während der Quest "Die Schätze Darius" werden die 5 Schlüsselsteine zu entsprechenden Stages mit einem Quest-Marker versehen. Diese Steine haben eine sehr unscheinbare Textur und werden daher gerne übersehen.

Ist mir beim ersten Duchspielen, schon etwas auf die Nerven gegangen, aber nach langem Rumsuchen fand ich sie doch.
Diesmal war ich zwar vorbereitet... Nur nicht auf den letzten Schlüsselstein -.-

Dementsprechend haben absofort alle Schlüsselsteine eine Markierung auf der Karte, zu entsprechender QuestStage.
Während der Quest läuft man ohnehin an den Steinen vorbei. Nur ist ja gerade das "vorbeilaufen" das Problem ^^

[Tealor Arantheal]

Nach komplettieren der letzten Quests, Schwert Goth verstärken, ein paar letzte Dungeons besuchen gibts nur eine kleine, optische und eine kleine, immersive Änderung:

- Die Barrieren von der Wüste nach Treomar verschwinden normalerweise zwar, aber das Schimmern in der Luft bleit. Nun wurde ein Skript richtig zugewiesen und die Effekte verschwinden ebenfalls.
- Der kleine Vulkan in der Wüste verursacht Feuerschaden.

[Tealor Arantheal]

V5.3 enthält nur 2 kleine Änderungen:

- Die Verzauberung vom Schild "Pest" wurde nochmals reduziert. Nun wird der Rüstungswert nur noch auf 60% angehoben (ohne dabei den eigentlichen Schildschutz mit einzuberechnen). Zusammen mit einer einfachen Rüstung sollte mit dem Schild dennoch leicht das Maximum von 90 erreicht werden.

- Wenn "Learning-by-doing" deaktiviert ist bekommt man doch 10 Bonus-Lernpunkte anstatt von 5.
Würden alle Fertigkeiten bei 10 starten bräuchte man trotzdem weit über 1000 Lernpunkte um sie zu maximieren.
Wenn man von Level 2 weg mit 20 Lernpunkten spielen würde, so hätte man bei Level 50 gerade mal 1000 bekommen.
Da aber das Maximum von 20 erst erreicht werden muss und ansonsten nur 17 vergeben werden ist es durchaus fair 10 Bonuspunkte zu verteilen. Außerdem erhält man keine Bonuspunkte mehr, sobald alle Attribute auf 100 sind.

[Tealor Arantheal]

V5.5 ist reine Bequemlichkeit.

Die Set-Zauber benötigen bestimmte Skillvoraussetzungen. Nur wurden diese bisher ausschließlich bei der kurzzeitigen Message angezeigt, die erscheint sobald man mehrere Set-Gegenstände eines Sets anzieht.

Nun startet das Aufnehmen eines Set-Gegenstands von einem Set mit Zauber eine eigene Quest.
Diese wird sofort abgeschlossen und der Spieler erhält auch keinerlei Erfahrungspunkte.

Allerdings können nun Voraussetzungen und Wirkungen der einzelnen Set-Zauber im Tagebuch unter den abgeschlossenen Quests nachgelesen werden.

[Tealor Arantheal]

Update V6.0
Nur eine Spielerei für das Ende der Hauptquest.
Nachdem man den Tempel der Seelenwächter verlassen hat und vor der Entscheidung steht den Seelenschinder zu erhalten oder vernichten, bekommt Bankier Rodriguez in Erothin eine neue Dialogoption.

Er verkauft nun recht billig interessante Items, die hilfreich sein werden den Charakter zu perfektionieren.
Allerdings greift er dafür nicht nur in die Taschen des Spielers sondern auch auf dessen Konto.

Wenn also keine Dialogoptionen zum Verkauf angeboten werden, hat der Spieler weder im Geldbeutel noch auf dem Bankkonto genügend Geld um einen Kauf durchzuführen.

[Tealor Arantheal]

Bugfix
Das kommt davon, wenn man neue Features nicht genau testet...
Die Beschreibungen der Set-Zauber hab ich nochmal schnell mit TESIVEdit überarbeitet.