Construction Set Doppelgänger erstellen

Calcho

Abenteurer
Hallo zusammen,

ich versuche schon seit einigen Tage einen/mehrere Doppelgänger zu erstellen. Allerdings passiert bei mir recht wenig -.- Ich habe mir schon aus anderen Doppelgänger Mods die Scripts angeschaut und versucht nach meinen Wünschen abzuändern, allerdings passierte dann nicht viel.

Ich wollte den Script aus diesem Mod abändern. So, dass ich auswählen kann wie viele Doppelgänger ich erstellen will. Die Doppelgänger sollen mir hinterherlaufen und mich beschützen. So wie eben die fünfte Variante in dem Mod. Ich hoffe mir kann da jemand behilflich sein.

MfG
Calcho
 
Original:
scn Dopplegangerepicscript

ref clone1
ref clone2
ref clone3
ref clone4
ref clone5
short clonehealth1
short clonehealth2
short clonehealth3
short clonehealth4
short clonehealth5
short doonce1
short doonce2
short doonce3
short doonce4
short doonce5
short StartPage
short choice
short clone5exists

Begin ScriptEffectStart
set StartPage to 1
set doOnce1 to 0
set doOnce2 to 0
set doOnce3 to 0
set doOnce4 to 0
set doOnce5 to 0
End


Begin GameMode

if (clone1.GetDead == 1)
clone1.Disable
endif
if (clone2.GetDead == 1)
clone2.Disable
endif
if (clone3.GetDead == 1)
clone3.Disable
endif
if (clone4.GetDead == 1)
clone4.Disable
endif
if (clone5.GetDead == 1)
clone5.Disable
set clone5exists to 0
endif

if (StartPage == 1)
MessageBox, "Welche Art Doppelgänger wünscht Ihr zu beschwören?","Doppelgänger (normal)","Doppelgänger (stark)","Doppelgänger (Elite)","Doppelgänger (episch)","verbündeter Doppelgänger"
set StartPage to 2
return
elseif (StartPage == 2)
set choice to GetButtonPressed
if (choice == -1)
return

elseif (choice == 0)
set clonehealth1 to Player.GetBaseActorValue health * 1
set clone1 to player.CreateFullActorCopy
clone1.DuplicateNPCStats player
clone1.SetActorValue health clonehealth1
set StartPage to 0

elseif (choice == 1)
set clonehealth2 to Player.GetBaseActorValue health * 2.5
set clone2 to player.CreateFullActorCopy
clone2.DuplicateNPCStats player
clone2.SetActorValue health clonehealth2
set StartPage to 0

elseif (choice == 2)
set clonehealth3 to Player.GetBaseActorValue health * 5
set clone3 to player.CreateFullActorCopy
clone3.DuplicateNPCStats player
clone3.SetActorValue health clonehealth3
set StartPage to 0

elseif (choice == 3)
set clonehealth4 to Player.GetBaseActorValue health * 7.5
set clone4 to player.CreateFullActorCopy
clone4.DuplicateNPCStats player
clone4.SetActorValue health clonehealth4
set StartPage to 0

elseif (choice == 4)
set clonehealth5 to Player.GetBaseActorValue health * 1.25
set clone5 to player.CreateFullActorCopy
clone5.DuplicateNPCStats player
clone5.SetActorValue health clonehealth5
set StartPage to 0
endif
endif

