moditem.vb.svn-base

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

#Region "clsItem"

Public Class clsItem
    Public Index As Integer 'Items DB number
    Public Name As String 'Name
    Public Type As ItemType 'Type of item
    Public Type2 As Short 'Type of item Type
    Public Weight As Short 'Weight
    Public Holy As Short 'Holy
    Public Inten As Short 'Inten
    Public Luck As Short 'Luck/Curse
    Public Looks As Short 'Items looks floor/bag
    Public OnLooks As Short 'Looks when worn
    Public DuraMax As Integer 'Max dura
    Public Accuracy, Agility As Short 'Accuracy/Agility
    Public AC, MaxAC As Short 'AC/MaxAC
    Public AMC, MaxAMC As Short 'AMC/MaxAMC
    Public DC, MaxDC As Short 'DC/MaxDC
    Public MC, MaxMC As Short 'MC/MaxMC
    Public SC, MaxSC As Short 'SC/MaxSC
    Public HP, MP As Short 'HP/MP
    Public MaxHP, MaxMP As Short 'Highers or Lowers MaxHP/MP
    Public HPRecovery, MPRecovery As Short 'HP/MP or Lowers Recovery
    Public PoisonRecovery As Short 'Poison Recovery
    Public PoisonEvasion, MagicEvasion As Short 'PoisonEvasion/MagicEvasion
    Public ASpeed As Short 'Attack Speed
    Public HPLeech, MPLeech As Short 'HPLeech/MPLeech
    Public BWeight, HWeight As Short
    Public NeedType As NeedTypes 'Type of what you need to wear
    Public NeedAmount As Short 'Amount of Need type
    Public Price As Long 'Shops Price
    Public Stock As Short 'In shop? Amount
End Class

#End Region
#Region "ItemType"

Public Enum ItemType
    None = 0
    Gold = 1
    Potion = 2
    Teleport = 3
    Book = 4
    Weapon = 5
    Armour = 6
    Helmet = 7
    Necklace = 8
    Ring = 9
    Bracelet = 10
    Poison = 11
    Amulet = 12
    Candle = 13
    Bundle = 14
    Meat = 15
    Ingredient = 16
    Ore = 17
    Belt = 18
    Shoes = 19
    Stone = 20
End Enum

#End Region
#Region "Inner ItemTypes"

Public Enum NeedTypes
    Level = 0
    DC = 1
    MC = 2
    SC = 3
    Class_ = 4
End Enum

Public Enum Potions
    Normal = 1
    Instant = 2
    Stats = 3
    Repair = 4
    SpecialRepair = 5
    Luck = 6
End Enum

Public Enum Teleports
    DungeonEscape = 1
    RandomTeleport = 2
    TownTeleport = 3
    HomeTeleport = 4
End Enum

Public Enum Books
    Warrior = 1
    Wizard = 2
    Taoist = 3
End Enum

Public Enum Weapons
    Normal = 1
    BindToHand = 2
    BreakOnDeath = 3
    BindAndBreak = 4
End Enum

Public Enum Armours
    Male = 1
    Female = 2
End Enum

Public Enum Helmets
    Normal = 1
    Recall = 2
    Spirit = 3
    Mystery = 4
End Enum

Public Enum Necklaces
    Normal = 1
    Recall = 2
    Spirit = 3
    Probe = 4
    Skill = 5
End Enum

Public Enum Rings
    Normal = 1
    Clear = 2
    Tele = 3
    Paralysis = 4
    Revival = 5
    Muscle = 6
    Flame = 7
    Recovery = 8
    Protection = 9
    Recall = 10
    Spirit = 11
    Mystery = 12
End Enum

Public Enum Bracelets
    Normal = 1
    Recall = 2
    Spirit = 3
    Mystery = 4
End Enum

Public Enum Poisons
    Health = 1
    Defense = 2
    Agility = 4
    Accuracy = 5
End Enum

Public Enum Amulets
    Normal = 1
End Enum

Public Enum Candles
    Normal = 1
End Enum

