drawscenetext.vb.svn-base

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

        TempText.Size6.D3DNormal.DrawText(GameSprite, Notice, 281, 190 + 1, Color.Black)
        TempText.Size6.D3DNormal.DrawText(GameSprite, Notice, 281, 190 - 1, Color.Black)
        TempText.Size6.D3DNormal.DrawText(GameSprite, Notice, 281, 190, Color.FromArgb(255, 255, 255))
    End Sub
#End Region

#Region "Account Creation Text"
    Public Sub DrawAccountCreationText()
        Dim TempWidth As Short

        If Window(2).Show = True Then
            TempWidth = FindTextWidth("The Legend of Mir Account Creation!", TempText.Size6.SystemNormal) / 2

            TempText.Size6.D3DBold.DrawText(GameSprite, "The Legend of Mir Account Creation!", 390 - TempWidth + 1, 75, Color.Black)
            TempText.Size6.D3DBold.DrawText(GameSprite, "The Legend of Mir Account Creation!", 390 - TempWidth - 1, 75, Color.Black)
            TempText.Size6.D3DBold.DrawText(GameSprite, "The Legend of Mir Account Creation!", 390 - TempWidth, 75 + 1, Color.Black)
            TempText.Size6.D3DBold.DrawText(GameSprite, "The Legend of Mir Account Creation!", 390 - TempWidth, 75 - 1, Color.Black)

            TempText.Size6.D3DBold.DrawText(GameSprite, "The Legend of Mir Account Creation!", 390 - TempWidth, 75, Color.FromArgb(255, 255, 255))

            TempText.Size6.D3DNormal.DrawText(GameSprite, "Desired Account Name:", 172 + 1, 125, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Desired Account Name:", 172 - 1, 125, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Desired Account Name:", 172, 125 + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Desired Account Name:", 172, 125 - 1, Color.Black)

            TempText.Size6.D3DNormal.DrawText(GameSprite, "Desired Account Name:", 172, 125, Color.FromArgb(255, 255, 255))

            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Six Characters or more.)", 495 + 1, 125, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Six Characters or more.)", 495 - 1, 125, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Six Characters or more.)", 495, 125 + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Six Characters or more.)", 495, 125 - 1, Color.Black)

            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Six Characters or more.)", 495, 125, Color.FromArgb(255, 255, 255))

            TempText.Size6.D3DNormal.DrawText(GameSprite, "Desired Account Password:", 172 + 1, 145, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Desired Account Password:", 172 - 1, 145, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Desired Account Password:", 172, 145 + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Desired Account Password:", 172, 145 - 1, Color.Black)

            TempText.Size6.D3DNormal.DrawText(GameSprite, "Desired Account Password:", 172, 145, Color.FromArgb(255, 255, 255))

            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Six Characters or more.)", 495 + 1, 145, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Six Characters or more.)", 495 - 1, 145, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Six Characters or more.)", 495, 145 + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Six Characters or more.)", 495, 145 - 1, Color.Black)

            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Six Characters or more.)", 495, 145, Color.FromArgb(255, 255, 255))

            TempText.Size6.D3DNormal.DrawText(GameSprite, "Confirm Desired Account Password:", 172 + 1, 165, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Confirm Desired Account Password:", 172 - 1, 165, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Confirm Desired Account Password:", 172, 165 + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Confirm Desired Account Password:", 172, 165 - 1, Color.Black)

            TempText.Size6.D3DNormal.DrawText(GameSprite, "Confirm Desired Account Password:", 172, 165, Color.FromArgb(255, 255, 255))

            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Six Characters or more.)", 495 + 1, 165, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Six Characters or more.)", 495 - 1, 165, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Six Characters or more.)", 495, 165 + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Six Characters or more.)", 495, 165 - 1, Color.Black)

            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Six Characters or more.)", 495, 165, Color.FromArgb(255, 255, 255))

            TempText.Size6.D3DNormal.DrawText(GameSprite, "Date of Birth:", 172 + 1, 185, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Date of Birth:", 172 - 1, 185, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Date of Birth:", 172, 185 + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Date of Birth:", 172, 185 - 1, Color.Black)

            TempText.Size6.D3DNormal.DrawText(GameSprite, "Date of Birth:", 172, 185, Color.FromArgb(255, 255, 255))

            TempText.Size6.D3DNormal.DrawText(GameSprite, "(E.G. 14-10-1990.)", 495 + 1, 185, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(E.G. 14-10-1990.)", 495 - 1, 185, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(E.G. 14-10-1990.)", 495, 185 + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(E.G. 14-10-1990.)", 495, 185 - 1, Color.Black)

            TempText.Size6.D3DNormal.DrawText(GameSprite, "(E.G. 14-10-1990.)", 495, 185, Color.FromArgb(255, 255, 255))

            TempText.Size6.D3DNormal.DrawText(GameSprite, "Secret Question:", 172 + 1, 205, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Secret Question:", 172 - 1, 205, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Secret Question:", 172, 205 + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Secret Question:", 172, 205 - 1, Color.Black)

            TempText.Size6.D3DNormal.DrawText(GameSprite, "Secret Question:", 172, 205, Color.FromArgb(255, 255, 255))

            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Used to retrieve details.)", 495 + 1, 205, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Used to retrieve details.)", 495 - 1, 205, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Used to retrieve details.)", 495, 205 + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Used to retrieve details.)", 495, 205 - 1, Color.Black)

            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Used to retrieve details.)", 495, 205, Color.FromArgb(255, 255, 255))

            TempText.Size6.D3DNormal.DrawText(GameSprite, "Secret Answer:", 172 + 1, 225, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Secret Answer:", 172 - 1, 225, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Secret Answer:", 172, 225 + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Secret Answer:", 172, 225 - 1, Color.Black)

            TempText.Size6.D3DNormal.DrawText(GameSprite, "Secret Answer:", 172, 225, Color.FromArgb(255, 255, 255))

            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Used to retrieve details.)", 495 + 1, 225, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Used to retrieve details.)", 495 - 1, 225, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Used to retrieve details.)", 495, 225 + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Used to retrieve details.)", 495, 225 - 1, Color.Black)

            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Used to retrieve details.)", 495, 225, Color.FromArgb(255, 255, 255))

            TempText.Size6.D3DNormal.DrawText(GameSprite, "Secret Number:", 172 + 1, 245, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Secret Number:", 172 - 1, 245, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Secret Number:", 172, 245 + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Secret Number:", 172, 245 - 1, Color.Black)

            TempText.Size6.D3DNormal.DrawText(GameSprite, "Secret Number:", 172, 245, Color.FromArgb(255, 255, 255))

            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Eight Digits or more.)", 495 + 1, 245, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Eight Digits or more.)", 495 - 1, 245, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Eight Digits or more.)", 495, 245 + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Eight Digits or more.)", 495, 245 - 1, Color.Black)

            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Eight Digits or more.)", 495, 245, Color.FromArgb(255, 255, 255))

            TempText.Size6.D3DNormal.DrawText(GameSprite, "E-Mail Address:", 172 + 1, 265, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "E-Mail Address:", 172 - 1, 265, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "E-Mail Address:", 172, 265 + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "E-Mail Address:", 172, 265 - 1, Color.Black)

            TempText.Size6.D3DNormal.DrawText(GameSprite, "E-Mail Address:", 172, 265, Color.FromArgb(255, 255, 255))

            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Please use valid address.)", 495 + 1, 265, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Please use valid address.)", 495 - 1, 265, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Please use valid address.)", 495, 265 + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Please use valid address.)", 495, 265 - 1, Color.Black)

            TempText.Size6.D3DNormal.DrawText(GameSprite, "(Please use valid address.)", 495, 265, Color.FromArgb(255, 255, 255))

            TempText.Size6.D3DNormal.DrawText(GameSprite, "Once your account has been created you can use it to log into the World of MiR", 172 + 1, 306, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Once your account has been created you can use it to log into the World of MiR", 172 - 1, 306, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Once your account has been created you can use it to log into the World of MiR", 172, 306 + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Once your account has been created you can use it to log into the World of MiR", 172, 306 - 1, Color.Black)

            TempText.Size6.D3DNormal.DrawText(GameSprite, "Once your account has been created you can use it to log into the World of MiR", 172, 306, Color.FromArgb(255, 255, 255))

            TempText.Size6.D3DNormal.DrawText(GameSprite, "or our account management pages. For support visit http://www.levelme.net/forum.", 172 + 1, 316, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "or our account management pages. For support visit http://www.levelme.net/forum.", 172 - 1, 316, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "or our account management pages. For support visit http://www.levelme.net/forum.", 172, 316 + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "or our account management pages. For support visit http://www.levelme.net/forum.", 172, 316 - 1, Color.Black)

            TempText.Size6.D3DNormal.DrawText(GameSprite, "or our account management pages. For support visit http://www.levelme.net/forum.", 172, 316, Color.FromArgb(255, 255, 255))

            TempText.Size6.D3DNormal.DrawText(GameSprite, "Please provide correct details when registering a new account.", 7 + 1, 561, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Please provide correct details when registering a new account.", 7 - 1, 561, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Please provide correct details when registering a new account.", 7, 561 + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Please provide correct details when registering a new account.", 7, 561 - 1, Color.Black)

            TempText.Size6.D3DNormal.DrawText(GameSprite, "Please provide correct details when registering a new account.", 7, 561, Color.FromArgb(255, 255, 255))

            TempText.Size6.D3DNormal.DrawText(GameSprite, "Your 'Secret number' must be at least eight characters long!", 7 + 1, 570, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Your 'Secret number' must be at least eight characters long!", 7 - 1, 570, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Your 'Secret number' must be at least eight characters long!", 7, 570 + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Your 'Secret number' must be at least eight characters long!", 7, 570 - 1, Color.Black)

            TempText.Size6.D3DNormal.DrawText(GameSprite, "Your 'Secret number' must be at least eight characters long!", 7, 570, Color.FromArgb(255, 255, 255))

            TempText.Size6.D3DNormal.DrawText(GameSprite, "Your 'Password' must  be at least six characters long!", 7 + 1, 580, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Your 'Password' must  be at least six characters long!", 7 - 1, 580, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Your 'Password' must  be at least six characters long!", 7, 580 + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, "Your 'Password' must  be at least six characters long!", 7, 580 - 1, Color.Black)

            TempText.Size6.D3DNormal.DrawText(GameSprite, "Your 'Password' must  be at least six characters long!", 7, 580, Color.FromArgb(255, 255, 255))

        End If

    End Sub
#End Region

#Region "Draw Message Box Text"
    Public Sub DrawMessageBoxText()

        If Window(1).Show = True Then
            If Not MessageBoxTitle = "" Then
                TempText.Size6.D3DBold.DrawText(GameSprite, MessageBoxTitle, Window(1).X + 25 + 1, Window(1).Y + 20, Color.Black)
                TempText.Size6.D3DBold.DrawText(GameSprite, MessageBoxTitle, Window(1).X + 25 - 1, Window(1).Y + 20, Color.Black)
                TempText.Size6.D3DBold.DrawText(GameSprite, MessageBoxTitle, Window(1).X + 25, Window(1).Y + 20 + 1, Color.Black)
                TempText.Size6.D3DBold.DrawText(GameSprite, MessageBoxTitle, Window(1).X + 25, Window(1).Y + 20 - 1, Color.Black)

                TempText.Size6.D3DBold.DrawText(GameSprite, MessageBoxTitle, Window(1).X + 25, Window(1).Y + 20, Color.FromArgb(255, 255, 255))

                TempText.Size6.D3DNormal.DrawText(GameSprite, MessageBoxText, Window(1).X + 25 + 1, Window(1).Y + 40, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, MessageBoxText, Window(1).X + 25 - 1, Window(1).Y + 40, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, MessageBoxText, Window(1).X + 25, Window(1).Y + 40 + 1, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, MessageBoxText, Window(1).X + 25, Window(1).Y + 40 - 1, Color.Black)

                TempText.Size6.D3DNormal.DrawText(GameSprite, MessageBoxText, Window(1).X + 25, Window(1).Y + 40, Color.FromArgb(255, 255, 255))
            Else
                TempText.Size6.D3DNormal.DrawText(GameSprite, MessageBoxText, Window(1).X + 25 + 1, Window(1).Y + 20, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, MessageBoxText, Window(1).X + 25 - 1, Window(1).Y + 20, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, MessageBoxText, Window(1).X + 25, Window(1).Y + 20 + 1, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, MessageBoxText, Window(1).X + 25, Window(1).Y + 20 - 1, Color.Black)

                TempText.Size6.D3DNormal.DrawText(GameSprite, MessageBoxText, Window(1).X + 25, Window(1).Y + 20, Color.FromArgb(255, 255, 255))
            End If
        End If

    End Sub
#End Region