27 lines
1.1 KiB
VB.net
27 lines
1.1 KiB
VB.net
Namespace ScriptVersion2
|
|
|
|
Partial Class ScriptComparer
|
|
|
|
' --------------------------------------------------------------------------------------------------------------------------
|
|
' Contains the <screen> constructs.
|
|
' --------------------------------------------------------------------------------------------------------------------------
|
|
|
|
Private Shared Function DoScreen(ByVal subClass As String) As Object
|
|
Dim command As String = GetSubClassArgumentPair(subClass).Command
|
|
Dim argument As String = GetSubClassArgumentPair(subClass).Argument
|
|
|
|
Select Case command.ToLower()
|
|
Case "selectedskin"
|
|
Return Screens.MainMenu.NewNewGameScreen.CharacterSelectionScreen.SelectedSkin
|
|
Case "selectedname"
|
|
Return Screens.MainMenu.NewNewGameScreen.CharacterSelectionScreen.SelectedName
|
|
Case "selectedgender"
|
|
Return Screens.MainMenu.NewNewGameScreen.CharacterSelectionScreen.SelectedGender
|
|
End Select
|
|
|
|
Return DefaultNull
|
|
End Function
|
|
|
|
End Class
|
|
|
|
End Namespace |