Public Enum Bundles
    HPSmall = 1
    MPSmall = 2
    HPMedium = 3
    MPMedium = 4
    HPLarge = 5
    MPLarge = 6
    Escape = 7
    Random = 8
    Town = 9
    Home = 10
    Amulet = 11
    RedPoison = 12
    GreenPoison = 13
End Enum

Public Enum Meats
    Normal = 1
End Enum

Public Enum Ingredients
    Normal = 1
End Enum

Public Enum Ores
    Normal = 1
End Enum

Public Enum Belts
    Normal = 1
End Enum

Public Enum Shoes
    Normal = 1
End Enum

Public Enum Stones
    Normal = 1
End Enum

#End Region

Module modItem
#Region "LoadItemStatList"

    Public Sub LoadItemStatList()
        Dim ReadItem As clsItem

        Try
            Dim DR As System.Data.SqlClient.SqlDataReader
            Dim StrSQL As String = "Select * From TBL_Items Order By [Index]"
            Dim SqlComm As New System.Data.SqlClient.SqlCommand(StrSQL, SqlConnDB)
            DR = SqlComm.ExecuteReader

            Do While DR.Read()
                ReadItem = New clsItem

                ReadItem.Index = DR.Item("Index")
                ReadItem.Name = DR.Item("Name")
                ReadItem.Type = DR.Item("Type")
                ReadItem.Type2 = DR.Item("Type2")
                ReadItem.Weight = DR.Item("Weight")
                ReadItem.Holy = DR.Item("Holy")
                ReadItem.Inten = DR.Item("Inten")
                ReadItem.Luck = DR.Item("Luck")
                ReadItem.Looks = DR.Item("Looks")
                ReadItem.OnLooks = DR.Item("OnLooks")
                ReadItem.DuraMax = DR.Item("DuraMax")
                ReadItem.Agility = DR.Item("Agility")
                ReadItem.Accuracy = DR.Item("Accuracy")
                ReadItem.AC = DR.Item("AC")
                ReadItem.MaxAC = DR.Item("MaxAC")
                ReadItem.AMC = DR.Item("AMC")
                ReadItem.MaxAMC = DR.Item("MaxAMC")
                ReadItem.DC = DR.Item("DC")
                ReadItem.MaxDC = DR.Item("MaxDC")
                ReadItem.MC = DR.Item("MC")
                ReadItem.MaxMC = DR.Item("MaxMC")
                ReadItem.SC = DR.Item("SC")
                ReadItem.MaxSC = DR.Item("MaxSC")
                ReadItem.HP = DR.Item("HP")
                ReadItem.MaxHP = DR.Item("MaxHP")
                ReadItem.MP = DR.Item("MP")
                ReadItem.MaxMP = DR.Item("MaxMP")
                ReadItem.HPRecovery = DR.Item("HPRecovery")
                ReadItem.MPRecovery = DR.Item("MPRecovery")
                ReadItem.PoisonRecovery = DR.Item("PoisonRecovery")
                ReadItem.PoisonEvasion = DR.Item("PoisonEvasion")
                ReadItem.MagicEvasion = DR.Item("MagicEvasion")
                ReadItem.ASpeed = DR.Item("ASpeed")
                ReadItem.HPLeech = DR.Item("HPLeech")
                ReadItem.MPLeech = DR.Item("MPLeech")
                ReadItem.BWeight = DR.Item("BWeight")
                ReadItem.HWeight = DR.Item("HWeight")
                ReadItem.NeedType = DR.Item("NeedType")
                ReadItem.NeedAmount = DR.Item("NeedAmount")
                ReadItem.Price = DR.Item("Price")
                ReadItem.Stock = DR.Item("Stock")

                If ItemStatList.Contains(ReadItem.Index) = False Then
                    ItemStatList.Add(ReadItem.Index, ReadItem)
                End If
                If ItemList.Contains(ReadItem.Name.ToLower) = False Then
                    ItemList.Add(ReadItem.Name.ToLower, ReadItem.Index)
                End If
            Loop

            DR.Close()
            SqlComm.Dispose()
            DR = Nothing
            SqlComm = Nothing
        Catch ex As Exception
            MessageBox.Show("Reading ItemStats Failed." & vbCrLf & ex.Message)
        End Try
    End Sub

#End Region
End Module