Difference between revisions of "MessageBox Tutorial"
Jump to navigation
Jump to search
no edit summary
imported>Haama |
imported>Haama |
||
|
Short Choosing
Short Choice
;Centralized Menu Exiting variable
Short Reset
;GameMode and MenuMode variables
Short GMRun
Short ExitButton
;Ensuring Your Menu Is Read variables
Float MessageTimer
Short MessageButton
Begin onActivate
Set Choosing to -1
Endif
Set Reset to 1
If (MenuMode == 0)
Set GMRun to 1
Endif
If (GetInSameCell player == 0) ;always keep it near the player
MoveTo player
Begin GameMode
If (Choosing == 0)
Set GMRun to 0
If (GetInSameCell YourXMarker == 0)
MoveTo YourXMarker
Endif
Return
Elseif GMRun
Set GMRun to 0
Set ExitButton to 0
Messagebox "Exiting options..."
Elseif (Choice == -1)
If (MessageTimer > 0) || (MessageCounter > 0)
Set Choice to GetButtonPressed
If (Choice > -1)
Return
Endif
If (MenuMode 1001 == 0)
If (MenuMode 1004) || (MenuMode 1005) || (MenuMode 1006) ||
(MenuMode 1010) || (MenuMode 1011) || (MenuMode 1013) ||
(MenuMode 1015) || (MenuMode 1016) || (MenuMode 1017) ||
(MenuMode 1018) || (MenuMode 1019) || (MenuMode 1020) ||
(MenuMode 1021) || (MenuMode 1024) || (MenuMode 1038) ||
(MenuMode 1039) || (MenuMode 1044) || (MenuMode 1045) ||
(MenuMode 1046) || (MenuMode 1047) || (MenuMode 1057)
Return
Else
Set MessageTimer to (MessageTimer - GetSecondsPassed)
Set MessageCounter to (MessageCounter - 1)
Endif
Else ;MenuMode 1001
Set MessageTimer to 1
Set MessageCounter to 45
Return
Endif
Else ;Display menu again
Message "Trying menu again..."
Set Choosing to -(Choosing)
Messagebox "Exiting options..."
Endif
Elseif (Choice != ExitButton)
Set ExitButton to 0
Messagebox "Exiting options..."
Endif
End
Begin MenuMode
If (Choosing == 0)
If Reset
;reset whatever you need to
Set Reset to 0
Endif
If (GetInSameCell YourXMarker == 0)
MoveTo YourXMarker
Endif
Elseif (Choosing > 0) && (Choice == -1) ;No choice yet
If (MessageTimer > 0) || (MessageCounter > 0)
Set Choice to GetButtonPressed
If (Choice > -1)
Return
Endif
If (MenuMode 1001 == 0)
If (MenuMode 1004) || (MenuMode 1005) || (MenuMode 1006) ||
(MenuMode 1010) || (MenuMode 1011) || (MenuMode 1013) ||
(MenuMode 1015) || (MenuMode 1016) || (MenuMode 1017) ||
(MenuMode 1018) || (MenuMode 1019) || (MenuMode 1020) ||
(MenuMode 1021) || (MenuMode 1024) || (MenuMode 1038) ||
(MenuMode 1039) || (MenuMode 1044) || (MenuMode 1045) ||
(MenuMode 1046) || (MenuMode 1047) || (MenuMode 1057)
Return
Else
Set MessageTimer to (MessageTimer - GetSecondsPassed)
Set MessageCounter to (MessageCounter - 1)
Return
Endif
Else ;MenuMode 1001
Set MessageTimer to 1
Set MessageCounter to 45
Return
Endif
Else ;Display menu again
Message "Trying menu again..."
Set Choosing to -(Choosing)
Return
Endif
Elseif (Choosing == -1) ;Display your menu
Set ExitButton to # ;1 in this example
Messagebox "What would you like to do?" "First Option" ... "Exit Menu"
Set Choosing to 1
Set Choice to GetButtonPressed
Elseif (Choosing == 1) ;Catch the player's decision
Elseif (Choice == 0) ;First Option
;run your code for the first decision
Set Choosing to 0 ;to finish up
Endif
Elseif (Choosing == -2)
...
Endif
End</pre>
| |||