Istifadəçi
2012-03-26 09:38 GMT
VIP
Mesaj Sayı : 1299
Mövzu Sayı :
Rep Ver :
Rep Sayı : 23
Indi Saytda :
Cinsiyyət : Oğlan
Şəhər : Gävle
Ölkə :
Məslək : Hacker,Defacer,Programmer
Yaş : 26
Mesaj :
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 !
Anti-armenia.ORG