Troy's Scriptthread (inkl. Auslösen von Animationen)

[SirTroy]

So also ich bin schonmal ein wenig vorrangekommen.
Der Button wird nun in der MessageBox angezeigt, Der NPc spielt die Animation ab, der Player auch. Nur das mit dem Timer funktioniert nicht.

Empfiehlt sich da eventuell eine extra Quest einzurichten?

Das Script sieht bis jetzt so aus (Später kommen noch diverse abfragen dazu, das ist erstmal zum testen)

Code:

Scriptname ZFinisherQuestScript

Short Done

Float fQuestdelayTime

Short Finisherkey

Ref PossibleTarget
Ref Target

Short Move
Short Possible

Float Timer

Begin GameMode
	Set Timer to Timer + GetSecondsPassed
	If IsKeyPressed2 Finisherkey
		Set Move to 1
	Endif
	If Move == 1
		Set PossibleTarget to GetCrosshairRef
			If PossibleTarget != 0
				If PossibleTarget.IsActor
					If PossibleTarget.IsCreature == 0
						If PossibleTarget.GetDead == 0
							Set Target to PossibleTarget
							Set Possible to 1
						Else
							Set Move to 0
						Endif
					Else
						Set Move to 0
					Endif
				Else
					Set Move to 0
				Endif
			Else
				Set Move to 0
			Endif
		If Possible == 1
			Set Timer to 0
			Target.AddItem ZTFinisherRing 1
			Set Possible to 2
			Player.Pickidle
			Target.PickIdle
			If Timer >= 0.5 && Timer <= 0.6
				Target.Kill
				Target.RemoveItem ZTFinisherRing 1
				Set Move to 0
			Endif
		Endif
	Endif
End

Ich hoffe es reicht den GetSecondsPassed befehl am anfang einmal zu verwenden, ich denke mal der läuft dann halt immer mit, oder?

Die Animation des Gegners besitzt die Condition GetItemCount ZTFinisherRing == 1, und die des Player GetQuestVariable XQuest Possible == 2 UND GetIsReference PlayerREF.
Wie gesagt das funktioniert. Er will das mit dem Timer aber einfch nicht machen -.-* Kommt mir vor als wenn Oblivion den Timer einfach ignoriert ô.o

Jemand nen Plan wie das funktionieren könnte? Und empfiehlt es sich eventuell einen Conditionquest mit einzubringen? Zurzeit orientier ich mich noch ein bisschen an Deadly Reflex (von SkyCaptain), nur erweist es sich als schwieriger als erwartet aus seinen Scripts schlau zu werden. (Hab den anfang zwar schon aber naja)

[Low Post]

Ich hoffe es reicht den GetSecondsPassed befehl am anfang einmal zu verwenden, ich denke mal der läuft dann halt immer mit, oder?

...

Schon, allerdings nützt es nichts, wenn später im Script (aber noch vor der Abfrage) folgende Zeile erschient:

Set Timer to 0

...

Ich hab in deinem Script mal herumgepfuscht um das mit dem Timer zu beheben:

Code:

Scriptname ZFinisherQuestScript

Short Done

Float fQuestdelayTime

Short Finisherkey

Ref PossibleTarget
Ref Target

Short Move
Short Possible

Float Timer

Begin GameMode
	If IsKeyPressed2 Finisherkey
		Set Move to 1
	Endif
	If Move == 1
		Set PossibleTarget to GetCrosshairRef
		If PossibleTarget != 0
			If ( PossibleTarget.IsActor ) && ( PossibleTarget.IsCreature == 0 ) && ( PossibleTarget.GetDead == 0 )		;Wozu so viele If-Befehle wenn eine einfache &&-Verknüpfung möglich ist?
				Set Target to PossibleTarget
				Set Possible to 1
			Else
				Set Move to 0
			Endif
		Else
			Set Move to 0
		Endif
		If Possible == 1
			Target.AddItem ZTFinisherRing 1
			Set Possible to 2
			Player.Pickidle
			Target.PickIdle
		elseif Possible == 2
			Set Timer to Timer + GetSecondsPassed		;Verschoben, damit der Befehl nicht unnötigerweise aufgerufen wird und man die Timer-Variable nur einmal zurücksetzten muss.
			If Timer >= 0.5			;Langsame Framerate kann auch von Zeit zu Zeit vorkommen, oder anders ausgedrückt: Ich sehe keinerlei Sinn an einer Obergrenze, wenn die Variable nur erhöht wird. ;)
				Target.Kill
				Target.RemoveItem ZTFinisherRing 1
				Set Move to 0
				Set Timer to 0
				Set Possible to 0
			Endif
		Endif
	Endif
