Reznods Mannequins auch in anderen Rassen

[Dunmer-Karateka]

Also heißt das, dass ich mein eigenheim in der ReznodMannequin.esp speichern muss wenn ich mir wyre Bash nich runnerladen will?

hier mal der Mannequin-Script
für Item

ScriptName ReznodMannequinMarbleFObjectScript

Ref MyContainer
Ref MyMannequin
Short CantPlace
Short ShouldPlace
Short ShouldRemove

Begin OnAdd

set CantPlace to 1

End

Begin OnDrop

set ShouldPlace to 1

End

Begin GameMode

set MyContainer to getContainer
if ( MyContainer != 0 )
set CantPlace to 1
endif

if ( ShouldPlace == 1 )
if ( CantPlace == 0 )
; Huge long block of checks

if ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF001 == 1 )
set MyMannequin to ReznodMannequinMarbleF001.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF002 == 1 )
set MyMannequin to ReznodMannequinMarbleF002.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF003 == 1 )
set MyMannequin to ReznodMannequinMarbleF003.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF004 == 1 )
set MyMannequin to ReznodMannequinMarbleF004.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF005 == 1 )
set MyMannequin to ReznodMannequinMarbleF005.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF006 == 1 )
set MyMannequin to ReznodMannequinMarbleF006.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF007 == 1 )
set MyMannequin to ReznodMannequinMarbleF007.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF008 == 1 )
set MyMannequin to ReznodMannequinMarbleF008.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF009 == 1 )
set MyMannequin to ReznodMannequinMarbleF009.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF010 == 1 )
set MyMannequin to ReznodMannequinMarbleF010.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF011 == 1 )
set MyMannequin to ReznodMannequinMarbleF011.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF012 == 1 )
set MyMannequin to ReznodMannequinMarbleF012.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF013 == 1 )
set MyMannequin to ReznodMannequinMarbleF013.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF014 == 1 )
set MyMannequin to ReznodMannequinMarbleF014.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF015 == 1 )
set MyMannequin to ReznodMannequinMarbleF015.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF016 == 1 )
set MyMannequin to ReznodMannequinMarbleF016.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF017 == 1 )
set MyMannequin to ReznodMannequinMarbleF017.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF018 == 1 )
set MyMannequin to ReznodMannequinMarbleF018.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF019 == 1 )
set MyMannequin to ReznodMannequinMarbleF019.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF020 == 1 )
set MyMannequin to ReznodMannequinMarbleF020.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF021 == 1 )
set MyMannequin to ReznodMannequinMarbleF021.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF022 == 1 )
set MyMannequin to ReznodMannequinMarbleF022.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF023 == 1 )
set MyMannequin to ReznodMannequinMarbleF023.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF024 == 1 )
set MyMannequin to ReznodMannequinMarbleF024.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF025 == 1 )
set MyMannequin to ReznodMannequinMarbleF025.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF026 == 1 )
set MyMannequin to ReznodMannequinMarbleF026.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF027 == 1 )
set MyMannequin to ReznodMannequinMarbleF027.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF028 == 1 )
set MyMannequin to ReznodMannequinMarbleF028.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF029 == 1 )
set MyMannequin to ReznodMannequinMarbleF029.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF030 == 1 )
set MyMannequin to ReznodMannequinMarbleF030.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF031 == 1 )
set MyMannequin to ReznodMannequinMarbleF031.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF032 == 1 )
set MyMannequin to ReznodMannequinMarbleF032.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF033 == 1 )
set MyMannequin to ReznodMannequinMarbleF033.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF034 == 1 )
set MyMannequin to ReznodMannequinMarbleF034.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF035 == 1 )
set MyMannequin to ReznodMannequinMarbleF035.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF036 == 1 )
set MyMannequin to ReznodMannequinMarbleF036.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF037 == 1 )
set MyMannequin to ReznodMannequinMarbleF037.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF038 == 1 )
set MyMannequin to ReznodMannequinMarbleF038.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF039 == 1 )
set MyMannequin to ReznodMannequinMarbleF039.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF040 == 1 )
set MyMannequin to ReznodMannequinMarbleF040.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF041 == 1 )
set MyMannequin to ReznodMannequinMarbleF041.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF042 == 1 )
set MyMannequin to ReznodMannequinMarbleF042.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF043 == 1 )
set MyMannequin to ReznodMannequinMarbleF043.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF044 == 1 )
set MyMannequin to ReznodMannequinMarbleF044.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF045 == 1 )
set MyMannequin to ReznodMannequinMarbleF045.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF046 == 1 )
set MyMannequin to ReznodMannequinMarbleF046.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF047 == 1 )
set MyMannequin to ReznodMannequinMarbleF047.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF048 == 1 )
set MyMannequin to ReznodMannequinMarbleF048.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF049 == 1 )
set MyMannequin to ReznodMannequinMarbleF049.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF050 == 1 )
set MyMannequin to ReznodMannequinMarbleF050.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF051 == 1 )
set MyMannequin to ReznodMannequinMarbleF051.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF052 == 1 )
set MyMannequin to ReznodMannequinMarbleF052.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF053 == 1 )
set MyMannequin to ReznodMannequinMarbleF053.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF054 == 1 )
set MyMannequin to ReznodMannequinMarbleF054.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF055 == 1 )
set MyMannequin to ReznodMannequinMarbleF055.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF056 == 1 )
set MyMannequin to ReznodMannequinMarbleF056.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF057 == 1 )
set MyMannequin to ReznodMannequinMarbleF057.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF058 == 1 )
set MyMannequin to ReznodMannequinMarbleF058.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF059 == 1 )
set MyMannequin to ReznodMannequinMarbleF059.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF060 == 1 )
set MyMannequin to ReznodMannequinMarbleF060.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF061 == 1 )
set MyMannequin to ReznodMannequinMarbleF061.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF062 == 1 )
set MyMannequin to ReznodMannequinMarbleF062.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF063 == 1 )
set MyMannequin to ReznodMannequinMarbleF063.GetSelf
elseif ( GetInCellParam ReznodMannequinHolderCell ReznodMannequinMarbleF064 == 1 )
set MyMannequin to ReznodMannequinMarbleF064.GetSelf
endif

