Mon Aug 21, 2023 8:04 pm
ScriptName MyBook
short Choosing
short Choice
Begin OnActivate
Activate
Set Choosing to 1
End
Begin OnEquip
Set Choosing to 1
End
Begin MenuMode
If ( Choosing == 1 )
MessageBox "Select Specializations", "Combat", "Magic", "Stealth", "Exit"
Set Choosing to 2
Set Choice to -1
ElseIf ( Choosing == 2 )
If ( Choice == -1 )
Set Choice to GetButtonPressed
ElseIf ( Choice == 0 )
Set Choosing to 1
ElseIf ( Choice == 1 )
Set Choosing to 1
ElseIf ( Choice == 2 )
Set Choosing to 1
ElseIf ( Choice == 3 )
Set Choosing to 0
EndIf
EndIf
If ( Choosing == 0 )
return
EndIf
End
Sat Aug 26, 2023 6:51 pm
Sun Aug 27, 2023 10:58 pm
Begin MenuMode
If ( Choosing == 0 )
return
EndIf
If ( Choosing == 1 )
MessageBox "Select Specialization", "Combat", "Exit"
Set Choosing to -1
Set Choice to -1
ElseIf ( Choosing == -1 )
If ( Choice == -1 )
Set Choice to GetButtonPressed
ElseIf ( Choice == 0 )
Set Choosing to 10
ElseIf ( Choice == 1 )
Set Choosing to 0
EndIf
ElseIf ( Choosing == 10 )
MessageBox "Select Skill", "Blade", "Back"
Set Choosing to -10
Set Choice to -1
ElseIf ( Choosing == -10 )
If ( Choice == -1 )
Set Choice to GetButtonPressed
ElseIf ( Choice == 0 )
ModPCSkill Blade 1
Set Choosing to 10
ElseIf ( Choice == 1 )
Set Choosing to 1
EndIf
EndIf
End