End

[SirTroy]

Danke, nur will der Timer Ingame immer nocht nicht klappen ô.o
Meiner Meinung nach ist alles richtig. Ich hab jetzt mal testweise 2 Animationen aus Deadly Reflex genommen, den Timer auf 1.2 gesetzt, aber es passiert nichts. Nach dem ersten mal abspielen läuft der Gegner einfach weiter und der Spieler führt die Animation ein 2tes mal aus Was ist denn jetzt falsch

Edit: Kann es sein das Target irgendwie wieder weggesetzt wird, sodass es nichtmehr erkannt wird?

[Low Post]

Probier mal das hier:

Code:

Scriptname ZFinisherQuestScript

Short bFinish
Short iFinisherKey
Float fQuestdelayTime
Float fTimer
Ref rTarget

Begin GameMode
	if ( bFinish )
		set fTimer to ( fTimer + GetSecondsPassed )
		if ( fTimer >= 0.5 )
			rTarget.Kill
			rTarget.RemoveItem ZTFinisherRing, 1
			set bFinish to 0
			set fTimer to 0
		endif
	elseif ( IsKeyPressed2 iFinisherKey )
		set rTarget to GetCrosshairRef
		if ( IsFormValid rTarget )
			if ( rTarget.IsActor ) && ( rTarget.GetIsCreature == 0 ) && ( rTarget.GetDead == 0 )
				set bFinish to 1
				rTarget.AddItem ZTFinisherRing, 1
				Player.Pickidle
				rTarget.PickIdle
			endif
		endif
	endif
End

Bei der alten Version wurde der Timer nie verwendet: es war extrem unwahrscheinlich, dass Possible bis zur Abfrage auch wirklich 2 bleibt.

[SirTroy]

Mein Script funktioniert mittlerweile, hab vor der abfrage vom target ein If Possible == 0 gehängt:

Code:

Scriptname ZFinisherQuestScript

Short Done

Float fQuestdelayTime;set to 0.1 from another script

Short Finisherkey

Ref PossibleTarget
Ref Target

Ref PlayerWeapon
Ref PlayerWeaponType

Short Move
Short Possible

Float Timer

Short TargetBaseHealth

Begin GameMode
	If IsKeyPressed2 Finisherkey
		Set Move to 1
	Endif
	If Move == 1
		if Possible == 0
			Set PossibleTarget to GetCrosshairRef
			If PossibleTarget != 0
				If ( PossibleTarget.IsActor ) 
					If ( PossibleTarget.IsCreature == 0 ) 
						If ( PossibleTarget.GetDead == 0 )        
							Set Target to PossibleTarget
							Set Possible to 1
						Endif
					Endif
				Endif
			Else
				Set move to 0
			Endif
		ElseIf Possible == 1
			Set Playerweapon to Player.GetEquippedObject 16
			If PlayerWeapon != 0
				Set PlayerWeaponType to GetWeaponType PlayerWeapon
			Endif
			Set TargetBaseHealth to Target.GetBaseActorValue Health
			If Player.IsWeaponOut
				If PlayerWeaponType == 0 || PlayerWeaponType == 1
					If Target.GetAV Health <= (TargetBaseHealth / 2)
						If Player != Target
							;If Target.GetDistance Player <= 120
								Player.SetRestrained 1
								Target.AddItem ZTFinisherRing 1
								Set Possible to 2
								Player.Pickidle
								Target.PickIdle
								Set Possible to 3
							;Else
								;Set Move to 0
							;Endif
						Else
							Set move to 0
						Endif
					Else
						Set Move to 0
					Endif
				Else
					Set move to 0
				Endif
			Else
				Set move to 0
			Endif
		Elseif Possible == 3
			If Timer >= 1                   
				Target.Kill
				Target.RemoveItem ZTFinisherRing 1
				Player.SetGhost 0
				Player.SetRestrained 0
				Set Move to 0
				Set Timer to 0
				Set Possible to 0
			Endif
			Set Timer to Timer + GetSecondsPassed
		Endif
	Endif
