looping...

Ok i have this code

VB Code:

If intExp > llevel Then
    If intLevel = (level - 1) Then
    llevel = llevel * 1.7
    level = level + 1
    intLevel = intLevel + 1
    frmRPG.S.Enabled = True
    intHeal = intHeal + 10
    intHP = intMaxHP
    frmRPG.cmdFlee.Caption = "Use Heal (" & intHeal & ")"
    intSet = intSet + 15
    frmRPG.Label1.Caption = "Skill Credits: " & intSet
    frmRPG.Label4.Caption = "LVL"
    statp = statp + 2
    If intLevel = 15 Then
    frmRPG.Option8.Visible = True
    End If
    End If
    End If

and i want that to loop until intExp > llevel that is not true anymore.... How would i do that?

VB Code:

Do While intExp > llevel
    If intLevel = (level - 1) Then
    llevel = llevel * 1.7
    level = level + 1
    intLevel = intLevel + 1
    frmRPG.S.Enabled = True
    intHeal = intHeal + 10
    intHP = intMaxHP
    frmRPG.cmdFlee.Caption = "Use Heal (" & intHeal & ")"
    intSet = intSet + 15
    frmRPG.Label1.Caption = "Skill Credits: " & intSet
    frmRPG.Label4.Caption = "LVL"
    statp = statp + 2
    If intLevel = 15 Then
    frmRPG.Option8.Visible = True
    End If
    End If
    Loop

I think...

That would work except, he is not actually changing the value intExp anywhere within the loop. :rolleyes:

Quote:

---

Originally Posted by DKenny

That would work except, he is not actually changing the value intExp anywhere within the loop. :rolleyes:

---

He is changing llevel though :)

I'll get my coat... :blush:

lol :P that totally just froze my game

Maybe intExp is much bigger than llevel so it just takes a lot of time?