drawscenetext.vb.svn-base

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

    Public Sub DrawGameMessageBoxText()

        If Window(8).Show = True Then
            If Not MessageBoxTitle = "" Then

                TempText.Size6.D3DBold.DrawText(GameSprite, MessageBoxTitle, Window(8).X + 35 + 1, Window(8).Y + 30, Color.Black)
                TempText.Size6.D3DBold.DrawText(GameSprite, MessageBoxTitle, Window(8).X + 35 - 1, Window(8).Y + 30, Color.Black)
                TempText.Size6.D3DBold.DrawText(GameSprite, MessageBoxTitle, Window(8).X + 35, Window(8).Y + 30 + 1, Color.Black)
                TempText.Size6.D3DBold.DrawText(GameSprite, MessageBoxTitle, Window(8).X + 35, Window(8).Y + 30 - 1, Color.Black)

                TempText.Size6.D3DBold.DrawText(GameSprite, MessageBoxTitle, Window(8).X + 35, Window(8).Y + 30, Color.FromArgb(255, 255, 255))

                TempText.Size6.D3DNormal.DrawText(GameSprite, MessageBoxText, Window(8).X + 35 + 1, Window(8).Y + 50, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, MessageBoxText, Window(8).X + 35 - 1, Window(8).Y + 50, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, MessageBoxText, Window(8).X + 35, Window(8).Y + 50 + 1, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, MessageBoxText, Window(8).X + 35, Window(8).Y + 50 - 1, Color.Black)

                TempText.Size6.D3DNormal.DrawText(GameSprite, MessageBoxText, Window(8).X + 35, Window(8).Y + 50, Color.FromArgb(255, 255, 255))
            Else
                TempText.Size6.D3DNormal.DrawText(GameSprite, MessageBoxText, Window(8).X + 35 + 1, Window(8).Y + 50, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, MessageBoxText, Window(8).X + 35 - 1, Window(8).Y + 50, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, MessageBoxText, Window(8).X + 35, Window(8).Y + 50 + 1, Color.Black)
                TempText.Size6.D3DNormal.DrawText(GameSprite, MessageBoxText, Window(8).X + 35, Window(8).Y + 50 - 1, Color.Black)

                TempText.Size6.D3DNormal.DrawText(GameSprite, MessageBoxText, Window(8).X + 35, Window(8).Y + 50, Color.FromArgb(255, 255, 255))

            End If
        End If

    End Sub

    Public Sub DrawTitle()

        GameSprite.Begin(SpriteFlags.DoNotSaveState)

        If Map.MiniMapOption = 0 Then
            TempText.Size10.D3DBold.DrawText(GameSprite, "[Control Key]", 700 + 1, 5, Color.Black)
            TempText.Size10.D3DBold.DrawText(GameSprite, "[Control Key]", 700 - 1, 5, Color.Black)
            TempText.Size10.D3DBold.DrawText(GameSprite, "[Control Key]", 700, 5 + 1, Color.Black)
            TempText.Size10.D3DBold.DrawText(GameSprite, "[Control Key]", 700, 5 - 1, Color.Black)
            TempText.Size10.D3DBold.DrawText(GameSprite, "[Control Key]", 700, 5, Color.FromArgb(255, 255, 255))

            If TabDown = True Then
                TempText.Size10.D3DBold.DrawText(GameSprite, "[Tab Key Down]", 693 + 1, 20, Color.Black)
                TempText.Size10.D3DBold.DrawText(GameSprite, "[Tab Key Down]", 693 - 1, 20, Color.Black)
                TempText.Size10.D3DBold.DrawText(GameSprite, "[Tab Key Down]", 693, 20 + 1, Color.Black)
                TempText.Size10.D3DBold.DrawText(GameSprite, "[Tab Key Down]", 693, 20 - 1, Color.Black)
                TempText.Size10.D3DBold.DrawText(GameSprite, "[Tab Key Down]", 693, 20, Color.FromArgb(255, 255, 255))
            End If

        Else
            TempText.Size10.D3DBold.DrawText(GameSprite, "[Control Key]", 700 + 1, 150, Color.Black)
            TempText.Size10.D3DBold.DrawText(GameSprite, "[Control Key]", 700 - 1, 150, Color.Black)
            TempText.Size10.D3DBold.DrawText(GameSprite, "[Control Key]", 700, 150 + 1, Color.Black)
            TempText.Size10.D3DBold.DrawText(GameSprite, "[Control Key]", 700, 150 - 1, Color.Black)
            TempText.Size10.D3DBold.DrawText(GameSprite, "[Control Key]", 700, 150, Color.FromArgb(255, 255, 255))

            If TabDown = True Then
                TempText.Size10.D3DBold.DrawText(GameSprite, "[Tab Key Down]", 693 + 1, 165, Color.Black)
                TempText.Size10.D3DBold.DrawText(GameSprite, "[Tab Key Down]", 693 - 1, 165, Color.Black)
                TempText.Size10.D3DBold.DrawText(GameSprite, "[Tab Key Down]", 693, 165 + 1, Color.Black)
                TempText.Size10.D3DBold.DrawText(GameSprite, "[Tab Key Down]", 693, 165 - 1, Color.Black)
                TempText.Size10.D3DBold.DrawText(GameSprite, "[Tab Key Down]", 693, 165, Color.FromArgb(255, 255, 255))
            End If

        End If

        GameSprite.End()

    End Sub

    Public Sub DrawMainInterfaceText()
        Dim TempWidthHP, TempWidthMP As Short
        Dim TempX, TempY As Short

        TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.Level, 691 + 1, 510, Color.Black)
        TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.Level, 691 - 1, 510, Color.Black)
        TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.Level, 691, 510 + 1, Color.Black)
        TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.Level, 691, 510 - 1, Color.Black)
        TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.Level, 691, 510, Color.FromArgb(255, 255, 255))

        If ConvertClass(Actor.GameClass) = "Warrior" And Actor.Level <= 25 Then

            TempWidthHP = (FindTextWidth(Actor.HP & "/" & Actor.MaxHP, TempText.Size10.SystemBold))

            TempY = 500
            TempX = 105 - (TempWidthHP / 2)

            TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.HP & "/" & Actor.MaxHP, TempX + 1, TempY, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.HP & "/" & Actor.MaxHP, TempX - 1, TempY, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.HP & "/" & Actor.MaxHP, TempX, TempY + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.HP & "/" & Actor.MaxHP, TempX, TempY - 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.HP & "/" & Actor.MaxHP, TempX, TempY, Color.FromArgb(255, 255, 255))

        ElseIf ConvertClass(Actor.GameClass) = "Wizard" Or ConvertClass(Actor.GameClass) = "Taoist" Then

            TempWidthHP = (FindTextWidth(Actor.HP & "/" & Actor.MaxHP, TempText.Size10.SystemBold))

            TempY = 500
            TempX = 105 - (TempWidthHP / 2)

            TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.HP & "/" & Actor.MaxHP, TempX + 1, TempY, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.HP & "/" & Actor.MaxHP, TempX - 1, TempY, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.HP & "/" & Actor.MaxHP, TempX, TempY + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.HP & "/" & Actor.MaxHP, TempX, TempY - 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.HP & "/" & Actor.MaxHP, TempX, TempY, Color.FromArgb(255, 255, 255))

        ElseIf ConvertClass(Actor.GameClass) = "Warrior" And Actor.Level >= 26 Then

            TempWidthHP = (FindTextWidth(Actor.HP & "/" & Actor.MaxHP, TempText.Size10.SystemBold))
            TempWidthMP = (FindTextWidth(Actor.MP & "/" & Actor.MaxMP, TempText.Size10.SystemBold))

            TempY = 500
            TempX = 105 - (TempWidthHP / 2)

            TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.HP & "/" & Actor.MaxHP, TempX + 1, TempY, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.HP & "/" & Actor.MaxHP, TempX - 1, TempY, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.HP & "/" & Actor.MaxHP, TempX, TempY + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.HP & "/" & Actor.MaxHP, TempX, TempY - 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.HP & "/" & Actor.MaxHP, TempX, TempY, Color.FromArgb(255, 255, 255))

            TempY = 510
            TempX = 105 - (TempWidthMP / 2)

            TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.MP & "/" & Actor.MaxMP, TempX + 1, TempY, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.MP & "/" & Actor.MaxMP, TempX - 1, TempY, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.MP & "/" & Actor.MaxMP, TempX, TempY + 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.MP & "/" & Actor.MaxMP, TempX, TempY - 1, Color.Black)
            TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.MP & "/" & Actor.MaxMP, TempX, TempY, Color.FromArgb(255, 255, 255))

        End If

        TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.MapName & "  " & Actor.X & ":" & Actor.Y, 14 + 1, 583, Color.Black)
        TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.MapName & "  " & Actor.X & ":" & Actor.Y, 14 - 1, 583, Color.Black)
        TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.MapName & "  " & Actor.X & ":" & Actor.Y, 14, 583 + 1, Color.Black)
        TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.MapName & "  " & Actor.X & ":" & Actor.Y, 14, 583 - 1, Color.Black)
        TempText.Size6.D3DNormal.DrawText(GameSprite, Actor.MapName & "  " & Actor.X & ":" & Actor.Y, 14, 583, Color.FromArgb(255, 255, 255))
    End Sub

    Public Sub AddChat(ByVal Text As String, ByVal Colour As ChatColours, Optional ByVal ChatterId As Integer = -1) ', ByVal From As String)
        Dim I As Integer
        Dim S As Integer

        If Text = "" Or LastMsgString = Text And LastMsgTick + 500 > DateTime.Now.Ticks Then Exit Sub

        StayLight = DateTime.Now.Ticks
        LastMsgString = Text
        LastMsgTick = DateTime.Now.Ticks

        If ChatExist(699) = False Then
            For I = 0 To 699
                If ChatExist(I) = False Then

                    ChatExist(I) = True
                    ChatText(I) = Text
                    ChatColour(I) = Colour
                    ChatPlayerID(I) = ChatterId
                    ChatPointer = ChatPointer + 1

                    ChatLines = ChatLines + 1

                    Exit For
                End If
            Next I

        ElseIf ChatExist(699) = True Then

            For S = 0 To 699

                'ChatExist(S) = ChatExist(S + 1)
                ChatText(S) = ChatText(S + 1)
                ChatColour(S) = ChatColour(S + 1)
                ChatPlayerID(S) = ChatPlayerID(S + 1)

            Next S

            ChatExist(699) = True
            ChatText(699) = Text
            ChatColour(699) = Colour
            ChatPlayerID(699) = ChatterId

        End If


    End Sub

    Public Sub DrawChatboxText()

        Call DrawAboveHead()

        Dim Start As Integer
        Dim I As Integer

        'SetBlend(GUI(3).Fade)
        Dim PreText As String

        If Mid(Textbox(11).Text, 1, 2) = "!!" Then
            PreText = "Group"
        ElseIf Mid(InputChat, 1, 1) = "@" Then
            PreText = "Command"
        ElseIf Mid(InputChat, 1, 1) = "/" Then