End

Die im offiziellen Forum meinen auch das die abrfragen (IsActor, IsCreature) nacheinander gemacht werden sollten.

Jedenfalls klappt das jetzt danke, werd später wenn ich soweit bin vllt nochmal auf Pluggy zurückkommen und könnt da noch Hilfe gebrauchen.
Lg

[SirTroy]

Dobbel-Post

Ich will jetzt nen Zweiten Move einbinden der aber den ersten vorraussetzt (Da der Gegner bei der ersten sozusagen kurz außer gefecht ist, er geht paar schritte zurück etc), und in dieser Zeit soll der Spieler halt hin und nochmal den Key drücken, damit eine zweite Animation ausgeführt wird.

Habt ihr ne Idee?
Script sieht bis jetzt so aus: (Hab momentan net viel Zeit daher können einige Flüchtigkeitsfehler drin sein sry)

Code:

Scriptname ZFinisherQuestScript

Short Done

Float fQuestdelayTime;set to 0.1 from another script

Short Finisherkey

Ref PossibleTarget
Ref Target

Ref PlayerWeapon
Ref PlayerWeaponType

Short Move
Short Possible
Short Possible2

Float Timer
Float Timer2

Short TargetBaseHealth

Begin GameMode
	If ( IsKeyPressed2 Finisherkey ) 
		Set Move to 1
	Endif
	If Move == 1
		if Possible == 0
			Set PossibleTarget to GetCrosshairRef
			If PossibleTarget != 0
				If ( PossibleTarget.IsActor ) 
					If ( PossibleTarget.IsCreature == 0 ) 
						If ( PossibleTarget.GetDead == 0 )        
							Set Target to PossibleTarget
							Set Possible to 1
						Endif
					Endif
				Endif
			Else
				Set move to 0
			Endif
		ElseIf Possible == 1
			Set Playerweapon to Player.GetEquippedObject 16
			If PlayerWeapon != 0
				Set PlayerWeaponType to GetWeaponType PlayerWeapon
			Endif
			Set TargetBaseHealth to Target.GetBaseActorValue Health
			If Player.IsWeaponOut
				If PlayerWeaponType == 0 || PlayerWeaponType == 1
					If Target.GetAV Health <= (TargetBaseHealth / 2)
						If Player != Target
							Target.AddItem ZTHeBStuRing 1
							Target.SetRestrained 1
							Target.SetUnconscious 1
							Set Possible to 2
							Player.Pickidle
							Target.PickIdle
							Set Possible to 3
						Else
							Set move to 0
						Endif
					Else
						Set Move to 0
					Endif
				Else
					Set move to 0
				Endif
			Else
				Set move to 0
			Endif
		Elseif Possible == 3
			If Timer >= 0.2 && Timer < 0.5
				PlaySound BreakingNose
			Elseif Timer < 3.333 && Timer >= 0.6
				If IsKeyPressed2 FinisherKey
					If Target != 0
						If (Target.IsActor ) 
							If ( Target.IsCreature == 0 ) 
								If ( Target.GetDead == 0 )
									Set Possible to 4
								Endif
							Endif
						Endif
					Endif
				Endif
			Elseif Timer >= 3.333
				If Target.GetItemCount ZTFinisherRing < 1         
					Target.RemoveItem ZTHeBStuRing 1
					Target.SetRestrained 0
					Target.SetUnconscious 0
					Set Move to 0
					Set Timer to 0
					Set Possible to 0
				Endif
			Endif
			Set Timer to Timer + GetSecondsPassed
		Elseif Possible == 4
			Target.RemoveItem ZTheBStuRing 1
			Target.AddItem ZTFinisherRing 1
			If Player.IsWeaponOut
				Set Timer to 0
				Set Possible to 5
				Target.SetRestrained 1
				Target.PickIdle
				Player.PickIdle
			Endif
		Elseif Possible == 5
			If Timer == 1
				Target.Kill
				Target.RemoveItem ZTFinisherRing 1
				Set Move to 0
				Set Timer to 0
				Set Possible to 0
			Endif
			Set Timer to Timer + GetSecondsPassed
		Endif
	Endif
