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