if (doonce1 == 0) && (choice == 0)
clone1.StartCombat player
clone1.AddItem DoppleGangerPotion,1
clone1.SetActorFullName "Doppelgänger"
clone1.SetFactionRank DopplegangerFaction 0
clone1.SetFactionRank FightersGuild -1
clone1.SetFactionRank MagesGuild -1
clone1.SetFactionRank ThievesGuild -1
clone1.SetFactionRank ICWaterfrontResident -1
clone1.SetFactionRank DarkBrotherhood -1
clone1.ModActorValue Aggression 100
clone1.EquipItem DoppleGangerPotion
set doonce1 to 1
set Choice to -1
endif
if (doonce2 == 0) && (choice == 1)
clone2.StartCombat player
clone2.AddItem DoppleGangerPotion,1
clone2.SetActorFullName "Doppelgänger (stark)"
clone2.SetFactionRank DopplegangerFaction 0
clone2.SetFactionRank FightersGuild -1
clone2.SetFactionRank MagesGuild -1
clone2.SetFactionRank ThievesGuild -1
clone2.SetFactionRank ICWaterfrontResident -1
clone2.SetFactionRank DarkBrotherhood -1
clone2.ModActorValue Aggression 100
clone2.EquipItem DoppleGangerPotion
set doonce2 to 1
set Choice to -1
endif
if (doonce3 == 0) && (choice == 2)
clone3.StartCombat player
clone3.AddItem DoppleGangerPotion,1
clone3.SetActorFullName "Doppelgänger (Elite)"
clone3.SetFactionRank DopplegangerFaction 0
clone3.SetFactionRank FightersGuild -1
clone3.SetFactionRank MagesGuild -1
clone3.SetFactionRank ThievesGuild -1
clone3.SetFactionRank ICWaterfrontResident -1
clone3.SetFactionRank DarkBrotherhood -1
clone3.ModActorValue Aggression 100
clone3.EquipItem DoppleGangerPotion
set doonce3 to 1
set Choice to -1
endif
if (doonce4 == 0) && (choice == 3)
clone4.StartCombat player
clone4.AddItem DoppleGangerPotion,1
clone4.SetActorFullName "Doppelgänger (episch)"
clone4.SetFactionRank DopplegangerFaction 0
clone4.SetFactionRank FightersGuild -1
clone4.SetFactionRank MagesGuild -1
clone4.SetFactionRank ThievesGuild -1
clone4.SetFactionRank ICWaterfrontResident -1
clone4.SetFactionRank DarkBrotherhood -1
clone4.ModActorValue Aggression 100
clone4.EquipItem DoppleGangerPotion
set doonce4 to 1
set Choice to -1
endif
if (doonce5 == 0) && (choice == 4)
clone5.SetActorFullName "verbünderter Doppelgänger"
clone5.AddItem DoppleGangerPotion,1
clone5.ModActorValue Aggression 30
clone5.ModActorValue Confidence 90
clone5.ModActorValue Energy 90
clone5.ModActorValue Responsibility 50
clone5.AddScriptPackage DoppleGangerFollow
SetIgnoreFriendlyHits Clone5
clone5.EquipItem DoppleGangerPotion
set doonce5 to 1
set Choice to -1
set clone5exists to 1
endif

if (Doonce5 == 1) && (clone5exists == 1)
if Player.IsSneaking == 1
Clone5.SetForceSneak 1
elseif Player.IsSneaking == 0
Clone5.SetForceSneak 0
endif
if (Clone5.GetDisposition player != 100)
Clone5.ModDisposition player 100
endif
endif

End

Begin ScriptEffectFinish
End

Bei dem wollte ich halt den Teil für den Verbündeten rausnehmen und für die anderen umschreiben. Hat aber nicht geklappt ^^



Meine Neues:
scn aaDoppelgaengerScript

ref clone1
ref clone2
ref clone3
ref clone4
ref clone5
short clonehealth1
short clonehealth2
short clonehealth3
short clonehealth4
short clonehealth5
short doonce1
short doonce2
short doonce3
short doonce4
short doonce5
short StartPage
short choice
short clone1exists
short clone2exists
short clone3exists
short clone4exists
short clone5exists

Begin ScriptEffectStart
set StartPage to 1
set doOnce1 to 0
set doOnce2 to 0
set doOnce3 to 0
set doOnce4 to 0
set doOnce5 to 0
End


Begin GameMode

if (clone1.GetDead == 1)
clone1.Disable
set clone1exists to 0
endif
if (clone2.GetDead == 1)
clone2.Disable
set clone2exists to 0
endif
if (clone3.GetDead == 1)
clone3.Disable
set clone3exists to 0
endif
if (clone4.GetDead == 1)
clone4.Disable
set clone4exists to 0
endif
if (clone5.GetDead == 1)
clone5.Disable
set clone5exists to 0
endif

if (StartPage == 1)
MessageBox, "Wieviele Doppelgänger wünscht Ihr zu beschwören?","Ein Doppelgänger","Zwei Doppelgänger","Drei Doppelgänger","Vier Doppelgänger","Fünf Doppelgänger"
set StartPage to 2
return
elseif (StartPage == 2)
set choice to GetButtonPressed
if (choice == -1)
return

elseif (choice == 0)
set clonehealth1 to Player.GetBaseActorValue health * 1
set clone1 to player.CreateFullActorCopy
clone1.DuplicateNPCStats player
clone1.SetActorValue health clonehealth1
set StartPage to 0

