Anti-armenia.ORG - Forumlar - VB.NET Item's



Istifadəçi
    2012-03-26 09:38 GMT                 

Avatar Fearless



VIP
Mesaj Sayı : 1299
Mövzu Sayı :
Rep Ver : 
Rep Sayı :   23  
Indi Saytda : Durum
Cinsiyyət : Oğlan
Şəhər : Gävle
Ölkə :
Məslək : Hacker,Defacer,Programmer
Yaş : 26
Mesaj :

Mövzunu Paylaş!


Salamlar... Bu Gün Sizlərə Visual-da İtem-lər Artırmağı Göstərəcəm... Burda 1 neçə item-lər Var Sizdə baxıb öz item-lərinizi artıra bilərsiniz... Bu Kodları Mənə Yığmaqda Kömək olan LSS və LabeL-ə təşəkkürlər...
Code:
Kod:
Module items 'items and the properties of said items
    Dim itemName As String
    Dim itemLVLReq, cost, resell As Integer
    Dim random As New Random()
    'weapon data
    Public watk, wdef, wevd, wacc, wmagatk, wmagdef, wmagevd, wmagacc, wgan, wani, wrai, wrue, wvak, wjuk As Integer
    'head data
    Public hdef, hmagdef, hmagacc, hmagatk, hmagevd, hatk, hacc, hevd, hgan, hani, hrai, hrue, hvak, hjuk As Integer
    'body data
    Public adef, amagdef, amagacc, amagatk, amagevd, aatk, aacc, aevd, agan, aani, arai, arue, avak, ajuk As Integer
    'hand data
    Public gdef, gmagdef, gmagacc, gmagatk, gmagevd, gatk, gacc, gevd, ggan, gani, grai, grue, gvak, gjuk As Integer
    'feet data
    Public bdef, bmagdef, bmagacc, bmagatk, bmagevd, batk, bacc, bevd, bgan, bani, brai, brue, bvak, bjuk As Integer

    Public Function IDFix(ByVal itemID As Integer)
        'first chance error fix
        If itemID >= 19 And itemID <= 100 Then 'helms
            itemID = random.Next(1, 19)
        ElseIf itemID >= 110 And itemID <= 200 Then 'boots
            itemID = random.Next(101, 110)
        ElseIf itemID >= 209 And itemID <= 300 Then 'armor
            itemID = random.Next(201, 209)
        ElseIf itemID >= 308 And itemID <= 400 Then 'gloves
            itemID = random.Next(301, 308)
        ElseIf itemID >= 431 And itemID <= 500 Then
            itemID = random.Next(401, 431)
        ElseIf itemID >= 531 And itemID <= 600 Then
            itemID = random.Next(501, 531)
        ElseIf itemID >= 1016 And itemID <= 2000 Then 'long arm
            itemID = random.Next(1001, 1016)
        ElseIf itemID >= 2055 And itemID <= 3000 Then 'blade master
            itemID = random.Next(2001, 2055)
        ElseIf itemID >= 3006 And itemID <= 4000 Then 'wave master
            itemID = random.Next(3001, 3006)
        ElseIf itemID >= 4006 And itemID <= 5000 Then '
            itemID = random.Next(4001, 4006)
        ElseIf itemID >= 5007 And itemID <= 6000 Then '
            itemID = random.Next(5001, 5007)
        ElseIf itemID >= 6031 And itemID <= 7000 Then '
            itemID = random.Next(6001, 6031)
        End If

        Return itemID
    End Function

    Public Function itemlist(ByVal itemID As Integer, ByVal varTrigger As Integer)

        cost = 0
        resell = 0

        If varTrigger = 3 Then
            itemStatReset()
        End If

        If itemID = 1 Then 'Helms
            itemName = "Bandanna"
            itemLVLReq = 1
            hmagdef = 2
            hmagevd = 6
            hgan = 1
            hani = 1
            hrai = 1
            hrue = 1
            hvak = 1
            hjuk = 1
            cost = 400
            resell = 200
        ElseIf itemID = 2 Then
            itemName = "Nomad's Hood"
            itemLVLReq = 2
            hdef = 1
            hevd = 1
            hmagdef = 1
            hmagevd = 1
            hgan = 1
            hani = 1
            hrai = 1
            hrue = 1
            hvak = 1
            hjuk = 1
            cost = 500
            resell = 250
        ElseIf itemID = 3 Then
            itemName = "Head Gear"
            itemLVLReq = 3
            hdef = 2
            hevd = 6
            hgan = 1
            hani = 1
            hrai = 1
            hrue = 1
            hvak = 1
            hjuk = 1
            cost = 600
            resell = 300
        ElseIf itemID = 4 Then
            itemName = "Ice Helm"
            itemLVLReq = 18
            hdef = 4
            hevd = 9
            hmagdef = 1
            hmagevd = 1
            hgan = 2
            hani = 2
            hrai = 2
            hrue = 4
            hjuk = 2
            cost = 1800
            resell = 900
        ElseIf itemID = 5 Then
            itemName = "Cougar Bandana"
            itemLVLReq = 11
            hmagdef = 3
            hmagevd = 8
            hgan = 1
            hani = 1
            hrai = 1
            hrue = 1
            hvak = 1
            hjuk = 1
            cost = 1200
            resell = 600
        ElseIf itemID = 6 Then
            itemName = "Hunter's Hood"
            itemLVLReq = 12
            hdef = 2
            hevd = 3
            hmagdef = 2
            hmagevd = 3
            hgan = 4
            hani = 1
            hrai = 1
            hrue = 1
            hvak = 1
            hjuk = 1
        ElseIf itemID = 7 Then
            itemName = "Mountain Helm"
            itemLVLReq = 13
            hdef = 3
            hevd = 8
            hgan = 1
            hani = 1
            hrai = 1
            hrue = 1
            hvak = 1
            hjuk = 1
        ElseIf itemID = 8 Then
            itemName = "Ice Hunter Cap"
            itemLVLReq = 17
            hdef = 2
            hevd = 4
            hmagdef = 2
            hmagevd = 4
            hgan = 2
            hani = 2
            hrai = 2
            hrue = 4
            hjuk = 2
        ElseIf itemID = 9 Then
            itemName = "Guard Cap"
            itemLVLReq = 7
            hdef = 1
            hevd = 2
            hmagdef = 1
            hmagevd = 2
            hgan = 1
            hani = 1
            hrai = 1
            hrue = 1
            hjuk = 1
            hvak = 1
        ElseIf itemID = 10 Then
            itemName = "Raccoon Earcap"
            itemLVLReq = 16
            hmagdef = 3
            hmagevd = 9
            hgan = 2
            hani = 2
            hrai = 2
            hrue = 4
            hjuk = 2
            cost = 1600
            resell = 800
        ElseIf itemID = 11 Then
            itemName = "Steel Cap"
            itemLVLReq = 6
            hmagdef = 3
            hmagevd = 7
            hgan = 1
            hani = 1
            hrai = 1
            hrue = 1
            hjuk = 1
            hvak = 1
            cost = 800
            resell = 400
        ElseIf itemID = 12 Then
            itemName = "Newt Necklace"
            itemLVLReq = 21
            hmagdef = 3
            hmagevd = 10
            hgan = 2
            hani = 2
            hrai = 2
            hjuk = 2
            hvak = 4
            cost = 2000
            resell = 1000
        ElseIf itemID = 13 Then
            itemName = "Scarab earring"
            itemLVLReq = 26
            hmagdef = 3
            hmagevd = 11
            hani = 2
            hrai = 2
            hrue = 2
            hjuk = 4
            hvak = 2
            cost = 2400
            resell = 1200
        ElseIf itemID = 14 Then
            itemName = "Thunder Torque"
            itemLVLReq = 31
            hmagdef = 3
            hmagevd = 12
            hgan = 2
            hrai = 4
            hrue = 2
            hjuk = 2
            hvak = 2
            cost = 2800
            resell = 1400
        ElseIf itemID = 15 Then
            itemName = "Bat Earrings"
            itemLVLReq = 36
            hacc = -2
            hdef = 1
            hevd = -2
            hmagdef = 4
            hmagevd = 12
            hgan = 2
            hani = 4
            hrue = 2
            hjuk = 2
            hvak = 2
            cost = 3200
            resell = 1600
        ElseIf itemID = 16 Then
            itemName = "gold Necklace"
            itemLVLReq = 41
            hacc = -3
            hdef = 2
            hevd = -4
            hmagacc = 1
            hmagdef = 4
            hmagevd = 13
            hgan = 1
            hani = 1
            hrue = 1
            hjuk = 1
            hvak = 1
            hrai = 1
            cost = 3600
            resell = 1800
        ElseIf itemID = 17 Then
            itemName = "War Headband"
            itemLVLReq = 46
            hacc = -4
            hdef = 1
            hevd = -7
            hmagacc = 1
            hmagdef = 5
            hmagevd = 13
            hgan = 1
            hani = 1
            hrue = 1
            hjuk = 1
            hvak = 1
            hrai = 1
            cost = 4000
            resell = 2000
        ElseIf itemID = 18 Then
            itemName = "Imp Earrings"
            itemLVLReq = 51
            hacc = -5
            hdef = 2
            hevd = -5
            hmagacc = 1
            hmagdef = 5
            hmagevd = 14
            hgan = 2
            hani = 2
            hrue = 2
            hjuk = 2
            hvak = 2
            hrai = 2
            cost = 4400
            resell = 2200
        ElseIf itemID = 101 Then 'Boots
            itemName = "Sandals"
            itemLVLReq = 1
            bdef = 1
        ElseIf itemID = 102 Then
            itemName = "Safety Shoes"
            itemLVLReq = 2
            bdef = 1
            bevd = 1
            bmagdef = 1
            bmagevd = 1
            bgan = 1
            bani = 1
            brai = 1
            brue = 1
            bvak = 1
            bjuk = 1
        ElseIf itemID = 103 Then
            itemName = "Used Greaves"
            itemLVLReq = 3
            bdef = 2
            bevd = 6
            bgan = 1
            bani = 1
            brai = 1
            brue = 1
            bvak = 1
            bjuk = 1
        ElseIf itemID = 104 Then
            itemName = "Mountain Boots"
            itemLVLReq = 12
            bdef = 2
            bevd = 3
            bmagdef = 2
            bmagevd = 3
            bgan = 4
            bani = 1
            brai = 1
            brue = 1
            bvak = 1
            bjuk = 1
        ElseIf itemID = 105 Then
            itemName = "Snow Panther"
            itemLVLReq = 17
            bdef = 2
            bevd = 4
            bmagdef = 2
            bmagevd = 4
            bgan = 2
            bani = 2
            brai = 2
            brue = 4
            bjuk = 2
        ElseIf itemID = 106 Then
            itemName = "Ceramic Anklet"
            itemLVLReq = 11
            bmagdef = 3
            bmagevd = 8
            bgan = 1
            bani = 1
            brai = 1
            brue = 1
            bvak = 1
            bjuk = 1
        ElseIf itemID = 107 Then
            itemName = "Mountain Guard"
            itemLVLReq = 12
            bdef = 3
            bevd = 8
            bgan = 4
            bani = 2
            brai = 2
            brue = 2
            bvak = 2
        ElseIf itemID = 108 Then
            itemName = "Iron Anklet"
            itemLVLReq = 21
            bmagdef = 3
            bmagevd = 10
            bgan = 2
            bani = 2
            brai = 2
            bvak = 4
            bjuk = 2
        ElseIf itemID = 109 Then
            itemName = "Aqua Guard"
            itemLVLReq = 18
            bdef = 4
            bevd = 9
            bmagdef = 1
            bmagevd = 1
            bgan = 2
            bani = 2
            brai = 2
            brue = 4
            bvak = 2
        ElseIf itemID = 201 Then 'Armor
            itemName = "Leather Coat"
            itemLVLReq = 1
            amagdef = 2
            amagevd = 6
            agan = 1
            aani = 1
            arai = 1
            arue = 1
            avak = 1
            ajuk = 1
        ElseIf itemID = 202 Then
            itemName = "Leather Armour"
            itemLVLReq = 2
            adef = 1
            aevd = 1
            amagdef = 1
            amagevd = 1
            agan = 1
            aani = 1
            arai = 1
            arue = 1
            avak = 1
            ajuk = 1
        ElseIf itemID = 203 Then
            itemName = "Brigandine"
            itemLVLReq = 2
            adef = 2
            aevd = 6
            agan = 1
            aani = 1
            arai = 1
            arue = 1
            avak = 1
            ajuk = 1
        ElseIf itemID = 204 Then
            itemName = "Firedrake Mail"
            itemLVLReq = 22
            adef = 2
            aevd = 5
            amagdef = 2
            amagevd = 5
            agan = 2
            aani = 2
            arai = 2
            avak = 4
            ajuk = 2
        ElseIf itemID = 205 Then
            itemName = "Grand Armour"
            itemLVLReq = 13
            adef = 3
            aevd = 8
            agan = 4
            aani = 2
            arai = 2
            avak = 2
        ElseIf itemID = 206 Then
            itemName = "Hiking Gear"
            itemLVLReq = 11
            amagdef = 3
            amagevd = 8
            agan = 1
            aani = 1
            arai = 1
            arue = 1
            avak = 1
            ajuk = 1
        ElseIf itemID = 207 Then
            itemName = "Thunder Cloak"
            itemLVLReq = 31
            amagdef = 3
            amagevd = 12
            agan = 2
            arai = 4
            arue = 2
            avak = 2
            ajuk = 2
        ElseIf itemID = 208 Then
            itemName = "Wyrm Hide"
            itemLVLReq = 12
            adef = 2
            aevd = 3
            amagdef = 2
            amagevd = 3
            agan = 4
            arai = 1
            aani = 1
            arue = 1
            avak = 1
            ajuk = 1
        ElseIf itemID = 209 Then
            itemName = "Winter Coat"
            itemLVLReq = 16
            amagdef = 3
            amagevd = 9
            agan = 2
            arai = 2
            arue = 4
            aani = 2
            ajuk = 2
        ElseIf itemID = 210 Then
            itemName = "Firedrake Mail"
            itemLVLReq = 22
            adef = 2
            aevd = 5
            amagdef = 2
            amagevd = 5
            agan = 2
            arai = 2
            aani = 2
            avak = 4
            ajuk = 2
        ElseIf itemID = 301 Then 'Gloves
            itemName = "Wrist Band"
            itemLVLReq = 1
            gmagdef = 2
            gmagevd = 6
            ggan = 1
            gani = 1
            grai = 1
            grue = 1
            gvak = 1
            gjuk = 1
        ElseIf itemID = 302 Then
            itemName = "Leather Gloves"
            itemLVLReq = 2
            gdef = 1
            gevd = 1
            gmagdef = 1
            gmagevd = 1
            ggan = 1
            gani = 1
            grai = 1
            grue = 1
            gvak = 1
            gjuk = 1
        ElseIf itemID = 303 Then
            itemName = "Rusted Hands"
            itemLVLReq = 3
            gdef = 2
            gevd = 6
            ggan = 1
            gani = 1
            grai = 1
            grue = 1
            gvak = 1
            gjuk = 1
        ElseIf itemID = 304 Then
            itemName = "Miner's Gloves"
            itemLVLReq = 12
            gdef = 2
            gevd = 3
            gmagdef = 2
            gmagevd = 3
            ggan = 4
            gani = 1
            grai = 1
            grue = 1
            gvak = 1
            gjuk = 1
        ElseIf itemID = 305 Then
            itemName = "Hands of Strom"
            itemLVLReq = 33
            gdef = 5
            gevd = 11
            gmagdef = 2
            gmagevd = 1
            ggan = 2
            grai = 4
            grue = 2
            gvak = 2
            gjuk = 2
        ElseIf itemID = 306 Then
            itemName = "Storm Bracer"
            itemLVLReq = 31
            gmagdef = 3
            gmagevd = 12
            ggan = 2
            grai = 4
            grue = 2
            gvak = 2
            gjuk = 2
        ElseIf itemID = 307 Then
            itemName = "Silver Hands"
            itemLVLReq = 8
            gdef = 3
            gevd = 7
            ggan = 1
            grai = 1
            grue = 1
            gvak = 1
            gjuk = 1
            gani = 1
        ElseIf itemID = 401 Then 'Consumables
            itemName = "Small Health Potion"
            itemLVLReq = 1
            cost = 25
            resell = 5
        ElseIf itemID = 402 Then
            itemName = "Small Health Potion x2"
            itemLVLReq = 1
        ElseIf itemID = 403 Then
            itemName = "Small Health Potion x3"
            itemLVLReq = 1
        ElseIf itemID = 404 Then
            itemName = "Small Health Potion x4"
            itemLVLReq = 1
        ElseIf itemID = 405 Then
            itemName = "Small Health Potion x5"
            itemLVLReq = 1
        ElseIf itemID = 406 Then
            itemName = "Small Health Potion x6"
            itemLVLReq = 1
        ElseIf itemID = 407 Then
            itemName = "Small Health Potion x7"
            itemLVLReq = 1
        ElseIf itemID = 408 Then
            itemName = "Small Health Potion x8"
            itemLVLReq = 1
        ElseIf itemID = 409 Then
            itemName = "Small Health Potion x9"
            itemLVLReq = 1
        ElseIf itemID = 410 Then
            itemName = "Small Health Potion x10"
            itemLVLReq = 1
        ElseIf itemID = 411 Then
            itemName = "Medium Health Potion"
            itemLVLReq = 30
            cost = 50
            resell = 20
        ElseIf itemID = 412 Then
            itemName = "Medium Health Potion x2"
            itemLVLReq = 30
        ElseIf itemID = 413 Then
            itemName = "Medium Health Potion x3"
            itemLVLReq = 30
        ElseIf itemID = 414 Then
            itemName = "Medium Health Potion x4"
            itemLVLReq = 30
        ElseIf itemID = 415 Then
            itemName = "Medium Health Potion x5"
            itemLVLReq = 30
        ElseIf itemID = 416 Then
            itemName = "Medium Health Potion x6"
            itemLVLReq = 30
        ElseIf itemID = 417 Then
            itemName = "Medium Health Potion x7"
            itemLVLReq = 30
        ElseIf itemID = 418 Then
            itemName = "Medium Health Potion x8"
            itemLVLReq = 30
        ElseIf itemID = 419 Then
            itemName = "Medium Health Potion x9"
            itemLVLReq = 30
        ElseIf itemID = 420 Then
            itemName = "Medium Health Potion x10"
            itemLVLReq = 30
        ElseIf itemID = 421 Then
            itemName = "Large Health Potion"
            itemLVLReq = 50
            cost = 100
            resell = 45
        ElseIf itemID = 422 Then
            itemName = "Large Health Potion x2"
            itemLVLReq = 50
        ElseIf itemID = 423 Then
            itemName = "Large Health Potion x3"
            itemLVLReq = 50
        ElseIf itemID = 424 Then
            itemName = "Large Health Potion x4"
            itemLVLReq = 50
        ElseIf itemID = 425 Then
            itemName = "Large Health Potion x5"
            itemLVLReq = 50
        ElseIf itemID = 426 Then
            itemName = "Large Health Potion x6"
            itemLVLReq = 50
        ElseIf itemID = 427 Then
            itemName = "Large Health Potion x7"
            itemLVLReq = 50
        ElseIf itemID = 428 Then
            itemName = "Large Health Potion x8"
            itemLVLReq = 50
        ElseIf itemID = 429 Then
            itemName = "Large Health Potion x9"
            itemLVLReq = 50
        ElseIf itemID = 430 Then
            itemName = "Large Health Potion x10"
            itemLVLReq = 50
        ElseIf itemID = 501 Then
            itemName = "Small Skill Potion"
            itemLVLReq = 1
            cost = 35
            resell = 10
        ElseIf itemID = 502 Then
            itemName = "Small Skill Potion x2"
            itemLVLReq = 1
        ElseIf itemID = 503 Then
            itemName = "Small Skill Potion x3"
            itemLVLReq = 1
        ElseIf itemID = 504 Then
            itemName = "Small Skill Potion x4"
            itemLVLReq = 1
        ElseIf itemID = 505 Then
            itemName = "Small Skill Potion x5"
            itemLVLReq = 1
        ElseIf itemID = 506 Then
            itemName = "Small Skill Potion x6"
            itemLVLReq = 1
        ElseIf itemID = 507 Then
            itemName = "Small Skill Potion x7"
            itemLVLReq = 1
        ElseIf itemID = 508 Then
            itemName = "Small Skill Potion x8"
            itemLVLReq = 1
        ElseIf itemID = 509 Then
            itemName = "Small Skill Potion x9"
            itemLVLReq = 1
        ElseIf itemID = 510 Then
            itemName = "Small Skill Potion x10"
            itemLVLReq = 1
        ElseIf itemID = 511 Then
            itemName = "Medium Skill Potion"
            itemLVLReq = 30
            cost = 70
            resell = 30
        ElseIf itemID = 512 Then
            itemName = "Medium Skill Potion x2"
            itemLVLReq = 30
        ElseIf itemID = 513 Then
            itemName = "Medium Skill Potion x3"
            itemLVLReq = 30
        ElseIf itemID = 514 Then
            itemName = "Medium Skill Potion x4"
            itemLVLReq = 30
        ElseIf itemID = 515 Then
            itemName = "Medium Skill Potion x5"
            itemLVLReq = 30
        ElseIf itemID = 516 Then
            itemName = "Medium Skill Potion x6"
            itemLVLReq = 30
        ElseIf itemID = 517 Then
            itemName = "Medium Skill Potion x7"
            itemLVLReq = 30
        ElseIf itemID = 518 Then
            itemName = "Medium Skill Potion x8"
            itemLVLReq = 30
        ElseIf itemID = 519 Then
            itemName = "Medium Skill Potion x9"
            itemLVLReq = 30
        ElseIf itemID = 520 Then
            itemName = "Medium Skill Potion x10"
            itemLVLReq = 30
        ElseIf itemID = 521 Then
            itemName = "Large Skill Potion"
            cost = 140
            resell = 55
        ElseIf itemID = 522 Then
            itemName = "Large Skill Potion x2"
            itemLVLReq = 50
        ElseIf itemID = 523 Then
            itemName = "Large Skill Potion x3"
            itemLVLReq = 50
        ElseIf itemID = 524 Then
            itemName = "Large Skill Potion x4"
            itemLVLReq = 50
        ElseIf itemID = 525 Then
            itemName = "Large Skill Potion x5"
            itemLVLReq = 50
        ElseIf itemID = 526 Then
            itemName = "Large Skill Potion x6"
            itemLVLReq = 50
        ElseIf itemID = 527 Then
            itemName = "Large Skill Potion x7"
            itemLVLReq = 50
        ElseIf itemID = 528 Then
            itemName = "Large Skill Potion x8"
            itemLVLReq = 50
        ElseIf itemID = 529 Then
            itemName = "Large Skill Potion x9"
            itemLVLReq = 50
        ElseIf itemID = 530 Then
            itemName = "Large Skill Potion x10"
            itemLVLReq = 50
        ElseIf itemID = 2001 Then
            itemName = "Basic Sword"
            itemLVLReq = 1
            watk = 2
            wacc = 1
            cost = 300
            resell = 150
        ElseIf itemID = 2002 Then
            itemName = "Brave Sword"
            itemLVLReq = 1
            watk = 4
            wacc = 2
            cost = 500
            resell = 250
        ElseIf itemID = 2003 Then
            itemName = "8 Phase Sword"
            itemLVLReq = 2
            watk = 5
            wacc = 4
            cost = 600
            resell = 300
        ElseIf itemID = 2004 Then
            itemName = "Strange Blade"
            itemLVLReq = 4
            watk = 5
            wacc = 6
            cost = 1200
            resell = 600
        ElseIf itemID = 2005 Then
            itemName = "Executioner"
            itemLVLReq = 5
            watk = 6
            wacc = 7
            cost = 1400
            resell = 700
        ElseIf itemID = 2006 Then
            itemName = "Corpse Blade"
            itemLVLReq = 6
            watk = 8
            wacc = 9
            cost = 1800
            resell = 900
        ElseIf itemID = 2007 Then
            itemName = "Oval Sword"
            itemLVLReq = 7
            watk = 9
            wacc = 10
            cost = 2000
            resell = 1000
        ElseIf itemID = 2008 Then
            itemName = "Houraiken"
            itemLVLReq = 10
            watk = 12
            wacc = 15
            cost = 3000
            resell = 1500
        ElseIf itemID = 2009 Then
            itemName = "Guillotine"
            itemLVLReq = 11
            watk = 13
            wacc = 16
            cost = 3200
            resell = 1600
        ElseIf itemID = 2010 Then
            itemName = "Patriot"
            itemLVLReq = 15
            watk = 18
            wacc = 16
            wgan = 2
            wrai = 2
            wjuk = 2
            wani = 2
            wrue = 2
            wvak = 2
            cost = 4200
            resell = 2100
        ElseIf itemID = 2011 Then
            itemName = "Siegfried"
            itemLVLReq = 16
            watk = 19
            wacc = 16
            wgan = 3
            wrai = 3
            wjuk = 3
            wani = 3
            wrue = 3
            wvak = 3
            cost = 4400
            resell = 2200
        ElseIf itemID = 2012 Then
            itemName = "Comet Blade"
            itemLVLReq = 18
            watk = 20
            wacc = 18
            cost = 5200
            resell = 2600
        ElseIf itemID = 2013 Then
            itemName = "Lions Blade"
            itemLVLReq = 21
            watk = 22
            wacc = 16
            wmagatk = 2
            wmagacc = 2
            wgan = 4
            wrai = 4
            wjuk = 4
            wani = 4
            wrue = 4
            wvak = 4
            cost = 6000
            resell = 3000
        ElseIf itemID = 2014 Then
            itemName = "Sword"
            itemLVLReq = 23
            watk = 23
            wacc = 10
            wmagatk = 5
            wmagacc = 10
            wrue = 20
            wvak = -20
            cost = 6400
            resell = 3200
        ElseIf itemID = 2015 Then
            itemName = "Rondo"
            itemLVLReq = 2
            watk = 5
            wacc = 3
            wgan = 5
            wjuk = -5
            cost = 700
            resell = 350
        ElseIf itemID = 2016 Then
            itemName = "Gakaku"
            itemLVLReq = 3
            watk = 5
            wacc = 5
            wrue = -5
            wvak = 5
            cost = 1000
            resell = 500
        ElseIf itemID = 2017 Then
            itemName = "Unicorn Blade"
            itemLVLReq = 5
            watk = 7
            wacc = 8
            wrai = -5
            wani = 5
            cost = 1600
            resell = 800
        ElseIf itemID = 2018 Then
            itemName = "Fugaku"
            itemLVLReq = 8
            watk = 11
            wacc = 12
            wgan = 7
            wjuk = -7
            cost = 2200
            resell = 1100
        ElseIf itemID = 2019 Then
            itemName = "Ensui"
            itemLVLReq = 9
            watk = 11
            wacc = 13
            wrue = 7
            wvak = -7
            cost = 2600
            resell = 1300
        ElseIf itemID = 2020 Then
            itemName = "Komura"
            itemLVLReq = 10
            watk = 11
            wacc = 14
            wrue = -7
            wvak = 7
            cost = 2800
            resell = 1400
        ElseIf itemID = 2021 Then
            itemName = "Dogmans Sword"
            itemLVLReq = 12
            watk = 14
            wacc = 17
            wrue = -7
            wvak = 7
            cost = 3400
            resell = 1700
        ElseIf itemID = 2022 Then
            itemName = "6 Side Blade"
            itemLVLReq = 20
            watk = 21
            wacc = 14
            wmagatk = 1
            wmagacc = 2
            wgan = 3
            wrai = 3
            wjuk = 3
            wani = 3
            wrue = 3
            wvak = 3
            cost = 5600
            resell = 2800
        ElseIf itemID = 2023 Then
            itemName = "Matoi"
            itemLVLReq = 23
            watk = 23
            wacc = 13
            wmagatk = 2
            wmagacc = 2
            wgan = 12
            wjuk = -12
            cost = 6400
            resell = 3200
        ElseIf itemID = 2024 Then
            itemName = "Heavenly Sword"
            itemLVLReq = 32
            watk = 23
            wacc = 13
            wmagatk = 5
            wmagacc = 5
            wrue = 12
            wvak = -12
            cost = 8000
            resell = 4000
        ElseIf itemID = 2025 Then
            itemName = "Nataku"
            itemLVLReq = 34
            watk = 23
            wacc = 14
            wmagatk = 2
            wmagacc = 2
            wrue = 12
            wvak = -5
            cost = 8400
            resell = 4200
        ElseIf itemID = 2026 Then
            itemName = "Soujin"
            itemLVLReq = 35
            watk = 24
            wacc = 15
            wmagatk = 2
            wmagacc = 2
            wrue = -5
            wvak = 12
            cost = 8600
            resell = 4300
        ElseIf itemID = 2027 Then
            itemName = "Bloody Pain"
            itemLVLReq = 37
            watk = 24
            wacc = 12
            wmagatk = 2
            wmagacc = 2
            wvak = 6
            wani = 6
            cost = 9000
            resell = 4500
        ElseIf itemID = 2028 Then
            itemName = "Oberon"
            itemLVLReq = 43
            watk = 26
            wacc = 12
            wmagatk = 3
            wmagacc = 3
            wgan = 3
            wrue = 3
            wvak = 3
            wjuk = 3
            wrai = 3
            wani = 3
            cost = 10200
            resell = 5100
        ElseIf itemID = 2029 Then
            itemName = "Mizuchi"
            itemLVLReq = 2
            watk = 5
            wacc = 4
            wrue = 5
            wvak = -5
            cost = 800
            resell = 400
        ElseIf itemID = 2030 Then
            itemName = "Gruntys Sword"
            itemLVLReq = 8
            watk = 10
            wacc = 11
            cost = 2400
            resell = 1200
        ElseIf itemID = 2031 Then
            itemName = "Souleater"
            itemLVLReq = 10
            watk = 12
            wacc = 15
            cost = 3000
            resell = 1500
        ElseIf itemID = 2032 Then
            itemName = "Singing Blade"
            itemLVLReq = 11
            watk = 13
            wacc = 16
            cost = 3200
            resell = 1600
        ElseIf itemID = 2033 Then
            itemName = "Glitter"
            itemLVLReq = 13
            watk = 16
            wacc = 19
            wmagatk = 10
            wmagacc = 10
            cost = 3800
            resell = 1900
        ElseIf itemID = 2034 Then
            itemName = "Steel Blade"
            itemLVLReq = 13
            watk = 15
            wacc = 23
            cost = 3600
            resell = 1800
        ElseIf itemID = 2035 Then
            itemName = "Demon Killer"
            itemLVLReq = 19
            watk = 20
            wacc = 19
            wmagatk = 1
            wmagacc = 1
            wrai = -10
            wani = 10
            cost = 5400
            resell = 2700
        ElseIf itemID = 2036 Then
            itemName = "Tenkafuubu"
            itemLVLReq = 40
            watk = 24
            wacc = 13
            wmagatk = 2
            wmagacc = 2
            wgan = 3
            wrue = 3
            wvak = 3
            wjuk = 3
            wrai = 3
            wani = 3
            cost = 9600
            resell = 4800
        ElseIf itemID = 2037 Then
            itemName = "Phantom Blade"
            itemLVLReq = 40
            watk = 25
            wacc = 11
            wmagatk = 3
            wmagacc = 3
            wgan = 2
            wrue = 2
            wvak = 2
            wjuk = 2
            wrai = -5
            wani = 13
        ElseIf itemID = 2038 Then
            itemName = "Rising Sun"
            itemLVLReq = 42
            watk = 25
            wacc = 13
            wmagatk = 3
            wmagacc = 3
            wgan = 2
            wrue = -5
            wvak = 13
            wjuk = 2
            wrai = 2
            wani = 2
        ElseIf itemID = 2039 Then
            itemName = "Pegasus Comet"
            itemLVLReq = 48
            watk = 27
            wacc = 10
            wmagatk = 3
            wmagacc = 3
            wgan = 4
            wrue = 4
            wvak = 4
            wjuk = 4
            wrai = 4
            wani = 4
        ElseIf itemID = 2040 Then
            itemName = "Seventh Seal"
            itemLVLReq = 50
            watk = 27
            wacc = 12
            wmagatk = 3
            wmagacc = 3
            wgan = 5
            wrue = 5
            wvak = 5
            wjuk = 5
            wrai = 5
            wani = 5
        ElseIf itemID = 2041 Then
            itemName = "Banished Blade"
            itemLVLReq = 44
            watk = 26
            wacc = 13
            wmagatk = 3
            wmagacc = 3
            wgan = 3
            wrue = 3
            wvak = 3
            wjuk = 3
            wrai = 3
            wani = 3
        ElseIf itemID = 2042 Then
            itemName = "Fair Soul"
            itemLVLReq = 52
            watk = 28
            wacc = 11
            wmagatk = 3
            wmagacc = 4
            wgan = 15
            wrue = 1
            wvak = 1
            wjuk = -5
            wrai = 1
            wani = 1
        ElseIf itemID = 2043 Then
            itemName = "Stream Sword"
            itemLVLReq = 55
            watk = 28
            wacc = 12
            wmagatk = 4
            wmagacc = 4
            wgan = 2
            wrue = 15
            wvak = -5
            wjuk = 2
            wrai = 2
            wani = 2
        ElseIf itemID = 2044 Then 'Rare Blade Master Weapons
            itemName = "Phoenixs Wing"
            itemLVLReq = 13
            watk = 16
            wacc = 19
            wmagatk = 10
            wmagacc = 10
            cost = 4000
            resell = 2000
        ElseIf itemID = 2045 Then
            itemName = "Seal Sword"
            itemLVLReq = 14
            watk = 17
            wacc = 20
            wgan = 3
            wrue = 3
            wvak = 3
            wjuk = 3
            wrai = 3
            wani = 3
            cost = 4000
            resell = 2000
        ElseIf itemID = 2046 Then
            itemName = "Jinsaran"
            itemLVLReq = 14
            watk = 18
            wacc = 22
            wmagatk = -10
            wmagacc = -10
            wrue = -15
            wvak = 15
            cost = 4000
            resell = 2000
        ElseIf itemID = 2047 Then
            itemName = "7 Star Sword"
            itemLVLReq = 21
            watk = 21
            wacc = 15
            wmagatk = 2
            wmagacc = 2
            wgan = 4
            wrue = 4
            wvak = 4
            wjuk = 4
            wrai = 4
            wani = 4
            cost = 5800
            resell = 2900
        ElseIf itemID = 2048 Then
            itemName = "Menhir Sword"
            itemLVLReq = 22
            watk = 22
            wacc = 17
            wmagatk = 2
            wmagacc = 2
            wgan = 5
            wrue = 5
            wvak = 5
            wjuk = 5
            wrai = 5
            wani = 5
            cost = 6200
            resell = 3100
        ElseIf itemID = 2049 Then
            itemName = "Bureido"
            itemLVLReq = 23
            watk = 24
            wacc = 14
            wdef = -15
            cost = 6500
            resell = 3250
        ElseIf itemID = 2050 Then
            itemName = "SKs Sword"
            itemLVLReq = 29
            watk = 25
            wacc = 11
            wmagatk = 2
            wmagacc = 2
            wgan = 1
            wrue = 1
            wvak = 1
            wjuk = 1
            wrai = 1
            wani = 1
        ElseIf itemID = 2051 Then
            itemName = "Sorrow"
            itemLVLReq = 40
            watk = -30
            wacc = 30
            wmagatk = -30
            wmagacc = 30
        ElseIf itemID = 2052 Then
            itemName = "Gimme Life"
            itemLVLReq = 51
            watk = 27
            wacc = 6
            wmagatk = 6
            wmagacc = 6
            wgan = 15
            wrue = 3
            wvak = 3
            wjuk = -5
            wrai = 3
            wani = 2
        ElseIf itemID = 2053 Then
            itemName = "Bears Sword"
            itemLVLReq = 53
            watk = 28
            wdef = 6
            wacc = 15
            wmagatk = 4
            wmagacc = 6
            wgan = 2
            wrue = 2
            wvak = 2
            wjuk = 2
            wrai = 2
            wani = 2
        ElseIf itemID = 2054 Then
            itemName = "Phoenixs Fire"
            itemLVLReq = 55
            watk = 29
            wacc = 15
            wevd = -10
            wmagatk = 2
            wmagacc = 2
            wgan = 4
            wrue = 4
            wvak = 4
            wjuk = 4
            wrai = 4
            wani = 4
        ElseIf itemID = 2055 Then
            itemName = "Chaos Sword"
        ElseIf itemID = 2056 Then 'Event and Quest Blade Master Weapons
            itemName = "Ends of Earth"
            itemLVLReq = 11
            watk = 30
            wacc = 28
        ElseIf itemID = 2057 Then
            itemName = "Heaven & Earth"
            itemLVLReq = 16
            watk = 40
            wdef = 3
            wacc = 35
            wevd = -5
            wmagdef = 10
            wmagevd = 10
            wgan = 15
            wani = -15
            resell = 2300
        ElseIf itemID = 2058 Then
            itemName = "Lake & Sea"
            itemLVLReq = 17
            watk = 35
            wdef = 1
            wacc = 30
            wevd = -10
            wmagatk = 5
            wmagacc = -5
            wrue = 20
            wvak = -20
            wrai = -20
            resell = 2400
        ElseIf itemID = 2059 Then
            itemName = "Fire & Sky"
            itemLVLReq = 18
            watk = 37
            wdef = 10
            wacc = 36
            wevd = 10
            wmagdef = -50
            wmagacc = -20
            wmagevd = -50
            wrue = -20
            wvak = 20
            wrai = 10
            resell = 2500
        ElseIf itemID = 2060 Then 'Other
            itemName = "Honours Breath"
        ElseIf itemID = 2061 Then
            itemName = "Scarlet Cross"
        ElseIf itemID = 2062 Then
            itemName = "God Slayer"
        ElseIf itemID = 2063 Then
            itemName = "Needle Blade"
        ElseIf itemID = 2064 Then
            itemName = "Shichiyou"
        ElseIf itemID = 2065 Then
            itemName = "Gold Sword"
        ElseIf itemID = 2066 Then
            itemName = "Trickster"
        ElseIf itemID = 2067 Then
            itemName = "Saturn Sword"
        ElseIf itemID = 2068 Then
            itemName = "Mercury Sword"
        ElseIf itemID = 2069 Then
            itemName = "Mars Sword"
        ElseIf itemID = 2070 Then
            itemName = "Phantom Pain"
        ElseIf itemID = 2071 Then
            itemName = "Skysweeper"
        ElseIf itemID = 2072 Then
            itemName = "Rugrats Nights"
        ElseIf itemID = 2073 Then
            itemName = "Evil Eyes"
        ElseIf itemID = 2074 Then
            itemName = "Jormungand"
        ElseIf itemID = 2075 Then
            itemName = "Eternity"
        ElseIf itemID = 1001 Then 'Long Arm Weapons
            itemName = "Bronze Spear"
            itemLVLReq = 1
            watk = 3
            wacc = 1
        ElseIf itemID = 1002 Then
            itemName = "Iron Spear"
            itemLVLReq = 1
            watk = 4
            wacc = 2
        ElseIf itemID = 1003 Then
            itemName = "Amazon Spear"
            itemLVLReq = 2
            watk = 8
            wacc = 2
        ElseIf itemID = 1004 Then
            itemName = "Relief Lance"
            itemLVLReq = 2
            watk = 8
            wacc = 3
        ElseIf itemID = 1005 Then
            itemName = "Water Spear"
            itemLVLReq = 2
            watk = 8
            wacc = 4
            wrue = 5
            wvak = -5
        ElseIf itemID = 1006 Then
            itemName = "Fire Spear"
            itemLVLReq = 3
            watk = 8
            wacc = 5
            wrue = -5
            wvak = 5
        ElseIf itemID = 1007 Then
            itemName = "Wooden Spear"
            itemLVLReq = 4
            watk = 8
            wacc = 6
            wgan = -5
            wjuk = 5
        ElseIf itemID = 1008 Then
            itemName = "Electric Spear"
            itemLVLReq = 4
            watk = 8
            wacc = 6
            wrai = 5
            wani = -5
        ElseIf itemID = 1009 Then
            itemName = "Glaive"
            itemLVLReq = 5
            watk = 8
            wacc = 8
        ElseIf itemID = 1010 Then
            itemName = "Gold Spear"
            itemLVLReq = 6
            watk = 13
            wacc = 9
        ElseIf itemID = 1011 Then
            itemName = "Nihonmaru"
            itemLVLReq = 7
            watk = 15
            wacc = 10
        ElseIf itemID = 1012 Then
            itemName = "Spear of Spell"
            itemLVLReq = 7
            watk = 15
            wacc = 11
        ElseIf itemID = 1013 Then
            itemName = "Bloody Lance"
            itemLVLReq = 8
            watk = 17
            wacc = 12
            wgan = 3
            wrue = 3
            wvak = 3
            wjuk = 3
            wrai = 3
            wani = 3
        ElseIf itemID = 1014 Then
            itemName = "Eternal Victor"
            itemLVLReq = 9
            watk = 17
            wacc = 13
            wgan = 1
            wrue = 1
            wvak = 1
            wjuk = 1
            wrai = 1
            wani = 1
        ElseIf itemID = 1015 Then
            itemName = "Merman Spear"
            itemLVLReq = 9
            watk = 17
            wacc = 13
            wrue = 10
            wvak = -10
        ElseIf itemID = 3001 Then 'Wave Master Weapons
            itemName = "Cypress Wand"
            itemLVLReq = 1
            watk = 2
            wacc = 1
        ElseIf itemID = 3002 Then
            itemName = "Iron Rod"
            itemLVLReq = 1
            wmagatk = 2
            wmagacc = 2
        ElseIf itemID = 3003 Then
            itemName = "Electric Wand"
            itemLVLReq = 4
            wmagatk = 4
            wmagacc = 7
            wrai = 5
            wani = -5
        ElseIf itemID = 3004 Then
            itemName = "Fire Wand"
            itemLVLReq = 3
            wmagatk = 4
            wmagacc = 5
            wvak = 5
            wrue = -5
        ElseIf itemID = 3005 Then
            itemName = "Water Wand"
            itemLVLReq = 2
            wmagatk = 4
            wmagacc = 4
            wrue = 5
            wvak = -5
        ElseIf itemID = 4001 Then 'Heavy Axe Weapons
            itemName = "Hatchet"
            itemLVLReq = 1
            watk = 3
            wacc = 1
        ElseIf itemID = 4002 Then
            itemName = "Water Axe"
            itemLVLReq = 3
            watk = 5
            wacc = 2
            wrue = 5
            wvak = -5
        ElseIf itemID = 4003 Then
            itemName = "Golden Axe"
            itemLVLReq = 1
            watk = 1
        ElseIf itemID = 4004 Then
            itemName = "Flame Axe"
            itemLVLReq = 4
            watk = 5
            wacc = 3
        ElseIf itemID = 4005 Then
            itemName = "Battle Axe"
            itemLVLReq = 2
            watk = 5
            wacc = 1
            wgan = 5
            wjuk = -5
        ElseIf itemID = 5001 Then 'Heavy Blade Weapons
            itemName = "Steel Blade"
            itemLVLReq = 1
            watk = 3
            wacc = 1
        ElseIf itemID = 5002 Then
            itemName = "Kikuichimonji"
            itemLVLReq = 1
            watk = 5
            wacc = 2
        ElseIf itemID = 5003 Then
            itemName = "Earth Sword"
            itemLVLReq = 2
            watk = 7
            wacc = 2
            wgan = 5
            wjuk = -5
        ElseIf itemID = 5004 Then
            itemName = "Slayer"
            itemLVLReq = 6
            watk = 8
            wacc = 5
        ElseIf itemID = 5005 Then
            itemName = "Stun Sword"
            itemLVLReq = 5
            watk = 7
            wacc = 6
            wrai = 5
            wani = -5
        ElseIf itemID = 5006 Then
            itemName = "Green Sword"
            itemLVLReq = 4
            watk = 7
            wacc = 5
            wjuk = 5
            wgan = -5
        ElseIf itemID = 6001 Then 'Twin Blade Weapons
            itemName = "Amateur Blades"
            itemLVLReq = 1
            watk = 2
            wacc = 1
            wmagatk = 1
            wmagacc = 1
            cost = 400
            resell = 200
        ElseIf itemID = 6002 Then
            itemName = "Phantom Blades"
            itemLVLReq = 2
            watk = 4
            wacc = 3
            wmagatk = 2
            wmagacc = 2
            cost = 800
            resell = 400
        ElseIf itemID = 6003 Then
            itemName = "Assassin"
            itemLVLReq = 3
            watk = 4
            wacc = 4
            wmagatk = 2
            wmagacc = 2
            cost = 1000
            resell = 500
        ElseIf itemID = 6004 Then
            itemName = "Steel Blades"
            itemLVLReq = 1
            watk = 3
            wacc = 2
            wmagatk = 1
            wmagacc = 2
            cost = 600
            resell = 300
        ElseIf itemID = 6005 Then
            itemName = "Lath Blades"
            itemLVLReq = 4
            watk = 4
            wacc = 6
            wmagatk = 2
            wmagacc = 2
            wgan = -5
            wjuk = 5
            cost = 1400
            resell = 700
        ElseIf itemID = 6006 Then
            itemName = "Shadow Blades"
            itemLVLReq = 6
            watk = 4
            wacc = 8
            wmagatk = 2
            wmagacc = 2
            wrai = -5
            wani = 5
            cost = 1800
            resell = 900
        ElseIf itemID = 6007 Then
            itemName = "Spark Blades"
            itemLVLReq = 3
            watk = 4
            wacc = 5
            wmagatk = 2
            wmagacc = 2
            wrue = -5
            wvak = 5
            cost = 1200
            resell = 600
        ElseIf itemID = 6008 Then
            itemName = "Sotetsu"
            itemLVLReq = 9
            watk = 9
            wacc = 13
            wmagatk = 2
            wmagacc = 2
        ElseIf itemID = 6009 Then
            itemName = "Fuse Blades"
            itemLVLReq = 5
            watk = 4
            wacc = 7
            wmagatk = 2
            wmagacc = 2
            wrai = -5
            wani = 5
            cost = 1600
            resell = 800
        ElseIf itemID = 6010 Then
            itemName = "Cats Blades"
            itemLVLReq = 6
            watk = 6
            wacc = 9
            wmagatk = 2
            wmagacc = 2
            wgan = 1
            wrue = 1
            wvak = 1
            wjuk = 1
            wrai = 1
            wani = 1
            cost = 2000
            resell = 1000
        ElseIf itemID = 6011 Then
            itemName = "Ronin Blads"
            itemLVLReq = 7
            watk = 7
            wacc = 10
            wevd = 10
            wmagatk = 2
            wmagacc = 1
            cost = 2200
            resell = 1100
        ElseIf itemID = 6012 Then
            itemName = "Spell Blades"
            itemLVLReq = 8
            watk = 8
            wacc = 11
            wmagatk = 2
            wmagacc = 2
            cost = 2400
            resell = 1200
        ElseIf itemID = 6013 Then
            itemName = "Bloody Blades"
            itemLVLReq = 8
            watk = 8
            wacc = 12
            wmagatk = 2
            wmagacc = 2
            cost = 2600
            resell = 1300
        ElseIf itemID = 6014 Then
            itemName = "Enou"
            itemLVLReq = 10
            watk = 9
            wacc = 14
            wmagatk = 2
            wmagacc = 2
            wvak = 10
            wrue = -10
            cost = 3000
            resell = 1500
        ElseIf itemID = 6015 Then
            itemName = "Ryokugun"
            itemLVLReq = 11
            watk = 9
            wacc = 15
            wmagatk = 2
            wmagacc = 2
            wjuk = 10
            wgan = -10
            cost = 3200
            resell = 1600
        ElseIf itemID = 6016 Then
            itemName = "Raitei"
            itemLVLReq = 11
            watk = 9
            wacc = 16
            wmagatk = 2
            wmagacc = 2
            wrai = 10
            wani = -10
            cost = 3400
            resell = 1700
        ElseIf itemID = 6017 Then
            itemName = "Anshou"
            itemLVLReq = 12
            watk = 9
            wacc = 17
            wmagatk = 4
            wmagacc = 4
            wani = 10
            wrai = -10
            cost = 3600
            resell = 1800
        ElseIf itemID = 6018 Then
            itemName = "Soul Blades"
            itemLVLReq = 12
            watk = 9
            wacc = 20
            wmagatk = -5
            wmagacc = -5
            wrai = 2
            wvak = 2
            wani = 2
            wjuk = 2
            cost = 3600
            resell = 1800
        ElseIf itemID = 6019 Then
            itemName = "Master Blades"
            itemLVLReq = 13
            watk = 11
            wacc = 18
            wmagatk = 4
            wmagacc = 4
            wrai = 2
            wvak = 2
            wani = 2
            wjuk = 2
            wrue = 2
            wgan = 2
            cost = 3800
            resell = 1900
        ElseIf itemID = 6020 Then
            itemName = "Dante's Blades"
            itemLVLReq = 14
            watk = 10
            wacc = 20
            wmagatk = 4
            wmagacc = 4
            cost = 4200
            resell = 2100
        ElseIf itemID = 6021 Then
            itemName = "Hell's Gate"
            itemLVLReq = 14
            watk = 12
            wacc = 19
            wmagatk = 4
            wmagacc = 4
            wrai = 3
            wvak = 3
            wani = 3
            wjuk = 3
            wrue = 3
            wgan = 3
            cost = 4000
            resell = 2000
        ElseIf itemID = 6022 Then
            itemName = "Sotetsu"
            itemLVLReq = 9
            watk = 9
            wacc = 13
            wmagatk = 2
            wmagacc = 2
            cost = 2800
            resell = 1400
        ElseIf itemID = 6023 Then
            itemName = "Shirogane"
            itemLVLReq = 15
            watk = 13
            wacc = 10
            wmagatk = 5
            wmagacc = 5
            wrai = 3
            wvak = 3
            wani = 3
            wjuk = 3
            wrue = 3
            wgan = 3
            cost = 4400
            resell = 2200
        ElseIf itemID = 6024 Then
            itemName = "Kurogane"
            itemLVLReq = 16
            watk = 13
            wacc = 20
            wmagatk = 4
            wmagacc = 5
            wrai = 4
            wvak = 4
            wani = 4
            wjuk = 4
            wrue = 4
            wgan = 4
            cost = 4600
            resell = 2300
        ElseIf itemID = 6025 Then
            itemName = "Yosetu & Fuyou"
            itemLVLReq = 16
            watk = 14
            wacc = 10
            wmagatk = 5
            wmagacc = 5
            wrai = 5
            wvak = 5
            wani = 5
            wjuk = 5
            wrue = 5
            wgan = 5
            cost = 4800
            resell = 2400
        ElseIf itemID = 6026 Then
            itemName = "Slayers"
            itemLVLReq = 17
            watk = 15
            wacc = 10
            wevd = 10
            wmagatk = 4
            wmagacc = 5
            wmagevd = 10
            cost = 5000
            resell = 2500
        ElseIf itemID = 6027 Then
            itemName = "Homura"
            itemLVLReq = 18
            watk = 15
            wacc = 5
            wmagatk = 6
            wmagacc = 6
            wrue = -12
            wvak = 12
            cost = 5200
            resell = 2600
        ElseIf itemID = 6028 Then
            itemName = "Tsumuji"
            itemLVLReq = 19
            watk = 15
            wacc = 10
            wmagatk = 4
            wmagacc = 6
            wgan = -12
            wjuk = 12
            cost = 5400
            resell = 2700
        ElseIf itemID = 6029 Then
            itemName = "Mikazuchi"
            itemLVLReq = 19
            watk = 15
            wacc = 5
            wmagatk = 6
            wmagacc = 6
            wrai = 10
            wani = -12
            cost = 5600
            resell = 2800
        ElseIf itemID = 6030 Then
            itemName = "Mukuro"
            itemLVLReq = 20
            watk = 16
            wacc = 10
            wmagatk = 4
            wmagacc = 6
            wrai = -12
            wani = 12
            cost = 5800
            resell = 2900
        ElseIf itemID = 9999 Then
            itemName = "Blade of Vengence"
            itemLVLReq = 1
            watk = 200
            wacc = 200
            wevd = 200
            wdef = 200
            wmagatk = 200
            wmagacc = 200
            wmagdef = 200
            wmagevd = 200
            wgan = 200
            wrue = 200
            wvak = 200
            wjuk = 200
            wrai = 200
            wani = 200
        End If

        If varTrigger = 1 Then
            Return itemName
        ElseIf varTrigger = 2 Then
            Return itemLVLReq
        ElseIf varTrigger = 3 Then 'return item stats
            With gamescreen
                If itemID >= 1 And itemID <= 100 Then
                    statReset(1)
                    '.equipedItems.Items.RemoveAt(0)
                    '.equipedItems.Items.Insert(0, itemID)
                    '.equipedItemsInv.Items.RemoveAt(0)
                    '.equipedItemsInv.Items.Insert(0, .lsinv.SelectedIndex)
                    .hatk = hatk
                    .hacc = hacc
                    .hevd = hevd
                    .hdef = hdef
                    .hmagatk = hmagatk
                    .hmagacc = hmagacc
                    .hmagdef = hmagdef
                    .hmagevd = hmagevd
                    .hgan = hgan
                    .hrue = hrue
                    .hvak = hvak
                    .hjuk = hjuk
                    .hrai = hrai
                    .hani = hani
                ElseIf itemID >= 101 And itemID <= 200 Then
                    statReset(2)
                    '.equipedItems.Items.RemoveAt(1)
                    '.equipedItems.Items.Insert(1, itemID)
                    '.equipedItemsInv.Items.RemoveAt(1)
                    '.equipedItemsInv.Items.Insert(1, .lsinv.SelectedIndex)
                    .batk = batk
                    .bacc = bacc
                    .bevd = bevd
                    .bdef = bdef
                    .bmagatk = bmagatk
                    .bmagacc = bmagacc
                    .bmagdef = bmagdef
                    .bmagevd = bmagevd
                    .bgan = bgan
                    .brue = brue
                    .bvak = bvak
                    .bjuk = bjuk
                    .brai = brai
                    .bani = bani
                ElseIf itemID >= 201 And itemID <= 300 Then
                    statReset(3)
                    '.equipedItems.Items.RemoveAt(2)
                    '.equipedItems.Items.Insert(2, itemID)
                    '.equipedItemsInv.Items.RemoveAt(2)
                    '.equipedItemsInv.Items.Insert(2, .lsinv.SelectedIndex)
                    .aatk = aatk
                    .aacc = aacc
                    .aevd = aevd
                    .adef = adef
                    .amagatk = amagatk
                    .amagacc = amagacc
                    .amagdef = amagdef
                    .amagevd = amagevd
                    .agan = agan
                    .arue = arue
                    .avak = avak
                    .ajuk = ajuk
                    .arai = arai
                    .aani = aani
                ElseIf itemID >= 301 And itemID <= 400 Then
                    statReset(4)
                    '.equipedItems.Items.RemoveAt(3)
                    '.equipedItems.Items.Insert(3, itemID)
                    '.equipedItemsInv.Items.RemoveAt(3)
                    '.equipedItemsInv.Items.Insert(3, .lsinv.SelectedIndex)
                    .gatk = gatk
                    .gacc = gacc
                    .gevd = gevd
                    .gdef = gdef
                    .gmagatk = gmagatk
                    .gmagacc = gmagacc
                    .gmagdef = gmagdef
                    .gmagevd = gmagevd
                    .ggan = ggan
                    .grue = grue
                    .gvak = gvak
                    .gjuk = gjuk
                    .grai = grai
                    .gani = gani
                Else
                    statReset(5)
                    '.equipedItems.Items.RemoveAt(4)
                    '.equipedItems.Items.Insert(4, itemID)
                    '.equipedItemsInv.Items.RemoveAt(4)
                    '.equipedItemsInv.Items.Insert(4, .lsinv.SelectedIndex)
                    .watk = watk
                    .wacc = wacc
                    .wevd = wevd
                    .wdef = wdef
                    .wmagatk = wmagatk
                    .wmagacc = wmagacc
                    .wmagdef = wmagdef
                    .wmagevd = wmagevd
                    .wgan = wgan
                    .wrue = wrue
                    .wvak = wvak
                    .wjuk = wjuk
                    .wrai = wrai
                    .wani = wani
                End If
            End With
        ElseIf varTrigger = 4 Then
            Return cost
        ElseIf varTrigger = 5 Then
            Return resell
        End If

    End Function

    Public Sub statReset(ByVal trigger As Integer)
        With gamescreen
            If trigger = 1 Then
                .hatk = 0
                .hacc = 0
                .hevd = 0
                .hdef = 0
                .hmagatk = 0
                .hmagacc = 0
                .hmagdef = 0
                .hmagevd = 0
                .hgan = 0
                .hrue = 0
                .hvak = 0
                .hjuk = 0
                .hrai = 0
                .hani = 0
            ElseIf trigger = 2 Then
                .batk = 0
                .bacc = 0
                .bevd = 0
                .bdef = 0
                .bmagatk = 0
                .bmagacc = 0
                .bmagdef = 0
                .bmagevd = 0
                .bgan = 0
                .brue = 0
                .bvak = 0
                .bjuk = 0
                .brai = 0
                .bani = 0
            ElseIf trigger = 3 Then
                .aatk = 0
                .aacc = 0
                .aevd = 0
                .adef = 0
                .amagatk = 0
                .amagacc = 0
                .amagdef = 0
                .amagevd = 0
                .agan = 0
                .arue = 0
                .avak = 0
                .ajuk = 0
                .arai = 0
                .aani = 0
            ElseIf trigger = 4 Then
                .gatk = 0
                .gacc = 0
                .gevd = 0
                .gdef = 0
                .gmagatk = 0
                .gmagacc = 0
                .gmagdef = 0
                .gmagevd = 0
                .ggan = 0
                .grue = 0
                .gvak = 0
                .gjuk = 0
                .grai = 0
                .gani = 0
            Else
                .watk = 0
                .wacc = 0
                .wevd = 0
                .wdef = 0
                .wmagatk = 0
                .wmagacc = 0
                .wmagdef = 0
                .wmagevd = 0
                .wgan = 0
                .wrue = 0
                .wvak = 0
                .wjuk = 0
                .wrai = 0
                .wani = 0
            End If
        End With
    End Sub

    Private Sub itemStatReset()
        watk = 0
        wacc = 0
        wdef = 0
        wevd = 0
        wmagacc = 0
        wmagatk = 0
        wmagdef = 0
        wmagevd = 0
        wgan = 0
        wjuk = 0
        wani = 0
        wvak = 0
        wrai = 0
        wrue = 0
        hacc = 0
        hatk = 0
        hevd = 0
        hdef = 0
        hmagacc = 0
        hmagatk = 0
        hmagdef = 0
        hmagevd = 0
        hgan = 0
        hvak = 0
        hrue = 0
        hrai = 0
        hjuk = 0
        hani = 0
        gacc = 0
        gatk = 0
        gevd = 0
        gdef = 0
        gmagacc = 0
        gmagatk = 0
        gmagdef = 0
        gmagevd = 0
        ggan = 0
        gvak = 0
        grue = 0
        grai = 0
        gjuk = 0
        gani = 0
        aacc = 0
        aatk = 0
        aevd = 0
        adef = 0
        amagacc = 0
        amagatk = 0
        amagdef = 0
        amagevd = 0
        agan = 0
        avak = 0
        arue = 0
        arai = 0
        ajuk = 0
        aani = 0
        bacc = 0
        batk = 0
        bevd = 0
        bdef = 0
        bmagacc = 0
        bmagatk = 0
        bmagdef = 0
        bmagevd = 0
        bgan = 0
        bvak = 0
        brue = 0
        brai = 0
        bjuk = 0
        bani = 0
    End Sub

