Public Class Form1

Public earmor As Integer = 1

Public slotnumber As Integer = 0

Private Sub Form1_Load ( ByVal sender As System . Object , ByVal e As System . EventArgs ) Handles MyBase . Load

End Sub

Private Sub setenemyarmor_Click ( ByVal sender As System . Object , ByVal e As System . EventArgs ) Handles setenemyarmor . Click

enemyarmor . Show ( )

End Sub

Private Sub resetinv_Click ( ByVal sender As System . Object , ByVal e As System . EventArgs ) Handles resetinv . Click

inv1 . Image = My . Resources . dotainventoryslot2

inv2 . Image = My . Resources . dotainventoryslot2

inv3 . Image = My . Resources . dotainventoryslot2

inv4 . Image = My . Resources . dotainventoryslot2

inv5 . Image = My . Resources . dotainventoryslot2

inv6 . Image = My . Resources . dotainventoryslot2

slotnumber = 0

End Sub

Private Sub setherolvl_Click ( ByVal sender As System . Object , ByVal e As System . EventArgs ) Handles setherolvl . Click

herolvl . Show ( )

End Sub

Public Function AreSameImage ( ByVal I1 As Image, ByVal I2 As Image ) As Boolean

Dim BM1 As Bitmap = I1

Dim BM2 As Bitmap = I2

For X = 0 To BM1 . Width - 1

For y = 0 To BM2 . Height - 1

If BM1 . GetPixel ( X, y ) <> BM2 . GetPixel ( X, y ) Then

Return False

End If

Next

Next

Return True

End Function

Private Sub Test_Click ( ByVal sender As System . Object , ByVal e As System . EventArgs ) Handles Test . Click

Dim boots As Boolean = False

Dim utilitypoints As Double = 0

Dim offensivepoints As Double = 0

Dim defensivepoints As Double = 0

Dim bonusatkspeed As Double = 0

Dim bonusdmg As Double = 0

Dim critchance As Int32 = 0

Dim critdmg As Integer = 0

Dim movespeedbonus As Integer = 0

Dim bonusstr As Double = 0

Dim bonusint As Double = 0

Dim bonushp As Double = 0

Dim bonusmana As Double = 0

slotnumber = 0

utilitypoints = 0

offensivepoints = 0

defensivepoints = 0

bonusatkspeed = 0

bonusdmg = 0

critchance = 0

movespeedbonus = 0

critdmg = 0

bonushp = 0

bonusmana = 0

ListBox2 . Items . Clear ( )

ListBox1 . Items . Clear ( )

boots = False

Dim UAM As Boolean = False

Dim lifesteal As Integer = 0

Dim yasha As Boolean = False

Dim evasion As Integer = 0

Dim SnY As Boolean = False

Dim manta As Boolean = False

Dim drums As Boolean = False

Dim mystr As Double = Convert . ToInt32 ( basestr . Text )

Dim basehp As Integer = 435

Dim hp As Integer = 0

Dim basemana As Integer = 195

Dim myint As Double = Convert . ToInt32 ( baseint . Text )

Dim bonushpregen As Double = 0.25

Dim mana As Double = 0

Dim basedmg As Integer = 55

Dim hpregen As Double = 0

Dim manaregen As Double = 0.01

Dim bonusmanaregen As Double = 0

Dim basearmor As Integer = 1

Dim bonusarmor As Integer = 0

Dim basemagicresist As Integer = 25

Dim cloak As Boolean = False

Dim hood As Boolean = False

Dim mymagicresist As Integer = 25

Dim myagi As Integer = Convert . ToInt32 ( baseagi . Text )

Dim bonusagi As Double = 0

Dim dmg As Double = 0

Dim reduction As Integer = 0

Dim myarmor As Integer

Dim amplification As Integer = 0

Dim manaregenpercentbonus As Integer = 0

For value As Integer = 2 To Convert . ToInt32 ( levelhero . Text )

bonusstr = bonusstr + 1.5

Next

For value As Integer = 2 To Convert . ToInt32 ( levelhero . Text )

bonusint = bonusint + 1.8

Next

For value As Integer = 2 To Convert . ToInt32 ( levelhero . Text )

bonusagi = bonusagi + 2.5

Next

If AreSameImage ( inv1 . Image , Form2 . strtreads . Image ) = True Then

bonusstr = bonusstr + 8

bonusatkspeed = bonusatkspeed + 30

offensivepoints = offensivepoints + 0.5

defensivepoints = defensivepoints + 1

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv2 . Image , Form2 . strtreads . Image ) = True Then

bonusstr = bonusstr + 8

bonusatkspeed = bonusatkspeed + 30

offensivepoints = offensivepoints + 0.5

defensivepoints = defensivepoints + 1

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv3 . Image , Form2 . strtreads . Image ) = True Then

bonusstr = bonusstr + 8

bonusatkspeed = bonusatkspeed + 30

offensivepoints = offensivepoints + 0.5

defensivepoints = defensivepoints + 1

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv4 . Image , Form2 . strtreads . Image ) = True Then

bonusstr = bonusstr + 8

bonusatkspeed = bonusatkspeed + 30

offensivepoints = offensivepoints + 0.5

defensivepoints = defensivepoints + 1

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv5 . Image , Form2 . strtreads . Image ) = True Then

bonusstr = bonusstr + 8

bonusatkspeed = bonusatkspeed + 30

offensivepoints = offensivepoints + 0.5

defensivepoints = defensivepoints + 1

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv6 . Image , Form2 . strtreads . Image ) = True Then

bonusstr = bonusstr + 8

bonusatkspeed = bonusatkspeed + 30

offensivepoints = offensivepoints + 0.5

defensivepoints = defensivepoints + 1

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv1 . Image , Form2 . agitreads . Image ) = True Then

bonusagi = bonusagi + 8

