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.