elseif (choice == 1)
set clonehealth1 to Player.GetBaseActorValue health * 1
set clone1 to player.CreateFullActorCopy
clone1.DuplicateNPCStats player
clone1.SetActorValue health clonehealth1
set clonehealth2 to Player.GetBaseActorValue health * 1
set clone2 to player.CreateFullActorCopy
clone2.DuplicateNPCStats player
clone2.SetActorValue health clonehealth2
set StartPage to 0

elseif (choice == 2)
set clonehealth1 to Player.GetBaseActorValue health * 1
set clone1 to player.CreateFullActorCopy
clone1.DuplicateNPCStats player
clone1.SetActorValue health clonehealth1
set clonehealth2 to Player.GetBaseActorValue health * 1
set clone2 to player.CreateFullActorCopy
clone2.DuplicateNPCStats player
clone2.SetActorValue health clonehealth2
set clonehealth3 to Player.GetBaseActorValue health * 1
set clone3 to player.CreateFullActorCopy
clone3.DuplicateNPCStats player
clone3.SetActorValue health clonehealth3
set StartPage to 0

elseif (choice == 3)
set clonehealth1 to Player.GetBaseActorValue health * 1
set clone1 to player.CreateFullActorCopy
clone1.DuplicateNPCStats player
clone1.SetActorValue health clonehealth1
set clonehealth2 to Player.GetBaseActorValue health * 1
set clone2 to player.CreateFullActorCopy
clone2.DuplicateNPCStats player
clone2.SetActorValue health clonehealth2
set clonehealth3 to Player.GetBaseActorValue health * 1
set clone3 to player.CreateFullActorCopy
clone3.DuplicateNPCStats player
clone3.SetActorValue health clonehealth3
set clonehealth4 to Player.GetBaseActorValue health * 1
set clone4 to player.CreateFullActorCopy
clone4.DuplicateNPCStats player
clone4.SetActorValue health clonehealth4
set StartPage to 0

elseif (choice == 4)
set clonehealth1 to Player.GetBaseActorValue health * 1
set clone1 to player.CreateFullActorCopy
clone1.DuplicateNPCStats player
clone1.SetActorValue health clonehealth1
set clonehealth2 to Player.GetBaseActorValue health * 1
set clone2 to player.CreateFullActorCopy
clone2.DuplicateNPCStats player
clone2.SetActorValue health clonehealth2
set clonehealth3 to Player.GetBaseActorValue health * 1
set clone3 to player.CreateFullActorCopy
clone3.DuplicateNPCStats player
clone3.SetActorValue health clonehealth3
set clonehealth4 to Player.GetBaseActorValue health * 1
set clone4 to player.CreateFullActorCopy
clone4.DuplicateNPCStats player
clone4.SetActorValue health clonehealth4
set clonehealth5 to Player.GetBaseActorValue health * 1
set clone5 to player.CreateFullActorCopy
clone5.DuplicateNPCStats player
clone5.SetActorValue health clonehealth5
set StartPage to 0
endif
endif

if (doonce1 == 0) && (choice == 0)
clone1.SetActorFullName "Kage-Bunshin"
clone1.AddItem DoppleGangerPotion,1
clone1.ModActorValue Aggression 40
clone1.ModActorValue Confidence 100
clone1.ModActorValue Energy 100
clone1.ModActorValue Responsibility 0
clone1.AddScriptPackage DoppleGangerFollow
SetIgnoreFriendlyHits Clone1
clone1.EquipItem DoppleGangerPotion
set doonce1 to 1
set Choice to -1
set clone1exists to 1
endif

if (doonce2 == 0) && (choice == 1)
clone2.SetActorFullName "Kage-Bunshin"
clone2.AddItem DoppleGangerPotion,2
clone2.ModActorValue Aggression 40
clone2.ModActorValue Confidence 100
clone2.ModActorValue Energy 100
clone2.ModActorValue Responsibility 0
clone2.AddScriptPackage DoppleGangerFollow
SetIgnoreFriendlyHits Clone2
clone2.EquipItem DoppleGangerPotion
set doonce2 to 1
set Choice to -1
set clone2exists to 1
endif

if (doonce3 == 0) && (choice == 2)
clone3.SetActorFullName "Kage-Bunshin"
clone3.AddItem DoppleGangerPotion,3
clone3.ModActorValue Aggression 40
clone3.ModActorValue Confidence 100
clone3.ModActorValue Energy 100
clone3.ModActorValue Responsibility 0
clone3.AddScriptPackage DoppleGangerFollow
SetIgnoreFriendlyHits Clone3
clone3.EquipItem DoppleGangerPotion
set doonce3 to 1
set Choice to -1
set clone3exists to 1
endif

