MessageBox "Text", "Button"
MessageBox "Text", "Button"
scn AAFriendlyMinotaurActivate
short Choice
begin OnActivate
if GetStage AAHumanMinotaurQuest == 5
endif
MessageBox "Text", "Choice"
set Choice to GetButtonPressed
if ( Choice == 0 )
MessageBox "Text", "Choice"
set Choice to GetButtonPressed
endif
if ( Choice == 0 )
MessageBox "Text", "Choice"
set Choice to GetButtonPressed
endif
if ( Choice == 0 )
MessageBox "Text", "Choice"
set Choice to GetButtonPressed
endif
if ( Choice == 0 )
MessageBox "Text"
endif
end
Wenn man Boxen mit mehreren Antworten macht, bestimmmt.Ist es nicht eigentlich sinnvoll, wenn man für jede neue Messagebox einen neuen Block erstellt?
scn AAFriendlyMinotaurActivate
short Choice
begin OnActivate
if GetStage AAHumanMinotaurQuest == 5
endif
MessageBox "Text", "Choice"
MessageBox "Text", "Choice"
MessageBox "Text", "Choice"
MessageBox "Text", "Choice"
MessageBox "Text"
end
scn AAFriendlyMinotaurActivate
short Choice
begin OnActivate
if GetStage AAHumanMinotaurQuest == 5
endif
MessageBox "Text", "Choice"
set Choice to GetButtonPressed
if ( Choice == 0 )
MessageBox "Text", "Choice"
set Choice to GetButtonPressed
endif
if ( Choice == 0 )
MessageBox "Text", "Choice"
set Choice to GetButtonPressed
endif
if ( Choice == 0 )
MessageBox "Text", "Choice"
set Choice to GetButtonPressed
endif
if ( Choice == 0 )
MessageBox "Text"
endif
end
scn AAFriendlyMinotaurActivate
short Choice
begin OnActivate
if GetStage AAHumanMinotaurQuest == 5
endif
if ( Choice == 0 )
MessageBox "Text", "Choice"
set Choice to 1
elseif ( Choice == 1 )
MessageBox "Text", "Choice"
set Choice to 2
elseif ( Choice == 2 )
MessageBox "Text", "Choice"
set Choice to 3
elseif ( Choice == 3 )
MessageBox "Text", "Choice"
set Choice to 4
elseif ( Choice == 4 )
MessageBox "Text"
endif
end
begin OnActivate
if GetStage AAHumanMinotaurQuest == 5
endif
Scn AAFriendlyMinotaurActivate
short button
begin OnActivate
if GetStage AAHumanMinotaurQuest == 5
activate
MessageBox "Text", "Antwort"
endif
end
begin GameMode
set button to GetButtonPressed
if button == 0
Messagebox "Text", "Antwort"
set button to 1
endif
end
begin GameMode
set button to GetButtonPressed
if button == 1
MessageBox "Text", "Antwort"
set button to 2
endif
end
begin GameMode
set button to GetButtonPressed
if button == 2
MessageBox "Text"
endif
end
Scriptname AAFriendlyMinotaurActivate
short button
begin OnActivate
MessageBox "Text", "Antwort"
endif
end
if GetStage AAHumanMinotaurQuest == 5
activate
begin GameMode
set button to GetButtonPressed
if button == 0
Messagebox "Text", "Antwort"
set button to 1
set button to GetButtonPressed
endif
end
begin GameMode
set button to GetButtonPressed
if button == 1
MessageBox "Text", "Antwort"
set button to 2
set button to GetButtonPressed
endif
end
begin GameMode
set button to GetButtonPressed
if button == 2
MessageBox "Text"
endif
end
Ich versuch es auch mal:[...]Das sollen also alles aufeinander folgende Textfenster mit jeweils nur einer einzigen Antwortmöglichkeit sein, um ein Gespräch zwischen dem Minotauren und dem Spieler zu simulieren. 😉
Das ganze soll eben nur in dieser einen QuestStage möglich sein (die in obiger if-Zeile angegeben ist) und die Queststage wechselt auch nach dem Gespräch (wie das geht weiß ich. Ich habs nur noch nicht im Script drin, da ich erstmal das Gespräch ans Laufen kriegen will).[...]
scn Script
short button
Begin OnActivate
messagebox "Text" "Choice"
End
Begin GameMode
set button to getbuttonpressed
If button == 0
Messagebox "Text" "Choice"
set button to getbuttonpressed
If button == 0
Messagebox "Text" "Choice"
set button to getbuttonpressed
If button == 0
Messagebox "Text" "Choice"
set button to getbuttonpressed
Endif
Endif
Endif
End
begin onActivate
set Choosing to -1
end
begin GameMode
if (Choosing == 0)
return
elseif (Choosing == -1)
messagebox "What would you like to repair?" "Armor" ... "Weapons"
set Choosing to 1
elseif (Choosing == 1)
set Choice to GetButtonPressed
if (Choice == -1)
...
elseif (Choice == 0) ;Armor
set Choosing to -10
...
elseif (Choice == 9) ;Weapons
set Choosing to -11
endif
elseif (Choosing == -10) ;Armor
messagebox "Which armor would you like to repair?" "Helmet" ... "Boots"
set Choosing to 10
elseif (Choosing == 10)
set Choice to GetButtonPressed
if (Choice == -1)
...
elseif (Choice == 0) ;Helmet
set Choosing to 0 ;To exit
...
elseif (Choice == 9) ;Boots
set Choosing to 0 ;To exit
endif
elseif (Choosing == -11) ;Weapon
messagebox "Which weapon would you like to repair?" "Blade" ... "Blunt"
set Choosing to 11
elseif (Choosing == 11)
set Choice to GetButtonPressed
if (Choice == -1)
...
elseif (Choice == 0) ;Blade
set Choosing to 0 ;To exit
...
elseif (Choice == 9) ;Blunt
set Choosing to 0 ;To exit
endif
endif
end
scn Tür
short once
Begin OnActivate
if ( GetActionRef Player == 1 ) && ( once == 0 )
[IddesGegners1].resurrect
[IddesGegners2].resurrect
[IddesGegners3].resurrect
Set once to 1
endif
end