Obsługa Silnika Elysium Diamond i innych.

' Size constants (of player sprites) 
Public Const SIZE_X = 32 
Public Const SIZE_Y = 32

' Size constants (of player sprites) 
Public Const SIZE_X = 32 
Public Const SIZE_Y = 64

Private Sub Timer1_Timer()

Private Sub Timer1_Timer() 
If cmbClass.ListIndex < 0 Then Exit Sub 

Picpic.Width = SIZE_X 
Picpic.Height = SIZE_Y 
Picture4.Width = SIZE_X + 4 
Picture4.Height = SIZE_Y + 4 

If optMale.Value = True Then 
Call BitBlt(Picpic.hDC, 0, 0, SIZE_X, SIZE_Y, Picsprites.hDC, animi * SIZE_X, Int(Class(cmbClass.ListIndex + 1).MaleSprite) * SIZE_Y, SRCCOPY) 
Else 
Call BitBlt(Picpic.hDC, 0, 0, SIZE_X, SIZE_Y, Picsprites.hDC, animi * SIZE_X, Int(Class(cmbClass.ListIndex + 1).FemaleSprite) * SIZE_Y, SRCCOPY) 
End If 
End Sub