if (doonce4 == 0) && (choice == 3)
clone4.SetActorFullName "Kage-Bunshin"
clone4.AddItem DoppleGangerPotion,4
clone4.ModActorValue Aggression 40
clone4.ModActorValue Confidence 100
clone4.ModActorValue Energy 100
clone4.ModActorValue Responsibility 0
clone4.AddScriptPackage DoppleGangerFollow
SetIgnoreFriendlyHits Clone4
clone4.EquipItem DoppleGangerPotion
set doonce4 to 1
set Choice to -1
set clone4exists to 1
endif

if (doonce5 == 0) && (choice == 4)
clone5.SetActorFullName "Kage-Bunshin"
clone5.AddItem DoppleGangerPotion,5
clone5.ModActorValue Aggression 40
clone5.ModActorValue Confidence 100
clone5.ModActorValue Energy 100
clone5.ModActorValue Responsibility 0
clone5.AddScriptPackage DoppleGangerFollow
SetIgnoreFriendlyHits Clone5
clone5.EquipItem DoppleGangerPotion
set doonce5 to 1
set Choice to -1
set clone5exists to 1
endif

if (Doonce1 == 1) && (clone1exists == 1)
if Player.IsSneaking == 1
Clone1.SetForceSneak 1
elseif Player.IsSneaking == 0
Clone1.SetForceSneak 0
endif
if (Clone1.GetDisposition player != 100)
Clone1.ModDisposition player 100
endif
endif

if (Doonce2 == 1) && (clone2exists == 1)
if Player.IsSneaking == 1
Clone2.SetForceSneak 1
elseif Player.IsSneaking == 0
Clone2.SetForceSneak 0
endif
if (Clone2.GetDisposition player != 100)
Clone2.ModDisposition player 100
endif
endif

if (Doonce3 == 1) && (clone3exists == 1)
if Player.IsSneaking == 1
Clone3.SetForceSneak 1
elseif Player.IsSneaking == 0
Clone3.SetForceSneak 0
endif
if (Clone3.GetDisposition player != 100)
Clone3.ModDisposition player 100
endif
endif

if (Doonce4 == 1) && (clone4exists == 1)
if Player.IsSneaking == 1
Clone4.SetForceSneak 1
elseif Player.IsSneaking == 0
Clone4.SetForceSneak 0
endif
if (Clone4.GetDisposition player != 100)
Clone4.ModDisposition player 100
endif
endif

if (Doonce5 == 1) && (clone5exists == 1)
if Player.IsSneaking == 1
Clone5.SetForceSneak 1
elseif Player.IsSneaking == 0
Clone5.SetForceSneak 0
endif
if (Clone5.GetDisposition player != 100)
Clone5.ModDisposition player 100
endif
endif

End

Begin ScriptEffectFinish
End


MfG
Calcho
 
Das ist alles sehr schön und übersichtlich gescriptet, aber entscheidend ist der ScriptEffectStart-Block. Wenn ich das richtig verstehe, wird der doch nur durchlaufen, wenn dieses Script an einem dazugehörigen Zauber hängt.

Da würd ich den Fehler vermuten: Gibt es den? Dieses Script allein macht erstmal gar nix, solange dem Player nicht dieser Zauber hinzugefügt wurde. Da muß es also noch eins geben irgendwo.
 
Dieser Effekt-Block greift nur, wenn der Zauber gecastet wird (ob auf Ziel, Berührung oder Selbst dürfte egal sein), aber ich denke, das er das tut.
Ich glaube eher, der Hase liegt wo anders im Pfeffer.
Innerhalb des Scripts kommt der Block "GameMode" vor - allerdings, soweit mir bekannt, laufen bei Scripten, die als MagicEffect deklariert sind nur die Blöcke:
Scripteffectstart
ScriptEffectUpdate
ScripteffectFinish
Probiers also mal so:

scn aaDoppelgaengerScript

ref clone1
ref clone2
ref clone3
ref clone4
ref clone5
short clonehealth1
short clonehealth2
short clonehealth3
short clonehealth4
short clonehealth5
short doonce1
short doonce2
short doonce3
short doonce4
short doonce5
short StartPage
short choice
short clone1exists
short clone2exists
short clone3exists
short clone4exists
short clone5exists

