Add Selected Player Skin Name & Gender constructs

P3D/Content/Data/Scripts/newgame/intro.dat

@@ -130,6 +130,7 @@
 @screen.skinselection()
 
 @player.wearskin(<screen.selectedskin>)
+@player.setgender(<screen.selectedgender>)
 @npc.wearskin(1,<screen.selectedskin>)
 
 :while:<camera.z><11.5
@@ -140,7 +141,7 @@
 :endwhile
 
 @text.show(Now, what did you say~your name was?)
-@screen.input(<screen.selectedskin>,name,<screen.selectedskin>,14)
+@screen.input(<screen.selectedname>,name,<screen.selectedname>,14)
 @player.setname(<system.lastinput>)
 
 @text.show(Alright, nice to meet you,~<player.name>!)

P3D/Screens/MainMenu/NewNewGameScreen.vb

@@ -253,6 +253,8 @@
             Private _fadeIn As Single = 0F
 
             Private Shared _selectedSkin As String = ""
+            Private Shared _selectedName As String = ""
+            Private Shared _selectedGender As String = ""
 
             Public Shared Property SelectedSkin() As String
                 Get
@@ -262,6 +264,22 @@
                     _selectedSkin = value
                 End Set
             End Property
+            Public Shared Property SelectedName() As String
+                Get
+                    Return _selectedName
+                End Get
+                Set(value As String)
+                    _selectedName = value
+                End Set
+            End Property
+            Public Shared Property SelectedGender() As String
+                Get
+                    Return _selectedGender
+                End Get
+                Set(value As String)
+                    _selectedGender = value
+                End Set
+            End Property
 
             Public Sub New(ByVal currentScreen As Screen)
                 Identification = Identifications.CharacterSelectionScreen
@@ -314,7 +332,10 @@
 
                     If Controls.Accept(False, True, True) Then
                         SoundManager.PlaySound("select")
-                        _selectedSkin = _skins(_index)
+                        SelectedSkin = _skins(_index)
+                        SelectedName = _names(_index)
+                        SelectedGender = _genders(_index)
+
                         SetScreen(PreScreen)
                     End If
                     If Controls.Accept(True, False, False) Then
@@ -322,7 +343,9 @@
                             If New Rectangle(CInt(windowSize.Width / 2 - 128 + i * 280 - _index * 280 + _offset), CInt(windowSize.Height / 2 - 128), 256, 256).Contains(MouseHandler.MousePosition) Then
                                 If i = _index Then
                                     SoundManager.PlaySound("select")
-                                    _selectedSkin = _skins(_index)
+                                    SelectedSkin = _skins(_index)
+                                    SelectedName = _names(_index)
+                                    SelectedGender = _genders(_index)
                                     SetScreen(PreScreen)
                                 Else
                                     _offset += (i - _index) * 280

P3D/World/ActionScript/V2/ScriptConstructs/DoScreen.vb

@@ -13,6 +13,10 @@
             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

P3D/World/ActionScript/V2/ScriptLibrary.vb

@@ -352,6 +352,11 @@ Namespace ScriptVersion2
             r(New ScriptCommand("screen", "secretbase", "Opens the Secret Base screen."))
             r(New ScriptCommand("screen", "skinselection", "Opens the Player Skin selection screen."))
             r(New ScriptCommand("screen", "voltorbflip", "Opens the Voltorb Flip minigame screen."))
+            ' Constructs:
+            r(New ScriptCommand("screen", "selectedskin", "str", "Returns the texture name of the skin selected by using @Screen.SkinSelection", ",", True))
+            r(New ScriptCommand("screen", "selectedname", "str", "Returns the default name assigned to the skin selected by using @Screen.SkinSelection", ",", True))
+            r(New ScriptCommand("screen", "selectedname", "str", "Returns the default gender assigned to the skin selected by using @Screen.SkinSelection", ",", True))
+
         End Sub
 
         Private Shared Sub DoScript()