Okay, by calling those things before hadn it works, somewhat. It only shows Sprite 1 and 2 when I click female (Class Sprite + 1 = Female Sprite on the sprite sheet) but it wont change when everything else changes. here are the subs:
Code:
Private Sub cmbClass_Click()
lblHP.Caption = STR(Class(cmbClass.ListIndex).HP)
lblMP.Caption = STR(Class(cmbClass.ListIndex).MP)
lblSP.Caption = STR(Class(cmbClass.ListIndex).SP)
lblSTR.Caption = STR(Class(cmbClass.ListIndex).STR)
lblDEF.Caption = STR(Class(cmbClass.ListIndex).DEF)
lblSPEED.Caption = STR(Class(cmbClass.ListIndex).SPEED)
lblMAGI.Caption = STR(Class(cmbClass.ListIndex).MAGI)
Call picpic.Refresh
Call NewCharBltSprite(cmbClass.ListIndex)
End Sub
Code:
Private Sub cmbClass_Change()
Call NewCharBltSprite(cmbClass.ListIndex)
End Sub
Code:
Public Sub NewCharBltSprite(ByVal ListIndexSprite As Long)
With rec
If frmNewChar.optMale.Value = True Then
.top = Int(Class(ListIndexSprite).Sprite) * PIC_Y
Else
.top = Int(Class(ListIndexSprite).Sprite + 1) * PIC_Y
End If
.Bottom = .top + PIC_Y
.Left = 3 * PIC_X
.Right = .Left + PIC_X
End With
With rec_pos
.top = 0
.Bottom = PIC_Y
.Left = 0
.Right = PIC_X
End With
If DD_SpriteSurf Is Nothing Then
Else
DD_SpriteSurf.BltToDC frmNewChar.picpic.hDC, rec, rec_pos
End If
End Sub
So, right now, it shows well, Sprite 0 technically, and when I click female, it does change, however when I change the cmbClass the stats change, but the sprite does not, and I am unsure why.