bonusatkspeed = bonusatkspeed + 30

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 0.5

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv2 . Image , Form2 . agitreads . Image ) = True Then

bonusagi = bonusagi + 8

bonusatkspeed = bonusatkspeed + 30

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 0.5

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv3 . Image , Form2 . agitreads . Image ) = True Then

bonusagi = bonusagi + 8

bonusatkspeed = bonusatkspeed + 30

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 0.5

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv4 . Image , Form2 . agitreads . Image ) = True Then

bonusagi = bonusagi + 8

bonusatkspeed = bonusatkspeed + 30

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 0.5

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv5 . Image , Form2 . agitreads . Image ) = True Then

bonusagi = bonusagi + 8

bonusatkspeed = bonusatkspeed + 30

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 0.5

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv6 . Image , Form2 . agitreads . Image ) = True Then

bonusagi = bonusagi + 8

bonusatkspeed = bonusatkspeed + 30

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 0.5

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv1 . Image , Form2 . inttreads . Image ) = True Then

bonusint = bonusint + 8

bonusatkspeed = bonusatkspeed + 30

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 0.5

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv2 . Image , Form2 . inttreads . Image ) = True Then

bonusint = bonusint + 8

bonusatkspeed = bonusatkspeed + 30

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 0.5

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv3 . Image , Form2 . inttreads . Image ) = True Then

bonusint = bonusint + 8

bonusatkspeed = bonusatkspeed + 30

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 0.5

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv4 . Image , Form2 . inttreads . Image ) = True Then

bonusint = bonusint + 8

bonusatkspeed = bonusatkspeed + 30

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 0.5

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv5 . Image , Form2 . inttreads . Image ) = True Then

bonusint = bonusint + 8

bonusatkspeed = bonusatkspeed + 30

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 0.5

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv6 . Image , Form2 . inttreads . Image ) = True Then

bonusint = bonusint + 8

bonusatkspeed = bonusatkspeed + 30

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 0.5

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv1 . Image , Form2 . phaseboots . Image ) = True Then

bonusdmg = bonusdmg + 24

utilitypoints = utilitypoints + 0.5

offensivepoints = offensivepoints + 1

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv2 . Image , Form2 . phaseboots . Image ) = True Then

bonusdmg = bonusdmg + 24

utilitypoints = utilitypoints + 0.5

offensivepoints = offensivepoints + 1

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv3 . Image , Form2 . phaseboots . Image ) = True Then

bonusdmg = bonusdmg + 24

utilitypoints = utilitypoints + 0.5

offensivepoints = offensivepoints + 1

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv4 . Image , Form2 . phaseboots . Image ) = True Then

bonusdmg = bonusdmg + 24

utilitypoints = utilitypoints + 0.5

offensivepoints = offensivepoints + 1

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv5 . Image , Form2 . phaseboots . Image ) = True Then

bonusdmg = bonusdmg + 24

utilitypoints = utilitypoints + 0.5

offensivepoints = offensivepoints + 1

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv6 . Image , Form2 . phaseboots . Image ) = True Then

bonusdmg = bonusdmg + 24

utilitypoints = utilitypoints + 0.5

offensivepoints = offensivepoints + 1

If boots = False Then

movespeedbonus = movespeedbonus + 55

End If

boots = True

End If

If AreSameImage ( inv1 . Image , Form2 . bootsoftravel . Image ) = True Then

utilitypoints = utilitypoints + 2

If boots = False Then

movespeedbonus = movespeedbonus + 100

End If

boots = True

End If

If AreSameImage ( inv2 . Image , Form2 . bootsoftravel . Image ) = True Then

utilitypoints = utilitypoints + 2

If boots = False Then

movespeedbonus = movespeedbonus + 100

End If

boots = True

End If

If AreSameImage ( inv3 . Image , Form2 . bootsoftravel . Image ) = True Then

utilitypoints = utilitypoints + 2

If boots = False Then

movespeedbonus = movespeedbonus + 100

End If

boots = True

End If

If AreSameImage ( inv4 . Image , Form2 . bootsoftravel . Image ) = True Then

utilitypoints = utilitypoints + 2

If boots = False Then

movespeedbonus = movespeedbonus + 100

End If

boots = True

End If

If AreSameImage ( inv5 . Image , Form2 . bootsoftravel . Image ) = True Then

utilitypoints = utilitypoints + 2

If boots = False Then

movespeedbonus = movespeedbonus + 100

End If

boots = True

End If

If AreSameImage ( inv6 . Image , Form2 . bootsoftravel . Image ) = True Then

utilitypoints = utilitypoints + 2

If boots = False Then

movespeedbonus = movespeedbonus + 100

End If

boots = True

End If

If AreSameImage ( inv1 . Image , Form2 . crystalis . Image ) = True Then

bonusdmg = bonusdmg + 30

If critdmg < 175 Then

critdmg = 175

End If

offensivepoints = offensivepoints + 1.5

If critchance = 0 = False Then

critchance = critchance % + ( 20 % * 0.8 )

Else

critchance = 20

End If

End If

If AreSameImage ( inv2 . Image , Form2 . crystalis . Image ) = True Then

bonusdmg = bonusdmg + 30

offensivepoints = offensivepoints + 1.5

If critchance = 0 = False Then

critchance = critchance % + ( 20 % * 0.8 )

Else

critchance = 20

End If

If critdmg < 175 Then

critdmg = 175

End If

End If

If AreSameImage ( inv3 . Image , Form2 . crystalis . Image ) = True Then

bonusdmg = bonusdmg + 30

offensivepoints = offensivepoints + 1.5

If critchance = 0 = False Then

critchance = critchance % + ( 20 % * 0.8 )

Else

critchance = 20

End If

If critdmg < 175 Then

critdmg = 175

End If

End If

If AreSameImage ( inv4 . Image , Form2 . crystalis . Image ) = True Then

