|
- Obsługa Silnika Elysium Diamond i innych. http://www.cll.pun.pl/index.php - Sprawdzone Tutoriale http://www.cll.pun.pl/viewforum.php?id=10 - [Łatwe] Sprity 32x64 http://www.cll.pun.pl/viewtopic.php?id=5 |
| Shino - 2008-04-29 18:51:27 |
Tutek na zwiększenie spritow do rozmiaru 32x64 Kod:' Size constants (of player sprites) Public Const SIZE_X = 32 Public Const SIZE_Y = 32 Zamien na: Kod:' Size constants (of player sprites) Public Const SIZE_X = 32 Public Const SIZE_Y = 64 W frmNewChar znajdz: Kod:Private Sub Timer1_Timer() Zamien caly Sub na: Kod: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 |