drawscenetext.vb.svn-base

MirUnleashed vb.net Module modMainServer Public WithEvents Socket As New WinsockServer Pub

'### Visual Basic.NET and Direct X9 Legend of MiR Project ###'
'### Mir Unleashed Client Draw Scene Text Module ###'
'### http://www.lomcn.co.uk ###' '### Credits to TrueADM and DeathWish ###'

'Used to draw all text out.
'Be it scene text, Player's names, NPC's names etc.

Imports Microsoft.DirectX
Imports Microsoft.DirectX.Direct3D

Module DrawSceneText

#Region "Login Scene Text Out"
    Public Sub LoginSceneText()

        Dim TempWidth As Short

        If LoginStage = LoginStageType.LOGIN Then
            If Not Window(2).Show = True Then
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Welcome To The Legend of MiR, Please login to your account to continue.", 8, 562, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Welcome To The Legend of MiR, Please login to your account to continue.", 6, 560, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Welcome To The Legend of MiR, Please login to your account to continue.", 7, 561, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Welcome To The Legend of MiR, Please login to your account to continue.", 7, 561, Color.Black)

                TempText.Size6.D3DNormal.DrawText(GameSprite, "Welcome To The Legend of MiR, Please login to your account to continue.", 7, 561, Color.FromArgb(255, 255, 255))

                TempText.Size6.D3DNormal.DrawText(GameSprite, "If you do not have a Game Account you can create one using the 'Create Game Account' System.", 8, 571, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "If you do not have a Game Account you can create one using the 'Create Game Account' System.", 6, 569, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "If you do not have a Game Account you can create one using the 'Create Game Account' System.", 7, 570, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "If you do not have a Game Account you can create one using the 'Create Game Account' System.", 7, 570, Color.Black)

                TempText.Size6.D3DNormal.DrawText(GameSprite, "If you do not have a Game Account you can create one using the 'Create Game Account' System.", 7, 570, Color.FromArgb(255, 255, 255))

                TempText.Size6.D3DNormal.DrawText(GameSprite, "|", 163, 542, Color.FromArgb(255, 255, 255))

                If Connected = True Then
                    TempText.Size6.D3DNormal.DrawText(GameSprite, "Account Name:", 546, 564, Color.Black)
                    TempText.Size6.D3DNormal.DrawText(GameSprite, "Account Name:", 544, 564, Color.Black)
                    TempText.Size6.D3DNormal.DrawText(GameSprite, "Account Name:", 545, 565, Color.Black)
                    TempText.Size6.D3DNormal.DrawText(GameSprite, "Account Name:", 545, 563, Color.Black)
                    TempText.Size6.D3DNormal.DrawText(GameSprite, "Account Name:", 545, 564, Color.FromArgb(255, 255, 255))

                    TempText.Size6.D3DNormal.DrawText(GameSprite, "Account Password:", 546, 582, Color.Black)
                    TempText.Size6.D3DNormal.DrawText(GameSprite, "Account Password:", 544, 582, Color.Black)
                    TempText.Size6.D3DNormal.DrawText(GameSprite, "Account Password:", 545, 583, Color.Black)
                    TempText.Size6.D3DNormal.DrawText(GameSprite, "Account Password:", 545, 581, Color.Black)
                    TempText.Size6.D3DNormal.DrawText(GameSprite, "Account Password:", 545, 582, Color.FromArgb(255, 255, 255))
                End If

                If ConnectionState.Show = True Then
                    TempText.Size6.D3DBold.DrawText(GameSprite, ConnectionState.Text, 8, 584, Color.Black)
                    TempText.Size6.D3DBold.DrawText(GameSprite, ConnectionState.Text, 6, 582, Color.Black)
                    TempText.Size6.D3DBold.DrawText(GameSprite, ConnectionState.Text, 7, 583, Color.Black)
                    TempText.Size6.D3DBold.DrawText(GameSprite, ConnectionState.Text, 7, 583, Color.Black)

                    If ConnectionState.Text = "Connected To Login Server." Or ConnectionState.Text = "Connecting To Login Server." Then
                        TempText.Size6.D3DBold.DrawText(GameSprite, ConnectionState.Text, 7, 583, Color.FromArgb(55, 227, 124))

                    ElseIf ConnectionState.Text = "Unable To Connect, Please try again." Or ConnectionState.Text = "Connection To The Server Has Been Lost." Then
                        TempText.Size6.D3DBold.DrawText(GameSprite, ConnectionState.Text, 7, 583, Color.FromArgb(249, 31, 9))

                    Else
                        TempText.Size6.D3DBold.DrawText(GameSprite, ConnectionState.Text, 7, 583, Color.FromArgb(205, 205, 255))
                    End If

                End If
            End If

        ElseIf LoginStage = LoginStageType.CHAR_SEL Then
            If Window(3).Show = True Then
                TempWidth = FindTextWidth("Character Selection: " & ServerName & " Server", TempText.Size6.SystemNormal) / 2

                TempText.Size6.D3DNormal.DrawText(GameSprite, "Character Selection: " & ServerName & " Server", 400 - TempWidth + 1, 75, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Character Selection: " & ServerName & " Server", 400 - TempWidth - 1, 75, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Character Selection: " & ServerName & " Server", 400 - TempWidth, 75 + 1, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Character Selection: " & ServerName & " Server", 400 - TempWidth, 75 - 1, Color.Black)

                TempText.Size6.D3DNormal.DrawText(GameSprite, "Character Selection: " & ServerName & " Server", 400 - TempWidth, 75, Color.FromArgb(255, 255, 255))

                TempText.Size6.D3DNormal.DrawText(GameSprite, "Welcome to the character selection! Please select the character you wish to play. You can also create or delete other characters here!", 8, 562, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Welcome to the character selection! Please select the character you wish to play. You can also create or delete other characters here!", 6, 560, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Welcome to the character selection! Please select the character you wish to play. You can also create or delete other characters here!", 7, 561, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Welcome to the character selection! Please select the character you wish to play. You can also create or delete other characters here!", 7, 561, Color.Black)

                TempText.Size6.D3DNormal.DrawText(GameSprite, "Welcome to the character selection! Please select the character you wish to play. You can also create or delete other characters here!", 7, 561, Color.FromArgb(255, 255, 255))

                TempText.Size6.D3DNormal.DrawText(GameSprite, "If this is your first time logging in you will need to create you first character using the 'Create New Character' System.", 8, 571, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "If this is your first time logging in you will need to create you first character using the 'Create New Character' System.", 6, 569, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "If this is your first time logging in you will need to create you first character using the 'Create New Character' System.", 7, 570, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "If this is your first time logging in you will need to create you first character using the 'Create New Character' System.", 7, 570, Color.Black)

                TempText.Size6.D3DNormal.DrawText(GameSprite, "If this is your first time logging in you will need to create you first character using the 'Create New Character' System.", 7, 570, Color.FromArgb(255, 255, 255))

                TempWidth = FindTextWidth("Please highlight your character and click to enter the world!", TempText.Size6.SystemNormal) / 2

                TempText.Size6.D3DNormal.DrawText(GameSprite, "Please highlight your character and click to enter the world!", 400 - TempWidth + 1, 390, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Please highlight your character and click to enter the world!", 400 - TempWidth - 1, 390, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Please highlight your character and click to enter the world!", 400 - TempWidth, 390 + 1, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Please highlight your character and click to enter the world!", 400 - TempWidth, 390 - 1, Color.Black)

                TempText.Size6.D3DNormal.DrawText(GameSprite, "Please highlight your character and click to enter the world!", 400 - TempWidth, 390, Color.FromArgb(255, 255, 255))

            ElseIf Window(4).Show = True Then
                Dim SelectedClass As String

                SelectedClass = "None"
                LoadInterfaceTexture(28)

                If SelectedClass = "None" Then
                    GameSprite.Draw(InterfaceTexture(28), Rectangle.Empty, New Microsoft.DirectX.Vector3(0, 0, 0), New Microsoft.DirectX.Vector3(176, 103, 0), Color.FromArgb(255, 255, 255))
                End If

                TempText.Size6.D3DNormal.DrawText(GameSprite, "Character Name:", 416 + 1, 134, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Character Name:", 416 - 1, 134, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Character Name:", 416, 134 + 1, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Character Name:", 416, 134 - 1, Color.Black)

                TempText.Size6.D3DNormal.DrawText(GameSprite, "Character Name:", 416, 134, Color.FromArgb(255, 255, 255))

                TempText.Size6.D3DNormal.DrawText(GameSprite, "Selected Class: " & ClassText, 416 + 1, 329, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Selected Class: " & ClassText, 416 - 1, 329, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Selected Class: " & ClassText, 416, 329 + 1, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Selected Class: " & ClassText, 416, 329 - 1, Color.Black)

                TempText.Size6.D3DNormal.DrawText(GameSprite, "Selected Class: " & ClassText, 416, 329, Color.FromArgb(255, 255, 255))

                TempText.Size6.D3DNormal.DrawText(GameSprite, "Selected Gender: " & GenderText, 416 + 1, 339, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Selected Gender: " & GenderText, 416 - 1, 339, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Selected Gender: " & GenderText, 416, 339 + 1, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Selected Gender: " & GenderText, 416, 339 - 1, Color.Black)

                TempText.Size6.D3DNormal.DrawText(GameSprite, "Selected Gender: " & GenderText, 416, 339, Color.FromArgb(255, 255, 255))

                TempText.Size6.D3DNormal.DrawText(GameSprite, "Welcome to the 'New Hero' System, Please fill in your character's details.", 8, 562, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Welcome to the 'New Hero' System, Please fill in your character's details.", 6, 560, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Welcome to the 'New Hero' System, Please fill in your character's details.", 7, 561, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Welcome to the 'New Hero' System, Please fill in your character's details.", 7, 561, Color.Black)

                TempText.Size6.D3DNormal.DrawText(GameSprite, "Welcome to the 'New Hero' System, Please fill in your character's details.", 7, 561, Color.FromArgb(255, 255, 255))

                TempText.Size6.D3DNormal.DrawText(GameSprite, "Please make sure you check your characters details before you choose to create the character.", 8, 571, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Please make sure you check your characters details before you choose to create the character.", 6, 569, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Please make sure you check your characters details before you choose to create the character.", 7, 570, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Please make sure you check your characters details before you choose to create the character.", 7, 570, Color.Black)

                TempText.Size6.D3DNormal.DrawText(GameSprite, "Please make sure you check your characters details before you choose to create the character.", 7, 570, Color.FromArgb(255, 255, 255))


            End If
        End If

    End Sub
#End Region

#Region "Character Selection Text Out"
    Public Sub DrawCharacterSelectText()

        If LoginStage = LoginStageType.CHAR_SEL And Window(3).Show = True Then

            If Not Character(0).Name = "" Then

                TempText.Size6.D3DNormal.DrawText(GameSprite, "Name: " & Character(0).Name, 180 + 1, 135, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Name: " & Character(0).Name, 180 - 1, 135, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Name: " & Character(0).Name, 180, 135 + 1, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Name: " & Character(0).Name, 180, 135 - 1, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Name: " & Character(0).Name, 180, 135, Color.FromArgb(200, 200, 200))

                TempText.Size6.D3DNormal.DrawText(GameSprite, "Class: " & ConvertClass(Character(0).Job), 180 + 1, 145, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Class: " & ConvertClass(Character(0).Job), 180 - 1, 145, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Class: " & ConvertClass(Character(0).Job), 180, 145 + 1, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Class: " & ConvertClass(Character(0).Job), 180, 145 - 1, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Class: " & ConvertClass(Character(0).Job), 180, 145, Color.FromArgb(200, 200, 200))

                TempText.Size6.D3DNormal.DrawText(GameSprite, "Level: " & Character(0).Level, 180 + 1, 155, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Level: " & Character(0).Level, 180 - 1, 155, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Level: " & Character(0).Level, 180, 155 + 1, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Level: " & Character(0).Level, 180, 155 - 1, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Level: " & Character(0).Level, 180, 155, Color.FromArgb(200, 200, 200))

                TempText.Size6.D3DNormal.DrawText(GameSprite, "Gender: " & ConvertGenderToText(Character(0).Gender), 180 + 1, 165, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Gender: " & ConvertGenderToText(Character(0).Gender), 180 - 1, 165, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Gender: " & ConvertGenderToText(Character(0).Gender), 180, 165 + 1, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Gender: " & ConvertGenderToText(Character(0).Gender), 180, 165 - 1, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, "Gender: " & ConvertGenderToText(Character(0).Gender), 180, 165, Color.FromArgb(200, 200, 200))

            End If

        End If

    End Sub
#End Region

#Region "Notice Screen Text Out"
    Public Sub DrawNoticeScreenText()
        TempText.Size6.D3DBold.DrawText(GameSprite, ServerName & " Server Notice!", 281 + 1, 180, Color.Black)
        TempText.Size6.D3DBold.DrawText(GameSprite, ServerName & " Server Notice!", 281 - 1, 180, Color.Black)
        TempText.Size6.D3DBold.DrawText(GameSprite, ServerName & " Server Notice!", 281, 180 + 1, Color.Black)
        TempText.Size6.D3DBold.DrawText(GameSprite, ServerName & " Server Notice!", 281, 180 - 1, Color.Black)
        TempText.Size6.D3DBold.DrawText(GameSprite, ServerName & " Server Notice!", 281, 180, Color.FromArgb(255, 255, 255))

        TempText.Size6.D3DNormal.DrawText(GameSprite, Notice, 281 + 1, 190, Color.Black)
        TempText.Size6.D3DNormal.DrawText(GameSprite, Notice, 281 - 1, 190, Color.Black)