scn xxFollowScript
short run
short sneak
short blade
short bow
short magic
short near
short middle
short wide
short message
short button
short button1
short button2
short button3
short button4
begin GameMode
if run == 5
[Begleiter läuft]
set run to 0
elseif run == 2
[Begleiter geht]
set run to 0
endif
if sneak == 5
[Begleiter schleicht]
set sneak to 0
elseif sneak == 2
[Begleiter schleicht nicht]
set sneak to 0
endif
if blade == 5
[Begleiter Schwert]
set blade to 0
endif
if bow == 5
[Begleiter Bogen]
set bow to 0
endif
if magic == 5
[Begleiter Magie]
set magic to 0
endif
if near == 5
[Begleiter Distanz Nah]
set near to 0
endif
if middle == 5
[Begleiter Distanz Mittel]
set middle to 0
endif
if wide == 5
[Begleiter Distanz Weit]
set wide to 0
endif
end
begin GameMode
if message == 1
set message to 0
MessageBox "Befehle", "Rennen", "Schleichen", "Kampfmodus", "Distanz", "Ende"
set button to GetButtonPressed
if button == 0
MessageBox "Rennen", "Ja", "Nein"
set button1 to GetButtonPressed
if button1 == 0
set run to 5
set button1 to 100
elseif button1 == 1
set run to 2
set button1 to 100
endif
set button to 100
endif
if button == 1
MessageBox "Schleichen", "Ja", "Nein"
set button2 to GetButtonPressed
if button2 == 0
set sneak to 5
set button2 to 100
elseif button2 == 1
set sneak to 2
set button2 to 100
endif
set button to 100
endif
if button == 2
MessageBox " ", "Schwert", "Bogen", "Magie"
set button3 to GetButtonPressed
if button3 == 0
set blade to 5
set button3 to 100
elseif button3 == 1
set bow to 5
set button3 to 100
elseif button3 == 2
set magic to 5
set button3 to 100
endif
set button to 100
endif
if button == 3
MessageBox " ", "Nah", "Mittel", "Weit"
set button4 to GetButtonPressed
if button4 == 0
set near to 5
set button4 to 100
elseif button4 == 1
set middle to 5
set button4 to 100
elseif button4 == 2
set wide to 5
set button4 to 100
endif
set button to 100
endif
endif
end