; End of huge long block of checks

if ( MyMannequin == 0 )
Message "Keine Rüstungspuppen mehr verfügbar"
else
MyMannequin.MoveTo Player
Activate Player
set ShouldRemove to 1
endif
endif
endif

if ( ShouldRemove == 1 )
if ( GetContainer != 0 )
RemoveMe
endif
endif

set ShouldPlace to 0
set CantPlace to 0

End

...

für NPC

ScriptName ReznodMannequinMarbleFScript

Ref MySelf
Short MessageStatus
Short MessageAnswer
Short CurrentState
Short MyAlert

Short Edit
Short Pose
Short Sneak
Short Alert
Short UpdatePose
Float Timer
Short DummyCount

Float MyX
Float MyY
Float MyZ
Float MyRot

Begin OnLoad

if ( MyX == 0 )
if ( MyY == 0 )
if ( MyZ == 0 )
if ( MyRot == 0 )
set MyX to Player.GetPos X
set MyY to Player.GetPos Y
set MyZ to Player.GetPos Z
set MyRot to Player.GetAngle Z
set Pose to 0
set Sneak to 0
set Alert to 0
endif
endif
endif
endif

SetForceSneak Sneak

if ( Pose == 0 )
PlayGroup Idle 1
elseif ( Pose == 1 )
PlayGroup BlockIdle 1
elseif ( Pose == 2 )
PlayGroup CastSelf 1 ; left
elseif ( Pose == 3 )
PlayGroup CastSelfAlt 1 ; right
elseif ( Pose == 4 )
PlayGroup CastTarget 1 ; left
elseif ( Pose == 5 )
PlayGroup CastTargetAlt 1 ; right
elseif ( Pose == 6 )
PlayGroup CastTouch 1 ; two handed
elseif ( Pose == 7 )
PlayGroup CastTouchAlt 1 ; right
endif