Begin ScriptEffectStart
set StartPage to 1
set doOnce1 to 0
set doOnce2 to 0
set doOnce3 to 0
set doOnce4 to 0
set doOnce5 to 0
End


Begin Scripteffectupdate

if (clone1.GetDead == 1)
clone1.Disable
set clone1exists to 0
endif
if (clone2.GetDead == 1)
clone2.Disable
set clone2exists to 0
endif
if (clone3.GetDead == 1)
clone3.Disable
set clone3exists to 0
endif
if (clone4.GetDead == 1)
clone4.Disable
set clone4exists to 0
endif
if (clone5.GetDead == 1)
clone5.Disable
set clone5exists to 0
endif

if (StartPage == 1)
MessageBox, "Wieviele Doppelgänger wünscht Ihr zu beschwören?","Ein Doppelgänger","Zwei Doppelgänger","Drei Doppelgänger","Vier Doppelgänger","Fünf Doppelgänger"
set StartPage to 2
return
elseif (StartPage == 2)
set choice to GetButtonPressed
if (choice == -1)
return

elseif (choice == 0)
set clonehealth1 to Player.GetBaseActorValue health * 1
set clone1 to player.CreateFullActorCopy
clone1.DuplicateNPCStats player
clone1.SetActorValue health clonehealth1
set StartPage to 0

elseif (choice == 1)
set clonehealth1 to Player.GetBaseActorValue health * 1
set clone1 to player.CreateFullActorCopy
clone1.DuplicateNPCStats player
clone1.SetActorValue health clonehealth1
set clonehealth2 to Player.GetBaseActorValue health * 1
set clone2 to player.CreateFullActorCopy
clone2.DuplicateNPCStats player
clone2.SetActorValue health clonehealth2
set StartPage to 0

elseif (choice == 2)
set clonehealth1 to Player.GetBaseActorValue health * 1
set clone1 to player.CreateFullActorCopy
clone1.DuplicateNPCStats player
clone1.SetActorValue health clonehealth1
set clonehealth2 to Player.GetBaseActorValue health * 1
set clone2 to player.CreateFullActorCopy
clone2.DuplicateNPCStats player
clone2.SetActorValue health clonehealth2
set clonehealth3 to Player.GetBaseActorValue health * 1
set clone3 to player.CreateFullActorCopy
clone3.DuplicateNPCStats player
clone3.SetActorValue health clonehealth3
set StartPage to 0

elseif (choice == 3)
set clonehealth1 to Player.GetBaseActorValue health * 1
set clone1 to player.CreateFullActorCopy
clone1.DuplicateNPCStats player
clone1.SetActorValue health clonehealth1
set clonehealth2 to Player.GetBaseActorValue health * 1
set clone2 to player.CreateFullActorCopy
clone2.DuplicateNPCStats player
clone2.SetActorValue health clonehealth2
set clonehealth3 to Player.GetBaseActorValue health * 1
set clone3 to player.CreateFullActorCopy
clone3.DuplicateNPCStats player
clone3.SetActorValue health clonehealth3
set clonehealth4 to Player.GetBaseActorValue health * 1
set clone4 to player.CreateFullActorCopy
clone4.DuplicateNPCStats player
clone4.SetActorValue health clonehealth4
set StartPage to 0

elseif (choice == 4)
set clonehealth1 to Player.GetBaseActorValue health * 1
set clone1 to player.CreateFullActorCopy
clone1.DuplicateNPCStats player
clone1.SetActorValue health clonehealth1
set clonehealth2 to Player.GetBaseActorValue health * 1
set clone2 to player.CreateFullActorCopy
clone2.DuplicateNPCStats player
clone2.SetActorValue health clonehealth2
set clonehealth3 to Player.GetBaseActorValue health * 1
set clone3 to player.CreateFullActorCopy
clone3.DuplicateNPCStats player
clone3.SetActorValue health clonehealth3
set clonehealth4 to Player.GetBaseActorValue health * 1
set clone4 to player.CreateFullActorCopy
clone4.DuplicateNPCStats player
clone4.SetActorValue health clonehealth4
set clonehealth5 to Player.GetBaseActorValue health * 1
set clone5 to player.CreateFullActorCopy
clone5.DuplicateNPCStats player
clone5.SetActorValue health clonehealth5
set StartPage to 0
endif
endif