End

2tens:
Wie kann ich ein Skelett dazu bringen in Richtung des Spielers zu sehen?
SkelettRef.Look Player funzt irgendwie net, noch ne andere Idee?

[SirTroy]

Tribble Post

Nach langer Zeit mal wieder ne frage:

Ich habe mir eine ini erstellt, und habe dort ein paar Informationen gespeichert.

Ingame geht es jetzt darum, diese Informationen abzufragen (per Pluggys String funktion) und diese dann auf einen Feind zu übertragen. Heißt es soll dann ein Feind erstellt werden (Ich dachte da an eine Kopie des Spielers) nur mit anderem Namen, Level, Leben, Mana, Ausdauer, Gold, Zauber und Waffe.

Die Infos aus der ini ablesen, und in einem String speichern hab ich hinbekommen. Mir fehlt jetzt das erstellen der Kopie und dem Ausrüsten/ändern der Werte. Ich hoffte dabei könnte mir jemand behilflich sein.

Momentan sieht das Script so aus:

Code:

Scn TroyPluggyTestScript

long named
long leveld
long goldd
float healthd
Float Magickad
Float Fatigued
ref spelld
ref weapond

long file
long section
long key

long dInt
float dFloat
ref dRef

float fQuestDelayTime
Short Int

Begin GameMode
	Set fQuestDelayTime to 0.1
	If IsKeyPressed2 38
		Set Int to 1
	Endif
	If Int == 0
		Return
	Else
		set file to CreateString -1 "TroyIni.ini"
		set section to CreateString -1 "General"
		set key to CreateString -1 "Name"

		set named to CreateString
		set dInt to CreateString -1 "Unknown Name"
		IniReadString named file section key dInt

		DestroyString dInt

		SetString key "Level"
		set dInt to -1
		set leveld to IniReadInt file section key dInt

		SetString key "Gold"
		set goldd to IniReadInt file section key dInt

		SetString section "Attributes"
		SetString key "Health"
		set dFloat to -1
		set healthd to IniReadFloat file section key dFloat
		
		SetString section "Attributes"
		SetString key "Magicka"
		set dFloat to -1
		set magickad to IniReadFloat file section key dFloat
		
		SetString section "Attributes"
		SetString key "fatigue"
		set dFloat to -1
		set fatigued to IniReadFloat file section key dFloat

		SetString section "Spells"
		SetString key "ActiveSpell"
		set dRef to 0
		set spelld to IniReadRef file section key dRef

		SetString section "Equipped Items"
		SetString key "Weapon"
		set weapond to IniReadRef file section key dRef

		;Hier sollte dann der Block mit dem erstellen der Kopie und dem ganzen ausrüstungsändern rein.
		
		DestroyString file
		DestroyString section
		DestroyString key
		
		Set Int to 0
	Endif
End

Ich hatte testweise versucht die Kopie zu erstellen, aber er hat dann 100 Kopien gemacht und nichtmal der Name stimmte.

Kleine Frage noch: Ist es möglich irgendwie ein Aussehen durch die ini festzulegen? Sodass ein Neuer NPc erstellt wird mit neuem Aussehen?

[Low Post]

Kleine Frage noch: Ist es möglich irgendwie ein Aussehen durch die ini festzulegen? Sodass ein Neuer NPc erstellt wird mit neuem Aussehen?

...

Script durchschauen dauert mir zu lang, daher nur das hier betreffend:

List of Functions
Copy/SetHair
Copy/SetEyes


Rasse, Geschlecht & Gesicht wird nur gehen, in dem du mehrere NPCs mit best. Gesicht erstellst und die dann als Auswahlmöglichkeiten anbietest.