modplayeritem.vb.svn-base

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

#Region "clsPlayerItem"

Public Class clsPlayerItem
    Public ItemID As Long 'Items Unique ID
    Public ItemIndex As Integer 'Items DB Code
    Public Dura As Integer 'Current Dura
    Public MaxDura As Integer 'Max Dura (Could change with Refines/Repairs)
    Public PlusAC As Byte 'Added AC
    Public PlusAMC As Byte 'Added AMC
    Public PlusDC As Byte 'Added DC
    Public PlusMC As Byte 'Added MC
    Public PlusSC As Byte 'Added SC
    Public PlusHoly As Byte 'Added Holy
    Public PlusInten As Byte 'Added Inten
    Public PlusLuck As Byte 'Added Luck
    Public PlusAccuracy As Byte 'Added Accuracy
    Public PlusAgility As Byte 'Added Agility
    Public PlusHPRecov As Byte 'Added HPRecovery
    Public PlusMPRecov As Byte 'Added MPRecovery
    Public PlusPoisonRecov As Byte 'Added PoisonRecovery
    Public PlusPoisonEvasion As Byte 'Added PoisonEvasion
    Public PlusMagicEvasion As Byte 'Added MagicEvasion
    Public PlusASpeed As Byte 'Added Attack Speed
    Public PlusHPLeech As Byte 'Added HPLeech
    Public PlusMPLeech As Byte 'Added MPLeech
    Public PlusBWeight As Byte 'Added Bag Weight
    Public PlusHWeight As Byte 'Added Hand Weight
    Public PlusMaxHP As Byte 'Added MaxHP
    Public PlusMaxMP As Byte 'Added MaxMP
    Public Type As EquipType 'Where the item is ingame (Floor/Bag/Equipped)
    Public NamePrefix As String 'Text infront of the Item Name
    Public Character As String 'Item Owner Name
    Public X As Integer 'X Co-ord if on ground
    Public Y As Integer 'Y Co-ord if on ground
End Class

#End Region
#Region "EquipType"

Public Enum EquipType
    Floor = -1
    Necklace = 0
    Candle = 1
    LeftRing = 2
    LeftBrace = 3
    Belt = 4
    RightBracelet = 5
    RightRing = 6
    Amulet = 7
    Stone = 8
    Boots = 9
    Poison = 10
    Clothing = 11
    Weapon = 12
    Helmet = 13
    Bag = 14
End Enum

#End Region

Module modPlayerItem

#Region "LoadPlayerItems"

    Public Sub LoadPlayerItems()
        Dim ReadItem As clsPlayerItem

        Try
            Dim DR As System.Data.SqlClient.SqlDataReader
            Dim StrSql As String = "Select * From TBL_PlayerItems Order By ItemID"
            Dim SqlComm As New System.Data.SqlClient.SqlCommand(StrSql, SqlConnAcc)
            DR = SqlComm.ExecuteReader

            Do While DR.Read()
                ReadItem = New clsPlayerItem

                ReadItem.Type = DR.Item("Type")
                ReadItem.ItemID = DR.Item("ItemID")
                ReadItem.ItemIndex = DR.Item("ItemIndex")
                ReadItem.Dura = DR.Item("Dura")
                ReadItem.MaxDura = DR.Item("MaxDura")
                ReadItem.Character = DR.Item("Character")
                ReadItem.NamePrefix = DR.Item("NamePrefix")
                ReadItem.PlusAC = DR.Item("PlusAC")
                ReadItem.PlusAccuracy = DR.Item("PlusAccuracy")
                ReadItem.PlusAgility = DR.Item("PlusAgility")
                ReadItem.PlusAMC = DR.Item("PlusAMC")
                ReadItem.PlusASpeed = DR.Item("PlusASpeed")
                ReadItem.PlusBWeight = DR.Item("PlusBWeight")
                ReadItem.PlusDC = DR.Item("PlusDC")
                ReadItem.PlusHWeight = DR.Item("PlusHWeight")
                ReadItem.PlusHoly = DR.Item("PlusHoly")
                ReadItem.PlusHPLeech = DR.Item("PlusHPLeech")
                ReadItem.PlusHPRecov = DR.Item("PlusHPRecov")
                ReadItem.PlusInten = DR.Item("PlusInten")
                ReadItem.PlusLuck = DR.Item("PlusLuck")
                ReadItem.PlusMagicEvasion = DR.Item("PlusMagicEvasion")
                ReadItem.PlusMaxHP = DR.Item("PlusMaxHP")
                ReadItem.PlusMaxMP = DR.Item("PlusMaxMP")
                ReadItem.PlusMC = DR.Item("PlusMC")
                ReadItem.PlusMPLeech = DR.Item("PlusMPLeech")
                ReadItem.PlusMPRecov = DR.Item("PlusMPRecov")
                ReadItem.PlusPoisonEvasion = DR.Item("PlusPoisonEvasion")
                ReadItem.PlusPoisonRecov = DR.Item("PlusPoisonRecov")
                ReadItem.PlusSC = DR.Item("PlusSC")

                If PlayerItemList.Contains(ReadItem.ItemID) = False Then
                    'Save the item into the hashtable
                    PlayerItemList.Add(ReadItem.ItemID, ReadItem)
                End If
            Loop

            DR.Close()
            SqlComm.Dispose()
            DR = Nothing
            SqlComm = Nothing

        Catch ex As Exception
            MessageBox.Show("Reading PlayerItems failed." & vbCrLf & ex.Message)
        End Try
    End Sub

#End Region

End Module