bonusdmg = bonusdmg + 30

offensivepoints = offensivepoints + 1.5

If critchance = 0 = False Then

critchance = critchance % + ( 20 % * 0.8 )

Else

critchance = 20

End If

If critdmg < 175 Then

critdmg = 175

End If

End If

Dim armorreduction As Integer = 0

If AreSameImage ( inv5 . Image , Form2 . crystalis . Image ) = True Then

bonusdmg = bonusdmg + 30

offensivepoints = offensivepoints + 1.5

If critchance = 0 = False Then

critchance = critchance % + ( 20 % * 0.8 )

Else

critchance = 20

End If

If critdmg < 175 Then

critdmg = 175

End If

End If

If AreSameImage ( inv6 . Image , Form2 . crystalis . Image ) = True Then

bonusdmg = bonusdmg + 30

offensivepoints = offensivepoints + 1.5

If critchance = 0 = False Then

critchance = critchance % + ( 20 % * 0.8 )

Else

critchance = 20

End If

If critdmg < 175 Then

critdmg = 175

End If

End If

If AreSameImage ( inv1 . Image , Form2 . yasha . Image ) = True Then

myagi = myagi + 16

bonusatkspeed = bonusatkspeed + 15

yasha = True

utilitypoints = utilitypoints + 0.5

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 0.5

End If

If AreSameImage ( inv2 . Image , Form2 . yasha . Image ) = True Then

myagi = myagi + 16

bonusatkspeed = bonusatkspeed + 15

yasha = True

utilitypoints = utilitypoints + 0.5

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 0.5

End If

If AreSameImage ( inv3 . Image , Form2 . yasha . Image ) = True Then

myagi = myagi + 16

bonusatkspeed = bonusatkspeed + 15

yasha = True

utilitypoints = utilitypoints + 0.5

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 0.5

End If

If AreSameImage ( inv4 . Image , Form2 . yasha . Image ) = True Then

myagi = myagi + 16

bonusatkspeed = bonusatkspeed + 15

yasha = True

utilitypoints = utilitypoints + 0.5

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 0.5

End If

If AreSameImage ( inv5 . Image , Form2 . yasha . Image ) = True Then

myagi = myagi + 16

bonusatkspeed = bonusatkspeed + 15

yasha = True

utilitypoints = utilitypoints + 0.5

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 0.5

End If

If AreSameImage ( inv6 . Image , Form2 . yasha . Image ) = True Then

myagi = myagi + 16

bonusatkspeed = bonusatkspeed + 15

yasha = True

utilitypoints = utilitypoints + 0.5

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 0.5

End If

If AreSameImage ( inv1 . Image , Form2 . manta . Image ) = True Then

mystr = mystr + 10

myagi = myagi + 26

myint = myint + 10

bonusatkspeed = bonusatkspeed + 15

manta = True

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 1.5

defensivepoints = defensivepoints + 1.5

End If

If AreSameImage ( inv2 . Image , Form2 . manta . Image ) = True Then

mystr = mystr + 10

myagi = myagi + 26

myint = myint + 10

bonusatkspeed = bonusatkspeed + 15

manta = True

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 1.5

defensivepoints = defensivepoints + 1.5

End If

If AreSameImage ( inv3 . Image , Form2 . manta . Image ) = True Then

mystr = mystr + 10

myagi = myagi + 26

myint = myint + 10

bonusatkspeed = bonusatkspeed + 15

manta = True

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 1.5

defensivepoints = defensivepoints + 1.5

End If

If AreSameImage ( inv4 . Image , Form2 . manta . Image ) = True Then

mystr = mystr + 10

myagi = myagi + 26

myint = myint + 10

bonusatkspeed = bonusatkspeed + 15

manta = True

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 1.5

defensivepoints = defensivepoints + 1.5

End If

If AreSameImage ( inv5 . Image , Form2 . manta . Image ) = True Then

mystr = mystr + 10

myagi = myagi + 26

myint = myint + 10

bonusatkspeed = bonusatkspeed + 15

manta = True

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 1.5

defensivepoints = defensivepoints + 1.5

End If

If AreSameImage ( inv6 . Image , Form2 . manta . Image ) = True Then

mystr = mystr + 10

myagi = myagi + 26

myint = myint + 10

bonusatkspeed = bonusatkspeed + 15

manta = True

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 1.5

defensivepoints = defensivepoints + 1.5

End If

If AreSameImage ( inv1 . Image , Form2 . maskofmadness . Image ) = True Then

If UAM = False Then

lifesteal = 20

End If

UAM = True

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2.5

defensivepoints = defensivepoints - 2

End If

If AreSameImage ( inv2 . Image , Form2 . maskofmadness . Image ) = True Then

If UAM = False Then

lifesteal = 20

End If

UAM = True

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2.5

defensivepoints = defensivepoints - 2

End If

If AreSameImage ( inv3 . Image , Form2 . maskofmadness . Image ) = True Then

If UAM = False Then

lifesteal = 20

End If

UAM = True

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2.5

defensivepoints = defensivepoints - 2

End If

If AreSameImage ( inv4 . Image , Form2 . maskofmadness . Image ) = True Then

If UAM = False Then

lifesteal = 20

End If

UAM = True

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2.5

defensivepoints = defensivepoints - 2

End If

If AreSameImage ( inv5 . Image , Form2 . maskofmadness . Image ) = True Then

If UAM = False Then

lifesteal = 20

End If

UAM = True

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2.5

defensivepoints = defensivepoints - 2

End If

If AreSameImage ( inv6 . Image , Form2 . maskofmadness . Image ) = True Then

If UAM = False Then

lifesteal = 20

End If

UAM = True

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2.5

defensivepoints = defensivepoints - 2

End If

If AreSameImage ( inv1 . Image , Form2 . sangeandyasha . Image ) = True Then