if (doonce1 == 0) && (choice == 0)
clone1.SetActorFullName "Kage-Bunshin"
clone1.AddItem DoppleGangerPotion,1
clone1.ModActorValue Aggression 40
clone1.ModActorValue Confidence 100
clone1.ModActorValue Energy 100
clone1.ModActorValue Responsibility 0
clone1.AddScriptPackage DoppleGangerFollow
SetIgnoreFriendlyHits Clone1
clone1.EquipItem DoppleGangerPotion
set doonce1 to 1
set Choice to -1
set clone1exists to 1
endif

if (doonce2 == 0) && (choice == 1)
clone2.SetActorFullName "Kage-Bunshin"
clone2.AddItem DoppleGangerPotion,2
clone2.ModActorValue Aggression 40
clone2.ModActorValue Confidence 100
clone2.ModActorValue Energy 100
clone2.ModActorValue Responsibility 0
clone2.AddScriptPackage DoppleGangerFollow
SetIgnoreFriendlyHits Clone2
clone2.EquipItem DoppleGangerPotion
set doonce2 to 1
set Choice to -1
set clone2exists to 1
endif

if (doonce3 == 0) && (choice == 2)
clone3.SetActorFullName "Kage-Bunshin"
clone3.AddItem DoppleGangerPotion,3
clone3.ModActorValue Aggression 40
clone3.ModActorValue Confidence 100
clone3.ModActorValue Energy 100
clone3.ModActorValue Responsibility 0
clone3.AddScriptPackage DoppleGangerFollow
SetIgnoreFriendlyHits Clone3
clone3.EquipItem DoppleGangerPotion
set doonce3 to 1
set Choice to -1
set clone3exists to 1
endif

if (doonce4 == 0) && (choice == 3)
clone4.SetActorFullName "Kage-Bunshin"
clone4.AddItem DoppleGangerPotion,4
clone4.ModActorValue Aggression 40
clone4.ModActorValue Confidence 100
clone4.ModActorValue Energy 100
clone4.ModActorValue Responsibility 0
clone4.AddScriptPackage DoppleGangerFollow
SetIgnoreFriendlyHits Clone4
clone4.EquipItem DoppleGangerPotion
set doonce4 to 1
set Choice to -1
set clone4exists to 1
endif

if (doonce5 == 0) && (choice == 4)
clone5.SetActorFullName "Kage-Bunshin"
clone5.AddItem DoppleGangerPotion,5
clone5.ModActorValue Aggression 40
clone5.ModActorValue Confidence 100
clone5.ModActorValue Energy 100
clone5.ModActorValue Responsibility 0
clone5.AddScriptPackage DoppleGangerFollow
SetIgnoreFriendlyHits Clone5
clone5.EquipItem DoppleGangerPotion
set doonce5 to 1
set Choice to -1
set clone5exists to 1
endif

if (Doonce1 == 1) && (clone1exists == 1)
if Player.IsSneaking == 1
Clone1.SetForceSneak 1
elseif Player.IsSneaking == 0
Clone1.SetForceSneak 0
endif
if (Clone1.GetDisposition player != 100)
Clone1.ModDisposition player 100
endif
endif

if (Doonce2 == 1) && (clone2exists == 1)
if Player.IsSneaking == 1
Clone2.SetForceSneak 1
elseif Player.IsSneaking == 0
Clone2.SetForceSneak 0
endif
if (Clone2.GetDisposition player != 100)
Clone2.ModDisposition player 100
endif
endif

if (Doonce3 == 1) && (clone3exists == 1)
if Player.IsSneaking == 1
Clone3.SetForceSneak 1
elseif Player.IsSneaking == 0
Clone3.SetForceSneak 0
endif
if (Clone3.GetDisposition player != 100)
Clone3.ModDisposition player 100
endif
endif

if (Doonce4 == 1) && (clone4exists == 1)
if Player.IsSneaking == 1
Clone4.SetForceSneak 1
elseif Player.IsSneaking == 0
Clone4.SetForceSneak 0
endif
if (Clone4.GetDisposition player != 100)
Clone4.ModDisposition player 100
endif
endif

if (Doonce5 == 1) && (clone5exists == 1)
if Player.IsSneaking == 1
Clone5.SetForceSneak 1
elseif Player.IsSneaking == 0
Clone5.SetForceSneak 0
endif
if (Clone5.GetDisposition player != 100)
Clone5.ModDisposition player 100
endif
endif

End

Begin ScriptEffectFinish
End
Hoffe es klappt, hab mich auch erst seit 3 Tagen damit beschäftigt ^^
mfg erc