End Module


Pastebin.com:
http://pastebin.com/fi5C52xF

əməyə Hörmət !

http://s017.radikal.ru/i404/1202/c6/a2947080a3c4.png
Anti-armenia.ORG
    

Istifadəçi
    2012-03-29 10:30 GMT                 

Muslim Group



İstifadəçi
Mesaj Sayı : 5
Mövzu Sayı :
Rep Ver : 
Rep Sayı :   0  
Indi Saytda : Durum
Cinsiyyət : Oğlan
Şəhər :
Ölkə :
Məslək :
Yaş :
Mesaj :

Mövzunu Paylaş!


əməyə hörmət.əziyyət çəkmisən bro.amma items əlave etmək delphidə daha asandır nəinki vb-də.

Anti-armenia.ORG
    

Istifadəçi
    2012-03-29 13:12 GMT                 

Avatar Fearless



VIP
Mesaj Sayı : 1299
Mövzu Sayı :
Rep Ver : 
Rep Sayı :   23  
Indi Saytda : Durum
Cinsiyyət : Oğlan
Şəhər : Gävle
Ölkə :
Məslək : Hacker,Defacer,Programmer
Yaş : 26
Mesaj :

Mövzunu Paylaş!


Bu Source ilə artırmaqdı... Dəyməz Buyur

http://s017.radikal.ru/i404/1202/c6/a2947080a3c4.png
Anti-armenia.ORG