SnY = True

utilitypoints = utilitypoints + 2

offensivepoints = offensivepoints + 1.5

defensivepoints = defensivepoints + 1

mystr = mystr + 16

myagi = myagi + 16

bonusatkspeed = bonusatkspeed + 16

bonusdmg = bonusdmg + 16

End If

If AreSameImage ( inv2 . Image , Form2 . sangeandyasha . Image ) = True Then

SnY = True

utilitypoints = utilitypoints + 2

offensivepoints = offensivepoints + 1.5

defensivepoints = defensivepoints + 1

mystr = mystr + 16

myagi = myagi + 16

bonusatkspeed = bonusatkspeed + 16

bonusdmg = bonusdmg + 16

End If

If AreSameImage ( inv3 . Image , Form2 . sangeandyasha . Image ) = True Then

SnY = True

utilitypoints = utilitypoints + 2

offensivepoints = offensivepoints + 1.5

defensivepoints = defensivepoints + 1

mystr = mystr + 16

myagi = myagi + 16

bonusatkspeed = bonusatkspeed + 16

bonusdmg = bonusdmg + 16

End If

If AreSameImage ( inv4 . Image , Form2 . sangeandyasha . Image ) = True Then

SnY = True

utilitypoints = utilitypoints + 2

offensivepoints = offensivepoints + 1.5

defensivepoints = defensivepoints + 1

mystr = mystr + 16

myagi = myagi + 16

bonusatkspeed = bonusatkspeed + 16

bonusdmg = bonusdmg + 16

End If

If AreSameImage ( inv5 . Image , Form2 . sangeandyasha . Image ) = True Then

SnY = True

utilitypoints = utilitypoints + 2

offensivepoints = offensivepoints + 1.5

defensivepoints = defensivepoints + 1

mystr = mystr + 16

myagi = myagi + 16

bonusatkspeed = bonusatkspeed + 16

bonusdmg = bonusdmg + 16

End If

If AreSameImage ( inv6 . Image , Form2 . sangeandyasha . Image ) = True Then

SnY = True

utilitypoints = utilitypoints + 2

offensivepoints = offensivepoints + 1.5

defensivepoints = defensivepoints + 1

mystr = mystr + 16

myagi = myagi + 16

bonusatkspeed = bonusatkspeed + 16

bonusdmg = bonusdmg + 16

End If

If AreSameImage ( inv1 . Image , Form2 . skullbasher . Image ) = True Then

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 0.5

bonusdmg = bonusdmg + 40

mystr = mystr + 6

End If

If AreSameImage ( inv2 . Image , Form2 . skullbasher . Image ) = True Then

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 0.5

bonusdmg = bonusdmg + 40

mystr = mystr + 6

End If

If AreSameImage ( inv3 . Image , Form2 . skullbasher . Image ) = True Then

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 0.5

bonusdmg = bonusdmg + 40

mystr = mystr + 6

End If

If AreSameImage ( inv4 . Image , Form2 . skullbasher . Image ) = True Then

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 0.5

bonusdmg = bonusdmg + 40

mystr = mystr + 6

End If

If AreSameImage ( inv5 . Image , Form2 . skullbasher . Image ) = True Then

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 0.5

bonusdmg = bonusdmg + 40

mystr = mystr + 6

End If

If AreSameImage ( inv6 . Image , Form2 . skullbasher . Image ) = True Then

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 0.5

bonusdmg = bonusdmg + 40

mystr = mystr + 6

End If

If AreSameImage ( inv1 . Image , Form2 . abyssalblade . Image ) = True Then

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 0.5

bonusdmg = bonusdmg + 100

mystr = mystr + 10

End If

If AreSameImage ( inv2 . Image , Form2 . abyssalblade . Image ) = True Then

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 0.5

bonusdmg = bonusdmg + 100

mystr = mystr + 10

End If

If AreSameImage ( inv3 . Image , Form2 . abyssalblade . Image ) = True Then

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 0.5

bonusdmg = bonusdmg + 100

mystr = mystr + 10

End If

If AreSameImage ( inv4 . Image , Form2 . abyssalblade . Image ) = True Then

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 0.5

bonusdmg = bonusdmg + 100

mystr = mystr + 10

End If

If AreSameImage ( inv5 . Image , Form2 . abyssalblade . Image ) = True Then

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 0.5

bonusdmg = bonusdmg + 100

mystr = mystr + 10

End If

If AreSameImage ( inv6 . Image , Form2 . abyssalblade . Image ) = True Then

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 0.5

bonusdmg = bonusdmg + 100

mystr = mystr + 10

End If

If AreSameImage ( inv1 . Image , Form2 . assaultcuirass . Image ) = True Then

utilitypoints = utilitypoints + 2

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 1.5

bonusarmor = bonusarmor + 15

armorreduction = armorreduction + 5

bonusatkspeed = bonusatkspeed + 55

End If

If AreSameImage ( inv2 . Image , Form2 . assaultcuirass . Image ) = True Then

utilitypoints = utilitypoints + 2

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 1.5

bonusarmor = bonusarmor + 15

armorreduction = armorreduction + 5

bonusatkspeed = bonusatkspeed + 55

End If

If AreSameImage ( inv3 . Image , Form2 . assaultcuirass . Image ) = True Then

utilitypoints = utilitypoints + 2

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 1.5

bonusarmor = bonusarmor + 15

armorreduction = armorreduction + 5

bonusatkspeed = bonusatkspeed + 55

End If

If AreSameImage ( inv4 . Image , Form2 . assaultcuirass . Image ) = True Then

utilitypoints = utilitypoints + 2

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 1.5

bonusarmor = bonusarmor + 15

armorreduction = armorreduction + 5

bonusatkspeed = bonusatkspeed + 55

End If

If AreSameImage ( inv5 . Image , Form2 . assaultcuirass . Image ) = True Then