set Timer to 0

SetGhost 1

End

Begin OnActivate

set MessageStatus to 1
set MyX to GetPos X
set MyY to GetPos Y
set MyZ to GetPos Z
set MyRot to GetAngle Z

End

Begin GameMode

if ( Edit == 0 )
if ( UpdatePose == 1 )
set MySelf to GetSelf
if ( CurrentState == 0 )
set CurrentState to 1
endif
elseif ( UpdatePose == 2 )
set UpdatePose to 0
set ReznodMannequinPoseActiveRef.MyRef to MySelf
ReznodMannequinPoseActiveRef.MoveTo MySelf
MoveTo ReznodMannequinContainerObject
endif
endif

if ( Timer < 0.8 )
set Timer to ( Timer + GetSecondsPassed )
else
SetUnconscious 1
SkipAnim
endif

if ( GetItemCount ReznodMannequinDummyWeapon > 1 )
set DummyCount to ( GetItemCount ReznodMannequinDummyWeapon - 1 )
RemoveItem ReznodMannequinDummyWeapon DummyCount
elseif ( GetItemCount ReznodMannequinDummyWeapon == 0 )
AddItem ReznodMannequinDummyWeapon 1
endif

if ( CurrentState > 0 )
if ( CurrentState == 1 )
RemoveAllItems ReznodMannequinContainerObject
set CurrentState to 2
Return
elseif ( CurrentState == 2 )
SetUnconscious 0
ReznodMannequinContainerObject.RemoveAllItems MySelf
SetAV Luck 0
set CurrentState to 3
Return
elseif ( CurrentState == 3 )
EvaluatePackage ReznodMannequinActorAIWearable
set CurrentState to 4
Return
elseif ( CurrentState == 4 )
SetAV Luck 1
set CurrentState to 5
Return
elseif ( CurrentState == 5 )
EvaluatePackage ReznodMannequinActorAIArmor
SetAlert Alert
set CurrentState to 6
Return
elseif ( CurrentState < 10 )
set CurrentState to ( CurrentState + 1 )
Return
else
SetUnconscious 1
set UpdatePose to 2
set CurrentState to 0
endif
else
SetPos X MyX
SetPos Y MyY
SetPos Z MyZ
SetAngle Z MyRot
endif

