drawscenetext.vb.svn-base

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

            PreText = "Whisper"
        ElseIf Mid(InputChat, 1, 2) = "!~" Then
            PreText = "Guild"
        ElseIf Mid(InputChat, 1, 1) = "!" Then
            PreText = "Shout"
        Else
            PreText = "Say"
        End If

        Dim TempVal As Short
        If ChatPointer > 6 Then TempVal = 7 Else TempVal = ChatPointer

        For I = ChatPointer - TempVal To ChatPointer - 1
            If ChatExist(I) = True Then

                Dim TempNum As Short

                If ChatLines > 7 Then TempNum = (ChatLines - 7)

                If ChatColour(I) = ChatColours.Green Then
                    TempText.Size6.D3DNormal.DrawText(GameSprite, ChatText(I), 212, 600 + ((I - TempNum - (ChatPointer - ChatLines)) * 14) - 156 + 16 + 11, Color.FromArgb(7, 91, 31))
                ElseIf ChatColour(I) = ChatColours.White Then
                    TempText.Size6.D3DNormal.DrawText(GameSprite, ChatText(I), 212, 600 + ((I - TempNum - (ChatPointer - ChatLines)) * 14) - 156 + 16 + 11, Color.FromArgb(0, 0, 0))
                ElseIf ChatColour(I) = ChatColours.Yellow Then
                    TempText.Size6.D3DNormal.DrawText(GameSprite, ChatText(I), 212, 600 + ((I - TempNum - (ChatPointer - ChatLines)) * 14) - 156 + 16 + 11, Color.FromArgb(255, 255, 0))
                ElseIf ChatColour(I) = ChatColours.Pink Then
                    TempText.Size6.D3DNormal.DrawText(GameSprite, ChatText(I), 212, 600 + ((I - TempNum - (ChatPointer - ChatLines)) * 14) - 156 + 16 + 11, Color.FromArgb(255, 150, 150))
                ElseIf ChatColour(I) = ChatColours.Blue Then
                    TempText.Size6.D3DNormal.DrawText(GameSprite, ChatText(I), 212, 600 + ((I - TempNum - (ChatPointer - ChatLines)) * 14) - 156 + 16 + 11, Color.FromArgb(100, 100, 255))
                ElseIf ChatColour(I) = ChatColours.Red Then
                    TempText.Size6.D3DNormal.DrawText(GameSprite, ChatText(I), 212, 600 + ((I - TempNum - (ChatPointer - ChatLines)) * 14) - 156 + 16 + 11, Color.FromArgb(255, 0, 0))
                ElseIf ChatColour(I) = ChatColours.Orange Then
                    TempText.Size6.D3DNormal.DrawText(GameSprite, ChatText(I), 212, 600 + ((I - TempNum - (ChatPointer - ChatLines)) * 14) - 156 + 16 + 11, Color.Orange)
                End If
            End If
        Next I

        If ChatModeOn = True Then
            If Not PreText = "Command" Then
                ChatMessage = PreText
                'TempText.Size6.D3DBold.DrawText(GameSprite, PreText & ": " & InputChat, GUI(3).X + 24, GUI(3).Y + 7, Color.FromArgb(255, 255, 255))
            Else
                'TempText.Size6.D3DBold.DrawText(GameSprite, PreText & ": " & InputChat, GUI(3).X + 24, GUI(3).Y + 7, Color.FromArgb(255, 150, 150))
            End If
        End If

    End Sub

    Public Sub DrawActorNameText()

        Dim TempWidth As Short
        Dim TempX, TempY As Short

        GameSprite.Begin(SpriteFlags.DoNotSaveState)

        TempWidth = (FindTextWidth(Actor.Name, TempText.Size10.SystemBold))

        TempY = Actor.MainTop - Actor.MainPlaceY - (Actor.MainHeight / 2) - 30
        TempX = Actor.MainLeft - Actor.MainPlaceX - (TempWidth / 2) + 30

        If Not Actor.IsDead = True Then

            If CheckMouseOverActor(CursorX, CursorY) = True Then
                TempText.Size10.D3DBold.DrawText(GameSprite, Actor.Name, TempX, TempY - 1, Color.Black)
                TempText.Size10.D3DBold.DrawText(GameSprite, Actor.Name, TempX, TempY + 1, Color.Black)
                TempText.Size10.D3DBold.DrawText(GameSprite, Actor.Name, TempX + 1, TempY, Color.Black)
                TempText.Size10.D3DBold.DrawText(GameSprite, Actor.Name, TempX - 1, TempY, Color.Black)

                TempText.Size10.D3DBold.DrawText(GameSprite, Actor.Name, TempX, TempY, Color.LightGray)
            ElseIf TabDown = True Then
                TempText.Size10.D3DBold.DrawText(GameSprite, Actor.Name, TempX, TempY - 1, Color.Black)
                TempText.Size10.D3DBold.DrawText(GameSprite, Actor.Name, TempX, TempY + 1, Color.Black)
                TempText.Size10.D3DBold.DrawText(GameSprite, Actor.Name, TempX + 1, TempY, Color.Black)
                TempText.Size10.D3DBold.DrawText(GameSprite, Actor.Name, TempX - 1, TempY, Color.Black)

                TempText.Size10.D3DBold.DrawText(GameSprite, Actor.Name, TempX, TempY, Color.LightGray)
            End If

        End If

        GameSprite.End()

    End Sub

    Public Sub DrawPlayerNameText(ByVal I As Integer)

        Dim TempWidth As Short
        Dim TempX, TempY As Short

        If Not Actor.IsDead = True Then

            If TabDown = True Or CheckMouseOverPlayer(CursorX, CursorY, Player(I).Name) = True Then

                GameSprite.Begin(SpriteFlags.DoNotSaveState)

                TempWidth = (FindTextWidth(Player(I).Name, TempText.Size10.SystemBold))

                TempY = Player(I).MainTop - Player(I).MainPlaceY - (Player(I).MainHeight / 2) - 30
                TempX = Player(I).MainLeft - Player(I).MainPlaceX - (TempWidth / 2) + 30

                TempText.Size10.D3DBold.DrawText(GameSprite, Player(I).Name, TempX, TempY - 1, Color.Black)
                TempText.Size10.D3DBold.DrawText(GameSprite, Player(I).Name, TempX, TempY + 1, Color.Black)
                TempText.Size10.D3DBold.DrawText(GameSprite, Player(I).Name, TempX + 1, TempY, Color.Black)
                TempText.Size10.D3DBold.DrawText(GameSprite, Player(I).Name, TempX - 1, TempY, Color.Black)

                TempText.Size10.D3DBold.DrawText(GameSprite, Player(I).Name, TempX, TempY, Color.FromArgb(255, 255, 255))

                GameSprite.End()

            End If

        End If

    End Sub

    Public Sub DrawNPCNameText(ByVal I As Integer)

        Dim TempWidth As Short
        Dim TempX, TempY As Short

        If Not Actor.IsDead Then

            If TabDown = True Or CheckMouseOverNPC(CursorX, CursorY, NPC(I).Name) = True Then

                GameSprite.Begin(SpriteFlags.DoNotSaveState)

                TempWidth = (FindTextWidth(NPC(I).Name, TempText.Size10.SystemBold))

                TempY = NPC(I).MainTop - NPC(I).MainPlaceY - (NPC(I).MainHeight / 2) - 30
                TempX = NPC(I).MainLeft - NPC(I).MainPlaceX - (TempWidth / 2) + 30

                TempText.Size10.D3DBold.DrawText(GameSprite, NPC(I).Name, TempX, TempY - 1, Color.Black)
                TempText.Size10.D3DBold.DrawText(GameSprite, NPC(I).Name, TempX, TempY + 1, Color.Black)
                TempText.Size10.D3DBold.DrawText(GameSprite, NPC(I).Name, TempX + 1, TempY, Color.Black)
                TempText.Size10.D3DBold.DrawText(GameSprite, NPC(I).Name, TempX - 1, TempY, Color.Black)

                TempText.Size10.D3DBold.DrawText(GameSprite, NPC(I).Name, TempX, TempY, Color.FromArgb(137, 240, 171))

                GameSprite.End()

            End If

        End If

    End Sub

    Public Sub DrawMonsterNameText(ByVal I As Integer)
        Dim TempWidth As Short
        Dim TempX, TempY As Short

        If Actor.IsDead = False Then

            If TabDown = True Or CheckMouseOverMonster(CursorX, CursorY, Mob(I).ServerIndex) = True Then

                If Mob(I).IsPet = False Then

                    GameSprite.Begin(SpriteFlags.DoNotSaveState)

                    TempWidth = FindTextWidth(Mob(I).Name, TempText.Size10.SystemBold)

                    TempX = Mob(I).MainLeft - Mob(I).MainPlaceX - (TempWidth / 2) + 29
                    TempY = Mob(I).MainTop - Mob(I).MainPlaceY - (Mob(I).MainHeight / 2) + 8 + 12

                    TempText.Size10.D3DBold.DrawText(GameSprite, Mob(I).Name, TempX, TempY - 1, Color.Black)
                    TempText.Size10.D3DBold.DrawText(GameSprite, Mob(I).Name, TempX, TempY + 1, Color.Black)
                    TempText.Size10.D3DBold.DrawText(GameSprite, Mob(I).Name, TempX + 1, TempY, Color.Black)
                    TempText.Size10.D3DBold.DrawText(GameSprite, Mob(I).Name, TempX - 1, TempY, Color.Black)

                    TempText.Size10.D3DBold.DrawText(GameSprite, Mob(I).Name, TempX, TempY, Color.FromArgb(224, 112, 112))

                    GameSprite.End()

                Else

                    GameSprite.Begin(SpriteFlags.DoNotSaveState)

                    TempWidth = FindTextWidth(Mob(I).Name, TempText.Size10.SystemBold)

                    TempX = Mob(I).MainLeft - Mob(I).MainPlaceX - (TempWidth / 2) + 29
                    TempY = Mob(I).MainTop - Mob(I).MainPlaceY - (Mob(I).MainHeight / 2) + 8 + 12

                    TempText.Size10.D3DBold.DrawText(GameSprite, Mob(I).Name, TempX, TempY - 1, Color.Black)
                    TempText.Size10.D3DBold.DrawText(GameSprite, Mob(I).Name, TempX, TempY + 1, Color.Black)
                    TempText.Size10.D3DBold.DrawText(GameSprite, Mob(I).Name, TempX + 1, TempY, Color.Black)
                    TempText.Size10.D3DBold.DrawText(GameSprite, Mob(I).Name, TempX - 1, TempY, Color.Black)

                    TempText.Size10.D3DBold.DrawText(GameSprite, Mob(I).Name, TempX, TempY, Color.FromArgb(137, 240, 171))

                    TempWidth = FindTextWidth("(" & Mob(I).OwnerName & "'s Pet)", TempText.Size10.SystemBold)

                    TempX = Mob(I).MainLeft - Mob(I).MainPlaceX - (TempWidth / 2) + 29
                    TempY = Mob(I).MainTop - Mob(I).MainPlaceY - (Mob(I).MainHeight / 2) + 8 + 22

                    TempText.Size10.D3DBold.DrawText(GameSprite, "(" & Mob(I).OwnerName & "'s Pet)", TempX, TempY - 1, Color.Black)
                    TempText.Size10.D3DBold.DrawText(GameSprite, "(" & Mob(I).OwnerName & "'s Pet)", TempX, TempY + 1, Color.Black)
                    TempText.Size10.D3DBold.DrawText(GameSprite, "(" & Mob(I).OwnerName & "'s Pet)", TempX + 1, TempY, Color.Black)
                    TempText.Size10.D3DBold.DrawText(GameSprite, "(" & Mob(I).OwnerName & "'s Pet)", TempX - 1, TempY, Color.Black)

                    TempText.Size10.D3DBold.DrawText(GameSprite, "(" & Mob(I).OwnerName & "'s Pet)", TempX, TempY, Color.FromArgb(137, 240, 171))

                    GameSprite.End()