utilitypoints = utilitypoints + 2

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 1.5

bonusarmor = bonusarmor + 15

armorreduction = armorreduction + 5

bonusatkspeed = bonusatkspeed + 55

End If

If AreSameImage ( inv6 . Image , Form2 . assaultcuirass . Image ) = True Then

utilitypoints = utilitypoints + 2

offensivepoints = offensivepoints + 1

defensivepoints = defensivepoints + 1.5

bonusarmor = bonusarmor + 15

armorreduction = armorreduction + 5

bonusatkspeed = bonusatkspeed + 55

End If

If AreSameImage ( inv1 . Image , Form2 . rapier . Image ) = True Then

offensivepoints = offensivepoints + 4

defensivepoints = defensivepoints - 3

bonusdmg = bonusdmg + 300

End If

If AreSameImage ( inv2 . Image , Form2 . rapier . Image ) = True Then

offensivepoints = offensivepoints + 4

defensivepoints = defensivepoints - 3

bonusdmg = bonusdmg + 300

End If

If AreSameImage ( inv3 . Image , Form2 . rapier . Image ) = True Then

offensivepoints = offensivepoints + 4

defensivepoints = defensivepoints - 3

bonusdmg = bonusdmg + 300

End If

If AreSameImage ( inv4 . Image , Form2 . rapier . Image ) = True Then

offensivepoints = offensivepoints + 4

defensivepoints = defensivepoints - 3

bonusdmg = bonusdmg + 300

End If

If AreSameImage ( inv5 . Image , Form2 . rapier . Image ) = True Then

offensivepoints = offensivepoints + 4

defensivepoints = defensivepoints - 3

bonusdmg = bonusdmg + 300

End If

If AreSameImage ( inv6 . Image , Form2 . rapier . Image ) = True Then

offensivepoints = offensivepoints + 4

defensivepoints = defensivepoints - 3

bonusdmg = bonusdmg + 300

End If

If AreSameImage ( inv1 . Image , Form2 . mkb . Image ) = True Then

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 0.5

bonusatkspeed = bonusatkspeed + 15

bonusdmg = bonusdmg + 137

End If

If AreSameImage ( inv2 . Image , Form2 . mkb . Image ) = True Then

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 0.5

bonusatkspeed = bonusatkspeed + 15

bonusdmg = bonusdmg + 137

End If

If AreSameImage ( inv3 . Image , Form2 . mkb . Image ) = True Then

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 0.5

bonusatkspeed = bonusatkspeed + 15

bonusdmg = bonusdmg + 137

End If

If AreSameImage ( inv4 . Image , Form2 . mkb . Image ) = True Then

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 0.5

bonusatkspeed = bonusatkspeed + 15

bonusdmg = bonusdmg + 137

End If

If AreSameImage ( inv5 . Image , Form2 . mkb . Image ) = True Then

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 0.5

bonusatkspeed = bonusatkspeed + 15

bonusdmg = bonusdmg + 137

End If

If AreSameImage ( inv6 . Image , Form2 . mkb . Image ) = True Then

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 0.5

bonusatkspeed = bonusatkspeed + 15

bonusdmg = bonusdmg + 137

End If

If AreSameImage ( inv1 . Image , Form2 . butterfly . Image ) = True Then

utilitypoints = utilitypoints + 0

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 1.5

myagi = myagi + 30

bonusdmg = bonusdmg + 30

bonusatkspeed = bonusatkspeed + 30

If evasion > 0 Then

evasion = evasion % + ( 35 % * 0.8 )

Else

evasion = 35

End If

End If

If AreSameImage ( inv2 . Image , Form2 . butterfly . Image ) = True Then

utilitypoints = utilitypoints + 0

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 1.5

myagi = myagi + 30

bonusdmg = bonusdmg + 30

bonusatkspeed = bonusatkspeed + 30

If evasion > 0 Then

evasion = evasion % + ( 35 % * 0.8 )

Else

evasion = 35

End If

End If

If AreSameImage ( inv3 . Image , Form2 . butterfly . Image ) = True Then

utilitypoints = utilitypoints + 0

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 1.5

myagi = myagi + 30

bonusdmg = bonusdmg + 30

bonusatkspeed = bonusatkspeed + 30

If evasion > 0 Then

evasion = evasion % + ( 35 % * 0.8 )

Else

evasion = 35

End If

End If

If AreSameImage ( inv4 . Image , Form2 . butterfly . Image ) = True Then

utilitypoints = utilitypoints + 0

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 1.5

myagi = myagi + 30

bonusdmg = bonusdmg + 30

bonusatkspeed = bonusatkspeed + 30

If evasion > 0 Then

evasion = evasion % + ( 35 % * 0.8 )

Else

evasion = 35

End If

End If

If AreSameImage ( inv5 . Image , Form2 . butterfly . Image ) = True Then

utilitypoints = utilitypoints + 0

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 1.5

myagi = myagi + 30

bonusdmg = bonusdmg + 30

bonusatkspeed = bonusatkspeed + 30

If evasion > 0 Then

evasion = evasion % + ( 35 % * 0.8 )

Else

evasion = 35

End If

End If

If AreSameImage ( inv6 . Image , Form2 . butterfly . Image ) = True Then

utilitypoints = utilitypoints + 0

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 1.5

myagi = myagi + 30

bonusdmg = bonusdmg + 30

bonusatkspeed = bonusatkspeed + 30

If evasion > 0 Then

evasion = evasion % + ( 35 % * 0.8 )

Else

evasion = 35

End If

End If

If AreSameImage ( inv1 . Image , Form2 . desolator . Image ) = True Then

utilitypoints = utilitypoints + 0

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 1.5

If UAM = False Then

armorreduction = armorreduction + 7

End If

UAM = True

bonusdmg = bonusdmg + 60

End If

