draw items.vb.svn-base

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

            For I = 0 To 9
                If TextOverlayText(I) = "" Then
                    'build up the line, dont add stuff when it has no value
                    Dim StructuredText As String

                    If (InventoryItem(InventoryX, InventoryY).MagicEvasion > 0) Then
                        StructuredText = StructuredText & "Additional Magic Evasion: " & InventoryItem(InventoryX, InventoryY).MagicEvasion
                    End If

                    TextOverlayText(I) = StructuredText
                    Exit For
                End If
            Next I

        End If

    End Sub

    Public Sub AddInventoryItemAttackSpeed()

        Dim I As Short

        If (InventoryItem(InventoryX, InventoryY).MagicEvasion > 0) Then

            For I = 0 To 9
                If TextOverlayText(I) = "" Then
                    'build up the line, dont add stuff when it has no value
                    Dim StructuredText As String

                    If (InventoryItem(InventoryX, InventoryY).AttackSpeed > 0) Then
                        StructuredText = StructuredText & "Additional Attack Speed: " & InventoryItem(InventoryX, InventoryY).AttackSpeed
                    End If

                    TextOverlayText(I) = StructuredText
                    Exit For
                End If
            Next I

        End If

    End Sub

    Public Sub AddInventoryItemAccuracy()

        Dim I As Short

        If (InventoryItem(InventoryX, InventoryY).Accuracy > 0) Then

            For I = 0 To 9
                If TextOverlayText(I) = "" Then
                    'build up the line, dont add stuff when it has no value
                    Dim StructuredText As String

                    If (InventoryItem(InventoryX, InventoryY).Accuracy > 0) Then
                        StructuredText = StructuredText & "Additional Accuracy: " & InventoryItem(InventoryX, InventoryY).Accuracy
                    End If

                    TextOverlayText(I) = StructuredText
                    Exit For
                End If
            Next I

        End If

    End Sub

    Public Sub AddInventoryItemAgility()

        Dim I As Short

        If (InventoryItem(InventoryX, InventoryY).Agility > 0) Then

            For I = 0 To 9
                If TextOverlayText(I) = "" Then
                    'build up the line, dont add stuff when it has no value
                    Dim StructuredText As String

                    If (InventoryItem(InventoryX, InventoryY).Agility > 0) Then
                        StructuredText = StructuredText & "Additional Agility: " & InventoryItem(InventoryX, InventoryY).Agility
                    End If

                    TextOverlayText(I) = StructuredText
                    Exit For
                End If
            Next I

        End If

    End Sub

    Public Sub AddInventoryItemHealthPotion()

        Dim I As Short

        If (InventoryItem(InventoryX, InventoryY).AC > 0) And (InventoryItem(InventoryX, InventoryY).Type = 2) Then

            For I = 0 To 9
                If TextOverlayText(I) = "" Then
                    'build up the line, dont add stuff when it has no value
                    Dim StructuredText As String

                    If (InventoryItem(InventoryX, InventoryY).AC > 0) Then
                        StructuredText = StructuredText & "Recovers: " & InventoryItem(InventoryX, InventoryY).AC & " Health Points"
                    End If

                    TextOverlayText(I) = StructuredText
                    Exit For
                End If
            Next I

        End If

    End Sub

    Public Sub AddInventoryItemManaPotion()

        Dim I As Short

        If (InventoryItem(InventoryX, InventoryY).MAC > 0) And (InventoryItem(InventoryX, InventoryY).Type = 2) Then

            For I = 0 To 9
                If TextOverlayText(I) = "" Then
                    'build up the line, dont add stuff when it has no value
                    Dim StructuredText As String

                    If (InventoryItem(InventoryX, InventoryY).MAC > 0) Then
                        StructuredText = StructuredText & "Recovers: " & InventoryItem(InventoryX, InventoryY).MAC & " Mana Points"
                    End If

                    TextOverlayText(I) = StructuredText
                    Exit For
                End If
            Next I

        End If

    End Sub

    Public Sub AddInventoryItemHPRecovery()

        Dim I As Short

        If (InventoryItem(InventoryX, InventoryY).HPRegen > 0) Then

            For I = 0 To 9
                If TextOverlayText(I) = "" Then
                    'build up the line, dont add stuff when it has no value
                    Dim StructuredText As String

                    If (InventoryItem(InventoryX, InventoryY).HPRegen > 0) Then
                        StructuredText = StructuredText & "Health Recovery: " & InventoryItem(InventoryX, InventoryY).HPRegen & "%"
                    End If

                    TextOverlayText(I) = StructuredText
                    Exit For
                End If
            Next I

        End If

    End Sub

    Public Sub AddInventoryItemMPRecovery()

        Dim I As Short

        If (InventoryItem(InventoryX, InventoryY).HPRegen > 0) Then

            For I = 0 To 9
                If TextOverlayText(I) = "" Then
                    'build up the line, dont add stuff when it has no value
                    Dim StructuredText As String

                    If (InventoryItem(InventoryX, InventoryY).HPRegen > 0) Then
                        StructuredText = StructuredText & "Mana Recovery: " & InventoryItem(InventoryX, InventoryY).HPRegen & "%"
                    End If

                    TextOverlayText(I) = StructuredText
                    Exit For
                End If
            Next I

        End If

    End Sub

    Public Sub AddInventoryItemLuck()

        Dim I As Short

        If (InventoryItem(InventoryX, InventoryY).Luck > 0) Then

            For I = 0 To 9
                If TextOverlayText(I) = "" Then
                    'build up the line, dont add stuff when it has no value
                    Dim StructuredText As String

                    If (InventoryItem(InventoryX, InventoryY).Luck > 0) Then
                        StructuredText = StructuredText & "Additional Luck: " & InventoryItem(InventoryX, InventoryY).Luck
                    End If

                    TextOverlayText(I) = StructuredText
                    Exit For
                End If
            Next I

        End If

    End Sub

    Public Sub AddInventoryItemRequirement()
        Dim I As Short

        For I = 0 To 9
            If TextOverlayText(I) = "" Then
                Dim StructuredText As String


                If Not InventoryItem(InventoryX, InventoryY).LevelReq = 0 Then
                    StructuredText = StructuredText & "Required Level: " & InventoryItem(InventoryX, InventoryY).LevelReq & "  "
                End If

                If Not InventoryItem(InventoryX, InventoryY).DCReq = 0 Then
                    StructuredText = StructuredText & "Required DC: " & InventoryItem(InventoryX, InventoryY).DCReq & "  "
                End If

                If Not InventoryItem(InventoryX, InventoryY).MCReq = 0 Then
                    StructuredText = StructuredText & "Required MC: " & InventoryItem(InventoryX, InventoryY).MCReq & "  "
                End If

                If Not InventoryItem(InventoryX, InventoryY).SCReq = 0 Then
                    StructuredText = StructuredText & "Required SC: " & InventoryItem(InventoryX, InventoryY).SCReq & "  "
                End If

                TextOverlayText(I) = StructuredText
                Exit For
            End If
        Next I

    End Sub

    Public Sub AddInventoryItemWeightDura()
        Dim I As Short

        For I = 0 To 9
            If TextOverlayText(I) = "" Then
                Dim StructuredText As String

                If Not InventoryItem(InventoryX, InventoryY).Weight = 0 Then
                    StructuredText = StructuredText & "Weight: " & InventoryItem(InventoryX, InventoryY).Weight & "  "
                End If

                If Not InventoryItem(InventoryX, InventoryY).DurabilityMax = 0 Then
                    StructuredText = StructuredText & "Durability: " & InventoryItem(InventoryX, InventoryY).Durability & "/" & InventoryItem(InventoryX, InventoryY).DurabilityMax & "  "
                End If

                TextOverlayText(I) = StructuredText
                Exit For
            End If
        Next I

    End Sub

#End Region

End Module