if ( MessageStatus == 0 )
Return
elseif ( MessageStatus == 1 )
MessageBox "Was möchtet Ihr tun?" "Beenden" "Ausrüstung ändern" "Puppe nehmen" "Aussehen ändern"
set Edit to 1
set MessageStatus to 2
elseif ( MessageStatus == 2 )
set MessageAnswer to GetButtonPressed
if ( MessageAnswer == -1 )
Return
elseif ( MessageAnswer == 0 )
set Edit to 0
set MessageStatus to 0
Return
elseif ( MessageAnswer == 1 )
RemoveItem ReznodMannequinDummyWeapon 1
RemoveAllItems ReznodMannequinContainerObject
ReznodMannequinContainerObject.Activate Player 1
set UpdatePose to 1
set MessageStatus to 1
Return
elseif ( MessageAnswer == 2 )
RemoveItem ReznodMannequinDummyWeapon 1
RemoveAllItems Player
Player.AddItem ReznodMannequinMarbleFObject 1
set MyX to 0
set MyY to 0
set MyZ to 0
set MyRot to 0
MoveTo ReznodMannequinContainerObject
Return
elseif ( MessageAnswer == 3 )
set MessageStatus to 3
Return
endif
elseif ( MessageStatus == 3 )
if ( Sneak == 1 )
if ( Alert == 1 )
if ( Pose == 1 )
MessageBox "Was wollt Ihr am Aussehen ändern?" "Zurück" "Zu mir drehen" "* Schleichmodus" "* Waffe einstecken" "* Parieren" "Zauber darstellen"
elseif ( Pose == 0 )
MessageBox "Was wollt Ihr am Aussehen ändern?" "Zurück" "Zu mir drehen" "* Schleichmodus" "* Waffe einstecken" "Parieren" "Zauber darstellen"
else
MessageBox "Was wollt Ihr am Aussehen ändern?" "Zurück" "Zu mir drehen" "* Schleichmodus" "* Waffe einstecken" "Parieren" "* Zauber darstellen"
endif
else
if ( Pose == 1 )
MessageBox "Was wollt Ihr am Aussehen ändern?" "Zurück" "Zu mir drehen" "* Schleichmodus" "Waffe ziehen" "* Parieren" "Zauber darstellen"
elseif ( Pose == 0 )
MessageBox "Was wollt Ihr am Aussehen ändern?" "Zurück" "Zu mir drehen" "* Schleichmodus" "Waffe ziehen" "Parieren" "Zauber darstellen"
else
MessageBox "Was wollt Ihr am Aussehen ändern?" "Zurück" "Zu mir drehen" "* Schleichmodus" "Waffe ziehen" "Parieren" "* Zauber darstellen"
endif
endif
else
if ( Alert == 1 )
if ( Pose == 1 )
MessageBox "Was wollt Ihr am Aussehen ändern?" "Zurück" "Zu mir drehen" "Schleichmodus" "* Waffe einstecken" "* Parieren" "Zauber darstellen"
elseif ( Pose == 0 )
MessageBox "Was wollt Ihr am Aussehen ändern?" "Zurück" "Zu mir drehen" "Schleichmodus" "* Waffe einstecken" "Parieren" "Zauber darstellen"
else
MessageBox "Was wollt Ihr am Aussehen ändern?" "Zurück" "Zu mir drehen" "Schleichmodus" "* Waffe einstecken" "Parieren" "* Zauber darstellen"
endif
else
if ( Pose == 1 )
MessageBox "Was wollt Ihr am Aussehen ändern?" "Zurück" "Zu mir drehen" "Schleichmodus" "Waffe ziehen" "* Parieren" "Zauber darstellen"
elseif ( Pose == 0 )
MessageBox "Was wollt Ihr am Aussehen ändern?" "Zurück" "Zu mir drehen" "Schleichmodus" "Waffe ziehen" "Parieren" "Zauber darstellen"
else
MessageBox "Was wollt Ihr am Aussehen ändern?" "Zurück" "Zu mir drehen" "Schleichmodus" "Waffe ziehen" "Parieren" "* Zauber darstellen"
endif
endif
endif
set MessageStatus to 4
elseif ( MessageStatus == 4 )
set MessageAnswer to GetButtonPressed
if ( MessageAnswer == -1 )
Return
elseif ( MessageAnswer == 0 )
set MessageStatus to 1
Return
elseif ( MessageAnswer == 1 )
set MyRot to ( Player.GetAngle Z - 180 )
set UpdatePose to 1
set MessageStatus to 3
Return
elseif ( MessageAnswer == 2 )
if ( Sneak == 0 )
set Sneak to 1
else
set Sneak to 0
endif
set UpdatePose to 1
set MessageStatus to 3
Return
elseif ( MessageAnswer == 3 )
if ( Alert == 0 )
set Alert to 1
else
set Alert to 0
endif
set UpdatePose to 1
set MessageStatus to 3
Return
elseif ( MessageAnswer == 4 )
if ( Pose == 1 )
set Pose to 0
else
set Pose to 1
endif
set UpdatePose to 1
set MessageStatus to 3
Return
elseif ( MessageAnswer == 5 )
set MessageStatus to 5
Return
endif
elseif ( MessageStatus == 5 )
if ( Pose == 2 || Pose == 3 )
MessageBox "Welcher Zauber soll dargestellt werden?" "Zurück" "* Arm nach oben gestreckt" "Auf ein Ziel gerichtet" "Berührung"
elseif ( Pose == 4 || Pose == 5 )
MessageBox "Welcher Zauber soll dargestellt werden?" "Zurück" "Arm nach oben gestreckt" "* Auf ein Ziel gerichtet" "Berührung"
elseif ( Pose == 6 || Pose == 7 )
MessageBox "Welcher Zauber soll dargestellt werden?" "Zurück" "Arm nach oben gestreckt" "Auf ein Ziel gerichtet" "* Berührung"
else
MessageBox "Welcher Zauber soll dargestellt werden?" "Zurück" "Arm nach oben gestreckt" "Auf ein Ziel gerichtet" "Berührung"
endif
set MessageStatus to 6
elseif ( MessageStatus == 6 )
set MessageAnswer to GetButtonPressed
if ( MessageAnswer == -1 )
Return
elseif ( MessageAnswer == 0 )
set MessageStatus to 3
Return
elseif ( MessageAnswer == 1 )
set MessageStatus to 7
Return
elseif ( MessageAnswer == 2 )
set MessageStatus to 9
Return
elseif ( MessageAnswer == 3 )
set MessageStatus to 11
Return
endif
elseif ( MessageStatus == 7 )
if ( Pose == 2 )
MessageBox "Welcher Arm soll nach oben gestreckt werden?" "Zurück" "* Linker Arm" "Rechter Arm"
elseif ( Pose == 3 )
MessageBox "Welcher Arm soll nach oben gestreckt werden?" "Zurück" "Linker Arm" "* Rechter Arm"
else
MessageBox "Welcher Arm soll nach oben gestreckt werden?" "Zurück" "Linker Arm" "Rechter Arm"
endif
set MessageStatus to 8
elseif ( MessageStatus == 8 )
set MessageAnswer to GetButtonPressed
if ( MessageAnswer == -1 )
Return
elseif ( MessageAnswer == 0 )
set MessageStatus to 5
Return
elseif ( MessageAnswer == 1 )
set Pose to 2
set UpdatePose to 1
set MessageStatus to 7
Return
elseif ( MessageAnswer == 2 )
set Pose to 3
set UpdatePose to 1
set MessageStatus to 7
Return
endif
elseif ( MessageStatus == 9 )
if ( Pose == 4 )
MessageBox "Mit welcher Hand soll die Puppe auf ein Ziel zeigen?" "Zurück" "* Linke Hand" "Rechte Hand"
elseif ( Pose == 5 )
MessageBox "Mit welcher Hand soll die Puppe auf ein Ziel zeigen?" "Zurück" "Linke Hand" "* Rechte Hand"
else
MessageBox "Mit welcher Hand soll die Puppe auf ein Ziel zeigen?" "Zurück" "Linke Hand" "Rechte Hand"
endif
set MessageStatus to 10
elseif ( MessageStatus == 10 )
set MessageAnswer to GetButtonPressed
if ( MessageAnswer == -1 )
Return
elseif ( MessageAnswer == 0 )
set MessageStatus to 5
Return
elseif ( MessageAnswer == 1 )
set Pose to 4
set UpdatePose to 1
set MessageStatus to 9
Return
elseif ( MessageAnswer == 2 )
set Pose to 5
set UpdatePose to 1
set MessageStatus to 9
Return
endif
elseif ( MessageStatus == 11 )
if ( Pose == 6 )
MessageBox "Wie soll die Berührung dargestellt werden?" "Zurück" "* Beide Hände" "Rechte Hand"
elseif ( Pose == 7 )
MessageBox "Wie soll die Berührung dargestellt werden?" "Zurück" "Beide Hände" "* Rechte Hand"
else
MessageBox "Wie soll die Berührung dargestellt werden?" "Zurück" "Beide Hände" "Rechte Hand"
endif
set MessageStatus to 12
elseif ( MessageStatus == 12 )
set MessageAnswer to GetButtonPressed
if ( MessageAnswer == -1 )
Return
elseif ( MessageAnswer == 0 )
set MessageStatus to 5
Return
elseif ( MessageAnswer == 1 )
set Pose to 6
set UpdatePose to 1
set MessageStatus to 11
Return
elseif ( MessageAnswer == 2 )
set Pose to 7
set UpdatePose to 1
set MessageStatus to 11
Return
endif
endif

End

...