If AreSameImage ( inv2 . Image , Form2 . desolator . Image ) = True Then

utilitypoints = utilitypoints + 0

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 1.5

If UAM = False Then

armorreduction = armorreduction + 7

End If

UAM = True

bonusdmg = bonusdmg + 60

End If

If AreSameImage ( inv3 . Image , Form2 . desolator . Image ) = True Then

utilitypoints = utilitypoints + 0

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 1.5

If UAM = False Then

armorreduction = armorreduction + 7

End If

UAM = True

bonusdmg = bonusdmg + 60

End If

If AreSameImage ( inv4 . Image , Form2 . desolator . Image ) = True Then

utilitypoints = utilitypoints + 0

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 1.5

If UAM = False Then

armorreduction = armorreduction + 7

End If

UAM = True

bonusdmg = bonusdmg + 60

End If

If AreSameImage ( inv5 . Image , Form2 . desolator . Image ) = True Then

utilitypoints = utilitypoints + 0

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 1.5

If UAM = False Then

armorreduction = armorreduction + 7

End If

UAM = True

bonusdmg = bonusdmg + 60

End If

If AreSameImage ( inv6 . Image , Form2 . desolator . Image ) = True Then

utilitypoints = utilitypoints + 0

offensivepoints = offensivepoints + 2

defensivepoints = defensivepoints + 1.5

If UAM = False Then

armorreduction = armorreduction + 7

End If

UAM = True

bonusdmg = bonusdmg + 60

End If

If AreSameImage ( inv1 . Image , Form2 . bkb . Image ) = True Then

utilitypoints = utilitypoints + 4

offensivepoints = offensivepoints + 0.5

defensivepoints = defensivepoints + 0.5

mystr = mystr + 10

bonusdmg = bonusdmg + 24

End If

If AreSameImage ( inv2 . Image , Form2 . bkb . Image ) = True Then

utilitypoints = utilitypoints + 4

offensivepoints = offensivepoints + 0.5

defensivepoints = defensivepoints + 0.5

mystr = mystr + 10

bonusdmg = bonusdmg + 24

End If

If AreSameImage ( inv3 . Image , Form2 . bkb . Image ) = True Then

utilitypoints = utilitypoints + 4

offensivepoints = offensivepoints + 0.5

defensivepoints = defensivepoints + 0.5

mystr = mystr + 10

bonusdmg = bonusdmg + 24

End If

If AreSameImage ( inv4 . Image , Form2 . bkb . Image ) = True Then

utilitypoints = utilitypoints + 4

offensivepoints = offensivepoints + 0.5

defensivepoints = defensivepoints + 0.5

mystr = mystr + 10

bonusdmg = bonusdmg + 24

End If

If AreSameImage ( inv5 . Image , Form2 . bkb . Image ) = True Then

utilitypoints = utilitypoints + 4

offensivepoints = offensivepoints + 0.5

defensivepoints = defensivepoints + 0.5

mystr = mystr + 10

bonusdmg = bonusdmg + 24

End If

If AreSameImage ( inv6 . Image , Form2 . bkb . Image ) = True Then

utilitypoints = utilitypoints + 4

offensivepoints = offensivepoints + 0.5

defensivepoints = defensivepoints + 0.5

mystr = mystr + 10

bonusdmg = bonusdmg + 24

End If

If AreSameImage ( inv1 . Image , Form2 . vanguard . Image ) = True Then

bonushp = bonushp + 250

bonushpregen = bonushpregen + 6

utilitypoints = utilitypoints + 0.5

defensivepoints = defensivepoints + 2.5

End If

If AreSameImage ( inv2 . Image , Form2 . vanguard . Image ) = True Then

bonushp = bonushp + 250

bonushpregen = bonushpregen + 6

utilitypoints = utilitypoints + 0.5

defensivepoints = defensivepoints + 2.5

End If

If AreSameImage ( inv3 . Image , Form2 . vanguard . Image ) = True Then

bonushp = bonushp + 250

bonushpregen = bonushpregen + 6

utilitypoints = utilitypoints + 0.5

defensivepoints = defensivepoints + 2.5

End If

If AreSameImage ( inv4 . Image , Form2 . vanguard . Image ) = True Then

bonushp = bonushp + 250

bonushpregen = bonushpregen + 6

utilitypoints = utilitypoints + 0.5

defensivepoints = defensivepoints + 2.5

End If

If AreSameImage ( inv5 . Image , Form2 . vanguard . Image ) = True Then

bonushp = bonushp + 250

bonushpregen = bonushpregen + 6

utilitypoints = utilitypoints + 0.5

defensivepoints = defensivepoints + 2.5

End If

If AreSameImage ( inv6 . Image , Form2 . vanguard . Image ) = True Then

bonushp = bonushp + 250

bonushpregen = bonushpregen + 6

utilitypoints = utilitypoints + 0.5

defensivepoints = defensivepoints + 2.5

End If

If AreSameImage ( inv1 . Image , Form2 . heart . Image ) = True Then

mystr = mystr + 40

bonushp = bonushp + 300

utilitypoints = utilitypoints + 1.5

defensivepoints = defensivepoints + 3

End If

If AreSameImage ( inv2 . Image , Form2 . heart . Image ) = True Then

mystr = mystr + 40

bonushp = bonushp + 300

utilitypoints = utilitypoints + 1.5

defensivepoints = defensivepoints + 3

End If

If AreSameImage ( inv3 . Image , Form2 . heart . Image ) = True Then

mystr = mystr + 40

bonushp = bonushp + 300

utilitypoints = utilitypoints + 1.5

defensivepoints = defensivepoints + 3

End If

If AreSameImage ( inv4 . Image , Form2 . heart . Image ) = True Then

mystr = mystr + 40

bonushp = bonushp + 300

utilitypoints = utilitypoints + 1.5

defensivepoints = defensivepoints + 3

End If

If AreSameImage ( inv5 . Image , Form2 . heart . Image ) = True Then

mystr = mystr + 40

bonushp = bonushp + 300

utilitypoints = utilitypoints + 1.5

defensivepoints = defensivepoints + 3

End If

If AreSameImage ( inv6 . Image , Form2 . heart . Image ) = True Then

mystr = mystr + 40

bonushp = bonushp + 300

utilitypoints = utilitypoints + 1.5

defensivepoints = defensivepoints + 3

End If

If AreSameImage ( inv1 . Image , Form2 . hoodofdefiance . Image ) = True Then

hood = True

bonushpregen = bonushpregen + 8

defensivepoints = defensivepoints + 2.5

End If

If AreSameImage ( inv2 . Image , Form2 . hoodofdefiance . Image ) = True Then

hood = True

bonushpregen = bonushpregen + 8

defensivepoints = defensivepoints + 2.5

End If

If AreSameImage ( inv3 . Image , Form2 . hoodofdefiance . Image ) = True Then

hood = True

bonushpregen = bonushpregen + 8

defensivepoints = defensivepoints + 2.5

End If

If AreSameImage ( inv4 . Image , Form2 . hoodofdefiance . Image ) = True Then

hood = True

bonushpregen = bonushpregen + 8

defensivepoints = defensivepoints + 2.5

End If

If AreSameImage ( inv5 . Image , Form2 . hoodofdefiance . Image ) = True Then

hood = True

bonushpregen = bonushpregen + 8

defensivepoints = defensivepoints + 2.5

End If

If AreSameImage ( inv6 . Image , Form2 . hoodofdefiance . Image ) = True Then

hood = True

bonushpregen = bonushpregen + 8

defensivepoints = defensivepoints + 2.5

End If

Dim drumss As Boolean = False

If AreSameImage ( inv1 . Image , Form2 . drums . Image ) = True Then

mystr = mystr + 9

myagi = myagi + 9

myint = myint + 9

bonusdmg = bonusdmg + 3

bonusatkspeed = bonusatkspeed + 5

drumss = True

End If

If AreSameImage ( inv2 . Image , Form2 . drums . Image ) = True Then

mystr = mystr + 9

myagi = myagi + 9

myint = myint + 9

bonusdmg = bonusdmg + 3

bonusatkspeed = bonusatkspeed + 5

drumss = True

End If

If AreSameImage ( inv3 . Image , Form2 . drums . Image ) = True Then

mystr = mystr + 9

myagi = myagi + 9

myint = myint + 9

bonusdmg = bonusdmg + 3

bonusatkspeed = bonusatkspeed + 5

drumss = True

End If

If AreSameImage ( inv4 . Image , Form2 . drums . Image ) = True Then

mystr = mystr + 9

myagi = myagi + 9

myint = myint + 9

bonusdmg = bonusdmg + 3

bonusatkspeed = bonusatkspeed + 5

drumss = True

End If

If AreSameImage ( inv5 . Image , Form2 . drums . Image ) = True Then

mystr = mystr + 9

myagi = myagi + 9

myint = myint + 9

bonusdmg = bonusdmg + 3

bonusatkspeed = bonusatkspeed + 5

drumss = True

End If

If AreSameImage ( inv6 . Image , Form2 . drums . Image ) = True Then

mystr = mystr + 9

myagi = myagi + 9

myint = myint + 9

bonusdmg = bonusdmg + 3

bonusatkspeed = bonusatkspeed + 5

drumss = True

End If

Dim radiance As Boolean = False

If AreSameImage ( inv1 . Image , Form2 . radiance . Image ) = True Then

bonusdmg = bonusdmg + 65

radiance = True

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2

End If

If AreSameImage ( inv2 . Image , Form2 . radiance . Image ) = True Then

bonusdmg = bonusdmg + 65

radiance = True

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2

End If

If AreSameImage ( inv3 . Image , Form2 . radiance . Image ) = True Then

bonusdmg = bonusdmg + 65

radiance = True

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2

End If

If AreSameImage ( inv4 . Image , Form2 . radiance . Image ) = True Then

bonusdmg = bonusdmg + 65

radiance = True

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2

End If

If AreSameImage ( inv5 . Image , Form2 . radiance . Image ) = True Then

bonusdmg = bonusdmg + 65

radiance = True

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2

End If

If AreSameImage ( inv6 . Image , Form2 . radiance . Image ) = True Then

bonusdmg = bonusdmg + 65

radiance = True

utilitypoints = utilitypoints + 1

offensivepoints = offensivepoints + 2

End If

earmor = earmor - armorreduction

bonusatkspeed = bonusatkspeed + ( bonusagi * 1 )

basedmg = basedmg + ( bonusagi * 1 )

Dim ias As Double = bonusatkspeed / 100

Dim dps As Double = ( 1 + ias ) / 1.8

Dim rawdmg As Integer = basedmg + bonusdmg

If earmor < 0 Then

amplification = ( ( 0.06 * ( earmor ) ) / ( 1 + 0.06 * ( earmor ) ) ) * 100

amplification = Math . Round ( amplification, 1 )

dmg = rawdmg + ( amplification / 100 )

ElseIf earmor > 0 Then

reduction = ( 0.06 * earmor ) / ( 1 + 0.06 * earmor ) * 100

reduction = Math . Round ( reduction, 1 )

dmg = rawdmg - ( reduction / 100 )

End If

If cloak = True Then

mymagicresist = 36.25

ElseIf hood = True Then

mymagicresist = 47.5

End If

myagi = myagi + bonusagi

mystr = mystr + bonusstr

myint = myint + bonusint

If manaregenpercentbonus = 0 = False Then

manaregen = ( myint * 0.04 ) * ( manaregenpercentbonus / 100 ) + 0.1 + bonusmanaregen

Else

manaregen = ( myint * 0.04 ) + 0.1 + bonusmanaregen

End If

bonushp = ( mystr - Convert . ToInt32 ( basestr . Text ) ) * 19

hpregen = ( mystr * 0.03 ) + bonushpregen

Dim dps2 As Double = rawdmg * dps

Dim dps3 As Double = dmg * dps

myarmor = basearmor + bonusarmor + ( ( myagi - 14 ) / 7 )

hp = basehp + bonushp

Dim armorehp As Double = hp * ( myarmor * 0.06 + 1 ) - hp

armorehp = Math . Round ( armorehp, 0 )

bonusmana = ( myint - Convert . ToInt32 ( baseint . Text ) ) * 13

dmg = Math . Abs ( dmg )

dps2 = rawdmg * dps

If radiance = True Then

dps2 = dps2 + 50

End If

dps3 = dmg * dps

If radiance = True Then

dps3 = dps3 + 37.5

End If

Dim phyresistance As Double = ( 0.06 * myarmor ) / ( 1 + 0.06 * myarmor ) * 100

phyresistance = Math . Round ( phyresistance, 1 )

mana = basemana + bonusmana

Dim mymovespeed = 290 + movespeedbonus

If yasha = True Or manta = True Then

mymovespeed = mymovespeed + ( ( 10 / 100 ) * mymovespeed )

ElseIf SnY = True Then

mymovespeed = mymovespeed + ( ( 16 / 100 ) * mymovespeed )

End If

If drumss = True Then

mymovespeed = mymovespeed + ( ( 5 / 100 ) * mymovespeed )

End If

Dim lifeheal As Double = ( ( lifesteal / 100 ) * dmg )

Dim critdamag As Double = ( dmg * ( critdmg / 100 ) )

ListBox1 . Items . Add ( "Calculating..." )

wait ( 500 )

ListBox1 . Items . Add ( "HP: " & hp )

wait ( 100 )

ListBox1 . Items . Add ( "Mana: " & Math . Round ( mana, 0 ) )

wait ( 100 )

ListBox1 . Items . Add ( "HP Regen: " & Math . Round ( hpregen, 1 ) )

wait ( 100 )

ListBox1 . Items . Add ( "Mana Regen: " & Math . Round ( manaregen, 1 ) )

wait ( 100 )

ListBox1 . Items . Add ( "Armor: " & myarmor )

wait ( 100 )

ListBox1 . Items . Add ( "Armor EHP: " & armorehp )

wait ( 100 )

ListBox1 . Items . Add ( "Magic Resistance: " & mymagicresist & "%" )

wait ( 100 )

ListBox1 . Items . Add ( "Physical Resistance: " & phyresistance & "%" )

wait ( 100 )

ListBox1 . Items . Add ( "Evasion: " & evasion & "%" )

wait ( 100 )

ListBox1 . Items . Add ( "Bonus Attack Speed: " & bonusatkspeed )

wait ( 100 )

ListBox1 . Items . Add ( "Movement Speed: " & ( mymovespeed ) )

wait ( 100 )

ListBox2 . Items . Add ( "Damage (Raw): " & rawdmg )

wait ( 100 )

ListBox2 . Items . Add ( "Damage (True): " & dmg )

wait ( 100 )

ListBox2 . Items . Add ( "DPS (Raw): " & Math . Round ( dps2, 1 ) )

wait ( 100 )

ListBox2 . Items . Add ( "DPS (True): " & Math . Round ( dps3, 1 ) )

wait ( 100 )

ListBox2 . Items . Add ( "Crit Chance: " & critchance & "%" )

wait ( 100 )

ListBox2 . Items . Add ( "Crit Damage: " & Math . Round ( critdamag, 0 ) )

wait ( 100 )

ListBox2 . Items . Add ( "Lifesteal: " & lifesteal & "%" )

wait ( 100 )

ListBox2 . Items . Add ( "Lifesteal Heal: " & Math . Round ( lifeheal, 0 ) )

wait ( 100 )

ListBox2 . Items . Add ( "Armor Reduction: " & armorreduction )

wait ( 100 )

ListBox2 . Items . Add ( "Total Utility Points: " & utilitypoints )

wait ( 100 )

ListBox2 . Items . Add ( "Total Offensive Points: " & offensivepoints )

wait ( 100 )

ListBox2 . Items . Add ( "Total Defensive Points: " & defensivepoints )

End Sub

Private Sub wait ( ByVal interval As Integer )

Dim sw As New Stopwatch

sw . Start ( )

Do While sw . ElapsedMilliseconds < interval

' Allows UI to remain responsive

Application . DoEvents ( )

Loop

sw . Stop ( )

End Sub

Private Sub inv1_Click ( ByVal sender As System . Object , ByVal e As System . EventArgs ) Handles inv1 . Click

slotnumber = 1

Form2 . Show ( )

End Sub

Private Sub inv2_Click ( ByVal sender As System . Object , ByVal e As System . EventArgs ) Handles inv2 . Click

slotnumber = 2

Form2 . Show ( )

End Sub

Private Sub inv3_Click ( ByVal sender As System . Object , ByVal e As System . EventArgs ) Handles inv3 . Click

slotnumber = 3

Form2 . Show ( )

End Sub

Private Sub inv4_Click ( ByVal sender As System . Object , ByVal e As System . EventArgs ) Handles inv4 . Click

slotnumber = 4

Form2 . Show ( )

End Sub

Private Sub inv5_Click ( ByVal sender As System . Object , ByVal e As System . EventArgs ) Handles inv5 . Click

slotnumber = 5

Form2 . Show ( )

End Sub

Private Sub inv6_Click ( ByVal sender As System . Object , ByVal e As System . EventArgs ) Handles inv6 . Click

slotnumber = 6

Form2 . Show ( )

End Sub